#! /usr/bin/perl -w
# Gets and edits http://www.debian.org/mirror/list.
# When run by cron ensures $f update before Debian mirror package release.
# Ian Maclaine-cross <iml@debian.org> 2005/02/12

$d="/home/iml/data/mirror/mirror-2.9/debian/";
$f="Debian";
$l=`lynx -dump http://www.debian.org/mirror/list`;

$p="$d$f";
$po="$p.old";
rename $p, $po;
for( $l ){
    s/^.+Primary Deb//s;
    s/Last modified.+$//s;
};
open( F, "| sort | uniq > $p" );
$0 =~ s/.*\///;
print( F "\#A file $f created ".gmtime()." UTC by $0.\n" ); 
foreach $word( split /\s/, $l ){
    if ( $word =~ /^\w+(\.\w+)+$/ ){
	print( F "$word\n" ) unless $word =~ m/.*\/.*/; 
    };
}
close( F );

rename $po, $p unless `diff -u -I"^\# $f" $po $p`;

exit;
