#!/usr/bin/perl -wT

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

use strict;
use warnings;
use diagnostics;
use CGI::Carp qw(fatalsToBrowser);
open STDERR, '>>', "/var/www/STDERR.txt" || die "Can't redirect STDERR: $!";
use utf8;
use Encode;
use Encode::Detect::Detector;
use FileHandle;
use MP3::Tag;

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

# Codepages die beim Konvertieren zu lupenreinem utf8 Ärger machen
my @TroubleMakers = ('EUC-', 'UTF-8', 'cyrillic');



print "Content-type: text/html; charset=utf-8\n\n";
print "<h1>Welcome to my little test script.</h1>\n";

my $counter = 0;

unlink($database) || print "<b>Database did not exists.</b><br/>\n";
my $fh = FileHandle->new('>>' . $database) || die "Could not open $database - $_";
my @mp3s = &CreateDB( $search_dir );
$fh->close || die "Could not close $database - $_";

print "<b>total number of mp3s: $counter</b><br/>\n";

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



sub CreateDB {

my @dirs = @_;
my (@allfiles, @files) = ();
my ($currdir, $filename) = "";

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

                for $filename (@allfiles) {

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

                        else {
                        my $file = "$currdir/$filename";

                        my (undef,undef,$SourceExt) = &SeperatePathFileExt($file);

                                if (($SourceExt eq "mp3") && ($file !~ /\.AppleDouble/)) {

                                my %MetaData = ();
                                my $mp3 = MP3::Tag->new( $file );
                                ($MetaData{title}, $MetaData{track}, $MetaData{artist}, $MetaData{album}, $MetaData{comment}, $MetaData{year}, $MetaData{genre}) = $mp3->autoinfo();

                                for my $key (keys %MetaData) { $MetaData{$key} = &CheckAndConvertUTF8($MetaData{$key}); }

                                my $string = "$file|$MetaData{title}|$MetaData{track}|$MetaData{artist}|$MetaData{album}|$MetaData{comment}|$MetaData{year}|$MetaData{genre}";

                                print "$string<br/>\n";
                                print $fh "$string\n" || return "bad error: $_";

                                $counter++;

                                }
                        }
                }
        }

return 1;

}



sub SeperatePathFileExt {

my ($string) = @_;
my ($path, $filename, $ext) = "";

if ($string =~ m!^(.*)/([^/]*)$!) {
$path = $1; $filename = $2;
}

else {
$path = "";
$filename = $string;
}

($ext) = $filename =~ /\.([^.]+?)$/;
$ext = lc($ext);
$filename =~ s-(.*).$ext$-$1-ig;

return ($path, $filename, $ext);

}



sub CheckAndConvertUTF8 {

my ($request) = @_;

my $encoding_name = Encode::Detect::Detector::detect($request);
unless (defined $encoding_name) {$encoding_name = "undefined";}
if ($encoding_name eq "") {$encoding_name = "undefined";}

        if ((defined $_) && (grep( m/$encoding_name/, @TroubleMakers ))) {

                                if ($encoding_name ne "undefined") {
                                $request = Encode::encode("utf8", Encode::decode($encoding_name, $request));
                                }

                                if ($encoding_name eq "undefined") {
                                utf8::encode($request);
                                }
        }

        # decode und danach gleich ein encode sieht nach Fehler aus,
        # ist aber keiner ohne geht bei vielen strings schlichtweg nicht.
        utf8::decode($request);
        utf8::encode($request);

        $request =~ s/\015\012|\012|\015/ /sg; # alle Umbrüche gegen Leerzeichen ersetzen
        $request =~ s-\|-\&\#124\;-g; # pipe ersetzen für csv
        $request =~ s/  / /sg; # doppelte Leerezeichen gegen einfache Leerzeichen ersetzen

        return $request;

}

# EOF