Radyo Botu Sorunu (Socket)
Merhaba arkadaslar socket radyo botu yaptim fakat sarki ismi degisince kanal'a yansitmiyor.
/radyodurum yapinca yansitiyor.
%songtitle degisince otomatik kanal'a yansitmasini istiyorum beceremedim yardim ederseniz cok sevindirik olacam. :)
Kod:
on 1:SOCKOPEN:$($scast.socket): {
if ($sockerr) { unset %durum }
sockwrite -n $sockname GET $+(/admin.cgi?pass=,$radio.pass,&mode=viewxml HTTP/1.1)
sockwrite -n $sockname Host: $+($radio.link, :, $radio.port)
sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8
sockwrite -n $sockname *.*, */*
sockwrite -n $sockname Accept-Language: en-us,en;q=0.5
sockwrite -n $sockname Accept-Language: tr,tr;q=0.5
sockwrite -n $sockname Accept-Encoding: gzip,deflate
sockwrite -n $sockname Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
sockwrite -n $sockname Keep-Alive: 300
sockwrite -n $sockname Connection: keep-alive
sockwrite -n $sockname $crlf
}
on 1:SOCKREAD:$($scast.socket): {
var %data
sockread -f %data
while $sockbr > 0 && $sockerr == 0 {
if ($getxmltext(SERVERTITLE, %data) != $null) {
set %servertitle $replace($ifmatch,',',&,&,ç,ç,ð,ğ,ý,ı,Ý,İ,ö,ö,þ,ş,Ç,Ç,Ð,Ğ,Ö,Ö,Þ,Ş)
}
if ($getxmltext(SONGTITLE, %data) != $null) {
set %songtitle $replace($ifmatch,',',&,&,ç,ç,ð,ğ,ý,ı,Ý,İ,ö,ö,þ,ş,Ç,Ç,Ð,Ğ,Ö,Ö,Þ,Ş)
}
if ($getxmltext(CURRENTLISTENERS, %data) != $null) {
set %currentlisteners $ifmatch
}
if ($getxmltext(STREAMHITS, %data) != $null) {
set %streamhits $ifmatch
}
if ($getxmltext(STREAMSTATUS, %data) != $null) {
if ($remove($ifmatch,ÿ,&) iswm 1) {
unset %durum
}
}
if ($getxmltext(STREAMSTATUS, %data) != $null) {
if ($remove($ifmatch,ÿ,&) iswm 0) {
set %durum Kapali
}
}
sockread -f %data
}
}
off 1:SOCKCLOSE:$($scast.socket): { . }
alias radyo.durum {
.timerreplaydurum 0 30 .radyo.durum
if $sock($scast.socket) {
sockclose $ifmatch
}
sockopen $scast.socket $radio.link $radio.port
}
alias scast.socket {
return radyokontrol
}
alias getxmltext {
var %tag.open = $+(<, $1, >)
var %tag.close = $+(</, $1, >)
if $pos($2-,%tag.open) {
var %start = $ifmatch + $len(%tag.open)
var %length = $calc($pos($2-, %tag.close) - %start)
return $mid($2-, %start, %length)
}
return $null
}
alias radyodurum {
if (%durum) {
sw radyobot notice $radio.chan :0,10 $radio.name $+ 'de su anda yayinda kimse bulunmamaktadir.
sw radyobot privmsg ChanServ :topic $radio.chan 0,10 $radio.name $+ 'de su anda yayinda kimse bulunmamaktadir.
}
if (!%durum) {
sw radyobot notice $radio.chan :
sw radyobot notice $radio.chan :1,10 $radio.name $+ 0,10'de su anda yayinda1,10 %servertitle 0,10bulunmaktadir.
;sw radyobot notice $radio.chan :
sw radyobot notice $radio.chan :0,10 Calan parca:1,10 %songtitle
;sw radyobot notice $radio.chan :
sw radyobot notice $radio.chan :1,10 $radio.name $+ 0,10'i su anda1,10 %currentlisteners 0,10kisi dinliyor. 1,10(Dinlenme rekoru: %streamhits $+ )
;sw radyobot notice $radio.chan :
sw radyobot notice $radio.chan :0,10 Radyo yayinimizi winamp ile dinlemek icin:1,10 http:// $+ $radio.link $+ : $+ $radio.port $+ /listen.pls 0,10adresine tiklayiniz...
sw radyobot notice $radio.chan :
sw radyobot privmsg ChanServ :topic $radio.chan 1,10 $radio.name $+ 0,10'de su anda yayinda1,10 %servertitle 0,10bulunmaktadir. Siradaki parca:1,10 %songtitle
}
}
|
