Migrated to new Translingo

pull/1/head
root 16 years ago
parent ce67044c38
commit a97aeb09e4

@ -22,26 +22,26 @@ use HTTP::Request::Common qw(POST);
$ua->cookie_jar({});
my $req = POST 'http://www.translingo.org/login.php',
my $req = POST 'http://translingo.cacert.org/login.php',
[
];
# ggf. Referer faken
$req->referer('http://www.translingo.org/');
$req->referer('http://translingo.cacert.org/');
$ua->request($req)->as_string;
# 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',
password => 'ilccSSAMNIemU',
submit => 'Login',
];
# ggf. Referer faken
$req->referer('http://www.translingo.org/');
$req->referer('http://translingo.cacert.org/');
$ua->request($req)->as_string;
# 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 => [
project => '1',

Loading…
Cancel
Save