#!/usr/bin/perl
use LWP;
use HTTP::Cookies;
use Crypt::SSLeay;

#Login information
#------------------------------------------------------------------------------
$username=shift;
$password=shift;

#create a browser and load mlb cookies from
#------------------------------------------------------------------------------
my $browser = LWP::UserAgent->new;
$cookie_jar = HTTP::Cookies->new(
        file=>"$ENV{'HOME'}/.mlb.cookies",
        autosave=>1,
        ignore_discard=>1);
$cookie_jar->load;
$browser->cookie_jar($cookie_jar);

#If not already logged in, log in
#------------------------------------------------------------------------------
my $authenticateURL="https://secure.mlb.com/authenticate.do";
my $loginURL="https://secure.mlb.com/enterworkflow.do?flowId=registration.wizard&c_id=mlb";

my $response=$browser->get($loginURL);

if ($response->content=~/Login\ or\ Register/){
  print "Attempting to log in...";
  my $loginResponse=$browser->post($authenticateURL,
  [
    "login_reg"=>"Login",
    "uri"=>"\/account\/login_register.jsp",
    "registrationAction"=>"identify",
    "emailAddress"=>"$username",
    "password"=>"$password"
  ],
  );

  if ($loginResponse->content=~/Authentication\ Error/){
    print "authentication error!\n";
  }
  else{
    print "success!\n";
  }
}
else{
  print "Already logged in!\n";
}