From 6380bda06a06a80c2a6e78e91aa987476332ed70 Mon Sep 17 00:00:00 2001
From: Steven Rowe <sarowe@apache.org>
Date: Fri, 3 Jun 2011 15:06:17 +0000
Subject: [PATCH] script to poll release mirrors

git-svn-id: https://svn.apache.org/repos/asf/lucene/dev/trunk@1131062 13f79535-47bb-0310-9956-ffa450edef68
---
 dev-tools/scripts/poll-mirrors.pl | 68 +++++++++++++++++++++++++++++++
 1 file changed, 68 insertions(+)
 create mode 100755 dev-tools/scripts/poll-mirrors.pl

diff --git a/dev-tools/scripts/poll-mirrors.pl b/dev-tools/scripts/poll-mirrors.pl
new file mode 100755
index 00000000000..b7222f9468b
--- /dev/null
+++ b/dev-tools/scripts/poll-mirrors.pl
@@ -0,0 +1,68 @@
+#!/usr/bin/perl
+#
+# poll-mirrors.pl
+#
+# This script is designed to poll download sites after posting a release
+# and print out notice as each becomes available.  The RM can use this
+# script to delay the release announcement until the release can be
+# downloaded.
+#
+#
+# Licensed to the Apache Software Foundation (ASF) under one or more
+# contributor license agreements.  See the NOTICE file distributed with
+# this work for additional information regarding copyright ownership.
+# The ASF licenses this file to You under the Apache License, Version 2.0
+# (the "License"); you may not use this file except in compliance with
+# the License.  You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+use strict;
+use warnings;
+use Getopt::Long;
+use LWP::Simple;
+
+my $version;
+my $interval = 300;
+my $quiet = 0;
+
+my $result = GetOptions ("version=s" => \$version, "interval=i" => \$interval, "quiet" => \$quiet);
+
+my $usage = "$0 -v version [ -i interval (seconds; default: 300)] [ -quiet ]";
+
+unless ($result) {
+  print STDERR $usage;
+  exit(1);
+}
+unless (defined($version) && $version =~ /\d+(?:\.\d+)+/) {
+  print STDERR "You must specify the release version.\n$usage";
+  exit(1);
+}
+
+my $apache_backup_url = "http://www.apache.org/dist//lucene/java/$version/lucene-$version.tar.gz.asc";
+my $maven_url = "http://repo2.maven.org/maven2/org/apache/lucene/lucene-core/$version/lucene-core-$version.pom";
+
+my $apache_available = 0;
+my $maven_available = 0;
+
+until ($apache_available && $maven_available) {
+  unless ($apache_available) {
+    my $content = get($apache_backup_url);
+    $apache_available = defined($content);
+    print "\nDownloadable: $apache_backup_url\n" if ($apache_available);
+  }
+  unless ($maven_available) {
+    my $content = get($maven_url);
+    $maven_available = defined($content);
+    print "\nDownloadable: $maven_url\n" if ($maven_available);
+  }
+  print "." unless ($quiet);
+  sleep($interval) unless ($apache_available && $maven_available);
+}