|
|
@ -22,26 +22,26 @@ use HTTP::Request::Common qw(POST);
|
|
|
|
|
|
|
|
|
|
|
|
$ua->cookie_jar({});
|
|
|
|
$ua->cookie_jar({});
|
|
|
|
|
|
|
|
|
|
|
|
my $req = POST 'http://www.translingo.org/login.php',
|
|
|
|
my $req = POST 'http://translingo.cacert.org/login.php',
|
|
|
|
[
|
|
|
|
[
|
|
|
|
];
|
|
|
|
];
|
|
|
|
# ggf. Referer faken
|
|
|
|
# ggf. Referer faken
|
|
|
|
$req->referer('http://www.translingo.org/');
|
|
|
|
$req->referer('http://translingo.cacert.org/');
|
|
|
|
$ua->request($req)->as_string;
|
|
|
|
$ua->request($req)->as_string;
|
|
|
|
|
|
|
|
|
|
|
|
# 1.Test - Umgebung
|
|
|
|
# 1.Test - Umgebung
|
|
|
|
my $req = POST 'http://www.translingo.org/login.php',
|
|
|
|
my $req = POST 'http://translingo.cacert.org/login.php',
|
|
|
|
[
|
|
|
|
[
|
|
|
|
username => 'support@cacert.org',
|
|
|
|
username => 'support@cacert.org',
|
|
|
|
password => 'ilccSSAMNIemU',
|
|
|
|
password => 'ilccSSAMNIemU',
|
|
|
|
submit => 'Login',
|
|
|
|
submit => 'Login',
|
|
|
|
];
|
|
|
|
];
|
|
|
|
# ggf. Referer faken
|
|
|
|
# ggf. Referer faken
|
|
|
|
$req->referer('http://www.translingo.org/');
|
|
|
|
$req->referer('http://translingo.cacert.org/');
|
|
|
|
$ua->request($req)->as_string;
|
|
|
|
$ua->request($req)->as_string;
|
|
|
|
|
|
|
|
|
|
|
|
# 2.Test - FileUpload
|
|
|
|
# 2.Test - FileUpload
|
|
|
|
my $req = POST 'http://www.translingo.org/upload.php',
|
|
|
|
my $req = POST 'http://translingo.cacert.org/upload.php',
|
|
|
|
Content_Type => 'form-data',
|
|
|
|
Content_Type => 'form-data',
|
|
|
|
Content => [
|
|
|
|
Content => [
|
|
|
|
project => '1',
|
|
|
|
project => '1',
|
|
|
|