Code:

########################################################################                                                               ######      TV-Programm   v5.7     By     Giggel (giggel@gmx.de)     ######                                                               ###########################################################################     Infos, Updates, Bugreports in der Scriptecke unter:       ######                http://irc.mugiri.de/script/                   ######                                                               ###### >>>>>>>>> NEU NEU NEU NEU NEU <<<<<<<<<                       ######                                                               ###### Die Mailingliste zum Script mit aktuellen News und mehr       ###### und so meldet man sich an:                                    ###### mailto: majordomo@brain.hadiko.de                             ###### Subject leer lassen                                           ###### Text: subscribe tv-script                                     ######                                                               ##########################################################################  This script is made for all the lazy guys who do NOT have a TV-Program.#  Its looking up the actual Program for the most _german_ TV-Stations#  at www.tvtoday.de and posts the answer (slightly cutted) to the channel,#  query or dcc-chat.#  I'm sure it has thousands of bugs, if you find one: TELL ME PLEAAAASE :)#  Also tell me, if you found a bug and fixed it.##############  Examples:#  ---------#  !tv ard         !tv ard 20#      ^^^                 ^^#  Programm on ARD         at 2000##  !tv ard 17 5#             ^#  print 5 lines instead of the defaultvalue set below##  !tv ard 20 5 1#             ^ ^#  show Program tomorrow and print 5 lines##########  ToDo:#  -----#  - improving#  - bugfixing ;)################# Syntax ###################  -------public-------#  !tv Sender [Stunde] [Anzahl] [Tag]##  -------query--------#  /msg bot !tv Sender [Stunde] [Anzahl] [Tag]#  /msg bot tv Sender [Stunde] [Anzahl] [Tag]##  -------dcc-chat-----#  .tv Sender [Stunde] [Anzahl] [Tag]##  Anzahl is the number of lines,the bot pastes max. default is set below##  known Programs:#  haupt, ARD, ZDF, RTL, SAT.1, PRO 7, KABEL 1, RTL 2, S-RTL, ARTE, TM3,#  VOX, 3SAT, regio, NDR, WEST, BAYERN, MDR, HESSEN, SW III, TV BERLIN,#  MÜNCHEN, HH1, B1/SFB, ORB, MTV, MTV2, VH1, VIVA, VIVA II, PREMIERE, DSF,#  E-SPORT, N-TV, E-NEWS, KINDER KANAL, PHOENIX, CNN, NBC, TNT, CARTOON,#  FRANC 2, FR3, TV5, TF1, ORF1, ORF2, TSR, DK1, DK2, DRS, NL1, NL2,#  NL3, TRT, SF1##  haupt is the group of: ARD, ZDF, RTL, SAT.1, PRO 7, KABEL 1, RTL 2,#                         S-RTL, ARTE, TM3, VOX, 3SAT#  regio is the group of: NORD, WEST, BAYERN, MDR, HESSEN, SW III,#                         TV BERLIN, MUENCHEN, HH1, B1/SFB, ORB##  Stunde is just a number from 00 to 29 where 24 means 00 of the next day#  25 means 01 of next day and so on#  If no value is given the actual hour is taken##  Tag is: 0 = today, 1 = tomorrow ...#  default is 0################### Settings ####################set channels that this script should work in#script replies in every channel, if left blankset tv(chans) ""#max number of lines to put in channelset maxpub 6 #number of lines to put to channel/query/dcc by defaultset defpub 4 set defmsg 5set defdcc 5#how to answer to public query: NOTICE or MSG or PUBset anspub "PUB"#show special Program-Info, 0=off, 1=onset showinfo 1#how to display Program-Info if enabled: NOTICE or MSG or PUBset ansnfo "NOTICE"#userflag needed to use the script#type "-" if the user don't need to have a botflagset tv(flag) ""#Location of your lynx-Binary - try: which lynx# BSDset tv(lynx) "c:/windrop-1.6/lynx.exe"# Linux (z.B. SuSE)#set tv(lynx) "/windrop-1.6/"#don't forget to add your entries for proxysettings in your local lynx.cfg file#http_proxy environment variable may not work here!#Location of a temporary outputfileset tv(output) "/tv.txt"########################################################### You shouldn't change anything of the stuff below ###########################################################set tv(help) "Usage: \002PUB:\002 !tv Sender Stunde Tag/Anzahl Anzahl -\\002DCC:\002 .tv Sender Stunde Tag/Anzahl Anzahl -\\022MSG:\022 /msg $botnick !tv Sender Stunde Tag/Anzahl Anzahl"set tv(sender) "Sender:\ haupt, ARD, ZDF, RTL, SAT1, PRO7, KABEL1, RTL2, S-RTL, ARTE, TM3,\ VOX, 3SAT, regio, NORD, WEST3, BAYERN3, MDR, HESSEN, SW3, TVBERLIN,\ MUENCHEN, HH1, B1/SFB, ORB, MTV, MTV2, VH1, VIVA, VIVA2, PREMIERE, DSF,\ EUROSPORT, NTV, EURONEWS, KIKA, PHOENIX, CNN, NBC, TNT, CARTOON,\ FRANCE2, FR3, TV5, TF1, ORF1, ORF2, TSR, DK1, DK2, DRS, NL1, NL2, NL3,\ TRT, SF1"set tv(tag) "Tag muss eine Zahl größer 0 sein, wobei 0 = heute ist"set tv(anz) "Anzahl gibt an, wieviele Sendungen maximal ausgegeben werden"set tv(server) www.tvtoday.deset tv(script) /tv/programm/programm.phpset lines_out $defpubset query ""proc eval_sender {in} {  switch [string tolower $in] {"haupt" { return "HS" }"ard" { return "ARD" }"zdf" { return "ZDF" }"rtl" { return "RTL" }"sat1" { return "SAT.1" }"pro7" { return "PRO%207" }"kabel1" { return "KABEL%201" }"rtl2" { return "RTL%202" }"s-rtl" { return "S-RTL" }"arte" { return "ARTE" }"tm3" { return "TM3" }"vox" { return "VOX" }"3sat" { return "3SAT" }"regio" { return "RS" }"ndr" { return "NDR" }"west3" { return "WEST" }"bayern3" { return "BAYERN" }"mdr" { return "MDR" }"hessen" { return "HESSEN" }"sw3" { return "SW%20III" }"tvberlin" { return "TV%20BERLIN" }"muenchen" { return "MÜNCHEN" }"hh1" { return "HH1" }"b1/sfb" { return "B1/SFB" }"orb" { return "ORB" }"mtv" { return "MTV" }"mtv2" { return "MTV2" }"vh1" { return "VH1" }"viva" { return "VIVA" }"viva2" { return "VIVA%20II" }"premiere" { return "PREMIERE" }"dsf" { return "DSF" }"eurosport" { return "E-SPORT" }"ntv" { return "N-TV" }"euronews" { return "E-NEWS" }"kika" { return "KINDERKANAL" }"phoenix" { return "PHOENIX" }"cnn" { return "CNN" }"nbc" { return "NBC" }"tnt" { return "TNT" }"cartoon" { return "CARTOON" }"france2" { return "FRANCE%202" }"fr3" { return "FR3" }"tv5" { return "TV5" }"tf1" { return "TF1" }"orf1" { return "ORF+1" }"orf2" { return "ORF+2" }"tsr" { return "TSR" }"dk1" { return "DK1" }"dk2" { return "DK2" }"drs" { return "DRS" }"nl1" { return "NL1" }"nl2" { return "NL2" }"nl3" { return "NL3" }"trt" { return "TRT" }"sf1" { return "SF1" }  }  return "NOPE1"}proc eval_stunde {in} {  set ok 0  if {[string length $in] == 1} {    set in "0$in"  }  if {[string first $in "00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23"] > -1} {    set ok 1    set tmp "$in"  }  if {[string first $in "24 25 26 27 28 29"] > -1} {set inn [expr $in-24]    set ok 1    set tmp "0$inn"  }  if {$ok == 1} {    return $tmp  } else {    return "NOPE2"  }}proc eval_tag {in} {  set in [string toupper $in]  if {$in >= 0} {    return $in  } else {    return "NOPE3"  }}  proc eval_daytoday {in} {# by Haui  switch [string tolower $in] {"mon" { return "MO" }"tue" { return "DI" }"wed" { return "MI" }"thu" { return "DO" }"fri" { return "FR" }"sat" { return "SA" }"sun" { return "SO" }  }  return "NOPE4"}proc eval_daybefore {in} {# by Haui  switch [string tolower $in] {"mon" { return "SO" }"tue" { return "MO" }"wed" { return "DI" }"thu" { return "MI" }"fri" { return "DO" }"sat" { return "FR" }"sun" { return "SA" }  }  return "NOPE5"}proc eval_rightday {in} {# by Haui  set english_today [clock format [unixtime] -format %a]  set in "test[string tolower $in]"  if {[string first "bx" $in] >= 0} {    set right [eval_daybefore $english_today]    return $right  }  if {[string match "ax" $in] >= 0} {    set right [eval_daytoday $english_today]    return $right  }}   proc makequery {how ni text} {global lines_out tv  set right_day [eval_rightday [eval_stunde [clock format [unixtime] -format %H]]]  if {[llength $text] < 1} {  switch $how {  "dcc" {    putdcc $ni "$tv(help)"    putdcc $ni "$tv(sender)"    putdcc $ni "$tv(tag)"    putdcc $ni "$tv(anz)"  }  default {    puthelp "NOTICE ${ni} :$tv(help)"    puthelp "NOTICE ${ni} :$tv(sender)"    puthelp "NOTICE ${ni} :$tv(tag)"    puthelp "NOTICE ${ni} :$tv(anz)"  }  }    return 1  }  if {[llength $text] == 1} {    set query "?ztag=0&uhrzeit=[eval_stunde [clock format [unixtime] -format %H]]&sparte=alle&sender=[eval_sender $text]&action=suche"   }  if {[llength $text] == 2} {    set sender [string tolower [lindex $text 0]]    set std [lindex $text 1]    set query "?ztag=0&uhrzeit=[eval_stunde $std]&sparte=alle&sender=[eval_sender $sender]&action=suche"  }  if {[llength $text] == 3} {    set sender [string tolower [lindex $text 0]]    set std [lindex $text 1]    set lines_out [lindex $text 2]##  maximum Lines to paste into query = 20    if {($lines_out < 0) || ($lines_out > 20)} {      set lines_out 20    }    set query "?ztag=0&uhrzeit=[eval_stunde $std]&sparte=alle&sender=[eval_sender $sender]&action=suche"  }  if {[llength $text] > 3} {    set sender [string tolower [lindex $text 0]]    set std [lindex $text 1]    set lines_out [lindex $text 2]    set tag [lindex $text 3]##  maximum Lines to paste into query = 20    if {($lines_out < 0) || ($lines_out > 20)} {      set lines_out 20    }    if {$tag >= 0} {      set query "?ztag=$tag&uhrzeit=[eval_stunde $std]&sparte=alle&sender=[eval_sender $sender]&action=suche"    } else {  switch $how {  "dcc" {      putdcc $ni $tv(tag)  }  default {      puthelp "NOTICE ${ni} :$tv(tag)"  }  }      return 1    }  }  if {[string first "NOPE1" $query] > 0} {  switch $how {  "dcc" {    putdcc $ni "Diesen Sender kenne ich nicht. Bekannte Sender:"    putdcc $ni "$tv(sender)"  }  default {    puthelp "NOTICE ${ni} :Diesen Sender kenne ich nicht. Bekannte Sender:"    puthelp "NOTICE ${ni} :$tv(sender)"  }  }    return 1  }  if {[string first "NOPE2" $query] > 0} {  switch $how {  "dcc" {    putdcc $ni "Stunde falsch angegeben. Zweistellige Zahl von 00 bis 23"  }  default {    puthelp "NOTICE ${ni} :Stunde falsch angegeben. Zweistellige Zahl von 00 bis 23"  }  }    return 1  }return $query}proc pub_tv {ni uh ha ch text} {  global tv lines_out defpub maxpub query showinfo ansnfo   if {$tv(chans) != ""} {    if {[string first [string tolower $ch] [string tolower $tv(chans)]] < 0} {       return 0    }  }set lines_out $defpubset query [makequery pub $ni $text]if {$lines_out>$maxpub} {set lines_out $maxpub}exec >$tv(output) $tv(lynx) -dump -nolist "http://$tv(server)$tv(script)$query"  set f [open $tv(output) r]set x 0set raus 0set antwort ""set maininfo 1  while {(![eof $f]) && ($x<$lines_out)} {    gets $f blaset zeile [string trim $bla]if {$raus == 1} {if {[string first "\[" $zeile] == 0} {incr xif {$showinfo == 1} {if {$ansnfo == "NOTICE"} {puthelp "NOTICE ${ni} :$antwort"}if {$ansnfo == "PUB"} {answer pub $ch $ni $antwort}if {$ansnfo == "MSG"} {answer msg $ch $ni $antwort} }set antwort ""set maininfo 1  } else {if {$maininfo == 1} {set cutit [string first "." $zeile]incr cutit -2set zeile [string range $zeile $cutit [string length $zeile]]answer pub $ch $ni $zeileset maininfo 0} else {set antwort "$antwort$zeile "}}}if {[string first "P R O G R A M M" $zeile] > -1} {    gets $f zeileset raus 1}}  close $f}proc msg_tv {ni uh ha text} {  global tv lines_out defmsg query showinfoset lines_out $defmsgset query [makequery msg $ni $text]exec >$tv(output) $tv(lynx) -dump -nolist "http://$tv(server)$tv(script)$query"  set f [open $tv(output) r]set x 0set raus 0set antwort ""set maininfo 1  while {(![eof $f]) && ($x<$lines_out)} {    gets $f blaset zeile [string trim $bla]if {$raus == 1} {if {[string first "\[" $zeile] == 0} {incr xif {$showinfo == 1} {answer msg $ha $ni $antwort}set antwort ""set maininfo 1  } else {if {$maininfo == 1} {set cutit [string first "." $zeile]incr cutit -2set zeile [string range $zeile $cutit [string length $zeile]]answer msg $ha $ni $zeileset maininfo 0} else {set antwort "$antwort$zeile "}}}if {[string first "P R O G R A M M" $zeile] > -1} {    gets $f zeileset raus 1}}  close $f}proc dcc_tv {ha idx text} {  global tv lines_out defdcc query showinfoset lines_out $defdccset query [makequery dcc $idx $text]putlog http://$tv(server)$tv(script)$queryexec >$tv(output) $tv(lynx) -dump -nolist "http://$tv(server)$tv(script)$query"  set f [open $tv(output) r]set x 0set raus 0set antwort ""set maininfo 1  while {(![eof $f]) && ($x<$lines_out)} {    gets $f blaset zeile [string trim $bla]if {$raus == 1} {if {[string first "\[" $zeile] == 0} {incr xif {$showinfo == 1} {answer dcc $ha $idx $antwort}set antwort ""set maininfo 1  } else {if {$maininfo == 1} {set cutit [string first "." $zeile]incr cutit -2set zeile [string range $zeile $cutit [string length $zeile]]answer dcc $ha $idx $zeileset maininfo 0} else {set antwort "$antwort$zeile "}}}if {[string first "P R O G R A M M" $zeile] > -1} {    gets $f zeileset raus 1}}  close $f}proc pub_tv_suche {ni uh ha ch text} {global tv lines_out defpub maxpub query showinfoif {$tv(chans) != ""} {    if {[string first [string tolower $ch] [string tolower $tv(chans)]] < 0} { return 0} }set lines_out $defpub  set query "?action=suche&suchbegriff=$text"set query [join $query "+"]if {$lines_out>$maxpub} {set lines_out $maxpub }   exec >$tv(output) $tv(lynx) -dump -nolist "http://$tv(server)$tv(script)$query"  set f [open $tv(output) r]set x 0set raus 0set antwort ""set maininfo 1  while {(![eof $f]) && ($x<$lines_out)} {    gets $f zeileset bla [string trim $zeile]if {$raus == 1} {set zeile [string trim [string range $bla [expr [string first "\] " $bla]+1] [string length $bla]]]if {[string first "\[" $zeile] == 0} {incr xset cutit [string first "." $zeile]incr cutit -2set antwort [string range $antwort $cutit [string length $antwort]]answer pub $ch $ni $antwortset antwort ""set maininfo 1  } else {set antwort "$antwort[string trim $zeile] "}}if {[string first "P R O G R A M M" $zeile] > -1} {    gets $f zeileset raus 1}if {[string first "Leider konnte keine Sendung mit Ihrem Suchbegriff gefunden werden." $zeile] > -1} {set x $lines_outanswer pub $ch $ni "Leider konnte keine Sendung mit Ihrem Suchbegriff gefunden werden."}if {[string first "\[pfeil_oben.gif\]" $zeile] > -1} {set x $lines_out}}close $f}proc msg_tv_suche {ni uh ha text} {global tv lines_out defmsg query showinfoset lines_out $defmsgset query "?action=suche&suchbegriff=$text"set query [join $query "+"]exec >$tv(output) $tv(lynx) -dump -nolist "http://$tv(server)$tv(script)$query"  set f [open $tv(output) r]set x 0set raus 0set antwort ""set maininfo 1  while {(![eof $f]) && ($x<$lines_out)} {    gets $f zeileset bla [string trim $zeile]if {$raus == 1} {set zeile [string trim [string range $bla [expr [string first "\] " $bla]+1] [string length $bla]]]if {[string first "\[" $zeile] == 0} {incr xset cutit [string first "." $zeile]incr cutit -2set antwort [string range $antwort $cutit [string length $antwort]]answer msg $ha $ni $antwortset antwort ""set maininfo 1  } else {set antwort "$antwort[string trim $zeile] "}}if {[string first "P R O G R A M M" $zeile] > -1} {    gets $f zeileset raus 1}if {[string first "Leider konnte keine Sendung mit Ihrem Suchbegriff gefunden werden." $zeile] > -1} {set x $lines_outanswer msg $ha $ni "Leider konnte keine Sendung mit Ihrem Suchbegriff gefunden werden."}if {[string first "\[pfeil_oben.gif\]" $zeile] > -1} {set x $lines_out}}close $f}proc dcc_tv_suche {ha idx text} {global tv lines_out defdcc showinfoset lines_out $defdccset query "?action=suche&suchbegriff=$text"set query [join $query "+"]exec >$tv(output) $tv(lynx) -dump -nolist "http://$tv(server)$tv(script)$query"putlog "http://$tv(server)$tv(script)$query"  set f [open $tv(output) r]set x 0set raus 0set antwort ""set maininfo 1  while {(![eof $f]) && ($x<$lines_out)} {    gets $f zeileset bla [string trim $zeile]if {$raus == 1} {set zeile [string trim [string range $bla [expr [string first "\] " $bla]+1] [string length $bla]]]if {[string first "\[" $zeile] == 0} {incr xset cutit [string first "." $zeile]incr cutit -2set antwort [string range $antwort $cutit [string length $antwort]]answer dcc $ha $idx $antwortset antwort ""set maininfo 1  } else {set antwort "$antwort[string trim $zeile] "}}if {[string first "P R O G R A M M" $zeile] > -1} {    gets $f zeileset raus 1}if {[string first "Leider konnte keine Sendung mit Ihrem Suchbegriff gefunden werden." $zeile] > -1} {set x $lines_outanswer dcc $ha $idx "Leider konnte keine Sendung mit Ihrem Suchbegriff gefunden werden."}if {[string first "\[pfeil_oben.gif\]" $zeile] > -1} {set x $lines_out}}close $f}proc answer {how where who what} {global anspubswitch $how {"pub" {switch [string toupper $anspub] {"PUB" {puthelp "PRIVMSG ${where} :$what"}"MSG" {puthelp "PRIVMSG ${who} :$what"}default {puthelp "NOTICE ${who} :$what"}}}"dcc" {putdcc $who "$what"}"msg" {puthelp "PRIVMSG ${who} :$what"}  }}bind pub $tv(flag)|$tv(flag) !tv pub_tvbind msg $tv(flag)|$tv(flag) !tv msg_tvbind msg $tv(flag)|$tv(flag) tv msg_tvbind dcc -|- tv dcc_tvbind pub $tv(flag)|$tv(flag) !tvsuche pub_tv_suchebind msg $tv(flag)|$tv(flag) !tvsuche msg_tv_suchebind msg $tv(flag)|$tv(flag) tvsuche msg_tv_suchebind dcc -|- tvsuche dcc_tv_sucheif {$tv(chans) == ""} {putlog "TV-Program v5.7 by Giggel loaded for all channels .."} else {putlog "TV-Program v5.7 by Giggel loaded for $tv(chans) .."}

Code:

set tv(server) www.tvtoday.de set tv(script) /tv/programm/programm.php 

Code:

proc dcc_tv_suche {ha idx text} {    global tv lines_out defdcc showinfo    set lines_out $defdcc    set query "?action=suche&suchbegriff=$text"

Code:

########################################################################                                                               ######      TV-Programm   v5.3     By     Giggel (giggel@gmx.de)     ######                                                               ###########################################################################     Infos, Updates, Bugreports in der Scriptecke unter:       ######              http://irc.macht-bloe.de/script/                 ######                                                               ###### >>>>>>>>> NEU NEU NEU NEU NEU <<<<<<<<<                       ######                                                               ###### Die Mailingliste zum Script mit aktuellen News und mehr       ###### und so meldet man sich an:                                    ###### mailto: majordomo@l611.hadiko.de                              ###### Subject leer lassen                                           ###### Text: subscribe tv-script                                     ######                                                               ##########################################################################  This script is made for all the lazy guys who do NOT have a TV-Program.#  Its looking up the actual Program for the most _german_ TV-Stations#  at www.tvtoday.de and posts the answer (slightly cutted) to the channel,#  query or dcc-chat.#  I'm sure it has thousands of bugs, if you find one: TELL ME PLEAAAASE :)#  Also tell me, if you found a bug and fixed it.##############  Examples:#  ---------#  !tv ard         !tv ard 20#      ^^^                 ^^#  Programm on ARD         at 2000##  !tv ard 17 5#             ^#  print 5 lines instead of the defaultvalue set below##  !tv ard 20 5 1#             ^ ^#  show Program tomorrow and print 5 lines##########  ToDo:#  -----#  - improving#  - bugfixing ;)################# Syntax ###################  -------public-------#  !tv Sender [Stunde] [Anzahl] [Tag]##  -------query--------#  /msg bot !tv Sender [Stunde] [Anzahl] [Tag]#  /msg bot tv Sender [Stunde] [Anzahl] [Tag]##  -------dcc-chat-----#  .tv Sender [Stunde] [Anzahl] [Tag]##  Anzahl is the number of lines,the bot pastes max. default is set below##  known Programs:#  haupt, ARD, ZDF, RTL, SAT.1, PRO 7, KABEL 1, RTL 2, S-RTL, ARTE, TM3,#  VOX, 3SAT, regio, NORD, WEST, BAYERN, MDR, HESSEN, SW III, TV BERLIN,#  MÜNCHEN, HH1, B1/SFB, ORB, MTV, VH1, VIVA, VIVA II, PREMIERE, DSF,#  E-SPORT, N-TV, E-NEWS, KINDER KANAL, PHOENIX, CNN, NBC, TNT, CARTOON,#  FRANC 2, FR3, TV5, TF1, ORF1, ORF2, TSR, DK1, DK2, DRS, NL1, NL2,#  NL3, TRT, SF1##  haupt is the group of: ARD, ZDF, RTL, SAT.1, PRO 7, KABEL 1, RTL 2,#                         S-RTL, ARTE, TM3, VOX, 3SAT#  regio is the group of: NORD, WEST, BAYERN, MDR, HESSEN, SW III,#                         TV BERLIN, MUENCHEN, HH1, B1/SFB, ORB##  Stunde is just a number from 00 to 29 where 24 means 00 of the next day#  25 means 01 of next day and so on#  If no value is given the actual hour is taken##  Tag is: 0 = today, 1 = tomorrow ...#  default is 0################### Settings ####################set channels that this script should work in#script replies in every channel, if left blankset tv(chans) ""#max number of lines to put in channelset maxpub 6 #number of lines to put to channel/query/dcc by defaultset defpub 4 set defmsg 5set defdcc 5#how to answer to public query: NOTICE or MSG or PUBset anspub "PUB"#show special Program-Info, 0=off, 1=onset showinfo 1#how to display Program-Info if enabled: NOTICE or MSG or PUBset ansnfo "NOTICE"#userflag needed to use the script#type "-" if the user don't need to have a botflagset tv(flag) "-"#Location of your lynx-Binary - try: which lynxset tv(lynx) "/usr/bin/lynx"#don't forget to add your entries for proxysettings in your local lynx.cfg file#http_proxy environment variable may not work here!#Location of a temporary outputfileset tv(output) "/tmp/tv.txt"########################################################### You shouldn't change anything of the stuff below ###########################################################set tv(help) "Usage: \002PUB:\002 !tv Sender Stunde Tag/Anzahl Anzahl -\\002DCC:\002 .tv Sender Stunde Tag/Anzahl Anzahl -\\022MSG:\022 /msg $botnick !tv Sender Stunde Tag/Anzahl Anzahl"set tv(sender) "Sender:\ haupt, ARD, ZDF, RTL, SAT1, PRO7, KABEL1, RTL2, S-RTL, ARTE, TM3,\ VOX, 3SAT, regio, NORD, WEST3, BAYERN3, MDR, HESSEN, SW3, TVBERLIN,\ MUENCHEN, HH1, B1/SFB, ORB, MTV, VH1, VIVA, VIVA2, PREMIERE, DSF,\ EUROSPORT, NTV, EURONEWS, KIKA, PHOENIX, CNN, NBC, TNT, CARTOON,\ FRANCE2, FR3, TV5, TF1, ORF1, ORF2, TSR, DK1, DK2, DRS, NL1, NL2, NL3,\ TRT, SF1"set tv(tag) "Tag muss eine Zahl größer 0 sein, wobei 0 = heute ist"set tv(anz) "Anzahl gibt an, wieviele Sendungen maximal ausgegeben werden"set tv(server) www.tvtoday.deset tv(script) /tv/programm/programm.phpset lines_out $defpubset query ""proc eval_sender {in} {  switch [string tolower $in] {"haupt" { return "HS" }"ard" { return "ARD" }"zdf" { return "ZDF" }"rtl" { return "RTL" }"sat1" { return "SAT.1" }"pro7" { return "PRO%207" }"kabel1" { return "KABEL%201" }"rtl2" { return "RTL%202" }"s-rtl" { return "S-RTL" }"arte" { return "ARTE" }"tm3" { return "TM3" }"vox" { return "VOX" }"3sat" { return "3SAT" }"regio" { return "RS" }"n3" { return "NORD" }"west3" { return "WEST" }"bayern3" { return "BAYERN" }"mdr" { return "MDR" }"hessen" { return "HESSEN" }"sw3" { return "SW%20III" }"tvberlin" { return "TV%20BERLIN" }"muenchen" { return "MÜNCHEN" }"hh1" { return "HH1" }"b1/sfb" { return "B1/SFB" }"orb" { return "ORB" }"mtv" { return "MTV" }"vh1" { return "VH1" }"viva" { return "VIVA" }"viva2" { return "VIVA%20II" }"premiere" { return "PREMIERE" }"dsf" { return "DSF" }"eurosport" { return "E-SPORT" }"ntv" { return "N-TV" }"euronews" { return "E-NEWS" }"kika" { return "KINDERKANAL" }"phoenix" { return "PHOENIX" }"cnn" { return "CNN" }"nbc" { return "NBC" }"tnt" { return "TNT" }"cartoon" { return "CARTOON" }"france2" { return "FRANCE%202" }"fr3" { return "FR3" }"tv5" { return "TV5" }"tf1" { return "TF1" }"orf1" { return "ORF1" }"orf2" { return "ORF2" }"tsr" { return "TSR" }"dk1" { return "DK1" }"dk2" { return "DK2" }"drs" { return "DRS" }"nl1" { return "NL1" }"nl2" { return "NL2" }"nl3" { return "NL3" }"trt" { return "TRT" }"sf1" { return "SF1" }  }  return "NOPE1"}proc eval_stunde {in} {  set ok 0  if {[string length $in] == 1} {    set in "0$in"  }  if {[string first $in "00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23"] > -1} {    set ok 1    set tmp "Ax$in"  }  if {[string first $in "24 25 26 27 28 29"] > -1} {set inn [expr $in-24]    set ok 1    set tmp "Bx0$inn"  }  if {$ok == 1} {    return $tmp  } else {    return "NOPE2"  }}proc eval_tag {in} {  set in [string toupper $in]  if {$in >= 0} {    return $in  } else {    return "NOPE3"  }}  proc eval_daytoday {in} {# by Haui  switch [string tolower $in] {"mon" { return "MO" }"tue" { return "DI" }"wed" { return "MI" }"thu" { return "DO" }"fri" { return "FR" }"sat" { return "SA" }"sun" { return "SO" }  }  return "NOPE4"}proc eval_daybefore {in} {# by Haui  switch [string tolower $in] {"mon" { return "SO" }"tue" { return "MO" }"wed" { return "DI" }"thu" { return "MI" }"fri" { return "DO" }"sat" { return "FR" }"sun" { return "SA" }  }  return "NOPE5"}proc eval_rightday {in} {# by Haui  set english_today [clock format [unixtime] -format %a]  set in "test[string tolower $in]"  if {[string first "bx" $in] >= 0} {    set right [eval_daybefore $english_today]    return $right  }  if {[string match "ax" $in] >= 0} {    set right [eval_daytoday $english_today]    return $right  }}   proc makequery {how ni text} {global lines_out tv  set right_day [eval_rightday [eval_stunde [clock format [unixtime] -format %H]]]  if {[llength $text] < 1} {  switch $how {  "dcc" {    putdcc $ni "$tv(help)"    putdcc $ni "$tv(sender)"    putdcc $ni "$tv(tag)"    putdcc $ni "$tv(anz)"  }  default {    puthelp "NOTICE ${ni} :$tv(help)"    puthelp "NOTICE ${ni} :$tv(sender)"    puthelp "NOTICE ${ni} :$tv(tag)"    puthelp "NOTICE ${ni} :$tv(anz)"  }  }    return 1  }  if {[llength $text] == 1} {    set query "?ztag=0&uhrzeit=[eval_stunde [clock format [unixtime] -format %H]]&sparte=alle&sender=[eval_sender $text]&action=suche"   }  if {[llength $text] == 2} {    set sender [string tolower [lindex $text 0]]    set std [lindex $text 1]    set query "?ztag=0&uhrzeit=[eval_stunde $std]&sparte=alle&sender=[eval_sender $sender]&action=suche"  }  if {[llength $text] == 3} {    set sender [string tolower [lindex $text 0]]    set std [lindex $text 1]    set lines_out [lindex $text 2]##  maximum Lines to paste into query = 20    if {($lines_out < 0) || ($lines_out > 20)} {      set lines_out 20    }    set query "?ztag=0&uhrzeit=[eval_stunde $std]&sparte=alle&sender=[eval_sender $sender]&action=suche"  }  if {[llength $text] > 3} {    set sender [string tolower [lindex $text 0]]    set std [lindex $text 1]    set lines_out [lindex $text 2]    set tag [lindex $text 3]##  maximum Lines to paste into query = 20    if {($lines_out < 0) || ($lines_out > 20)} {      set lines_out 20    }    if {$tag >= 0} {      set query "?ztag=$tag&uhrzeit=[eval_stunde $std]&sparte=alle&sender=[eval_sender $sender]&action=suche"    } else {  switch $how {  "dcc" {      putdcc $ni $tv(tag)  }  default {      puthelp "NOTICE ${ni} :$tv(tag)"  }  }      return 1    }  }  if {[string first "NOPE1" $query] > 0} {  switch $how {  "dcc" {    putdcc $ni "Diesen Sender kenne ich nicht. Bekannte Sender:"    putdcc $ni "$tv(sender)"  }  default {    puthelp "NOTICE ${ni} :Diesen Sender kenne ich nicht. Bekannte Sender:"    puthelp "NOTICE ${ni} :$tv(sender)"  }  }    return 1  }  if {[string first "NOPE2" $query] > 0} {  switch $how {  "dcc" {    putdcc $ni "Stunde falsch angegeben. Zweistellige Zahl von 00 bis 23"  }  default {    puthelp "NOTICE ${ni} :Stunde falsch angegeben. Zweistellige Zahl von 00 bis 23"  }  }    return 1  }return $query}proc pub_tv {ni uh ha ch text} {  global tv lines_out defpub maxpub query showinfo ansnfo   if {$tv(chans) != ""} {    if {[string first $ch $tv(chans)] < 0} {       return 0    }  }set lines_out $defpubset query [makequery pub $ni $text]if {$lines_out>$maxpub} {set lines_out $maxpub}exec >$tv(output) $tv(lynx) -dump -nolist "http://$tv(server)$tv(script)$query"  set f [open $tv(output) r]set x 0set raus 0set antwort ""set maininfo 1  while {(![eof $f]) && ($x<$lines_out)} {    gets $f blaset zeile [string trim $bla]if {$raus == 1} {if {[string first "\[" $zeile] == 0} {incr xif {$showinfo == 1} {if {$ansnfo == "NOTICE"} {puthelp "NOTICE ${ni} :$antwort"}if {$ansnfo == "PUB"} {answer pub $ch $ni $antwort}if {$ansnfo == "MSG"} {answer msg $ch $ni $antwort} }set antwort ""set maininfo 1  } else {if {$maininfo == 1} {answer pub $ch $ni $zeileset maininfo 0} else {set antwort "$antwort$zeile "}}}if {[string first "P R O G R A M M" $zeile] > -1} {    gets $f zeileset raus 1}}  close $f}proc msg_tv {ni uh ha text} {  global tv lines_out defmsg query showinfoset lines_out $defmsgset query [makequery msg $ni $text]        putlog "frage: http://$tv(server)$tv(script)$query"exec >$tv(output) $tv(lynx) -dump -nolist "http://$tv(server)$tv(script)$query"  set f [open $tv(output) r]set x 0set raus 0set antwort ""set maininfo 1  while {(![eof $f]) && ($x<$lines_out)} {    gets $f blaset zeile [string trim $bla]if {$raus == 1} {if {[string first "\[" $zeile] == 0} {incr xif {$showinfo == 1} {answer msg $ha $ni $antwort}set antwort ""set maininfo 1  } else {if {$maininfo == 1} {answer msg $ha $ni $zeileset maininfo 0} else {set antwort "$antwort$zeile "}}}if {[string first "P R O G R A M M" $zeile] > -1} {    gets $f zeileset raus 1}}  close $f}proc dcc_tv {ha idx text} {  global tv lines_out defdcc query showinfoset lines_out $defdccset query [makequery dcc $idx $text]putlog http://$tv(server)$tv(script)$queryexec >$tv(output) $tv(lynx) -dump -nolist "http://$tv(server)$tv(script)$query"  set f [open $tv(output) r]set x 0set raus 0set antwort ""set maininfo 1  while {(![eof $f]) && ($x<$lines_out)} {    gets $f blaset zeile [string trim $bla]if {$raus == 1} {if {[string first "\[" $zeile] == 0} {incr xif {$showinfo == 1} {answer dcc $ha $idx $antwort}set antwort ""set maininfo 1  } else {if {$maininfo == 1} {answer dcc $ha $idx $zeileset maininfo 0} else {set antwort "$antwort$zeile "}}}if {[string first "P R O G R A M M" $zeile] > -1} {    gets $f zeileset raus 1}}  close $f}proc pub_tv_suche {ni uh ha ch text} {global tv lines_out defpub maxpub query showinfoif {$tv(chans) != ""} {if {[string first $ch $tv(chans)] < 0} {return 0} }set lines_out $defpub  set query "?action=suche&suchbegriff=$text"set query [join $query "+"]if {$lines_out>$maxpub} {set lines_out $maxpub }   exec >$tv(output) $tv(lynx) -dump -nolist "http://$tv(server)$tv(script)$query"  set f [open $tv(output) r]set x 0set raus 0set antwort ""set maininfo 1  while {(![eof $f]) && ($x<$lines_out)} {    gets $f zeileset bla [string trim $zeile]if {$raus == 1} {set zeile [string trim [string range $bla [expr [string first "\] " $bla]+1] [string length $bla]]]if {[string first "\[" $zeile] == 0} {incr xanswer pub $ch $ni $antwortset antwort ""set maininfo 1  } else {set antwort "$antwort[string trim $zeile] "}}if {[string first "P R O G R A M M" $zeile] > -1} {    gets $f zeileset raus 1}if {[string first "Leider konnte keine Sendung mit Ihrem Suchbegriff gefunden werden." $zeile] > -1} {set x $lines_outanswer pub $ch $ni "Leider konnte keine Sendung mit Ihrem Suchbegriff gefunden werden."}}close $f}proc msg_tv_suche {ni uh ha text} {global tv lines_out defmsg query showinfoset lines_out $defmsgset query "?action=suche&suchbegriff=$text"set query [join $query "+"]exec >$tv(output) $tv(lynx) -dump -nolist "http://$tv(server)$tv(script)$query"  set f [open $tv(output) r]set x 0set raus 0set antwort ""set maininfo 1  while {(![eof $f]) && ($x<$lines_out)} {    gets $f zeileset bla [string trim $zeile]if {$raus == 1} {set zeile [string trim [string range $bla [expr [string first "\] " $bla]+1] [string length $bla]]]if {[string first "\[" $zeile] == 0} {incr xanswer msg $ha $ni $antwortset antwort ""set maininfo 1  } else {set antwort "$antwort[string trim $zeile] "}}if {[string first "P R O G R A M M" $zeile] > -1} {    gets $f zeileset raus 1}if {[string first "Leider konnte keine Sendung mit Ihrem Suchbegriff gefunden werden." $zeile] > -1} {set x $lines_outanswer msg $ha $ni "Leider konnte keine Sendung mit Ihrem Suchbegriff gefunden werden."}}close $f}proc dcc_tv_suche {ha idx text} {global tv lines_out defdcc showinfoset lines_out $defdccset query "?action=suche&suchbegriff=$text"set query [join $query "+"]exec >$tv(output) $tv(lynx) -dump -nolist "http://$tv(server)$tv(script)$query"  set f [open $tv(output) r]set x 0set raus 0set antwort ""set maininfo 1  while {(![eof $f]) && ($x<$lines_out)} {    gets $f zeileset bla [string trim $zeile]if {$raus == 1} {set zeile [string trim [string range $bla [expr [string first "\] " $bla]+1] [string length $bla]]]if {[string first "\[" $zeile] == 0} {incr xanswer dcc $ha $idx $antwortset antwort ""set maininfo 1  } else {set antwort "$antwort[string trim $zeile] "}}if {[string first "P R O G R A M M" $zeile] > -1} {    gets $f zeileset raus 1}if {[string first "Leider konnte keine Sendung mit Ihrem Suchbegriff gefunden werden." $zeile] > -1} {set x $lines_outanswer dcc $ha $idx "Leider konnte keine Sendung mit Ihrem Suchbegriff gefunden werden."}}close $f}proc answer {how where who what} {global anspubswitch $how {"pub" {switch [string toupper $anspub] {"PUB" {puthelp "PRIVMSG ${where} :$what"}"MSG" {puthelp "PRIVMSG ${who} :$what"}default {puthelp "NOTICE ${who} :$what"}}}"dcc" {putdcc $who "$what"}"msg" {puthelp "PRIVMSG ${who} :$what"}  }}bind pub $tv(flag)|$tv(flag) !tv pub_tvbind msg $tv(flag)|$tv(flag) !tv msg_tvbind msg $tv(flag)|$tv(flag) tv msg_tvbind dcc -|- tv dcc_tvbind pub $tv(flag)|$tv(flag) !tvsuche pub_tv_suchebind msg $tv(flag)|$tv(flag) !tvsuche msg_tv_suchebind msg $tv(flag)|$tv(flag) tvsuche msg_tv_suchebind dcc -|- tvsuche dcc_tv_sucheif {$tv(chans) == ""} {putlog "TV-Program v5.3 by Giggel loaded for all channels .."} else {putlog "TV-Program v5.3 by Giggel loaded for $tv(chans) .."}

Code:

#    uncomment the next three lines and comment the following 3, if you want the errormsgs posted to the channel 

Code:

#      puthelp "PRIVMSG $ch :$ni Sender, Stunde oder Tag falsch angegeben" #      puthelp "PRIVMSG $ch :$ni $tv(sender)" #      puthelp "PRIVMSG $ch :$ni $tv(tag)"