summaryrefslogtreecommitdiff
path: root/cacertupload.pl
diff options
context:
space:
mode:
authorMarkus Warg <mw@it-sls.de>2010-03-29 09:54:06 +0200
committerMarkus Warg <mw@it-sls.de>2010-03-29 09:54:06 +0200
commit9dceece06fbdc98add6f76f0b1aec05891a394c4 (patch)
treef7227c28ca5f79f30c2ec81ba1a09a4fe3972436 /cacertupload.pl
parent5b68967def224a00f54eb54946ff17301bbd3cdb (diff)
downloadcacert-devel-9dceece06fbdc98add6f76f0b1aec05891a394c4.tar.gz
cacert-devel-9dceece06fbdc98add6f76f0b1aec05891a394c4.tar.xz
cacert-devel-9dceece06fbdc98add6f76f0b1aec05891a394c4.zip
remove cacert/ prefix
Diffstat (limited to 'cacertupload.pl')
-rw-r--r--cacertupload.pl53
1 files changed, 53 insertions, 0 deletions
diff --git a/cacertupload.pl b/cacertupload.pl
new file mode 100644
index 0000000..4c883c8
--- /dev/null
+++ b/cacertupload.pl
@@ -0,0 +1,53 @@
+#!/usr/bin/perl
+
+#LibreSSL - CAcert web application
+#Copyright (C) 2004-2008 CAcert Inc.
+#
+#This program is free software; you can redistribute it and/or modify
+#it under the terms of the GNU General Public License as published by
+#the Free Software Foundation; version 2 of the License.
+#
+#This program is distributed in the hope that it will be useful,
+#but WITHOUT ANY WARRANTY; without even the implied warranty of
+#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+#GNU General Public License for more details.
+#
+#You should have received a copy of the GNU General Public License
+#along with this program; if not, write to the Free Software
+#Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+
+use LWP::UserAgent;
+$ua = LWP::UserAgent->new(agent => 'Translingo Client 1.0');
+use HTTP::Request::Common qw(POST);
+
+$ua->cookie_jar({});
+$ua->timeout(10000);
+
+my $req = POST 'http://translingo.cacert.org/login.php',
+[
+];
+# ggf. Referer faken
+$req->referer('http://translingo.cacert.org/');
+ $ua->request($req)->as_string;
+
+# 1.Test - Umgebung
+my $req = POST 'http://translingo.cacert.org/login.php',
+[
+ username => 'support@cacert.org',
+ password => 'ilccSSAMNIemU',
+ submit => 'Login',
+];
+# ggf. Referer faken
+$req->referer('http://translingo.cacert.org/');
+$ua->request($req)->as_string;
+
+# 2.Test - FileUpload
+my $req = POST 'http://translingo.cacert.org/upload.php',
+Content_Type => 'form-data',
+Content => [
+ project => '1',
+ fileformat => '1',
+ pofile => ["messages.po" => "messages.po", 'Content_Type' => "application/x-gettext"],
+];
+print $ua->request($req)->as_string;
+