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: Select all
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] 0
putserv "TOPIC $chan :$topic(on)" }
}
}
}}}
[/code]