===================================================================
RCS file: /cvs/openbsd/update_openbsd/post_dmesg_to_nycbug,v
retrieving revision 1.6
retrieving revision 1.10
diff -u -r1.6 -r1.10
--- openbsd/update_openbsd/post_dmesg_to_nycbug	2016/10/04 02:44:20	1.6
+++ openbsd/update_openbsd/post_dmesg_to_nycbug	2017/10/01 03:45:24	1.10
@@ -28,16 +28,19 @@
 
 my $description = "@ARGV";
 
-while ( @sysctls and not $description ) {
-    $description = sysctl @{ shift @sysctls };
-}
+unless ($description) {
+    while ( @sysctls and not $description ) {
+        $description = sysctl @{ shift @sysctls };
+    }
 
-if (my $version = sysctl qw( kern.version )) {
-    $version =~ s/\)\K.*//;
-    $description = "$version on $description";
+    if (my $version = sysctl qw( kern.version )) {
+	my $machine = sysctl qw( hw.machine );
+        $version =~ s/\)\K.*/ $machine/;
+        $description = "$version on $description";
+    }
 }
 
-print "About to post '$description', OK? ";
+print "'$description'\nAbout to post, OK? ";
 readline STDIN;
 
 open my $dm, '<', '/var/run/dmesg.boot' or die $!;
@@ -48,7 +51,7 @@
 $dmesg =~ s/^.*\n(OpenBSD )/$1/s;
 
 my $res = HTTP::Tiny->new->post_form(
-    'http://www.nycbug.org/index.cgi',
+    'http://dmesgd.nycbug.org/index.cgi',
     {   action      => 'dmesgd',
         do          => 'addd',
         nickname    => $nickname,
@@ -61,3 +64,5 @@
 say $res->{success}
     ? 'Sent dmesg'
     : "Unable to send dmesg: $res->{status} $res->{reason}";
+
+say $res->{content};