marcel_notbohm
Grünschnabel
Das wäre cool wenn du mir bei dem Script helfen könntest
Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
GET / HTTP/1.0
User-Agent:SHOUTcast PHP Proxy 0.1
icy-metadata:1
StreamTitle='(.*?)';
#!/usr/bin/perl -w
use IO::Socket;
my $socket = IO::Socket::INET->new(
PeerAddr => '205.188.245.131',
PeerPort => 8004,
Type => SOCK_STREAM,
Proto => 'tcp',
) || die "Error Socketopen: $!";
print $socket "GET / HTTP/1.0\nUser-Agent:Perl_ShoutCAST_Parser\nicy-metadata:1\n\n";
print "Opened Connection to ShoutCAST-Server...\n";
while($socket->recv($buf, 4096)) {
# StreamTitle='Gatecrasher Resident Transmission 02 - CD2 mixed by Matt Hardwick';
if($buf =~ /.*StreamTitle='(.*?)';.*/gi) {
print "Found $1\n";
}
}
close($socket);
<?php
$stream_ip = "http://sb.mthn.net";
$stream_port = "8000";
$fp = fsockopen($stream_ip, $stream_port, &$errno, &$errstr, 30);
if ($fp) {
fputs($fp, "GET / HTTP/1.0\r\n\r\n");
fputs($fp, "User-Agent: SHOUTcast PHP Proxy 10.1\r\n\r\n");
fputs($fp, "icy-metadata:1\r\n\r\n");
while(!feof($fp)) {
echo fgets($fp,128) . "\n";
}
} else {
echo "Cannot open stream. ($errstr)";
exit;
}
?>
http://host:port/admin.cgi?pass=yourpass&mode=viewxml&page=0