Cecking Bug archive time stamps
Hi,
Ever wonder about which debian bug mirror is the most
uptodate? Don't want to reach out and look at all them time stamp
pages manually? Perl comes to the rescue.
----------------------------------------------------------------------
perl -MLWP -we print "The most recent is \n", \
(map {my ($i,$j) = split " __ "; " $j\n\t" . scalar localtime $i . "\n"} \
reverse sort map \
{ LWP::UserAgent->new->request \
( HTTP::Request->new(HEAD=>$_))->last_modified . " __ " . $_ } \
map { "http://www.$_/Bugs/db/ix/zstamp.html"; } \
qw(chiark.greenend.org.uk/debian debian.org nl.debian.org \
infodrom.north.de/Debian ))[0], "\n";'
----------------------------------------------------------------------
There. That was not so bad, was it?
manoj
--
"A billion here, a billion there, sooner or later it adds up to real
money." Everett Dirksen
Manoj Srivastava <srivasta@acm.org> <http://www.datasync.com/%7Esrivasta/>
Key C7261095 fingerprint = CB D9 F4 12 68 07 E4 05 CC 2D 27 12 1D F5 E8 6E
--
E-mail the word "unsubscribe" to debian-devel-request@lists.debian.org
TO UNSUBSCRIBE FROM THIS MAILING LIST. Trouble? E-mail to listmaster@lists.debian.org
Reply to: