#!/usr/bin/php
<?php
/******************* Define some global classes and variables ********************/
class ftypeclass{
	public $extension, $player;
}
class songclass{
	public $artist = "Unknown";
	public $path = NULL;
	public $filename = NULL;
	public $style = NULL;
	public $album = NULL;
	public $player = NULL;
}
define("_PM_SINGLE", 0);
define("_PM_ALBUM", 1);
$filepath = "/pub/music";
$playmode = _PM_SINGLE;
$do_volume = FALSE;

/**************************** Begin the main routine **********************************/
build_ftype_list();
process_arguments();
build_songlist();

/**** Play some music. ****/
if($do_volume == TRUE){
	/** open a separate thread for slowly increasing the volume ***/
	$pid = pcntl_fork();
	if($pid == -1){
		echo "Unable to run multiple threads\n";
	}else if($pid){ // This is the parent thread 
		play_music();
		pcntl_wait($status);
	}else{
		change_volume(0, 60, 2);
	}
}else{
	play_music();
}
/************************** functions definitions begin here ***************************/
function play_music(){
	global $playmode, $numfiles, $data, $album, $numalbums;
	$lastsongnumber = -1;
	$lastalbumnumber = -1;

	if($playmode == _PM_ALBUM){
		while(1){
			do{
				$albumnumber = rand() % $numalbums;
			}while($albumnumber == $lastalbumnumber && $numalbums > 1);
			$lastalbumnumber = $albumnumber;
			echo "Playing all songs in ".$album[$albumnumber].":\n";

			for($songnumber = 0; $songnumber < $numfiles; $songnumber++){
				if($data[$songnumber]->path == $album[$albumnumber] && $data[$songnumber]->player != NULL){
					$command = $data[$songnumber]->player." ";
					$command .= $data[$songnumber]->path;
					$command .= $data[$songnumber]->filename;
					$command .= " 2> /dev/null > /dev/null";
					echo "Now Playing: ".$data[$songnumber]->filename."\n";
					exec($command);
				}
			}
		}
	}else{ /** Default to playing random songs **/
		while(1){
			do{
				$songnumber = rand() % $numfiles;
			}while($songnumber == $lastsongnumber && $numfiles > 1);
			$lastsongnumber = $songnumber;

			if($data[$songnumber]->player != NULL){
				$command = $data[$songnumber]->player." ";
				$command .= $data[$songnumber]->path;
				$command .= $data[$songnumber]->filename;
				echo "Playing ".$data[$songnumber]->path.$data[$songnumber]->filename."\n";
				$command .= " 2> /dev/null > /dev/null";
				exec($command);
			}
		}
	}

}

function set_volume($vol){
	$command = "aumix -v ".$vol;
	exec($command);
}

function change_volume($min, $max, $speed){
	for($n = $min; $n < $max; $n += $speed){
		set_volume($n);
		sleep(1);
	}
}

function build_songlist(){
	global $data, $filepath, $numfiles, $album, $numalbums;
	global $filetype, $numfiletypes;

	/** Build the awk command that gives us our list of files **/
	$command = "find ".$filepath."/* | sort | awk '{FS=\"/\";} /";
	for($n = 0; $n < $numfiletypes; $n++){
		if($n > 0) $command .= "|";
		$command .= "(\\.".$filetype[$n]->extension."$)";
	}
	$command .= "/ {printf(\"\\\"%s\\\"\\t\", $(NF - 1));";
	$command .= "for(n = 2; n < NF; n++){ printf(\"/\\\"%s\\\"\", $";
	$command .= "n); }";
	$command .= "printf(\"/\\t\\\"%s\\\"\\n\", $";
	$command .= "NF);};'";

	$raw_data = shell_exec($command);

	/** We now have a list of all the musical files and paths.
	Now break them up into more manipulable data. **/
	$lines = preg_split("/\n/", $raw_data);
	$numfiles = 0;
	for($n = 0; $n < sizeof($lines); $n++){
		$record = preg_split("/\t/", $lines[$n]);
		$data[$n] = new songclass;
		if(sizeof($record) == 3){
			$numfiles++;
			$data[$n]->artist = $record[0];
			$data[$n]->path = $record[1];
			$data[$n]->filename = $record[2];

			for($m = 0; $m < $numfiletypes; $m++){
				if(preg_match("/\.".$filetype[$m]->extension."/i", $data[$n]->filename)){
					$data[$n]->player = $filetype[$m]->player;
					break;
				}
			}

			if($m >= $numfiletypes){
				$data[$n]->player = NULL;
				fprintf($stderr, "Unknown file extension on file: ".$data[$n]->path.$data[$n]->filename."\n");
			}
		}
	}

	/** We now have all available music stored in our list.  Now
	find out how many albums we have, and make a list of them **/
	$numalbums = 0;
	for($n = 0; $n < $numfiles; $n++){
		for($m = 0; $m < $numalbums && $album[$m] != $data[$n]->path; $m++);

		if($m >= $numalbums){
			$album[$numalbums] = $data[$n]->path;
			$numalbums++;
		}
	}
}

function process_arguments(){
	global $argv, $argc, $do_volume, $playmode, $filepath;
	$error = 0;

	for($n = 1; $n < $argc; $n++){
		$handled = 1;
		switch($argv[$n]){
			case "-v": case "--volume": $do_volume = TRUE; break;
			case "--novolume": $do_volume = FALSE; break;
			case "-a": case "--album": $playmode = _PM_ALBUM; break;
			case "-s": case "--single": $playmode = _PM_SINGLE; break;
			case "-p": case "--path":
				if($argc > $n + 1){
					$filepath = "\"";
					do{
						$repeatit = 0;
						$filepath .= $argv[$n + 1];
						if($filepath[strlen($filepath) - 1] == "\\"){
							$filepath .= "\"/\"";
							$repeatit = 1;
							$n++;
						}
					}while($repeatit);
					$filepath .= "\"";
					echo $filepath."\n";
				}else{
					// should return an error here.
				}
				break;
			default: $handled = 0;
		}

		if(!$handled){
			$handled = 1;
			if($argv[$n][0] == '-'){ /** it's another -something flag **/
				for($m = 0; $m < strlen($argv[$n]); $m++){
					switch($argv[$n][$m]){
						case "a": $playmode = _PM_ALBUM; break;
						case "s": $playmode = _PM_SINGLE; break;
						case "v": $do_volume = TRUE; break;
						default: $handled = 0;
					}
				}
			}else{ /** another kind of argument, perhaps a playlist **/

			}
		}

		if(!$handled){
			fprintf(STDERR, "Invalid argument: %s", $argv[$n]);
			$error = 1;
		}
	}

	if($error) exit;
}

function build_ftype_list(){
	global $filetype, $numfiletypes;

	$numfiletypes = 0;

	$filetype[0] = new ftypeclass;
	$filetype[0]->extension = "mp3";
	$filetype[0]->player = "mplayer";
	$numfiletypes++;

	$filetype[1] = new ftypeclass;
	$filetype[1]->extension = "ogg";
	$filetype[1]->player = "ogg123";
	$numfiletypes++;
}

?>