Hi,
ich habe folgendes Problem, ich will mich per Perl Script auftomatisch auf eine https Seite connecten und dort ein Formular ausfüllen. Dafür ist angeblich das WWW::Mechanize Modul geeignet. Ich hab mal ein Test Script geschrieben, das auf google nach dem Begriff Linux suchen soll. Das funktioniert auch wunderbar. Nun aber mein Problem. Wenn ich nun auf betreffende https Seite will, dann sagt er mir "Bad Request"
Hier mal die beiden Scripte:
Hier das Google Test Script:
my $url = "http://www.google.de";
my $name = "q";
my $value = "linux";
my $button = "btnG";
use WWW::Mechanize;
my $agent = WWW::Mechanize->new(autocheck=>1);
$agent->proxy([\'http\', \'https\'], \'http://meinProxy:8080/\');
$agent->get($url);
$agent->field($name, $value);
$agent->click($button);
print $agent->content;
Und hier das Script für die https Seite, welches den Bad Request Fehler liefert:
my $url = "https://meine-HTTPS-Seite.com";
my $name = "acc";
my $name2 = "pwd";
my $value = "meinUser";
my $value2 = "meinPasswd";
my $button = "submit";
use WWW::Mechanize;
use Net::SSLeay;
my $agent = WWW::Mechanize->new(autocheck=>1);
$agent->proxy([\'http\', \'https\'], \'http://meinProxy:8080/\');
$agent->get($url);
$agent->field($name, $value);
$agent->field($name2, $value2);
$agent->click($button);
print $agent->content();
genau lautet die Fehler wie folgt:
Error GETing https://meine-HTTPS-Seite: Bad Request at ./script.pl line 18
Hat einer eine Idee bzw, hat schon mal jemand was mit diesem Modul gemacht? Ich hab die Doku der Module 10 mal gelesen und habs einfach nicht verstanden. Google bringt auch nix tolles
