===================================================================
RCS file: /cvs/openbsd/update_openbsd/post_dmesg_to_nycbug,v
retrieving revision 1.3
retrieving revision 1.5
diff -u -r1.3 -r1.5
--- openbsd/update_openbsd/post_dmesg_to_nycbug	2015/02/23 16:10:07	1.3
+++ openbsd/update_openbsd/post_dmesg_to_nycbug	2015/03/03 18:56:08	1.5
@@ -3,10 +3,14 @@
 use warnings;
 use feature 'say';
 
+use Sys::Hostname;
 use HTTP::Tiny;
 
 # This script posts your OpenBSD dmesg to the NYC*BUG dmesg archive.
 
+my $nickname = "$ENV{USER}";
+my $email    = "$ENV{USER}\@" . hostname();
+
 my @sysctls = (
     [qw( hw.vendor hw.product hw.version  )],
     [qw( hw.model )],
@@ -23,6 +27,9 @@
     close $de or die $!;
 }
 
+print "About to post '$description', OK? ";
+readline STDIN;
+
 open my $dm, '<', '/var/run/dmesg.boot' or die $!;
 my $dmesg = do { local $/ = undef; readline $dm };
 close $dm;
@@ -34,8 +41,8 @@
     'http://www.nycbug.org/index.cgi',
     {   action      => 'dmesgd',
         do          => 'addd',
-        nickname    => 'afresh1',
-        email       => 'andrew+dmesgd@afresh1.com',
+        nickname    => $nickname,
+        email       => $email,
         description => $description,
         dmesg       => $dmesg,
     }