diff options
| author | Michael Tänzer <neo@nhng.de> | 2011-04-09 00:40:46 +0200 |
|---|---|---|
| committer | Michael Tänzer <neo@nhng.de> | 2011-04-09 00:40:46 +0200 |
| commit | b6f8838f587d48502c78d7ed70d768b989ef85fa (patch) | |
| tree | 0d73fef2c78c47b1057ba86409d674c2decb08d9 /cacertupload.pl | |
| parent | 33b83bda66eb6d55abae2ef2169b8599d221f463 (diff) | |
| download | cacert-devel-b6f8838f587d48502c78d7ed70d768b989ef85fa.tar.gz cacert-devel-b6f8838f587d48502c78d7ed70d768b989ef85fa.tar.xz cacert-devel-b6f8838f587d48502c78d7ed70d768b989ef85fa.zip | |
Source code taken from cacert-20110406.tar.bz2
Diffstat (limited to 'cacertupload.pl')
| -rw-r--r-- | cacertupload.pl | 10 |
1 files changed, 8 insertions, 2 deletions
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 |