#!/usr/bin/perl -w

# roadrunner.pl - by dual
#
# Harvests Road Runner subscriber
# email addresses
#################################

use strict;


# Define coverage areas
my @cover = qw(
	austin bak bham ca 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 oh panhandle rgv rochester san satx sc
	se si socal sport stny stx sw swfla tampabay triad twcny twmi tx
	ucwphilly we wi woh
	);


# Create email list
open SPAM, ">>roadrunner.email" or die ">>> Can't create roadrunner.email: $!";


# Grab addresses
print ">>> Compiling addresses...\n";
foreach my $area (@cover) {
	print "    ...$area\n";
	system("lynx -dump http://home.$area.rr.com > raw_$area");
	sleep 1;
	open RAW, "raw_$area" or die ">>> Can't open raw data: $!";
	chomp(my @data=<RAW>);
	foreach my $line (@data){
		if ($line =~ /\[\d*\]/){
			(undef, my $mail) = split(/]/, $line, 2);
			print SPAM "$mail\@$area.rr.com\n";
		}
	}
	close RAW;
	unlink "raw_$area";
}


# Clean up
close SPAM;
print ">>> Done!\n";