alias djoku {
sockopen oku server port
}
on 1:sockopen:oku:{
sockwrite -n oku GET / HTTP/1.0
sockwrite -n oku $crlf
}
on 1:sockread:oku:{
sockread %cry
if ( icy-name: isin %cry ) { set %name $remove(%cry,icy-name:) }
if ( icy-genre: isin %cry ) { set %genre $remove(%cry,icy-genre:) }
if ( icy-url: isin %cry ) { set %url $remove(%cry,icy-url:) }
if ( icy-br: isin %cry ) {
set %bitrate $remove(%cry,icy-br:)
sockclose oku | patlat
}
}
alias patlat {
echo -a Radyo Adı : %name
echo -a Calan : %genre
echo -a Radyo Url : %url
echo -a Bitrate : %bitrate
}
Konu SeeYouCry tarafından (19 Kasım 2005 Saat 18:20 ) değiştirilmiştir.
|