From a97aeb09e47f93a175a5a4529dc3785baf9bfe7f Mon Sep 17 00:00:00 2001 From: root Date: Sat, 16 Aug 2008 00:01:32 +0000 Subject: [PATCH] Migrated to new Translingo --- cacertupload.pl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/cacertupload.pl b/cacertupload.pl index 6e9b0f8..0ee299b 100644 --- a/cacertupload.pl +++ b/cacertupload.pl @@ -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',