[p] schnell-gewinnen bot

[Hu5eL]

hi,
versuche mir einen vorerst simplen bot für
schnell-gewinnen.de zu schreiben.
so sitze seit ca 4-5 stunden daran und hänge wohl an einem kleinen problem.
ich will es ersteinmal anhand des "rentengewinnspiels" probieren:
ein paar ausschnitte:


$ua = LWP::UserAgent->new;
$cj = HTTP::Cookies->new(file => "cookies.txt", autosave => 1);
$ua->cookie_jar($cj);
login methode


sub login
{
my $content = $ua->request(GET "http://www.schnell-gewinnen.de/");
$content = $ua->request(POST "http://www.schnell-gewinnen.de/login.php" , [ "userid" => $_[0], "passwort" => $_[1] , "submit_login" => ""] )->as_string;
if($content=~ /.*Du hast dich erfolgreich angemeldet*/igs) { return "1"; }
&schreibenInDatei($content);
return ("Error, Login nicht erfolgreich.");
}
der login funktioniert auch soweit.
problem liegt beim ausführen des gewinnspiels:


my $content = $ua->request(GET "http://www.schnell-gewinnen.de/redirect.php?pr_id=133&user_id=$id") -> as_string;
#Session-ID
$content =~ s/.*(PHPSESSID.)(.*?)(\').*/$2/igs;
my $sessid=$content;
if(length($content)!=32) { return "Error mit Session-ID."; }
geht nocht... fortsetzung:

$content = $ua->request(POST "http://www.rentengewinnspiel.net/index.php?PHPSESSID=$sessid" , [ "answer1" => "ja", "answer2" => "ja" ,
"anrede" => "Herr",
"vorname" => "Peter",
"nachname" => "Winter",
"email" => 'b15498@tyldd.com',
"gebtag" => "04",
"gebmonat" => "04",
"gebjahr" => "1984",
"agb" => "1",
"agb2" => "1",
"Submit" => "",
"p_ref" => "webgains",
"p_sub" => "webgains",
"woher_kommen" => "frontdoor",
"PHPSESSID" => $sessid,
"ref_userid" => "",
"land" => "DE",

] )->as_string;
das sind alle post-variablen, die ich gefunden hab. der quelltext den ich zurückbekomm "speichert" alle eingaben wie name, anrede, geburtsdatum etc... aber ich werde nicht auf index2.php weitergeleitet, wie es per hand passiert.

wenn ich mir den quelltext vom letzten codeaussschnitt zurückgeben lassen und im browser selbe ausführe funktioniert es... also kann mir eig nur ein postparameter auf der seite: http://www.rentengewinnspiel.net/ fehlen.
oder hat jemand einen anderen tipp? würde den bot dann sharen.

[cTPu1bjo]

Evtl Redirections automatisch annehmen lassen:


my $ua = LWP::UserAgent->new
(
requests_redirectable => [ 'GET', 'POST' ]
);