diff options
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/generate-mirror-mail.pl | 6 | ||||
| -rwxr-xr-x | bin/mirror-stats.pl | 4 |
2 files changed, 5 insertions, 5 deletions
diff --git a/bin/generate-mirror-mail.pl b/bin/generate-mirror-mail.pl index a5966e9..6710118 100755 --- a/bin/generate-mirror-mail.pl +++ b/bin/generate-mirror-mail.pl @@ -22,7 +22,7 @@ generate-mirror-mail.pl - Generate notification mails for broken mirrors =head1 DESCRIPTION Run the script and pass it URLs to the archweb mirror page (e.g. -<https://www.archlinux.org/mirrors/melbourneitmirror.net/>) via STDIN. If the +<https://archlinux.org/mirrors/melbourneitmirror.net/>) via STDIN. If the mirror has a problem the script will generate an appropriate mail and run `compose-mail-from-stdin` which should be a script that starts your favourite mail client with the mail. You can also let the script send the mail directly @@ -91,7 +91,7 @@ my $cookie_jar = HTTP::Cookies->new(file => dirname($0) . "/../cookie_jar", auto my $mech = WWW::Mechanize->new(agent => "arch-mirror-tools", cookie_jar => $cookie_jar); sub login { - $mech->get("https://www.archlinux.org/login/"); + $mech->get("https://archlinux.org/login/"); my $res = $mech->submit_form( form_id => "dev-login-form", fields => { @@ -145,7 +145,7 @@ while (<STDIN>) { my $url = $_; chomp($url); die "Skipping non-mirror detail URL" if $url =~ m/\/[0-9]+(\/|$)/; - die "Skipping non-mirror detail URL" if $url eq "https://www.archlinux.org/mirrors/status/"; + die "Skipping non-mirror detail URL" if $url eq "https://archlinux.org/mirrors/status/"; my ($mirror_name) = ($url =~ m#/([^/]+)/?$#); my $json = get_mirror_json($url); diff --git a/bin/mirror-stats.pl b/bin/mirror-stats.pl index 601a4cc..4962930 100755 --- a/bin/mirror-stats.pl +++ b/bin/mirror-stats.pl @@ -7,8 +7,8 @@ use Data::Dumper; my $m = WWW::Mechanize->new(); -#$m->get("https://www.archlinux.org/mirrors/status/tier/1/json"); -$m->get("https://www.archlinux.org/mirrors/status/json"); +#$m->get("https://archlinux.org/mirrors/status/tier/1/json"); +$m->get("https://archlinux.org/mirrors/status/json"); my $mirrors = decode_json($m->content()); my %countries = (); |