<?php

$input_string = isset($_REQUEST) ? $_REQUEST : "";
$group = $input_string["group"];
$group = str_replace(" ", "\ ", $group);
$playlist = $input_string["playlist"];

function getListFromIRS() {
    global $input_string, $group, $playlist;

    if($input_string["wma"] == 0)
        $opt = "--no-wma";
    else
        $opt = "";

    $result = `/usr/bin/irs -g $group -p $playlist $opt`;
    return $result;
}

function saveCategoryList($result) {
    $filename = "/tmp/Radio_list.json";
    $handle = fopen($filename, "w");
    fwrite($handle, $result);
    fclose($handle);
}

function getListFromUrl() {
    $handle = fopen('http://www.technodragons.de/static/2012/tabbee/GetRadioList.php', 'r');
    $result = '';
    while (!feof($handle)) {
      $result .= fread($handle, 8192);
    }
    fclose($handle);
    return $result;
}

// from http://www.php.net/manual/en/function.json-decode.php#105259
function jsonDecode($json) {
    $json = str_replace(array("\\\\", "\\\""), array("&#92;", "&#34;"), $json);
    $parts = preg_split("@(\"[^\"]*\")|([\[\]\{\},:])|\s@is", $json, -1, PREG_SPLIT_NO_EMPTY | PREG_SPLIT_DELIM_CAPTURE);
    foreach ($parts as $index => $part) {
        if (strlen($part) == 1) {
            switch ($part) {
				case "[":
				case "{":
					$parts[$index] = "array(";
					break;
				case "]":
				case "}":
					$parts[$index] = ")";
					break;
				case ":":
					$parts[$index] = "=>";
					break;   
				case ",":
					break;
				default:
					return null;
			}
		} else {
			if ((substr($part, 0, 1) != '"') || (substr($part, -1, 1) != '"')) {
                $parts[$index] = '"' . $part . '"';
			}
		}
	}
	$json = str_replace(array("&#92;", "&#34;", "$"), array("\\\\", "\\\"", "\\$"), implode("", $parts));
	return eval("return $json;");
} 

function writePlaylist($jsondata, $group) {
    $playlist_file = "/tmp/Radio_list_" . $group . ".m3u";
    $playlist = jsonDecode($jsondata);

    $p = fopen($playlist_file, 'w');
    fwrite($p, "#EXTM3U\n", 8);
    if ($playlist) {      
	    foreach ($playlist as $entry) {
	        $line  = "#EXTINF:-1,".$entry['name']."\n" .$entry['url']."\n";
	        fwrite($p, $line);
	    }
    } else {
    	fwrite($p, "# empty");
    }

    fclose($p);   
}

if ($group == "dragon") {
    $result = getListFromUrl();
    writePlaylist($result, $group);
} else {
    $result = getListFromIRS();
    // set this to "true" if you want to store the retrieved list (backup purpose)
    // note: this stores a single list, repeat this for every list on the server
    if (false) {
        saveCategoryList($result);
    }
}

if (strpos($result, "FAILED") !== false)
    header("HTTP/1.0 500 IRS_FAILED\n");
else
    header("HTTP/1.0 202 ACCEPTED\n");

echo $result;

?>