diff options
author | Johannes Löthberg <johannes@kyriasis.com> | 2018-02-12 16:01:00 +0100 |
---|---|---|
committer | Johannes Löthberg <johannes@kyriasis.com> | 2018-02-12 16:01:00 +0100 |
commit | a4cc90817a4613654d0e477749c27b3d3cfcdb84 (patch) | |
tree | ba42ad60fda37466dabfc8f312bf9dfeef5a533f /bin/archweb-login.pl | |
parent | 0fbbb3374ee2ab2b75b994d1b132e6a4067f0f1a (diff) | |
download | arch-mirror-tools-a4cc90817a4613654d0e477749c27b3d3cfcdb84.tar.gz arch-mirror-tools-a4cc90817a4613654d0e477749c27b3d3cfcdb84.tar.xz |
Fetch admin email from API if we have logged in
Signed-off-by: Johannes Löthberg <johannes@kyriasis.com>
Diffstat (limited to 'bin/archweb-login.pl')
-rwxr-xr-x | bin/archweb-login.pl | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/bin/archweb-login.pl b/bin/archweb-login.pl new file mode 100755 index 0000000..d66ecff --- /dev/null +++ b/bin/archweb-login.pl @@ -0,0 +1,24 @@ +#!/usr/bin/perl + +use warnings; +use strict; + +use File::Basename; +use Config::Tiny; +use WWW::Mechanize; +use HTTP::Cookies; + +my $Config = Config::Tiny->new(); +$Config = Config::Tiny->read(dirname($0) . "/../settings.conf"); + +my $cookie_jar = HTTP::Cookies->new(file => dirname($0) . "/../cookie_jar", autosave => 1); +my $mech = WWW::Mechanize->new(agent => "arch-mirror-tools", cookie_jar => $cookie_jar); + +$mech->get("https://www.archlinux.org/login/"); +my $res = $mech->submit_form( + form_id => "dev-login-form", + fields => { + username => $Config->{account}->{username}, + password => $Config->{account}->{password} + } +); |