openbsd/update_openbsd/post_dmesg_to_nycbug - diff

Return to post_dmesg_to_nycbug CVS log

Up to [local] / openbsd / update_openbsd

-version 1.2, 2015/02/22 19:31:29
+version 1.4, 2015/02/23 16:12:27
 Line 7
 Line 7
 Line 7
  # This script posts your OpenBSD dmesg to the NYC*BUG dmesg archive.
- open my $de, '-|', qw( sysctl -n hw.vendor hw.product hw.version ) or die $!;
+ my @sysctls = (
- my $description = join ' ', split /\s+/s,
+     [qw( hw.vendor hw.product hw.version  )],
-     do { local $/ = undef; readline $de };
+     [qw( hw.model )],
- close $de or die $!;
+ );
- # Fall back to a less useful description
+ my $description = "@ARGV";
- unless ($description) {
-         open my $de, '-|', qw( sysctl -n hw.model ) or die $!;
+ while ( @sysctls and not $description ) {
-         $description = join ' ', split /\s+/s,
+     my @s = @{ shift @sysctls };
-             do { local $/ = undef; readline $de };
-         close $de or die $!;
+     open my $de, '-|', qw( sysctl -n ), @s or die $!;
+     $description = join ' ', split /\s+/s,
+         do { local $/ = undef; readline $de };
+     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 };