summaryrefslogtreecommitdiff
path: root/cacertupload.pl
diff options
context:
space:
mode:
authorMichael Tänzer <neo@nhng.de>2011-09-28 00:11:54 +0200
committerMichael Tänzer <neo@nhng.de>2011-09-28 00:11:54 +0200
commitdde0e7bd634e8a1130074e4e14b40222a65bc501 (patch)
tree3d86bd61fb7d7e312c4c5eb848a3b85dae6286aa /cacertupload.pl
parentc99e1025667d8fef72b6fdbe7d34769a279a8942 (diff)
downloadcacert-devel-dde0e7bd634e8a1130074e4e14b40222a65bc501.tar.gz
cacert-devel-dde0e7bd634e8a1130074e4e14b40222a65bc501.tar.xz
cacert-devel-dde0e7bd634e8a1130074e4e14b40222a65bc501.zip
bug 985: move from Translingo to Pootle (translations.cacert.org)
- new Makefile - rework translation selection code - remove unused files Signed-off-by: Michael Tänzer <neo@nhng.de>
Diffstat (limited to 'cacertupload.pl')
-rwxr-xr-xcacertupload.pl59
1 files changed, 0 insertions, 59 deletions
diff --git a/cacertupload.pl b/cacertupload.pl
deleted file mode 100755
index 991570b..0000000
--- a/cacertupload.pl
+++ /dev/null
@@ -1,59 +0,0 @@
-#!/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);
-
-my $translingo_password;
-my $translingo_account;
-
-# Read Account&Password from file
-eval `cat password.dat`;
-
-$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 => $translingo_account,
- password => $translingo_password,
- 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;
-