use WWW::Mechanize;
use Getopt::Std;
use Pod::Usage;
-
+use Data::Dumper;
my $server = 'scsys.co.uk';
my $url = "http://$server:8001/paste";
$mech->submit_form(
form_name => 'pasteForm',
fields => {
- (defined $opt->{c} ?
- (channel => $opt->{c}) :
- (channel => '#sdl' )
- ),
+ channel => $opt->{c},
nick => $opt->{n},
summary => $opt->{t},
paste => $text,