add isop to the soutcast.tcl [SOLVED]

[Fire-Fox]

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

Code: Select all

proc setdj {nickname djnickname } {
global streamip streamport streampass dj ctodjc
foreach 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 $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 :9this has not been announced because the radio is currentlfy offline." }
}

[TCL_no_TK]

something like

Code: Select all

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

i dont think

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

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

[awyeah]

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: Select all

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."
  }
 }
}

[DragnLord]

step 1, read the information in the script

Code: Select all

# shoutcast.tcl v1.03 by domsen <domsen@domsen.org> (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

[Fire-Fox]

step 1, read the information in the script

Code: Select all

# shoutcast.tcl v1.03 by domsen <domsen@domsen.org> (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

[DragnLord]

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

# visit #newsticker@ircnet

[awyeah]

Contact the author then: domsen@domsen.org