#!/usr/bin/php -q

<?

// system("mount /mnt/cdrom");


function src2dest($path)
// zameni v ceste src adresar za dest
{
	global $src, $dest;
	return( "$dest".substr($path, strlen($src)) );
}

// ------------------------------------------------------------------- //

function mk_copy($srcpath)
// zkopiruje cely soubor
{
	$destpath = src2dest($srcpath);
	echo "	kopiruji: ".basename($srcpath)."\n";
	system("cp \"$srcpath\" \"$destpath\"");
}

function mk_sample_mp3($srcpath)
// vyrobi ukazku ve tvaru "track.mp3.ogg"
{
	global $audio_sample_length;
	global $audio_sample_skip;
	$skip 		= $audio_sample_skip * 40;
	$frames 		= $audio_sample_length * 40;
	$destpath 	= src2dest($srcpath) . ".ogg";
	echo "	ukazka mp3: ".basename($srcpath)."\n";
	system("mpg123 --quiet --skip $skip --frames $frames --4to1 --singlemix --8bit --stdout ".escapeshellarg($srcpath)." | oggenc --quiet --raw --raw-bits=8 --raw-rate=11000 --raw-chan=1 --quality -1 -o ".escapeshellarg($destpath)." -");
}

function mk_sample_ogg($srcpath)
// vyrobi ukazku ve tvaru "track.ogg"
{
	global $audio_sample_length;
	global $audio_sample_skip;
	$destpath = src2dest($srcpath);
	echo "	ukazka ogg: ".basename($srcpath)."\n";
	system("sox -t ogg /dev/stdin -t raw -r 11000 -c 1 -b -u  /dev/stdout trim $audio_sample_skip $audio_sample_length < ".escapeshellarg($srcpath)." | oggenc --quiet --raw --raw-bits=8 --raw-rate=11000 --raw-chan=1 --quality -1 -o ".escapeshellarg($destpath)." -");
}

function mk_sample_wav($srcpath)
// vyrobi ukazku ve tvaru "track.wav.ogg"
{
	global $audio_sample_length;
	global $audio_sample_skip;
	$destpath = src2dest($srcpath) . ".ogg";
	echo "	ukazka wav: ".basename($srcpath)."\n";
	system("sox -t wav /dev/stdin -t raw -r 11000 -c 1 -b -u  /dev/stdout trim $audio_sample_skip $audio_sample_length < ".escapeshellarg($srcpath)." | oggenc --quiet --raw --raw-bits=8 --raw-rate=11000 --raw-chan=1 --quality -1 -o ".escapeshellarg($destpath)." -");
}

function mk_empty_file($srcpath)
// vyrobi prazdny soubor
{
	$destpath = src2dest($srcpath);
	echo "	prazdny soubor: ".basename($srcpath)."\n";
	system("> ".escapeshellarg("$destpath"));
}

// ------------------------------------------------------------------- //

function listdir_dir($srcpath)
// vytvari v adresari dest adresarovou strukturu src
{
	$destpath = src2dest($srcpath);
	echo("\nmkdir: $destpath\n");
	system("mkdir -p \"$destpath\"");
}

function listdir_file($srcpath)
{
	if (preg_match("'.mp3$'i", $srcpath))
		mk_sample_mp3($srcpath);
	else if (preg_match("'.m3u$'i", $srcpath))
		mk_copy($srcpath);
	else if (preg_match("'.ogg$'i", $srcpath))
		mk_sample_ogg($srcpath);
	else if (preg_match("'.wav$'i", $srcpath))
		mk_sample_wav($srcpath);
	else if (preg_match("'TRANS.TBL'i", $srcpath)) ; // tyto nezaznamena
	else
		mk_empty_file($srcpath);
}

function listdir($dirname)
// provadi rekurzni prolezani src adresare a jeho podadresaru
{
	$handle = opendir($dirname);
	while ($item = readdir($handle))
	{
		if ($item=='.' || $item=='..') continue;
		$srcpath = "$dirname/$item";
		if (is_dir($srcpath)) {
			listdir_dir($srcpath); // zpracujeme adresar
			listdir($srcpath);
		} else {
			listdir_file($srcpath); // zpracujeme soubor
		}
	}
	closedir($handle);
}

// --------------------------  MAIN  --------------------------------- //

$audio_sample_skip = 60; // audio sample skip - audio ukazka zacina na 60 sekunde
$audio_sample_length = 20; // audio sample length - delka audio ukazky v sekundach


$src = readline("Cist z adresare [/mnt/cdrom]: ");
if (!$src) $src = "/mnt/cdrom";

// vylistovani
echo("\nTakto to tam vypada...");
system("ls -a $src");
echo("\n");

$dest = readline("Vytvorit obraz vyse vylistovaneho v adresari [soucasnem]: ");
if (!$dest) $dest = ".";
mkdir($dest); //pro pripad, ze by neexistoval

listdir($src);

//system("umount /mnt/cdrom");

?>