egghelp/eggheads community

add isop to the soutcast.tcl [SOLVED]

2007-09-20T13:03:05-04:00

Contact the author then: domsen@domsen.org

Statistics: Posted by awyeah — Thu Sep 20, 2007 1:03 pm

add isop to the soutcast.tcl [SOLVED]

2007-09-20T12:33:34-04:00

and you went to ircnet also?
the website is not the only way....

# visit #newsticker@ircnet

Statistics: Posted by DragnLord — Thu Sep 20, 2007 12:33 pm

add isop to the soutcast.tcl [SOLVED]

2007-09-20T06:27:46-04:00

step 1, read the information in the script
Code:
# shoutcast.tcl v1.03 by domsen  (c)2oo5## comments? bugs? ideas? requests? money? beer?# plz mail me or visit my homepage @ www.domsen.org# visit #newsticker@ircnet
contacting the author first about modifications would have been the proper things to do

The site soes not work so it's hard to do some researche

Statistics: Posted by Fire-Fox — Thu Sep 20, 2007 6:27 am

add isop to the soutcast.tcl [SOLVED]

2007-09-20T00:08:20-04:00

step 1, read the information in the script

Code:

# shoutcast.tcl v1.03 by domsen  (c)2oo5## comments? bugs? ideas? requests? money? beer?# plz mail me or visit my homepage @ www.domsen.org# visit #newsticker@ircnet

contacting the author first about modifications would have been the proper things to do

Statistics: Posted by DragnLord — Thu Sep 20, 2007 12:08 am

add isop to the soutcast.tcl [SOLVED]

2007-09-19T22:58:12-04:00

First of all:

(1) Please indent your code properly, because it is difficult to read.
(2) You don't need to split chanlist, since it is already a list.
(3) Use a foreach loop and check the isop condition for that nick on the channel, as mentioned by TCL_no_TK

Try this:

Code:

proc setdj {nickname djnickname} { global streamip streamport streampass dj ctodjc foreach nicks [chanlist #aliasfm] {  if {[isop $nicks #aliasfm] {   putlog "shoutcast: new dj: $djnickname ($nickname)"   set temp [open "dj" w+]   puts $temp $djnickname   close $temp   set temp [open "djnick" w+]   puts $temp $djnickname   close $temp   if {[status] == "1"} { poststuff privmsg " 12\[4AliasFM12\] $nickname Er nu på som Dj: $djnickname 12\[4AliasFM12\]"   if {$ctodjc == "1"} {    set temp [open "isonline" r]    while {[eof $temp] != 1} {    set zeile [gets $temp]    if {[string first "isonline:" $zeile] != -1 } { set oldisonline $zeile }    if {[string first "curlist:" $zeile] != -1 } { set oldcurlist $zeile }    if {[string first "curhigh:" $zeile] != -1 } { set oldcurhigh $zeile }    if {[string first "cursong:" $zeile] != -1 } { set oldsong $zeile }    if {[string first "bitrate:" $zeile] != -1 } { set oldbitrate $zeile }   }  close $temp  }} else {    putserv "privmsg $nickname :This has not been announced because the radio is currentlfy offline."  } }}

Statistics: Posted by awyeah — Wed Sep 19, 2007 10:58 pm

RE: add isop to the soutcast.tcl

2007-09-19T22:38:48-04:00

something like

Code:

foreach target [chanlist #mychannel] { if {[isop $target #mychannel]} {  set  "$target is an op }}

i dont think

if {$djnickname == "" } { set $djnickname $nickname }

that should be in there :/ maybe before it would be better.

Statistics: Posted by TCL_no_TK — Wed Sep 19, 2007 10:38 pm

add isop to the soutcast.tcl [SOLVED]

2007-09-20T10:35:48-04:00

how can i add isop to this script
i have tryed but no luck so fare

Code:

proc setdj {nickname djnickname } {global streamip streamport streampass dj ctodjcforeach nicks [split [chanlist #aliasfm]] {if {[isop $nicks]} { if {$djnickname == "" } { set $djnickname $nickname  }}}putlog "shoutcast: new dj: $djnickname ($nickname)"set temp [open "dj" w+]puts $temp $djnicknameclose $tempset temp [open "djnick" w+]puts $temp $djnicknameclose $tempif { [status] == "1" } { poststuff privmsg " 12\[4AliasFM12\] $nickname Er nu på som Dj: $djnickname 12\[4AliasFM12\]"if { $ctodjc == "1" } {set temp [open "isonline" r]while {[eof $temp] != 1} {set zeile [gets $temp]if {[string first "isonline:" $zeile] != -1 } { set oldisonline $zeile }if {[string first "curlist:" $zeile] != -1 } { set oldcurlist $zeile }if {[string first "curhigh:" $zeile] != -1 } { set oldcurhigh $zeile }if {[string first "cursong:" $zeile] != -1 } { set oldsong $zeile }if {[string first "bitrate:" $zeile] != -1 } { set oldbitrate $zeile }}close $temp}} else {putserv "privmsg $nickname :9this has not been announced because the radio is currentlfy offline." }}

Statistics: Posted by Fire-Fox — Wed Sep 19, 2007 6:35 pm