#!/usr/bin/perl

##############################################################
# XtraStats Commish Util for FHL
# v0.99.2.0
#
# (c) 1999, Wynn Fenwick [Original Creator], All rights reserved.
# (c) 2001, Frederic Hurtubise, All rights reserved.
#
# Email: frederic@hurtubise.net
# Website: http://www.hurtubise.net/xtrastats
#
# Rights of licence:
# - Re-distribution of this software is prohibited.
# - Requestors of the software should be forwarded to Frederic Hurtubise
#   (frederic@hurtubise) directly.
# - Modification of this software without notification to Frederic Hurtubise
#   (frederic@hurtubise) is prohibited.
# - Use of this software without credit to author on program output
#   is prohibited.
#
# This doesn't mean you won't be able to modify the program. I just want
# to be notified. Maybe your ideas are good enough to be included in the
# next version!
###############################################################

# USE OF MODULES AND SPECIAL PERL PARAMETERS
use XtraStats::Config;
use XtraStats::Data;
use XtraStats::LeechFiles;
use strict;

$|++;

# CHECK IF WEB MODE HAS BEEN ENABLED
if ($XtraStats::Config::WebMode)
{
	# you can comment out this module if Perl complains that you dont have it
	use CGI::Carp qw(fatalsToBrowser);
	print "Content-type: text/html\n\n";
	print qq|<B><font color="GREEN">Starting XtraStats...</font></b><br><pre>|;
}

# LEECH FILES IF NEEDED
XtraStats::LeechFiles::Go if $XtraStats::Config::LeechFiles;

# GET STATS!
my $XtraStats = new XtraStats::Data(); # fake object creation, dont try this at home
$XtraStats->SetDate();
$XtraStats->GenerateLinkedScoring();
$XtraStats->GetScheduleDays();
$XtraStats->GetAgeAndESPN();
$XtraStats->ParseBoxscores();
$XtraStats->GenerateRecords();
$XtraStats->GenerateEnforcers();
$XtraStats->GenerateSuspensions();
$XtraStats->GenerateInjuries();
$XtraStats->CalculateXtraStats();
$XtraStats->GenerateSchedule();
$XtraStats->GenerateVsStats();
$XtraStats->GenerateXtraStats();
$XtraStats->GeneratePOTW();
$XtraStats->GeneratePOTM();
$XtraStats->GenerateCalderWatch();
$XtraStats->GenerateNorrisWatch();
$XtraStats->GenerateVezinaWatch();
$XtraStats->GenerateLinkedRoster();
$XtraStats->GenerateHits();
$XtraStats->Generate3Stars();
$XtraStats->GenerateOverallStandings();
$XtraStats->ReplaceFiles();

if ($XtraStats::Config::WebMode)
{
	print qq|</pre><B><font color="RED">Stopping XtraStats...</font></b>|;
}

666;