#!/usr/bin/perl

# spamrr_v2.pl -
# by dual
#
# shouts to phrox for the find,
# bland for the inspiration,
# ntheory for the help and
# T.C & N.T. for the Perl Cookbook
#
# (...don't use this one either)
######################################################

$count = 0;
@st = qw ( austin bak bham carolina cfl cinci columbus dc ec elp gt hawaii hot houston hvc indy insight jam kc maine midsouth mn nc neb neo new nj nycap rochester san satx sc socal sport stny stx swfla tampabay triad twmi wi woh );

open(SPAM, ">>spamrr_db") || die "could not create spam db: $!\n\n";
while ($count < 42){	
	system("lynx -dump http://home.$st[$count].rr.com > raw_$st[$count]");
	open(RAW, "raw_$st[$count]") || die "error opening raw data: $!\n\n";
	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++;
}
close(SPAM);
print "spamrr_db created\n";