openbsd/update_openbsd/post_dmesg_to_nycbug - diff

Return to post_dmesg_to_nycbug CVS log

Up to [local] / openbsd / update_openbsd

version 1.6, 2016/10/04 02:44:20

version 1.10, 2017/10/01 03:45:24

Line 28

my $description = "@ARGV";

while ( @sysctls and not $description ) {

unless ($description) {

$description = sysctl @{ shift @sysctls };

while ( @sysctls and not $description ) {

}

$description = sysctl @{ shift @sysctls };

}

if (my $version = sysctl qw( kern.version )) {

$version =~ s/\)\K.*//;

my $machine = sysctl qw( hw.machine );

$description = "$version on $description";

$version =~ s/\)\K.*/ $machine/;

$description = "$version on $description";

}

print "About to post '$description', OK? ";

print "'$description'\nAbout to post, OK? ";

readline STDIN;

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

Line 48

Line 51

$dmesg =~ s/^.*\n(OpenBSD )/$1/s;

my $res = HTTP::Tiny->new->post_form(

{ action => 'dmesgd',

do => 'addd',

nickname => $nickname,

Line 61

Line 64

say $res->{success}

? 'Sent dmesg'

: "Unable to send dmesg: $res->{status} $res->{reason}";

say $res->{content};