Hi zusammen,

ich will per Perl aus einem online spiel meine Lagerkosten auslesen.

Problem ist es gibt vorher ein login und die session_id wird nicht mitgegeben.

Wie folgt hab ich versucht das Login in Perl zu machen ohne erfolg:


#!/usr/bin/perl -w
#
$uname = "loginname";
$pword = "pwd";
use LWP;

$url = 'http://www.itycoon.de/login.php';
$ua = LWP::UserAgent->new();
$form = $ua->get($url) or die "Couldn't fetch $url";
$form->is_success() or die $form->message();

$form_login = "userxyz";
$form_pass = "xxxxx";
$resp = $ua->post("http://www.itycoon.de/login.php", [ $form_login => $uname, $form_pass => $pword, action => "senden" ]);

$url = 'http://www.itycoon.de/marktplatz.php';
$form = $ua->get($url) or die "Couldn't fetch $url";
$form->is_success() or die $form->message();

print $form->content();



Ergebnis ist das ich einfach den Queltext der Seite als Ausgabe habe. Hat wer eine Idee was ich Falsch mache?