Code:

package require httpbind pub - !mon*1 {schedule monday}bind pub - !tue*1 {schedule tuesday}bind pub - !wed*1 {schedule wednesday}bind pub - !thu*1 {schedule thursday}bind pub - !fri*1 {schedule friday}bind pub - !sat*1 {schedule saturday}bind pub - !sun*1 {schedule sunday}bind pub - !schedule {schedule today}array set day2url {sunday http://lynxfm.com/schedules/bottxt/sun.txtmonday http://lynxfm.com/schedules/bottxt/mon.txttuesday http://lynxfm.com/schedules/bottxt/tue.txtwednesday http://lynxfm.com/schedules/bottxt/wed.txtthursday http://lynxfm.com/schedules/bottxt/thu.txtfriday http://lynxfm.com/schedules/bottxt/fri.txtsaturday http://lynxfm.com/schedules/bottxt/sun.txt}proc schedule {d n u h c a} {if {$d=="today"} {set d [string tolower [clock format [clock sec] -format %A]]}set x [::http::geturl $::day2url($d)]foreach e [split [::http::data $x] \n] {puthelp "privmsg $c :$e"}::http::cleanup $x }

Code:

package require httpbind pub - !mon*1 mondaybind pub - !tue*1 tuesdaybind pub - !wed*1 wednesdaybind pub - !thu*1 thursdaybind pub - !fri*1 fridaybind pub - !sat*1 saturdaybind pub - !sun*1 sundayproc monday {n u h c t} {   set x [::http::geturl http://lynxfm.com/schedules/bottxt/mon.txt]   foreach e [split [::http::data $x] \n] {puthelp "privmsg $c :$e"}   ::http::cleanup $x}proc tuesday {n u h c t} {   set x [::http::geturl http://lynxfm.com/schedules/bottxt/tue.txt]   foreach e [split [::http::data $x] \n] {puthelp "privmsg $c :$e"}   ::http::cleanup $x}proc wednesday {n u h c t} {   set x [::http::geturl http://lynxfm.com/schedules/bottxt/wed.txt]   foreach e [split [::http::data $x] \n] {puthelp "privmsg $c :$e"}   ::http::cleanup $x}proc thursday {n u h c t} {   set x [::http::geturl http://lynxfm.com/schedules/bottxt/thu.txt]   foreach e [split [::http::data $x] \n] {puthelp "privmsg $c :$e"}   ::http::cleanup $x}proc friday {n u h c t} {   set x [::http::geturl http://lynxfm.com/schedules/bottxt/fri.txt]   foreach e [split [::http::data $x] \n] {puthelp "privmsg $c :$e"}   ::http::cleanup $x}proc saturday {n u h c t} {   set x [::http::geturl http://lynxfm.com/schedules/bottxt/sat.txt]   foreach e [split [::http::data $x] \n] {puthelp "privmsg $c :$e"}   ::http::cleanup $x}proc sunday {n u h c t} {   set x [::http::geturl http://lynxfm.com/schedules/bottxt/sun.txt]   foreach e [split [::http::data $x] \n] {puthelp "privmsg $c :$e"}   ::http::cleanup $x}