Source code taken from cacert-20110406.tar.bz2
authorMichael Tänzer <neo@nhng.de>
Fri, 8 Apr 2011 22:40:46 +0000 (00:40 +0200)
committerMichael Tänzer <neo@nhng.de>
Fri, 8 Apr 2011 22:40:46 +0000 (00:40 +0200)
.gitignore
cacertupload.pl
password.dat.sample [new file with mode: 0644]

index e9d597e..4559ec0 100644 (file)
@@ -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
index 4c883c8..991570b 100644 (file)
@@ -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 100644 (file)
index 0000000..f9bbb55
--- /dev/null
@@ -0,0 +1,2 @@
+$translingo_password = 'ThePassword';
+$translingo_account = 'TheAccount';