diff options
| author | Bernhard Fröhlich <bernhard@cacert.org> | 2011-03-23 00:10:23 +0100 |
|---|---|---|
| committer | Bernhard Fröhlich <bernhard@cacert.org> | 2011-03-23 00:10:23 +0100 |
| commit | ab852c57094f527af4db032a534c7cc492b260ee (patch) | |
| tree | 235644b2d6d8a66c3692e5e7aa0515bc79cf26e7 | |
| parent | 95bd3c1cc714cce497609b10a9ff0120e59d83b5 (diff) | |
| download | cacert-devel-ab852c57094f527af4db032a534c7cc492b260ee.tar.gz cacert-devel-ab852c57094f527af4db032a534c7cc492b260ee.tar.xz cacert-devel-ab852c57094f527af4db032a534c7cc492b260ee.zip | |
Split off account/password in extra file
| -rwxr-xr-x[-rw-r--r--] | cacertupload.pl | 10 | ||||
| -rwxr-xr-x | password.dat.sample | 2 |
2 files changed, 10 insertions, 2 deletions
diff --git a/cacertupload.pl b/cacertupload.pl index 4c883c8..991570b 100644..100755 --- 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'; |