voici mon script modifié :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| #!/usr/bin/perl
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.1.3) Gecko/20061201 Firefox/2.0.0.3 (Ubuntu-feisty)");
use HTTP::Request::Common qw(post);
my $req = (post 'http://localhost:8080/demo/logon.do',
["login" => "scarter",
"password" => "sprain"]);
$request = $ua->request($req);
$content = $request->content;
print "Content-type: text/html\n\n";
print "<base href=\"h**p://www.target_site_url\">";
print $content;
exit;
#print $cgi->redirect( -location => "http://localhost:8080/demo/.quickSearchPage"); |
j'ai l'erreur suivante :
[Wed May 16 11:24:05 2007] [error] "post" is not exported by the HTTP::Request::Common module\nCan't continue after import errors at /opt/apache-tomcat-5.5.23/webapps/demo/index.pl line 7\nBEGIN failed--compilation aborted at /opt/apache-tomcat-5.5.23/webapps/demo/index.pl line 7.\n
Partager