Opened by ptk at 2004-07-19 15:59
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:
Und hier das Script für die https Seite, welches den Bad Request Fehler liefert:
genau lautet die Fehler wie folgt:
Hat einer eine Idee bzw, hat schon mal jemand was mit diesem Modul gemacht?
Bearbeitet von Crian: CODE-Tags hinzugefügt.\n\n
<!--EDIT|Crian|1090244204-->
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:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
my $url = "[URL=http://www.google.de;]http://www.google.de";[/URL]
my $name = "q";
my $value = "linux";
my $button = "btnG";
use WWW::Mechanize;
my $agent = WWW::Mechanize->new(autocheck=>1);
$agent->proxy(['http', 'https'], '[URL=http://meinProxy]http://meinProxy[/URL]: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:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
my $url = "[URL=https://meine-HTTPS-Seite.com;]https://meine-HTTPS-Seite.com";[/URL]
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'], '[URL=http://meinProxy]http://meinProxy[/URL]:8080/');
$agent->get($url);
$agent->field($name, $value);
$agent->field($name2, $value2);
$agent->click($button);
print $agent->content();
genau lautet die Fehler wie folgt:
Code: (dl
)
Error GETing [URL=https://meine-HTTPS-Seite]https://meine-HTTPS-Seite[/URL]: Bad Request at ./infonet4.pl line 18
Hat einer eine Idee bzw, hat schon mal jemand was mit diesem Modul gemacht?
Bearbeitet von Crian: CODE-Tags hinzugefügt.\n\n
<!--EDIT|Crian|1090244204-->