#!/bin/perl

my $statename=$ARGV[0];
$statename2="^".$statename;
my @urls=`egrep $statename2 ./intradeurls.txt`;

#print @urls;

my $demurl="";
my $repurl="";
foreach my $url (@urls)
{
    my $temp=$url;
    $temp =~ s/^[^ ]+ //;
    $temp =~ s/\n//g;
    if ($url =~ /DEM/)
    {
       	$demurl=$temp;
    }
    elsif ($url =~ /REP/)
    {
       	$repurl=$temp;
    }
}

#print "DEM: ", $demurl, "\n";
#print "REP: ", $repurl, "\n";

@demdata=`lynx --dump $demurl`;
my $demline="";
#print @demdata;
foreach my $line (@demdata)
{
    if ($line =~ /^\s*Last Trade : /)
    {
	$demline=$line;
    }
}
@repdata=`lynx --dump $repurl`;
my $repline="";
foreach my $line (@repdata)
{
    if ($line =~ /^\s*Last Trade : /)
    {
	$repline=$line;
    }
}
#print $demline, "\n";
#print $repline, "\n";

$demline =~ s/^[^0-9]*([0-9]+\.[0-9]+).*$/\1/;
$repline =~ s/^[^0-9]*([0-9]+\.[0-9]+).*$/\1/;
#print $demline, "\n";
#print $repline, "\n";

my $pobama=$demline/($demline+$repline);
print $pobama;