#! /usr/bin/perl -w
# Gets and edits http://ctan.unsw.edu.au/tex-archive/CTAN.sites.
# When run by cron ensures $f update before Debian mirror package release.
# Ian Maclaine-cross <iml@debian.org> 2003/02/12

$d="/home/iml/data/mirror/mirror-2.9/debian/";
$f="CTAN";
$l=`lynx -dump http://www.ctan.org/tex-archive/CTAN.sites`;

$p="$d$f";
$po="$p.old";
rename $p, $po;
for( $l ){
    s/^.+Known mirrors//s;
    s/Known partial.+Please send//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;
