football links are broke with tsnstats 0.6 [Problem Solved]

[Cletus]

I think the link is broke for football and golf, those are the only links broke though, can someone help me with this, I looked on efnet for AkiraX but he wasn't there. I got the script from these archives. thanks.

Code: Select all

#############################################
#  tsnstats.tcl v0.6       by AkiraX        #
#                    <#AnimeFiends@EFNet>   #
#############################################

####### DESCRIPTION #########################
# looks up player stats and info for
# professional sports leagues from tsn.ca
#############################################

####### USAGE ###############################
#
# [league] can be: !nhl !nfl !mlb !nba !pga
#
# ![league] <name> ................... personal player info
# ![league]stats [year] <name> ....... player stats and injury/roster status
# ![league]playoffs [year] <name> .... playoff stats
# ![league]history [year] <name> ..... player transactions and awards
# ![league]history <name> "search" ... transactions and awards matching "search"
# ![league]scout <name> .............. scouting report
# ![league]photo <name> .............. player profile photo
#
# <name> can be "firstname lastname" or "lastname, firstname"
#
# [year] is optional, and can be "20XX" or "XX" or "XX-YY"
#
#############################################

####### NOTES ###############################
# Limited results for playoffs in all sports
# (NHL and NBA seem to be the only good ones)
#############################################

####### LICENSE ############################# 
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
# 
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, U
#############################################

package require http

bind pub -|- !nhl tsn:nhl
proc tsn:nhl { nick host handle chan text } {
	set name [join [lrange [split $text] 0 end]]
	tsn:run $chan $name nhl core
}

bind pub -|- !nhlstats tsn:nhlstats
proc tsn:nhlstats { nick host handle chan text } {
	set name [join [lrange [split $text] 0 end]]
	tsn:run $chan $name nhl stats
}

bind pub -|- !nhlplayoffs tsn:nhlplayoffs
proc tsn:nhlplayoffs { nick host handle chan text } {
	set name [join [lrange [split $text] 0 end]]
	tsn:run $chan $name nhl playoffs
}

bind pub -|- !nhlhistory tsn:nhlhistory
proc tsn:nhlhistory { nick host handle chan text } {
	set name [join [lrange [split $text] 0 end]]
	tsn:run $chan $name nhl history
}

bind pub -|- !nhlscout tsn:nhlscout
proc tsn:nhlscout { nick host handle chan text } {
	set name [join [lrange [split $text] 0 end]]
	tsn:run $chan $name nhl scout
}

bind pub -|- !nhlphoto tsn:nhlphoto
proc tsn:nhlphoto { nick host handle chan text } {
	set name [join [lrange [split $text] 0 end]]
	tsn:run $chan $name nhl photo
}

bind pub -|- !nfl tsn:nfl
proc tsn:nfl { nick host handle chan text } {
	set name [join [lrange [split $text] 0 end]]
	tsn:run $chan $name nfl core
}

bind pub -|- !nflstats tsn:nflstats
proc tsn:nflstats { nick host handle chan text } {
	set name [join [lrange [split $text] 0 end]]
	tsn:run $chan $name nfl stats
}

bind pub -|- !nflplayoffs tsn:nflplayoffs
proc tsn:nflplayoffs { nick host handle chan text } {
	set name [join [lrange [split $text] 0 end]]
	tsn:run $chan $name nfl playoffs
}

bind pub -|- !nflhistory tsn:nflhistory
proc tsn:nflhistory { nick host handle chan text } {
	set name [join [lrange [split $text] 0 end]]
	tsn:run $chan $name nfl history
}

bind pub -|- !nflscout tsn:nflscout
proc tsn:nflscout { nick host handle chan text } {
	set name [join [lrange [split $text] 0 end]]
	tsn:run $chan $name nfl scout
}

bind pub -|- !nflphoto tsn:nflphoto
proc tsn:nflphoto { nick host handle chan text } {
	set name [join [lrange [split $text] 0 end]]
	tsn:run $chan $name nfl photo
}

bind pub -|- !mlb tsn:mlb
proc tsn:mlb { nick host handle chan text } {
	set name [join [lrange [split $text] 0 end]]
	tsn:run $chan $name mlb core
}

bind pub -|- !mlbstats tsn:mlbstats
proc tsn:mlbstats { nick host handle chan text } {
	set name [join [lrange [split $text] 0 end]]
	tsn:run $chan $name mlb stats
}

bind pub -|- !mlbplayoffs tsn:mlbplayoffs
proc tsn:mlbplayoffs { nick host handle chan text } {
	set name [join [lrange [split $text] 0 end]]
	tsn:run $chan $name mlb playoffs
}

bind pub -|- !mlbhistory tsn:mlbhistory
proc tsn:mlbhistory { nick host handle chan text } {
	set name [join [lrange [split $text] 0 end]]
	tsn:run $chan $name mlb history
}

bind pub -|- !mlbscout tsn:mlbscout
proc tsn:mlbscout { nick host handle chan text } {
	set name [join [lrange [split $text] 0 end]]
	tsn:run $chan $name mlb scout
}

bind pub -|- !mlbphoto tsn:mlbphoto
proc tsn:mlbphoto { nick host handle chan text } {
	set name [join [lrange [split $text] 0 end]]
	tsn:run $chan $name mlb photo
}

bind pub -|- !nba tsn:nba
proc tsn:nba { nick host handle chan text } {
	set name [join [lrange [split $text] 0 end]]
	tsn:run $chan $name nba core
}

bind pub -|- !nbastats tsn:nbastats
proc tsn:nbastats { nick host handle chan text } {
	set name [join [lrange [split $text] 0 end]]
	tsn:run $chan $name nba stats
}

bind pub -|- !nbaplayoffs tsn:nbaplayoffs
proc tsn:nbaplayoffs { nick host handle chan text } {
	set name [join [lrange [split $text] 0 end]]
	tsn:run $chan $name nba playoffs
}

bind pub -|- !nbahistory tsn:nbahistory
proc tsn:nbahistory { nick host handle chan text } {
	set name [join [lrange [split $text] 0 end]]
	tsn:run $chan $name nba history
}

bind pub -|- !nbascout tsn:nbascout
proc tsn:nbascout { nick host handle chan text } {
	set name [join [lrange [split $text] 0 end]]
	tsn:run $chan $name nba scout
}

bind pub -|- !nbaphoto tsn:nbaphoto
proc tsn:nbaphoto { nick host handle chan text } {
	set name [join [lrange [split $text] 0 end]]
	tsn:run $chan $name nba photo
}

bind pub -|- !pga tsn:pga
proc tsn:pga { nick host handle chan text } {
	set name [join [lrange [split $text] 0 end]]
	tsn:run $chan $name pga core
}

bind pub -|- !pgastats tsn:pgastats
proc tsn:pgastats { nick host handle chan text } {
	set name [join [lrange [split $text] 0 end]]
	tsn:run $chan $name pga stats
}

bind pub -|- !pgaplayoffs tsn:pgaplayoffs
proc tsn:pgaplayoffs { nick host handle chan text } {
	set name [join [lrange [split $text] 0 end]]
	tsn:run $chan $name pga playoffs
}

bind pub -|- !pgahistory tsn:pgahistory
proc tsn:pgahistory { nick host handle chan text } {
	set name [join [lrange [split $text] 0 end]]
	tsn:run $chan $name pga history
}

bind pub -|- !pgascout tsn:pgascout
proc tsn:pgascout { nick host handle chan text } {
	set name [join [lrange [split $text] 0 end]]
	tsn:run $chan $name pga scout
}

bind pub -|- !pgaphoto tsn:pgaphoto
proc tsn:pgaphoto { nick host handle chan text } {
	set name [join [lrange [split $text] 0 end]]
	tsn:run $chan $name pga photo
}

proc tsn:run { chan name sport type } {
	# format the input
	set year 0
	set namecount 0
	set namecheck ""
	foreach entry [split $name] {
		set entry [string map { {-} {} } $entry]
		if { [string is integer -strict $entry] } {
			set year [join [lindex [split $name] $namecount]]
		} {
			set namecheck "$namecheck [join [lindex [split $name] $namecount]]"
		}
		incr namecount
	}
	if { $namecheck != "" } {
		set name $namecheck
	}

	if { $name == "" } {
		if { ($type == "stats") || ($type == "playoffs") || ($type == "history") } {
			if { $year == 0 } {
				puthelp "PRIVMSG $chan :You must provide a last name: !$sport$type \[year\] lastname, firstname"
			} {
				puthelp "PRIVMSG $chan :You must provide a last name: !$sport$type $year lastname, firstname"
			}
		} {
			puthelp "PRIVMSG $chan :You must provide a last name: !$sport$type lastname, firstname"
		}
		return
	}

	# format the year
	set input(year) $year
	set input(yearalt) "$year-"
	if { $year == 0 } {
		if { ($type == "playoffs") || ($type == "history") } {
			set input(year) "2006"
			set input(yearalt) "05-06"
		}
	} {
		if { [string first "-" $year] < 0 } {
			if { [string length $year] == 4 } {
				set input(yearalt) "[string range $year 2 3]"
			}
		}
	}

	# format the name
	set name [string trim $name]
	if { ([regexp {\,} $name]) || ([regexp { } $name]) } {
		if { [regexp {\,} $name] } {
			set input(lastname) [join [lindex [split $name {,}] 0]]
			set input(firstname) [join [lindex [split $name {,}] 1]]
		} {
			if { [regexp { } $name] } {
				set input(firstname) [string totitle [join [lindex [split $name] 0]]]
				set input(lastname) [string totitle [join [lrange [split $name] 1 end]]]
			}
		}
		set input(name) "[string totitle [string trim $input(lastname)]], [string totitle [string trim $input(firstname)]]"
	} {
		set input(name) [string totitle $name]
	}

	# find the player page
	set token [http::config -useragent "Mozilla"]
	set input(lookupurl) "http://www.tsn.ca/$sport/teams/players/?letter=[string index $input(name) 0]"
	if { $sport == "nfl" } { set input(lookupurl) "http://www.tsn.ca/nfl/player_list.asp?letter=[string index $input(name) 0]" }
	if { $sport == "pga" } { set input(lookupurl) "http://www.tsn.ca/golf/player_list.asp?letter=[string index $input(name) 0]" }
	set token [http::geturl $input(lookupurl) -timeout 15000]
	upvar #0 $token state
	if { $state(status) == "timeout" } {
		puthelp "PRIVMSG $chan :Sorry, your request timed out."
		return
	}
	set input(html) [split [http::data $token] "\n"]
	http::cleanup $token

	# find the player url
	set input(url) ""
	set input(namelist) ""
	foreach line $input(html) {
		if { [regexp {/players?.bio} $line] } {
			if { [string match -nocase *$input(name)* "$line"]} {
				# perfect match
				if { [regexp {\,} $input(name)] } {
					regexp {<a href\=\"(.*?)\"} $line match input(url)
					break
				}

				# collect $name* matches
				set first ""
				set last ""
				if { ($sport == "nfl") || ($sport == "pga") } {
					regexp {>(.*?)\,} [string range $line [string last "\"" $line] end] match lastname
				} {
					regexp {hubname=.*?\">(.*?)\,} $line match lastname
				}
				regexp {\,(.*?)<} $line match firstname

				if { ([string match -nocase $input(name)* "$lastname"]) ||
					 ([string compare -nocase "$input(name)" "$lastname"] == 0) } {
					regexp {<a href\=\"(.*?)\"} $line match input(url)
					lappend input(namelist) "[string trim $firstname] [string trim $lastname]"
					continue
				}
			}
		}
	}

	if { $input(url) == "" } {
		puthelp "PRIVMSG $chan :Couldn't find \002$input(name)\002 in the database."
		return
	}

	if { [llength $input(namelist)] > 1 } {
		set output "Found [llength $input(namelist)] matches: [lindex $input(namelist) 0]"
		foreach name [lrange $input(namelist) 1 end] {
			set output "$output, $name"
		}
		puthelp "PRIVMSG $chan :$output"
		return
	}

	# grab the player page
	set token [http::geturl "http://www.tsn.ca$input(url)" -timeout 15000]
	upvar #0 $token state
	if { $state(status) == "timeout" } {
		puthelp "PRIVMSG $chan :Sorry, your request timed out."
		return
	}
	set input(html) [split [http::data $token] "\n"]
	http::cleanup $token

	## get player stats
	set player(name) ""
	set player(team) ""
	set player(city) ""
	set player(number) ""
	set player(position) ""
	set player(photo) ""
	set player(age) ""
	set player(birthday) ""
	set player(birthplace) ""
	set player(hometown) ""
	set player(college) ""
	set player(height) ""
	set player(weight) ""
	set player(hand) ""
	set player(handbat) ""
	set player(exp) ""
	set player(draft) ""
	set player(signed) ""
	set scout(grab) 0
	set scout(assets) ""
	set scout(flaws) ""
	set scout(potential) ""
	set stats(grab) 0
	set stats(status) ""
	set stats(columns) ""
	set stats(data) ""
	set stats(next) ""
	set history(grab) 0
	set history(data) ""
	set playoffs(grab) 0
	set playoffs(columns) ""
	set playoffs(data) ""
	set playoffs(next) ""
	foreach line $input(html) {
		# team
		if { [regexp {szone} $line] } {
			regexp {szone\=\"...\-(.*?)\"} $line match player(team)
			set player(team) [string trim [string totitle $player(team)]]
			set player(team) [string map { {_} {} } $player(team)]
			continue
		}

		# city
		if { ($player(city) == "") && ([regexp {<td class\=\'pad10\'>} $line]) } {
			if { $sport == "mlb" } { regexp {<b>(.*?) } $line match player(city) }
			if { $player(city) == "" } { regexp {<b>(.*?)</b>} $line match player(city) }
			if { $player(city) == "" } { set player(city) " " }
			if { $type == "photo" } { break }
			continue
		}

		# name, number and position
		if { [regexp {class\=\'playername\'} $line] } {
			regexp {\'playername\'>(.*?)<} $line match player(name)
			set player(name) [string trim [string map { { } {} } $player(name)]]

			regexp {\'playerposition\'>(.*?)<} $line match numpos
			set numpos [string trim [string map { { } {} } $numpos]]
			set player(number) [join [lindex [split $numpos] 0]]
			set player(position) [join [lindex [split $numpos] 1]]
			continue
		}

		# image
		if { $type == "photo" } {
			if { [regexp {pics.forecaster.ca} $line] } {
				set player(photo) ""
				regexp {<img src=\'(.*?)\'} $line match player(photo)
				continue
			}
		}

		# player core info
		if { $type == "core" } {
			if { [regexp {Current Status} $line] } { break }

			if { [regexp {<b>DOB:</b>} $line] } { regexp {</b> ?(.*?)</td>} $line match player(birthday); continue }
			if { [regexp {<b>Age:</b>} $line] } { regexp {</b> ?(.*?)</td>} $line match player(age); continue }
			if { [regexp {<b>Place of Birth:</b>} $line] } { regexp {</b> ?(.*?)</td>} $line match player(birthplace); continue }
			if { [regexp {<b>Hometown:</b>} $line] } { regexp {</b> ?(.*?)</td>} $line match player(hometown); continue }
			if { [regexp {<b>College:</b>} $line] } { regexp {</b> ?(.*?)</td>} $line match player(college); continue }
			if { [regexp {<b>HT:</b>} $line] } {
				regexp {HT:</b> ?(.*?) ?<b>} $line match player(height)
				regexp {WT:</b> ?(.*?)</td>} $line match player(weight)
				continue
			}
			if { [regexp {<b>Shoots: ?</b>} $line] } {
				regexp {</b>(.*?)</td>} $line match player(hand)
				if { $player(hand) == "L" } { set player(hand) "left" }
				if { $player(hand) == "R" } { set player(hand) "right" }
				continue
			}
			if { [regexp {<b>Bats/Throws: ?</b>} $line] } {
				regexp {</b>(.*?)</td>} $line match hand
				set player(hand) [join [lindex [split $hand {/}] 1]]
				set player(handbat) [join [lindex [split $hand {/}] 0]]
				if { $player(hand) == "L" } { set player(hand) "lefty" }
				if { $player(hand) == "R" } { set player(hand) "righty" }
				if { $player(hand) == "S" } { set player(hand) "switch" }
				if { $player(handbat) == "L" } { set player(handbat) "lefty" }
				if { $player(handbat) == "R" } { set player(handbat) "righty" }
				if { $player(handbat) == "S" } { set player(handbat) "switch" }
				continue
			}
			if { [regexp {<b>... Seasons: ?</b>} $line] } { regexp {</b> ?(.*?)</td>} $line match player(exp); continue }
			if { [regexp {Drafted by} $line] } { regexp {\'pad10\'>(.*?)\.?</td>} $line match player(draft); continue }
			if { [regexp {Signed by} $line] } { regexp {\'pad10\'>(.*?)\.?</td>} $line match player(signed); continue }
		}

		# player season stats and history
		if { ($type == "stats") || ($type == "playoffs") || ($type == "history") } {
			if { [regexp {Current Status\:} $line] } {
				regexp {Current Status\: ?(.*?)</td>} $line match stats(status)
				set stats(grab) 1
				continue
			}

			if { $stats(grab) > 0 } {
				if { [regexp {Playoff Stats} $line] } {
					set playoffs(grab) 1
					set stats(grab) 2
					continue
				}
				if { $stats(grab) == 1 } {
					if { $input(year) == 0 } {
						if { [regexp {</tr>} $line] } {
							set stats(grab) 3
						}
					} {
						if { [regexp {Career Stats} $line] } {
							set stats(grab) 2
						} {
							if { [regexp {Scouting Report} $line] } {
								set history(grab) 1
								continue
							}

							# find transactions, injuries, etc
							if { $history(grab) > 0 } {
								if { [regexp {row.?\'>} $line] } {
									set entry ""
									regexp {row.?\'>(.*?)</td>} $line match entry
									# event year
									if { $history(grab) == 1 } {
										if { [tsn:checkyear $input(year) $input(yearalt) $entry] } {
											set history(data) "$history(data) $entry"
											if { [string index $history(data) end] != ":" } {
												set history(data) "$history(data):"
											}
											set history(grab) 2
											continue
										}
									}
									# event description
									if { $history(grab) == 2 } {
										if { [string index $entry end] != "." } {
											set entry "$entry."
										}
										set history(data) "$history(data) $entry"
										set history(grab) 1
									}
								}
							}
						}
					}
					continue
				} {
					if { [regexp {</tr>} $line] } {
						incr stats(grab)
						if { $stats(grab) > 4 } {
							if { $input(year) == 0 } { break }
							if { $stats(grab) == 5 } {
								set stats(grab) 6
								if { $playoffs(grab) } {
									if { [tsn:checkyear $input(year) $input(yearalt) [lindex $playoffs(data) 0]] == 0 } {
										set stats(grab) 4
										set playoffs(data) ""
									}
								} {
									if { [tsn:checkyear $input(year) $input(yearalt) [lindex $stats(data) 0]] == 0 } {
										set stats(grab) 4
										set stats(data) ""
									}
								}
								continue
							}
							if { $stats(grab) > 5 } {
								if { $playoffs(grab) } {
									if { [llength $playoffs(next)] <= 0 } { break }
									if { [tsn:checkyear $input(year) $input(yearalt) [lindex $playoffs(next) 0]] == 0 } { break }
									if { [string first "Total" "[lindex $playoffs(next) 1]"] >= 0 } { break }

									foreach entry $playoffs(next) {
										lappend playoffs(data) "$entry"
									}
									set stats(grab) 6
									set playoffs(next) ""
								} {
									if { [llength $stats(next)] <= 0 } { set stats(grab) 1; continue }
									if { [tsn:checkyear $input(year) $input(yearalt) [lindex $stats(next) 0]] == 0 } { set stats(grab) 1; continue }
									if { [string first "Total" "[lindex $stats(next) 1]"] >= 0 } { set stats(grab) 1; continue }

									foreach entry $stats(next) {
										lappend stats(data) "$entry"
									}
									set stats(grab) 6
									set stats(next) ""
								}
							}
						}
						continue
					}

					if { [regexp {row.?\'>} $line] } {
						set entry ""
						regexp {row.?\'>(.*?)</td>} $line match entry
						if { $entry != "" } {
							if { $playoffs(grab) } {
								switch $stats(grab) \
									3 { lappend playoffs(columns) "$entry" } \
									4 { lappend playoffs(data) "$entry" } \
									6 {	lappend playoffs(next) "$entry" }
							} {
								switch $stats(grab) \
									3 { lappend stats(columns) "$entry" } \
									4 { lappend stats(data) "$entry" } \
									6 {	lappend stats(next) "$entry" }
							}
						}
						continue
					}
				}
			}
		}

		# player scouting info
		if { $type == "scout" } {
			if { [regexp {Honours and Awards} $line] } { break }

			if { [regexp {<b>Age:</b>} $line] } { regexp {</b> ?(.*?)</td>} $line match player(age) }
			if { [regexp {<b>HT:</b>} $line] } {
				regexp {HT:</b> ?(.*?) <b>} $line match player(height)
				regexp {WT:</b> ?(.*?)</td>} $line match player(weight)
			}
			if { [regexp {<b>... Seasons: ?</b>} $line] } { regexp {</b> ?(.*?)</td>} $line match player(exp) }

			if { [regexp {Assets} $line] } { set scout(grab) 1; continue }
			if { [regexp {Flaws} $line] } { set scout(grab) 2; continue }
			if { [regexp {Career potential} $line] } { set scout(grab) 3; continue }

			if { $scout(grab) == 1 } { regexp {>(.*?)</td>} $line match scout(assets); set scout(grab) 0 }
			if { $scout(grab) == 2 } { regexp {>(.*?)</td>} $line match scout(flaws); set scout(grab) 0 }
			if { $scout(grab) == 3 } { regexp {>(.*?)</td>} $line match scout(potential); set scout(grab) 0 }
		}
	}

	# create final output
	set output ""
	if { [string index $player(number) end] != "-" } {
		if { (($input(year) == 0) || ($type == "history") || ($type == "photo")) && ($player(city) != "") && ($player(team) != "") } {
			set output "$player(city) $player(team) \002$player(number) $player(name)\002"
		} {
			set output "\002$player(number) $player(name)\002"
		}
	} {
		if { (($input(year) == 0) || ($type == "history") || ($type == "photo")) && ($player(city) != "") && ($player(team) != "") } {
			set output "$player(city) $player(team) \002$player(name)\002"
		} {
			set output "\002$player(name)\002"
		}
	}

	if { $type == "photo" } {
		if { $player(photo) == "" } {
			puthelp "PRIVMSG $chan :No profile photo found for \002$player(name)\002."
			return
		}
		puthelp "PRIVMSG $chan :$output Profile photo: $player(photo)"
		return
	}

	if { $type == "core" } {
		set output "$output \[$player(height) $player(weight)lbs\]"
		if { $player(age) != "" } { set output "$output $player(age)yo" }
		if { ($player(hand) != "") && ($sport != "mlb") } { set output "$output $player(hand)-handed" }
		if { $player(position) != "" } { set output "$output $player(position)" }
		if { $player(hometown) != "" } { set output "$output from $player(hometown)" }
		set output "$output."
		if { ($player(hand) != "") && ($sport == "mlb") } {
			set output "$output Throws $player(hand), bats $player(handbat)."
		}
		if { ($player(birthday) != "") && ($player(birthplace) != "") } {
			set output "$output Born $player(birthday) in $player(birthplace)."
		}
		if { $player(draft) != "" } {
			set output "$output $player(draft)"
			if { $player(college) != "" } { set output "$output out of $player(college)" }
			set output "$output."
		}
		if { $player(signed) != "" } { set output "$output $player(signed)." }
		if { $player(exp) != "" } { set output "$output Has played $player(exp) seasons." }

		puthelp "PRIVMSG $chan :[string trim $output]"
		return
	}

	if { $type == "history" } {
		if { $history(data) == "" } {
			set output "No injuries, transactions or awards found for \002$player(name)\002 in $input(year)."
		} {
			if { $stats(status) != "" } {
				set output "$output \[Status: $stats(status)\]"
			}
			set output "$output $history(data)"
		}
		puthelp "PRIVMSG $chan :$output"
		return
	}

	if { ($type == "stats") || ($type == "playoffs") } {
		if { $type == "stats" } {
			if { ([llength $stats(columns)] <= 0) || ([llength $stats(data)] <= 0) } {
				if { $input(year) == 0 } {
					set output "No current season stats were found for \002$input(name)\002."
				} {
					set output "No season $input(year) stats were found for \002$input(name)\002."
				}
				puthelp "PRIVMSG $chan :$output"
				return
			}
		} {
			if { ([llength $playoffs(columns)] <= 0) || ([llength $playoffs(data)] <= 0) } {
				set output "No $input(year) playoff stats were found for \002$input(name)\002."
				puthelp "PRIVMSG $chan :$output"
				return
			}
		}

		if { $input(year) == 0 } {
			set output "$output Status($stats(status))"
		} {
			set output ""
			if { [string index $player(number) end] != "-" } {
				set output "$player(number) $player(name)"
			} {
				set output "$player(name)"
			}
		}

		set col 0
		set row 0
		set outrun 0
		while { $outrun != 2 } {
			set runtype $type
			if { $outrun == 1 } {
				set col 0
				set row 0
				set runtype "playoffs"
			}
			if { $runtype == "stats" } {
				set out(columns) $stats(columns)
				set out(data) $stats(data)
				set outrun 1
			} {
				if { ($playoffs(columns) == "") || ($playoffs(data) == "") } {
					break
				}
				set out(columns) $playoffs(columns)
				set out(data) $playoffs(data)
				set outrun 2
			}
			foreach entry $stats(data) {
				incr col
				incr row
				if { $input(year) == 0 } {
					if { $col == 1 } {
						if { ($runtype == "playoffs") } {
							set output "$output \[Playoffs [lindex $out(data) 1]\] [lindex $out(data) 0]"
						} {
							set output "$output \[[lindex $out(data) 1]\] [lindex $out(data) 0]"
						}
					} {
						if { $col < [llength $out(columns)] } {
							set output "$output [lindex $out(columns) $col]([lindex $out(data) $row])"
						}
					}
					continue
				} {
					if { $col == 1 } {
						if { $sport == "nfl" } {
							set output "$output \002\[[lindex $out(data) [expr { $row-1 }]] [lindex $out(data) $row]\]\002"
							incr col
							incr row
						} {
							if { $runtype == "playoffs" } {
								set output "$output \002\[Playoffs [lindex $out(data) [expr { $row-1 }]] ([lindex $out(data) [expr { $row+1 }]]) [lindex $out(data) $row]\]\002"
							} {
								set output "$output \002\[[lindex $out(data) [expr { $row-1 }]] ([lindex $out(data) [expr { $row+1 }]]) [lindex $out(data) $row]\]\002"
							}
							incr col 2
							incr row 2
						}
					}
					if { ($col < [llength $out(columns)]) && ($row < [llength $out(data)]) } {
						set output "$output [lindex $out(columns) $col]([lindex $out(data) $row])"
					} {
						if { $input(year) == 0 } { break }
						if { $row >= [expr { [llength $out(data)] }] } { break }
						set col 0
					}
				}
			}
		}

		if { ($type != "playoffs") && ($history(data) != "") } {
			set output "$output $history(data)"
		}

		puthelp "PRIVMSG $chan :[string trim $output]"
		return
	}

	if { $type == "scout" } {
		if { ($scout(assets) == "") && ($scout(flaws) == "") && ($scout(potential) == "") } {
			puthelp "PRIVMSG $chan :Sorry, no scouting report for \002$player(name)\002 is available."
			return
		}

		set output "$output \[$player(height) $player(weight)lbs"
		if { $player(age) != "" } { set output "$output $player(age)yo" }
		if { $player(exp) != "" } { set output "$output $player(exp)-seasons" }
		set output "$output\] Scouting report:"
		if { $scout(potential) != "" } { set output "$output $scout(potential)" }
		puthelp "PRIVMSG $chan :$output"

		if { $scout(assets) != "" } { puthelp "PRIVMSG $chan :Assets: $scout(assets)" }
		if { $scout(flaws) != "" } { puthelp "PRIVMSG $chan :Flaws: $scout(flaws)" }

		return
	}

	puthelp "PRIVMSG $chan :[string trim $output]"
	return
}

proc tsn:checkyear { year yearalt input } {
	if { ([string compare "$year" "$input"] != 0) &&
		 ([string first "$yearalt" "$input"] < 0) } {
		if { [string index $input end] == ":" } {
			if { [string length $year] == 2 } {
				if { [string compare $year [string range $input [expr { [string length $input]-3 }] end-1]] == 0 } { return 1 }
			}
			if { [string length $year] == 4 } {
				if { [string compare [string range $year 2 3] [string range $input [expr { [string length $input]-3 }] end-1]] == 0 } { return 1 }
			}
			if { [string length $year] == 5 } {
				if { [string compare [string range $year 0 1] [string range $input [expr { [string length $input]-3 }] end-1]] == 0 } { return 1 }
#				if { [string compare [string range $year 3 4] [string range $input [expr { [string length $input]-3 }] end-1]] == 0 } { return 1 }
			}
			if { [string length $year] == 7 } {
				if { [string compare [string range $year 2 3] [string range $input [expr { [string length $input]-3 }] end-1]] == 0 } { return 1 }
				if { [string compare [string range $year 5 6] [string range $input [expr { [string length $input]-3 }] end-1]] == 0 } { return 1 }
			}
			if { ([string length $yearalt] == 5) && ([string index $yearalt 2] == "-") } {
				if { [string compare [string range $yearalt 0 1] [string range $input [expr { [string length $input]-3 }] end-1]] == 0 } { return 1 }
				if { [string compare [string range $yearalt 3 4] [string range $input [expr { [string length $input]-3 }] end-1]] == 0 } { return 1 }
			}
		} {
			if { [string length $input] == 4 } {
				if { ([string length $yearalt] == 5) && ([string index $yearalt 2] == "-") } {
					if { [string compare [string range $yearalt 0 1] [string range $input [expr { [string length $input]-2 }] end]] == 0 } { return 1 }
					if { [string compare [string range $yearalt 3 4] [string range $input [expr { [string length $input]-2 }] end]] == 0 } { return 1 }
				}
			}
		}
		return 0
	}
	return 1
}

putlog "tsnstats.tcl v0.6 by AkiraX <#AnimeFiends@EFnet> loaded!"

[Alchera]

Post the results of '.set errorInfo'.

[Cletus]

I'm sorry I don't know what that means, or how to give that info, can you help me further maybe?

I can say that the partyline gives me no error info, from simply idling on it while trying to use the broken part of the script.

Here's an example of what I type in channel and the response I get:

(21:56:29) (~Cletus) .nflscout randy moss
(21:56:32) (&OJ) Couldn't find Moss, Randy in the database.

[demond]

all scripts that fetch info from webpages eventually get broken as those pages change in structure and authors are no longer around to update their hardcoded stuff; that is your case as well

you won't get the help you need - why? because in order to update this script, someone would have to bother to: 1. study the script's logic 2. study the html structure of changed webpage and 3. come up with a patch that would handle the new structure - efforts that most if not all people here won't be willing to make

hint: ditch this thing, find RSS feed serving your needs, use RSS news script

[Cletus]

OK, I do use rss news feeds but they will never be able to do what this script does. Too bad nobody will be able to help, I didn't realize it was gonna be that complicated of a process, but I don't know crap about writing these things either. I guess I'll just continue to search for the author.

[rosc2112]

Or do what I did.. Learn tcl =)
Only took a coupla weeks.

[Cletus]

Yeah but people who know tcl can't seem to help me, here or in requests, so i'm thinking just my knowing tcl isn't going to help me write a script this elaborate in a couple weeks, altho, i do want to learn.

[demond]

...or offer a small fee; if you can spend like 10-15 bucks for that, I guess some of our younger friends here would be willing to take on it (I myself am not interested)

[rosc2112]

Yeah but people who know tcl can't seem to help me, here or in requests, so i'm thinking just my knowing tcl isn't going to help me write a script this elaborate in a couple weeks, altho, i do want to learn.

That's because, as Demond pointed out, it would require a lot of analysis (mostly for the webpages that it's trying to grab). Which isn't necessarily difficult, it's just not a project people have shown an interest in. Since you are interested in this script, take it over and fix it and release a new version. I've done that with several very complex scripts.

It's a good way to learn tcl

[incith]

Removing these would be a start:

Code: Select all

if { $sport == "nfl" } { set input(lookupurl) "http://www.tsn.ca/nfl/player_list.asp?letter=[string index $input(name) 0]" } 
   if { $sport == "pga" } { set input(lookupurl) "http://www.tsn.ca/golf/player_list.asp?letter=[string index $input(name) 0]" }

At least from what I can tell, the tsn page doesn't use player_list.asp anymore for NFL & Golf, and uses the same format of /players/?letter=<name>

Good luck.

Correction: NFL uses /teams/players/?letter=<name>

So changing if {$sport == "nfl"} to use tsn.ca/nfl/teams/players/?letter=blah blah blah.. should work, in theory.

[incith]

Oops, it was easier than I thought: tsnstats-0.7-unofficial.tar.gz

(09:25:20) (@incith) !pga duke
(09:25:22) <@visitant> Ken Duke [6-1 205lbs] 37yo. Born Jan 29, 1969 in Hope, AR.

(09:24:29) (@incith) !nfl dan
(09:24:31) <@visitant> Found 8 matches: Owen Daniels, P.J. Daniels, Phillip Daniels, Torrance Daniels, Travis Daniels, Lane Danielsen, Karlos Dansby, Woodrow Dantzler

The changes made were the ones mentioned in the above post more or less.

[Cletus]

You the man incith, thanks a bunch! I use a lot of your other scripts too, I really appreciate it.

[Jonathan1683]

is there any way to get a new copy of this script? I really doubt it works if its three years old and the newest link was dead