egghelp.org community :: View topic

[ egghelp.org home | forum home ]

egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.

FAQ

Memberlist

Usergroups

Profile

radioscript problem

This forum is locked: you cannot post, reply to, or edit topics.

This topic is locked: you cannot edit posts or make replies.

egghelp.org community Forum Index -> Archive

View previous topic :: View next topic

Author

Message

Deflex
Guest

Posted: Tue Apr 15, 2003 10:30 am Post subject: radioscript problem

Hi guys,

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

I changed something after getting the tcl error... but i can't undo them because i forgot what i changed Rolling Eyes

[/code]

Display posts from previous:

	egghelp.org community Forum Index -> Archive	All times are GMT - 4 Hours
Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum