egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-04-15T10:30:53-04:00 https://forum.eggheads.org/app.php/feed/topic/4144 2003-04-15T10:30:53-04:00 2003-04-15T10:30:53-04:00 https://forum.eggheads.org/viewtopic.php?p=19098#p19098 <![CDATA[radioscript problem]]>
I'm writing a script which should get a shoutcast status page, save it and read it. but in fact i don' t have any knowledge about either the http stuff (reg exp aso) nor about the lynx stuff...

there is also a mistake in the script which i didn't find...

Code: 

proc rdo_mod {nick uhost handle chan args} {if {[lsearch -exact $radiochannel [string tolower $chan] != 0]} { return 0 } else {set newmod "[lindex $args 0]"if {[isop $nick $chan] && [llength $newmod] < 1 } { antwort } elseif { ![isop $nick $chan] && [llength $newmod] < 1 } { antwort} elseif { ![isop $nick $chan] && [llength $newmod] > 0 } { putserv "NOTICE $nick :Du hast keine Berechtigung" ; return 0} elseif {[isop $nick $chan] && [llength $newmod] > 0} {if { $newmod == "off" && $mod != "off"} { set mod "off"putserv "TOPIC $chan :$topic(off)"} else {if {![onchan $newmod $chan]} {putserv "NOTICE $nick :Ich kann den User nicht finden, achte auf korrekte Schreibweise!" ; return 0 } else { set mod [lindex $newmod] 0putserv "TOPIC $chan :$topic(on)" }}}}}}
I changed something after getting the tcl error... but i can't undo them because i forgot what i changed :roll:

[/code]

Statistics: Posted by Guest — Tue Apr 15, 2003 10:30 am

]]>