#! /usr/bin/perl

##
# @file download-standings
# @author James Ryan <james@infinityprosports.com
#

use strict;

# League report URL
my $url = 'http://www.pointstreak.com/prostatstext/MLL/playoffreport_1403.txt';

# Username
my $username = 'infinitypro';

# Password
my $password = 'f8zz94';

# Database
my $db_name = 'stats_lacrosse';
my $db_user = 'lacrossestats';
my $db_pass = 'kuf532ls';
my $db_host = 'db1.dfw1.infinityprosports.com';
my $dbh;
my $sth;

# League id from the "leagues" table
my $league_id = 1;

# INITIALIZE DATABASE CONNECTION
&connect;

# CALL LYNX AND DUMP URL
my $fullText = `/usr/local/bin/lynx --source -auth=$username:$password -accept_all_cookies $url`;

print $fullText;

# despace stuff
sub despace() {
        $_[0] =~ s/^x//;
        $_[0] =~ s/^y//;
        $_[0] =~ s/^z//;
        $_[0] =~ s/^\s+//;
        $_[0] =~ s/\s+$//;
        $_[0] =~ s/\s\s+/\t/g;
	$_[0] =~ s/veport\s/\t/g;
        return $_[0];
        }

################################################
# DATABASE CONNECT METHODS for MySQL           #
# -                                            #
# Used as a "require" script, not a standalone #
################################################

# connect to the database
sub connect() {
	use DBI;		
	$dbh = DBI->connect("DBI:mysql:$db_name:$db_host", $db_user, $db_pass) || die "Connect failed.\nDBI::errstr\n" unless $dbh;
	}

# disconnects from ppages db
sub disconnect() {
	$dbh->disconnect;
	}

# perform an SQL command
sub sql() {
	eval {
		$sth = $dbh->prepare($_[0]);
		};
	if ($@) {
		&disconnect();
		print "An error occured while accessing the database.";
		exit;
		}
	else {
		$sth->execute;
		}
	return ($sth);
	}