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 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'bin/generate-mirror-mail.pl') 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); -- cgit v1.2.3-24-g4f1b