From ab852c57094f527af4db032a534c7cc492b260ee Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bernhard=20Fr=C3=B6hlich?= <bernhard@cacert.org>
Date: Wed, 23 Mar 2011 00:10:23 +0100
Subject: Split off account/password in extra file

---
 cacertupload.pl     | 10 ++++++++--
 password.dat.sample |  2 ++
 2 files changed, 10 insertions(+), 2 deletions(-)
 mode change 100644 => 100755 cacertupload.pl
 create mode 100755 password.dat.sample

diff --git a/cacertupload.pl b/cacertupload.pl
old mode 100644
new mode 100755
index 4c883c8..991570b
--- a/cacertupload.pl
+++ b/cacertupload.pl
@@ -20,6 +20,12 @@ 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);
 
@@ -33,8 +39,8 @@ $req->referer('http://translingo.cacert.org/');
 # 1.Test - Umgebung
 my $req = POST 'http://translingo.cacert.org/login.php',
 [
- username => 'support@cacert.org',
- password => 'ilccSSAMNIemU',
+ username => $translingo_account,
+ password => $translingo_password,
  submit => 'Login',
 ];
 # ggf. Referer faken
diff --git a/password.dat.sample b/password.dat.sample
new file mode 100755
index 0000000..f9bbb55
--- /dev/null
+++ b/password.dat.sample
@@ -0,0 +1,2 @@
+$translingo_password = 'ThePassword';
+$translingo_account = 'TheAccount';
-- 
cgit v1.2.1