#!/usr/bin/tclsh

###
#
# if we need a new year of data
# lynx --dump --width 300 'http://finalsiren.com/Fixture.asp?TeamID=4&SeasonID=2014' > 2014.txt
#
#
###

proc ReturnDate {f year round out} {
	regexp {([A-Z][a-z][a-z]) (\d+) \(.*\)$} $out m mm dd 
	puts "$dd $mm $year"
	return
}

proc UpdateVid {year round out h hs a as} {
	set hs [regsub -all {\s+} $hs { }]
	set as [regsub -all {\s+} $as { }]
	set plot "$out\n\n$h $hs\n$a $as"
	catch {exec echo "select intid from videometadata where filename like 'Football/$year/%$round%'\;" | mysql --batch -h 192.168.0.2 --user=mythtv --password=mythtv mythconverg | tail -n1 2>/dev/null} intid
	puts "fixing missing data (y:$year/r:$round) with : {exec echo \"update videometadata set plot='$plot' where intid=$intid\;\" | mysql --batch -h 192.168.0.2 --user=mythtv --password=mythtv mythconverg}"
	catch {exec echo "update videometadata set plot='$plot' where intid=$intid\;" | mysql --batch -h 192.168.0.2 --user=mythtv --password=mythtv mythconverg}
}


set year [lindex $argv 0]
set round [lindex $argv 1]

#process file of years results
if { [catch {open "/home/ddp/bin/$year.txt" r} f] } {
	exec lynx --dump --width 300 "http://finalsiren.com/Fixture.asp?TeamID=4&SeasonID=$year" > /home/ddp/bin/$year.txt
	if { [catch {open "/home/ddp/bin/$year.txt" r} f] } {
		puts stderr "Failed to get / load year of data see comment a top of file and do it by hand"
		exit 1
	}
}
while { [gets $f line] >= 0 } {
	if { [regexp {R(\d+)} $line m tmp_round] } {
		regsub -all {\[\d+\]} $line {} result
		set DATA($tmp_round) "$result"
	}
	if { [regexp {(.F)} $line m tmp_round] } {
		regsub -all {\[\d+\]} $line {} result
		set DATA($tmp_round) "$result"
	}
}
close $f

if { ! [info exists DATA($round)] } {
	puts "No data for $year - $round - was it a bye?"
	exit 2
}

# if the cats lost...
if { [regexp {\s+(\w+)\s+(.+)\s+dftd\s+(\w+)\s+(.+\))\s+(.+)} $DATA($round) m h hs a as out] } {

    # see if score doesn't start with a spc, if so this is a two word team name
    if { [regexp {^\d} $as m] == 0 } {
        if { [regexp {(\w+)\s+(.+)} $as m _a _as] } {
            set a "$a $_a"
            set as $_as
        }
    }
    ReturnDate $f $year $round $out
	if { [lindex $argv 2] == "-update" } {
		UpdateVid $year $round $out $h $hs $a $as
	}
# if the cats won...
} elseif { [regexp {\s+(\w+)\s+(.+)\s+lost to\s+(\w+)\s+(.+\))\s+(.+)} $DATA($round) m h hs a as out] } {
    # see if score doesn't start with a spc, if so this is a two word team name
    if { [regexp {^\d} $hs m] == 0 } {
        if { [regexp {(\w+)\s+(.+)} $hs m _h _hs] } {
            set h "$h $_h"
            set hs $_hs
        }
    }
    ReturnDate $f $year $round $out
	if { [lindex $argv 2] == "-update" } {
		UpdateVid $year $round $out $h $hs $a $as
	}
} else {
    puts "Could not parse '$DATA($round)' !!!"
}