From 6a8db45fb558704ba8ffeadf4504857e832d5972 Mon Sep 17 00:00:00 2001 From: Florian Pritz Date: Mon, 21 Dec 2020 13:57:35 +0100 Subject: Update website domain to fix CSRF validation error Signed-off-by: Florian Pritz --- bin/generate-mirror-mail.pl | 6 +++--- 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. -) via STDIN. If the +) 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 () { 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 = (); -- cgit v1.2.3-24-g4f1b