ÿþ < ? p h p
$ f p = @ f s o c k o p e n ( " s e r v e u r 2 . w a n a s t r e a m . c o m " , " 3 0 9 0 0 " , & $ e r r n o , & $ e r r s t r , 3 0 ) ;
i f ( ! $ f p ) {
$ s t a t = " d o w n " ;
} e l s e {
$ s t a t = " o n a i r " ;
}
i f ( $ s t a t ! = " d o w n " ) {
f p u t s ( $ f p , " G E T / 7 . h t m l H T T P / 1 . 0 \ r \ n U s e r - A g e n t : P o P o R a d i o S c r i p t ( M o z i l l a C o m p a t i b l e ) \ r \ n \ r \ n " ) ;
w h i l e ( ! f e o f ( $ f p ) ) {
$ d o n n e s . = f g e t s ( $ f p , 1 0 0 0 ) ;
}
f c l o s e ( $ f p ) ;
$ d o n n e s = e r e g _ r e p l a c e ( " < b o d y > " , " " , $ d o n n e s ) ;
$ d o n n e s = e r e g _ r e p l a c e ( " < / b o d y > . * " , " , " , $ d o n n e s ) ;
$ v i r g u l = e x p l o d e ( " , " , $ d o n n e s ) ;
$ s e r v s t a t = $ v i r g u l [ 0 ] ;
$ s t a t u s = $ v i r g u l [ 1 ] ;
i f ( $ s t a t u s = = " 0 " ) {
$ s t a t u s _ = " o f f " ;
e c h o " s t a t u s o f f < b r > \ n " ;
} e l s e {
$ s t a t u s _ = " o n " ;
$ m a x a u d i t e u r s = $ v i r g u l [ 3 ] ;
$ a u d i t e u r s = $ v i r g u l [ 4 ] ;
$ b i t r a t e = $ v i r g u l [ 5 ] ;
$ t i t r e = $ v i r g u l [ 6 ] ;
}
}
$ t i t r e _ = c h o p ( $ t i t r e ) ;
$ i n f o s = e x p l o d e ( " - " , $ t i t r e _ ) ;
/ / e c h o " I n f o s : $ i n f o s < b r > \ n " ;
$ a r t i s t e = c h o p ( $ i n f o s [ 0 ] ) ;
$ a r t i s t e = e r e g _ r e p l a c e ( " " , " & n b s p ; " , $ a r t i s t e ) ;
e c h o " $ a r t i s t e " ;
$ t i t r e = c h o p ( $ i n f o s [ 1 ] ) ;
$ t i t r e = l t r i m ( $ t i t r e ) ;
$ t i t r e = e r e g _ r e p l a c e ( " " , " & n b s p ; " , $ t i t r e ) ;
e c h o " - $ t i t r e " ;
? >