Plik staty.php
<?
$sc[czas] = 180;
$sc[host] = "ip.ip.ip.ip";
$sc[port] = port;
$sc[template] = "<b> [genre]</b>";
$sc[template3] = "<b> [dj]</b>";
$sc[template2] = "<b> [ile]</b>";
?>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">
<META HTTP-EQUIV="Refresh" CONTENT="<?=$sc[czas]?>; URL="">
</head>
<body>
<font color="black" face="arail" size="2">
<?
{
fputs($fp,"GET /index.html HTTP/1.0rnUser-Agent: XML Getter (Mozilla Compatible)rnrn"); fgets($fp);fgets
($fp);fgets
($fp); # echo $in;
// [status]
$m[0]="Server is currently";
$m[1]="";
if( $tmp[1][0] == "up" )
$dat[status] = "on";
elseif( $tmp[1][0] == "down" )
$dat[status] = "off";
else
$dat[status] = "err";
if($dat[status]=="on")
{
// [dj]
$m[0]="Stream Title:";
$m[1]="Content Type:";
$tmp[1
]=trim( substr( $in , $mp[0
] + $ml[0
] , $mp[1
]-$mp[0
]-$ml[1
] ) );
if( $tmp[1] ) $dat[dj] = $tmp[1];
else $dat[dj] = "err";
// [gg]
$m[0]="Stream AIM:";
$m[1]="Stream IRC:";
$tmp[1
]=trim( substr( $in , $mp[0
] + $ml[0
] , $mp[1
]-$mp[0
]-$ml[1
] ) );
if( $tmp[1] ) $dat[gg] = $tmp[1];
else $dat[gg] = "err";
// [genre]
$m[0]="Stream Genre:";
$m[1]="Stream URL:";
$tmp[1
]=trim( substr( $in , $mp[0
] + $ml[0
] , $mp[1
]-$mp[0
]-$ml[1
]-2
) );
if( $tmp[1] ) $dat[genre] = $tmp[1];
else $dat[genre] = "err";
// [ile]
$m[0]="kbps with";
$m[1]="listeners";
$tmp[1
]=explode( " " , trim( substr( $in , $mp[0
] + $ml[0
] , $mp[1
]-$mp[0
]-$ml[1
]-2
) ) );
if( $tmp[1] ) $dat[ile] = $tmp[1][0];
else $dat[ile] = "err";
// [max]
$m[0]="kbps with";
$m[1]="listeners";
$tmp[1
]=explode( " " , trim( substr( $in , $mp[0
] + $ml[0
] , $mp[1
]-$mp[0
]-$ml[1
]-2
) ) );
if( $tmp[1
] ) $dat[max] = $tmp[1
][2
];
// [peak]
$m[0]="Listener Peak:";
$m[1]="Average";
$tmp[1
]=trim( substr( $in , $mp[0
] + $ml[0
] , $mp[1
]-$mp[0
]-$ml[1
]-7
) );
if( $tmp[1] ) $dat[peak] = $tmp[1];
else $dat[peak] = "err";
}
}
else
{
$dat[status]="err";
}
$co = array('[status]','[dj]','[gg]','[genre]','[ile]','[max]','[peak]'); $naco = array($dat[status
],$dat[dj
],$dat[gg
],$dat[genre
],$dat[ile
],$dat[max],$dat[peak
]); $sc[template2
] = str_replace($co,$naco,$sc[template2
]); $sc[template3
] = str_replace($co,$naco,$sc[template3
]);
?>
a na www
includ pliku np staty.php