use HTTP::Cookies; use WWW::Mechanize; use LWP::UserAgent; my $ua = LWP::UserAgent->new(); my $mech = WWW::Mechanize->new(); $mech->cookie_jar(HTTP::Cookies->new()); my $url = "****"; my $url2 = "****; my $username = "***"; my $password = "*****"; $subject = "dhdfghdfghfgh"; $message = "blah"; $mech->get($url); #my @names = $mech->forms(); $mech->form_number(2); $mech->field(username => $username); $mech->field(password => $password); $mech->click(); $mech->success or die "post failed: ", print $mech->response->status_line; $mech->get($url2); #my @names = $mech->forms(); $mech->form_number(2); $mech->field(subject => $subject); $mech->field(message => $message); $mech->click(); $mech->success or die "post failed: ", print $mech->response->status_line;
In reply to Form won't post by everlast88az
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |