proc pub:getdata {nick uhost hand chan text} {
	global wait
	set ctime [clock seconds]
	if {$ctime < $wait} {
		return 0
	}
	set wait [expr $ctime + 5]
	set fname "sv.txt"
	set fp [open $fname "r"]
	set data [read $fp]
	close $fp
	set records [split $data "\n"]
	foreach rec $records {
 		set fields [split $rec ";"]
 		lassign $fields epdate epyear eptime season episode epname
		set epdur "$epdate 20:00:00 $epyear"
		set timediff [expr [clock scan $epdur]-$ctime-3600]
		if {$timediff > 0} {
			set dur [timefmt $timediff]
			puts "notice $nick :$dur until $epname\($epdate, $epyear at $eptime\)."
			return 0
		}
	}
	putquick "notice $nick :No upcoming episodes found!"
}