#!/bin/perl

my @states=("ALABAMA", "ALASKA", "ARIZONA", "ARKANSAS", "CALIFORNIA", "COLORADO", "CONNECTICUT", "DELAWARE", "DISTRICTOFCOLUMBIA", "FLORIDA", "GEORGIA", "HAWAII", "IDAHO", "ILLINOIS", "INDIANA", "IOWA", "KANSAS", "KENTUCKY", "LOUISIANA", "MAINE", "MARYLAND", "MASSACHUSETTS", "MICHIGAN", "MINNESOTA", "MISSISSIPPI", "MISSOURI", "MONTANA", "NEBRASKA", "NEVADA", "NEWHAMPSHIRE", "NEWJERSEY", "NEWMEXICO", "NEWYORK", "NTH.CAROLINA", "NTH.DAKOTA", "OHIO", "OKLAHOMA", "OREGON", "PENNSYLVANIA", "RHODEISLAND", "STH.CAROLINA", "STH.DAKOTA", "TENNESSEE", "TEXAS", "UTAH", "VERMONT", "VIRGINIA", "WASHINGTON", "WESTVIRGINIA", "WISCONSIN", "WYOMING");

my $startnum=417858;
my $endnum=417870;
my %stateurls=();
for ($i=$startnum; $i<$endnum; $i++)
{
    
    my $url="http://www.intrade.com/jsp/intrade/common/c_cd.jsp?conDetailID=".$i;

#    print $url,"\n";

    @data=`lynx --dump $url`;
#    print @data;
    foreach my $line (@data)
    {
	if ($line =~ /.(DEM|REP|FIELD)\s*$/)
	{
	    my $state=$line;
	    $state=~s/^[^A-Z]+//;
	    $state=~s/\s+$//;
	    print $state, " ", $url, "\n";
	}
    }
#    sleep 2;
}