#!/usr/bin/perl
$dir = "/media/disc/Audio/Smarthome/Concats";
$byTime = "true";

sub println{
	my $str = shift;
	print $str ."\n";
}

	printAndDie("Directory $dir not found: $!") if(!-e $dir);
	opendir(D, $dir);
	@entries = readdir(D);
	closedir(D);
	foreach my $entry(@entries){
		next if($entry eq "." or $entry eq ".." or $entry=~/^\./);
		$isdir = 0; $isfile = 0;
		$isdir = 1 if(-d "$dir/$entry");
		$isfile = 1 if(-f "$dir/$entry");
#		my $target = resolveLink("$dir/$entry");
		if($target){
			$isdir = 1 if(-d $target);
			$isfile = 1 if(-f $target);
		}
#		next if($isfile and ($entry=~/\.txt$/i or $entry=~/\.sh$/i or $entry=~/\.pl$/i or $entry=~/\.out$/i or $entry=~/\.ini$/i or $entry=~/\.dur$/i));
		push(@files, $entry) if($isfile);
		push(@dirs, $entry) if($isdir);
	}
	if($byTime eq "true"){
#		use File::stat;
		@sorted = ();
		foreach my $file(@files){
			$mtime = (stat($file))[9];
println("- $file: $mtime");
			push(@sorted, $mtime ."%%". $file);
		}
#		@files = @sorted;
		@sorted = sort(@sorted);
		@files = ();
		for(my $f=0;$f<$#sorted+1;$f++){
			my ($date, $file) = split(/%%/, $sorted[$f]);
			push(@files, $file);
		}
	}
	else{
		@files = sort(@files);
	}
println(join("\n", @files));