Upload mit WWW::Mechanize - #117732 (Fragen zu Perl-Modulen)

Gast Gast

2009-01-08 19:42

Hallo,
Ich hab mir hier ein Skript mit dem Modul WWW::Mechanize geschrieben mit welchem ich mich bei Rapidshare.com als Collector einlogge. Das einloggen Funktioniert auch problemlos, nur möcht ich jetzt da eine Datei hochladen. Also hab ich mir das Feld rausgesucht wo man den Dateipfad eintippt, hab mein Dateipfad eingegeben und auf den Button geklickt (natürlich alles mit Mechanize im Skript).
Wenn ich eine kleinere Datei (70 Kbyte) hochlade kommt ein OK und es hat angeblich geklappt, nur wird dann nichts angezeigt wenn ich auf RS nachschaue. Wenn ich eine grössere Datei (40 MB) hochlade dauerts ne Weile (und er verbindet zum RS-Server, also lädt er auch tatsächlich hoch) aber am Ende krieg ich von meinem Skript die Fehlermeldung (also von der eigenen Kontrolle mit success).

Hat jemand eine Idee was ich ändern muss? Danke schonmal.

Code (perl): (dl )

#!/usr/bin/perl

use WWW::Mechanize;

$uname = 'Loginname';
$pword = 'Passwort';
$file = 'C:\Dokumente und Einstellungen\Benutzername\Desktop\1.rar';

$mech = WWW::Mechanize->new();
$mech->get('https://ssl.rapidshare.com/cgi-bin/collectorszone.cgi') || print "Rapidshare nicht erreichbar!\n";
                                $check += $mech->success();
$mech->form_number(1);
                                $check += $mech->success();
$mech->field('username', $uname);
                $check += $mech->success();
$mech->field('password', $pword);
                $check += $mech->success();
$mech->click();
                    $check += $mech->success();

if($check == 5){print "Ok\n";}
else{print "Fehler!\n";}


$mech->form_name('ul');
                                $check += $mech->success();
$mech->field('filecontent', $file);
                $check += $mech->success();
$mech->click();
                                $check += $mech->success();

if($check == 8){print "Ok\n";}
else{print "Fehler!\n";}