File:  [mozdev] / ieview / getmirrors.pl
Revision 1.1: download - view: text, annotated - select for diffs - revision graph
Fri Nov 9 22:32:07 2007 UTC (12 years ago) by roub
Branches: MAIN
CVS tags: RELEASE_1_3_7, RELEASE_1_3_6, HEAD, BUILD_1_3_7, BUILD_1_3_6, BUILD_1_3_5_1
updated w/latest mirrors

use strict;
use warnings;

while (<>)
{
    if (m!<dd><a href="(http|ftp)(://.+?)">!)
    {
	my $uri = "$1$2";

	if ($uri ne 'http://downloads.mozdev.org/')
	{
	    print "$uri\n";
	}
    }
}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>