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.3, 2015/02/23 16:10:07

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 $!;

}

open my $dm, '<', '/var/run/dmesg.boot' or die $!;