From ab852c57094f527af4db032a534c7cc492b260ee Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bernhard=20Fr=C3=B6hlich?= 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