#!/usr/bin/perl

# spamrr-v2.pl - by dual
# creates database of roadrunner user email addresses
# - shouts to phrox for the find, bland for the
# inspiration, and ntheory for the help -

# Set counter and coverage areas
$count = 0;
@st = qw (austin bak bham carolina cfl cinci columbus dc ec elmore elp eufaula
	  gt hawaii hot houston hvc indy insight jam kc ma maine midsouth mn
	  nc ne neb neo new nj nyc nycap panhandle rgv rochester san satx sc
	  se si socal sport stny stx sw swfla tampabay triad twcny twmi
	  ucwphilly we wi woh);

# Create database
open(SPAM, ">>spamrrdb") or die "Cannot create spamrrdb: $!";

# Grab addresses
print "Compiling database... ";
while ($count < 55){	
	system("lynx -dump http://home.$st[$count].rr.com > raw_$st[$count]");
	open(RAW, "raw_$st[$count]") or die "Error opening raw data: $!";
	chomp(@data=<RAW>);
	foreach $line(@data){
		if ($line =~ /\[\d*\]/){
			($junk, $mail) = split(/]/, $line, 2);
			print SPAM "$mail\@$st[$count].rr.com\n";
		}
	}
	close(RAW);
	unlink "raw_$st[$count]";
	$count++;
}

# Clean up
close(SPAM);
print "spamrrrdb created.\n";