<?php
/*
 * Foobar2000 WAP Remote Controller
 *
 *   Simppeli WAP käyttöliittymä foobar2000 :n HTTP Writer -pluginille,
 *   joka mahdollistaa foobar2000 :n hallitsemisen etänä HTTP-
 *   protokollan kautta.
 *
 *   Soitettavan kappaleen tietojen esitystapaa ei aseteta tässä
 *   skriptissä, vaan se tottelee HTTP Writer pluginin asetuksiin syötettyä
 *   muotoa.
 *   
 *
 * Tarvittavat palikat:
 *   - Foobar2000 <http://foobar2000.com/>
 *   - HTTP Writer <http://www.abo.fi/~ernylund/foobar/>
 *
 *
 * Copyright (c) 2004, Joona Kulmala <joona at fiveam dot org>
 *
 */


//
// Asetukset
//
 
$host = '';                    // HTTP Writer serverin osoite
$port = 4800;            // Serverin portti, oletus 4800
$passwd = '';            // Salasana, mikäli olet asettanut


$cmnds = array(
        'Random',
        'Previous',
        'Next',
        'Start',
        'Stop',
);
 


// Headerit kuntoon, tarjoillaan WML :aa HTML :n sijaan
header("Content-type: text/vnd.wap.wml");

// Validi WML maan perii
print "<?xml version=\"1.0\"?>\n<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\" \n\t\"http://www.wapforum.org/DTD/wml_1.1.xml\">\n";


// Aloitellaan (t)ulostusta
print "<wml>\n<card id=\"foobar2k\" title=\"Foobar2k\">\n<p>\n";

// Muodostetaan query-string
$query = ($passwd ? '?pwd=' . $passwd . '&' : '?') . ($_GET['cmd'] ? $query .= 'cmd=' . $_GET['cmd'] : "");

// Tarkistetaan, että serveriin saadaan yhteys, muuten lykätään ulospäin
// virheilmoitusta
if (@fsockopen($host, $port))
{
        // Yritetaan perustyperästi hakea kamaa file() funktiolla
        // HTTP Writer -serveriltä. Vaatii tietenkin php.ini :sta
        // URL-tuen fopen() funktiolle.
        $ret = file(sprintf("http://%s:%d/%s", $host, $port, $query));
       
        // Oletetaan, että serveri palauttaa ensimmäisellä rivillä
        // juuri pyörimässä olevan levyn.
       
        if ($ret[0])
                $np = $ret[0];
        else
                $np = 'Player stopped.';
       
       
        // Tulostetaan soimassa oleva levy.
        print $np . "<br /><br />\n\n";
       
       
        // Tulostellaan hallintanamiskat
        foreach ($cmnds as $c)
                printf("<a href=\"%s?cmd=Playback/%s\">- %s</a><br />\n", $_SERVER['PHP_SELF'], $c, $c);

}
else
{
        print "Yhteyttä palvelimeen ei voitu muodostaa.";
}

// Lopetetaan dokumentti
print "</p>\n</card>\n</wml>";
?>