#!/usr/bin/perl -T

use Benchmark;
my $t0 = Benchmark->new;

use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser);
use utf8;
use open qw/:std :utf8/;
use encoding 'utf8';
use FileHandle;

my $search_dir = "/media/MediaLibrary/Audio";
my $database = "/var/www/testDB.dat";

print "Content-type: text/html; charset=utf-8\n\n";

my @mp3s = &GetTheFiles( $search_dir );

my $t1 = Benchmark->new;
my $td = timediff($t1, $t0);
my $benchmarktime = timestr($td);
print "<br/>\n<br/>\n".$benchmarktime;

sub GetTheFiles {
my @dirs = @_;
my (@allfiles, @files) = ();
my ($currdir, $file) = "";

        while (@dirs != 0) {
        $currdir = pop( @dirs );
        opendir( ENTRIES, "$currdir/" );
        @allfiles = readdir( ENTRIES );
        closedir( ENTRIES );

                for $file (@allfiles) {

                        if (-d "$currdir/$file") {
                        push( @dirs, "$currdir/$file" ) if (($file ne ".") && ($file ne ".."));
                        }

                        else {
                        my $entry = "$currdir/$file";
                        utf8::encode($entry);

                        print $entry."<br/>\n";

                        my $fh = FileHandle->new('>>' . $database) || die "Could not open $database - $_";
                        print $fh "$entry\n";
                        $fh->close || die "Could not close $database - $_";
                        }
                }
}
return 0;
}

# EOF

/media/MediaLibrary/Audio/Bj�rk<br/> 
/media/MediaLibrary/Audio/Die �rzte<br/> 
/media/MediaLibrary/Audio/D�sert Blues<br/> 
/media/MediaLibrary/Audio/Herbert Gr�nemeyer<br/> 
/media/MediaLibrary/Audio/H�rspiele<br/> 
/media/MediaLibrary/Audio/Schr�ders<br/> 
<br/> 
<br/> 
7 wallclock secs ( 0.70 usr +  0.90 sys =  1.60 CPU)

/media/MediaLibrary/Audio/Bj�rk
/media/MediaLibrary/Audio/Die �rzte
/media/MediaLibrary/Audio/D�sert Blues
/media/MediaLibrary/Audio/Herbert Gr�nemeyer
/media/MediaLibrary/Audio/H�rspiele
/media/MediaLibrary/Audio/Schr�ders