Streaminfo
Warum geht hier garnichts? Kann mir das vielleicht wer verbessern oda so ?
mfg & thx
aCiD
Warum geht hier garnichts? Kann mir das vielleicht wer verbessern oda so ?
Code:
on 1:SOCKOPEN:shoutcast: {
sockwrite -n $sockname GET / HTTP/1.1
sockwrite -n $sockname Host: %ip
sockwrite -n $sockname $crlf
}
on *:SOCKREAD:shoutcast: {
sockread %temp
if (%got.news == $null) {
if (Stream Status: isin %temp) {
set %newspost %temp
update_news
set -u5 %got.news 1
}
}
else { halt }
}
alias update_news {
set %news $gettok(%newspost,2,62)
set %news $left(%news,$calc($len(%news) - 3)))
set %news $replace(%news,ü,ü,Ü,Ü,ö,ö,Ö,Ö,ä,ä,Ä,Ä,ß,ß)
if (%old.news != %news) { set %old.news %news | msg #rebel.radio Stream Status: -> %old.news | unset %news | unset %newspost | unset %temp }
else {
unset %newspost
unset %news
unset %temp
unset %got.news
}
}
mfg & thx
aCiD