version 1.6, 2016/10/04 02:44:20 |
version 1.8, 2016/10/04 06:27:00 |
|
|
$dmesg =~ s/^.*\n(OpenBSD )/$1/s; |
$dmesg =~ s/^.*\n(OpenBSD )/$1/s; |
|
|
my $res = HTTP::Tiny->new->post_form( |
my $res = HTTP::Tiny->new->post_form( |
'http://www.nycbug.org/index.cgi', |
'http://dmesgd.nycbug.org/index.cgi', |
{ action => 'dmesgd', |
{ action => 'dmesgd', |
do => 'addd', |
do => 'addd', |
nickname => $nickname, |
nickname => $nickname, |
|
|
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}; |