diff options
| -rw-r--r-- | .gitignore | 3 | ||||
| -rw-r--r-- | cacertupload.pl | 10 | ||||
| -rw-r--r-- | password.dat.sample | 2 |
3 files changed, 13 insertions, 2 deletions
@@ -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 diff --git a/cacertupload.pl b/cacertupload.pl index 4c883c8..991570b 100644 --- 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 100644 index 0000000..f9bbb55 --- /dev/null +++ b/password.dat.sample @@ -0,0 +1,2 @@ +$translingo_password = 'ThePassword'; +$translingo_account = 'TheAccount'; |