version 1.2, 2015/02/22 19:31:29 |
version 1.3, 2015/02/23 16:10:07 |
|
|
|
|
# This script posts your OpenBSD dmesg to the NYC*BUG dmesg archive. |
# 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 $!; |
} |
} |
|
|
open my $dm, '<', '/var/run/dmesg.boot' or die $!; |
open my $dm, '<', '/var/run/dmesg.boot' or die $!; |