#############################################

 
# Radyo ip'sini yazınız..

set radyoip "IPADRESINIZ"

 
# Radyo portunu yazınız..

set rport "RADYOPORT"

 
# Radyo şifresini yazınız..

set rsifre "RADYOSIFRE"

 
# Radyo kanalını yazınız.. Büyük küçük harfe dikkat ediniz.

# Örnek #Radyo ile #radyo farklıdır ;)

set rkanal "#Radyo"

 
 
###############################################################

###############################################################

### PROCS.......................................................

###############################################################

###############################################################

 
bind time - "* * * * *" yenidinleyici

proc yenidinleyici {min hour day month year} {

 global radyoip rsifre rport

 if {[catch {set sock [socket $radyoip $rport] } sockerror]} {

  putlog "error: $sockerror"

  return 0

  } else {

  puts $sock "GET /admin.cgi?pass=$rsifre&mode=viewxml&page=0 HTTP/1.0"

  puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"

  puts $sock "Host: $radyoip"

  puts $sock "Connection: close"

  puts $sock ""

  flush $sock

  while {[eof $sock] != 1} {

   set bl [gets $sock]

   if { [string first "standalone" $bl] != -1 } {

    set voicevr [string range $bl [shrink + 11 "<LISTENERS>" 0 $bl] [shrink - 1 "</LISTENERS>" 0 $bl]]

   }

  }

  close $sock

 }

 set voicevr [temiz $voicevr]

 set deger 0

 set ::rawcount 0

 set ipler ""

 bind raw - 352 voysver

 foreach i $voicevr {

  if {[regexp {^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$} [lindex $voicevr $deger]]} {

   incr ::rawcount

   lappend ipler "[lindex $voicevr $deger] "

  }

  incr deger

 }

 set ydeger 0

 foreach j $ipler {

  putquick "who +i [lindex $ipler $ydeger]"

  incr ydeger

 }

}

 
proc shrink { calc number string start bl} { return [expr [string first "$string" $bl $start] $calc $number] }

 
proc voysver {from keyword arg} {

global rkanal

if {![isvoice [lindex $arg 5] $rkanal]} {

putquick "mode $rkanal +v [lindex $arg 5]"

}

}

 
bind raw - 315 countdusur

proc countdusur {from keyword arg} {

set ::rawcount [expr $::rawcount - 1]

if {$::rawcount == "0"} {

 unbind raw - 352 voysver

 }

}

 
proc temiz {veri} {

regsub -all \< $veri " " veri

regsub -all \/ $veri " " veri

regsub -all \> $veri " " veri

return $veri

}

 
putlog "radyo-yama.tcl By \002SaW"