blob: d66ecff3ee20b9a8664817bfbeebf1b3a22deab4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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}
}
);
|