[BACK]Return to post_dmesg_to_nycbug CVS log [TXT][DIR] Up to [local] / openbsd / update_openbsd

Diff for /openbsd/update_openbsd/post_dmesg_to_nycbug between version 1.4 and 1.9

version 1.4, 2015/02/23 16:12:27 version 1.9, 2017/03/10 19:15:38
Line 2 
Line 2 
 use strict;  use strict;
 use warnings;  use warnings;
 use feature 'say';  use feature 'say';
   use feature 'signatures';
   no warnings 'experimental::signatures';
   
   use Sys::Hostname;
 use HTTP::Tiny;  use HTTP::Tiny;
   
 # This script posts your OpenBSD dmesg to the NYC*BUG dmesg archive.  # This script posts your OpenBSD dmesg to the NYC*BUG dmesg archive.
   
   sub sysctl (@s) {
       open my $de, '-|', qw( sysctl -n ), @s or die $!;
       my $s = join ' ', split /\s+/s,
           do { local $/ = undef; readline $de };
       close $de or die $!;
       return $s;
   }
   
   my $nickname = "$ENV{USER}";
   my $email    = "$ENV{USER}\@" . hostname();
   
 my @sysctls = (  my @sysctls = (
     [qw( hw.vendor hw.product hw.version  )],      [qw( hw.vendor hw.product hw.version  )],
     [qw( hw.model )],      [qw( hw.model )],
Line 14 
Line 28 
   
 my $description = "@ARGV";  my $description = "@ARGV";
   
 while ( @sysctls and not $description ) {  unless ($description) {
     my @s = @{ shift @sysctls };      while ( @sysctls and not $description ) {
           $description = sysctl @{ shift @sysctls };
       }
   
     open my $de, '-|', qw( sysctl -n ), @s or die $!;      if (my $version = sysctl qw( kern.version )) {
     $description = join ' ', split /\s+/s,          $version =~ s/\)\K.*//;
         do { local $/ = undef; readline $de };          $description = "$version on $description";
     close $de or die $!;      }
 }  }
   
 print "About to post '$description', OK? ";  print "'$description'\nAbout to post, OK? ";
 readline STDIN;  readline STDIN;
   
 open my $dm, '<', '/var/run/dmesg.boot' or die $!;  open my $dm, '<', '/var/run/dmesg.boot' or die $!;
Line 34 
Line 50 
 $dmesg =~ s/^.*\n(OpenBSD )/$1/s;  $dmesg =~ s/^.*\n(OpenBSD )/$1/s;
   
 my $res = HTTP::Tiny->new->post_form(  my $res = HTTP::Tiny->new->post_form(
     'http://www.nycbug.org/index.cgi',      'http://dmesgd.nycbug.org/index.cgi',
     {   action      => 'dmesgd',      {   action      => 'dmesgd',
         do          => 'addd',          do          => 'addd',
         nickname    => 'afresh1',          nickname    => $nickname,
         email       => 'andrew+dmesgd@afresh1.com',          email       => $email,
         description => $description,          description => $description,
         dmesg       => $dmesg,          dmesg       => $dmesg,
     }      }
Line 47 
Line 63 
 say $res->{success}  say $res->{success}
     ? 'Sent dmesg'      ? 'Sent dmesg'
     : "Unable to send dmesg: $res->{status} $res->{reason}";      : "Unable to send dmesg: $res->{status} $res->{reason}";
   
   say $res->{content};
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.9
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>