summaryrefslogtreecommitdiffstats
path: root/bin
diff options
context:
space:
mode:
authorFlorian Pritz <bluewind@xinu.at>2020-12-21 13:57:35 +0100
committerFlorian Pritz <bluewind@xinu.at>2020-12-21 13:57:38 +0100
commit6a8db45fb558704ba8ffeadf4504857e832d5972 (patch)
treef1c3b362f2b9303ac40f33c9a29dfaf5af7e7de0 /bin
parent74840798c9bc4b292668618ee3b956f4a35272a0 (diff)
downloadarch-mirror-tools-master.tar.gz
arch-mirror-tools-master.tar.xz
Update website domain to fix CSRF validation errorHEADmaster
Signed-off-by: Florian Pritz <bluewind@xinu.at>
Diffstat (limited to 'bin')
-rwxr-xr-xbin/generate-mirror-mail.pl6
-rwxr-xr-xbin/mirror-stats.pl4
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 = ();