#! /usr/bin/perl

use strict;
use Getopt::Long;

my $url = '';
my $user = '';
my $pass = '';

GetOptions(	'l=s' => \$url,
		'u=s' => \$user,
		'p=s' => \$pass);

my $cmd1 = "/usr/local/bin/curl -i ".
	" -d ReturnURL='$url' ".
	" -d ESPNUser='$user' -d ESPNPass='$pass' 'http://howesportsdata.com/howesportsdata/login/dbvalidate.jsp'";
my $cmd1_raw = `$cmd1`;
$cmd1_raw =~ m/Set\-cookie\: (.+);/g;
my $cookie = $1;

my $cmd2 = "/usr/local/bin/curl -v -b '$cookie' '$url'";
my $cmd2_raw = `$cmd2`;

print $cmd2_raw;