if {[catch {set sock [socket $dolar$streamip $dolar$streamport] } sockerror]} {
putlog "error: $dolar$sockerror"
return 0} else {
puts $dolar$sock "GET /admin.cgi?pass=$dolar$streampass&mode=viewxml&page=0 HTTP/1.0"
puts $dolar$sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"
puts $dolar$sock "Host: $dolar$streamip"
puts $dolar$sock "Connection: close"
puts $dolar$sock ""
flush $dolar$sock
while {[eof $dolar$sock] != 1} {
set bl [gets $dolar$sock]
if { [string first "standalone" $dolar$bl] != -1 } {
set streamstatus "isonline: [string range $dolar$bl [shrink + 14 "<STREAMSTATUS>" 0 $dolar$bl] [shrink - 1 "</STREAMSTATUS>" 0 $dolar$bl]]"
set repl "curlist: [string range $dolar$bl [shrink + 19 "<REPORTEDLISTENERS>" 0 $dolar$bl] [shrink - 1 "</REPORTEDLISTENERS>" 0 $dolar$bl]]"
set curhigh "curhigh: [string range $dolar$bl [shrink + 15 "<PEAKLISTENERS>" 0 $dolar$bl] [shrink - 1 "</PEAKLISTENERS>" 0 $dolar$bl]]"
set currentl [string range $dolar$bl [shrink + 18 "<CURRENTLISTENERS>" 0 $dolar$bl] [shrink - 1 "</CURRENTLISTENERS>" 0 $dolar$bl]]
set surl "serverurl: [string range $dolar$bl [shrink + 11 "<SERVERURL>" 0 $dolar$bl] [shrink - 1 "</SERVERURL>" 0 $dolar$bl]]"
set cursong "cursong: [string range $dolar$bl [shrink + 11 "<SONGTITLE" 0 $dolar$bl] [shrink - 1 "</SONGTITLE>" 0 $dolar$bl]]"
set songurl [string range $dolar$bl [shrink + 9 "<SONGURL>" 0 $dolar$bl] [shrink - 1 "</SONGURL>" 0 $dolar$bl]]
set bitrate "bitrate: [string range $dolar$bl [shrink + 9 "<BITRATE>" 0 $dolar$bl] [shrink - 1 "</BITRATE>" 0 $dolar$bl]]"
set stitle [string range $dolar$bl [shrink + 13 "<SERVERTITLE>" 0 $dolar$bl] [shrink - 1 "</SERVERTITLE>" 0 $dolar$bl]]
set sgenre [string range $dolar$bl [shrink + 13 "<SERVERGENRE>" 0 $dolar$bl] [shrink - 1 "</SERVERGENRE>" 0 $dolar$bl]]
}}
close $dolar$sock
}

set temp [open "isonline" w+]
puts $dolar$temp "$dolar$streamstatus\n$dolar$repl\n$dolar$curhigh\n$dolar$cursong\n$dolar$bitrate"
close $dolar$temp
if {$dolar$announce == 1 } {
if {$dolar$streamstatus == "isonline: 0" && $dolar$oldisonline == "isonline: 1"} {
poststuff privmsg $dolar$offlinetext
if {$dolar$urltopic == 1} { poststuff topic $dolar$offlinetopic }
}
if {$dolar$streamstatus == "isonline: 1" && $dolar$oldisonline == "isonline: 0" } {
if {$dolar$sgenre != ""} {
set sgenre " ($dolar$sgenre)"
}
poststuff privmsg "15,1 Radyomuz suanda 4,1ACIK.. 0,4 ** 9,1 Radyomuzu Winamp'ten dinlemek icin tiklayin 0,4 >>> 12http://$RADYOIP:$PORT/listen.pls"
if {$dolar$urltopic == 100} { poststuff topic "Yayında Suan <<<$dolar$stitle>>> bulunmakta.Yayin turu: $dolar$sgenre Calan parca: >>>>> [lrange $dolar$cursong 1 [llength $dolar$cursong]]$dolar$songurl <<<< " }
}}
if {($dolar$tellusers == 1) && ($dolar$streamstatus == "isonline: 1") && ($dolar$oldcurhigh != "curhigh: 0") } {
if {$dolar$oldcurhigh != $dolar$curhigh} {
poststuff privmsg "15,1 Yayinimizi dinleyen kisi sayisi : [lindex $dolar$curhigh 1]"
}
if {$dolar$oldcurlist != $dolar$repl} {
poststuff privmsg "7,1Suan yayinimizi dinleyen kisi sayisi 15,1 $dolar$repl "
}}
if {($dolar$tellsongs == 1) && ($dolar$oldsong != $dolar$cursong) && ($dolar$streamstatus == "isonline: 1") } {
if {$dolar$songurl != ""} { set songurl " ($dolar$songurl)"}
regsub -all "&#x3C;" $dolar$cursong "<" cursong
regsub -all "&#x3E;" $dolar$cursong ">" cursong
regsub -all "&#x26;" $dolar$cursong "+" cursong
regsub -all "&#x22;" $dolar$cursong "\"" cursong
regsub -all "&#x27;" $dolar$cursong "'" cursong
regsub -all "&#xFF;" $dolar$cursong "" cursong
poststuff privmsg "0,7Dj $dolar$stitle 0,4 Calan parca : 9,1 [lrange $dolar$cursong 1 [llength $dolar$cursong]]$dolar$songurl 0,4 Yayın türü <<<< 0,1 $dolar$sgenre 0,7 >>>> "
}

if {($dolar$tellbitrate == 1) && ($dolar$oldbitrate != $dolar$bitrate) && ($dolar$streamstatus == "isonline: 1") && ($dolar$oldbitrate != "bitrate: 0")} {
poststuff privmsg "bitrate switched to [lindex $dolar$bitrate 1]kbps"
}}}



bind pub - !istek istek

proc istek {n u h c a} {
  global gnick
   set gnick $dolar$n
        set kanal [lindex $dolar$a ]
   putserv "PRIVMSG #DJ 4İstek İsteyen 2$dolar$gnick4 İsteği:2 $dolar$kanal"
        putserv "PRIVMSG #Radyo : 4Isteginiz DJ'lerimize iletilmistir 2$dolar$gnick 5( $dolar$kanal ) "
}

proc join_greet {nick uhost handle channel} {
     putserv "NOTICE $dolar$nick : 0,12 Radyo  $SUNUCU-Fm'e hos geldiniz $dolar$nick! 9,1 Isteklerinizi Radyo kanalina 1,8 !istek <istediginiz sarki ve mesajiniz> 0,3 seklinde yazabilirsiniz. 0,5 Ornek: !istek Rafet El Roman - Seni Seviyorum - Tum Sevenlere gelsin.. "
     putserv "NOTICE $dolar$nick : 10Radyomuzu dinlemek icin tiklayin: 12http://$RADYOIP:$PORT/listen.pls"
   }

bind join - * join_greet
__EOF__

cd
cd eggdrop
./eggdrop -m radyo.conf
cd