perl, http request

[attheo]

hi leute,

ich versuche mich gerade per perl skript auf einer seite einzuloggen. wenn ich die url ($u) im browser eingebe, funktioniert es auch ohne probleme. bei dem unteren skript kriege ich jedoch keinen content ($res->content) zurück und er logt sich auch nicht ein.

weiß einer von euch woran das liegen kann?

gruß attheo

use LWP;

use HTTP::Request;


$name = "xyz";

$pw	  = "zyx";

$u   = "http://xxx/login.php?name=$name&pw=$pw";


$ua  = new LWP::UserAgent;

$url  = new URI::URL($u);

$req = new HTTP::Request("POST", "$url");

$res = $ua -> request($req);


if ($res->is_success){

  print "\nContent:\n", $res->content,"\n";

  print "\nStatus: ", $res->status_line,"\n";

  print "\nBase:\n", $res->base,"\n";

  print "\nAs_String:\n",$res->as_string,"\n";

}

else {

  print $res->error_as_HTML;

}

[Wasi]

Proxy?

[attheo]

nicht das ich wüste, warum?

[alligator]

Hi,

ich hab jetzt nicht überprüft ob das mit dem Modul richtig ist aber

bei dem String würde ich mit der Interpolation aupfassen ...

Anstatt:

$u = "http://xxx/login.php?name=$name&pw=$pw";

mach mal

$u = "http://xxx/login.php?name=${name}&pw=${pw}";

Aber auf jeden Fall solltest du $u mal überprüfen ...

cya

alligator

[dr.disk]

Evtl. könnte das '&' in deinem Link schuld sein. Ersetz es mal durch '\&'.

Falls das nicht hilft: nimm mal noch 'use strict;' auf und definiere alle Variablen mit einem 'my'. Erzeugt Perl dann einen Fehler?

[attheo]

hi,

danke für die tipps, aber das mit dem maskieren hat nichts gebracht..

habs auch mal ohne user und pw versucht und kriege da auch keinen quellcode zurück :confused:

kann man skriptzugriffe mit php abwehren??

oder könnte sonst noch irgendetwas verkehrt sein??

gruß attheo

p.s. ach ja, 'use strict' hab ich auch schon drin und es läuft alles ohne fehler..

noch was: wenn ich $u = "http://google.de" eingebe, dann lüpts..