Fix for https://bugs.cacert.org/view.php?id=913

(Translingo account data exposed).

.gitignore

@@ -2,3 +2,6 @@
 # => ignore it
 # run "make all" to generate a new one and upload it to translingo
 /messages.po
+
+# Ignore file with the account data
+/password.dat

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

password.dat.sample

@@ -0,0 +1,2 @@
+$translingo_password = 'ThePassword';
+$translingo_account = 'TheAccount';