version 1.7, 2016/10/04 06:26:34 |
version 1.11, 2018/12/16 23:49:03 |
|
|
|
|
my $description = "@ARGV"; |
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 )) { |
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 as $email ($nickname), OK? "; |
readline STDIN; |
readline STDIN; |
|
|
open my $dm, '<', '/var/run/dmesg.boot' or die $!; |
open my $dm, '<', '/var/run/dmesg.boot' or die $!; |
|
|
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}; |