<?php

# PrivateRadio script to control winamp via php
# see http://www.privateradio.org/blog/prirad/index.php
# this script should be started via winamp.cmd, also in this bin folder
#
# requirements
# -------------------------------------
# 1 winamp version 2 or 5
# 2 httpq winamp plugin  get here: http://www.kostaa.com/winamp/
#
#
# ok let's go

print "greetings, this is pr-play-winamp.php\n";

# don't ever stop
set_time_limit(0);

# turn off output buffering
ini_set("output_buffering",0);

# set a sensible timout default 
ini_set("default_socket_timeout","8");

# pathing
if (substr(PHP_OS,0,3)=='WIN' )  {ini_set("include_path", ".;../inc"); } else { ini_set("include_path", ".:../inc"); } 

# load the shared libraries
#require("dbconfig.php");
#require("prlibs.php");

# setup httpq
$HTTPQ['url']='http://localhost:4800';
$HTTPQ['password']='pass';
$TMP='c:/tmp/t.m3u';  # flavor to taste


sleep(3); //a little time

# are we good?  check version
$ver=winamp_version();

if ($ver) { print "Connected to winamp version $ver via httpq\n"; } 
	else { print "can't connect or load winamp"; die;}

$channel='201';  # hardcoded to channel 201 for now

$host=$_SERVER["COMPUTERNAME"];
if (!$host) $host=$_SERVER["HOSTNAME"];

# tell system what we are up to
$q="update channels set host='$host',playerbin='winamp' where id='$channel'";
$r=mysql_query($q);


while (true) {
print "Firing up $channel\n";

# load the configuration, inside the loop cause it be changin sometimes. ..
$CONFIG=load_config();

# check in to health 
SetStatus("pr-play","running");


# get a song
$RS=go_queue_next($channel,'LEAVE');

if ( substr(PHP_OS,0,3)=='WIN' ) {
$RS['resource']=preg_replace("|/|","\\",$RS['resource']);	
}


if (!$RS['resource']) {
print "Couldn't get a song from queue, sleeping 20 secs . .\n";
SetStatus("pr-play","waiting");
sleep(20);	
} else {

$songid=$RS['songid'];
$knum=$SONGS[$songid];
print "Got ".$RS['songid'].' - '.$RS['resource']."\n";
sleep($CONFIG->playgap);
SetStatus("pr-play","running");
$res=winamp_play($RS['resource']);

# initially give a little more time
sleep(3);
# wait for isplaying=false
while(true) {
sleep(1);
$playing=1;
# are we still playing?
$playing=winamp_isplaying($f);
if ($playing<>1) break;
print "checking status of playing = $playing\n";
}


}

}


function winamp_play($f) {
global $TMP,$HTTPQ;
$z='';
$m3u=$TMP;
@unlink($m3u);
$fp=fopen($m3u,'w');
fwrite($fp,"$f\n");
fclose($fp);

$url=$HTTPQ['url'];
$pass=$HTTPQ['password'];
$m3u=$TMP;


# set repeat status off
$g=fopen("$url/repeat?p=$pass&a=0",'r');
if ($g) {
fclose($g);
}


# stop it just in case
$g=fopen("$url/stop?p=$pass",'r');
if ($g) {
fclose($g);
}


# clear playlist
$g=fopen("$url/delete?p=$pass",'r');
if ($g) {
fclose($g);
}

# load song
$g=fopen("$url/playfile?p=$pass&a=$m3u",'r');
if ($g) {
fclose($g);
}
# play song
$g=fopen("$url/play?p=$pass",'r');
if ($g) {
fclose($g);
}

	
return $z;
}


function winamp_isplaying() {
global $TMP,$HTTPQ;
$z=1;
$url=$HTTPQ['url'];
$pass=$HTTPQ['password'];
$g=fopen("$url/isplaying?p=$pass",'r');
if ($g) {
$z=fread($g,8000);
fclose($g);
}
	
return $z;
}


function winamp_version() {
global $TMP,$HTTPQ;
$z='';	
$url=$HTTPQ['url'];
$pass=$HTTPQ['password'];
$g=fopen("$url/getversion?p=$pass",'r');
if ($g) {
$z=fread($g,8000);
fclose($g);
}


return $z;
	
}


?>