|
|
@ -20,6 +20,12 @@ use LWP::UserAgent;
|
|
|
|
$ua = LWP::UserAgent->new(agent => 'Translingo Client 1.0');
|
|
|
|
$ua = LWP::UserAgent->new(agent => 'Translingo Client 1.0');
|
|
|
|
use HTTP::Request::Common qw(POST);
|
|
|
|
use HTTP::Request::Common qw(POST);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
my $translingo_password;
|
|
|
|
|
|
|
|
my $translingo_account;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# Read Account&Password from file
|
|
|
|
|
|
|
|
eval `cat password.dat`;
|
|
|
|
|
|
|
|
|
|
|
|
$ua->cookie_jar({});
|
|
|
|
$ua->cookie_jar({});
|
|
|
|
$ua->timeout(10000);
|
|
|
|
$ua->timeout(10000);
|
|
|
|
|
|
|
|
|
|
|
@ -33,8 +39,8 @@ $req->referer('http://translingo.cacert.org/');
|
|
|
|
# 1.Test - Umgebung
|
|
|
|
# 1.Test - Umgebung
|
|
|
|
my $req = POST 'http://translingo.cacert.org/login.php',
|
|
|
|
my $req = POST 'http://translingo.cacert.org/login.php',
|
|
|
|
[
|
|
|
|
[
|
|
|
|
username => 'support@cacert.org',
|
|
|
|
username => $translingo_account,
|
|
|
|
password => 'ilccSSAMNIemU',
|
|
|
|
password => $translingo_password,
|
|
|
|
submit => 'Login',
|
|
|
|
submit => 'Login',
|
|
|
|
];
|
|
|
|
];
|
|
|
|
# ggf. Referer faken
|
|
|
|
# ggf. Referer faken
|
|
|
|