#!perl

use warnings;
use strict; 

use MP3::Tag;
use File::Find;
use File::Copy;
use Cwd;

my $cwd    = getcwd;                    # Arbeitsverzeichnis                
my $mp3dir = $cwd;                      # Default

print "Pfad angeben wo die MP3's sind!!! [keine Eingabe - Aktuelles Verzeichnis]\n";

while (my $input = <STDIN>) {
    last if $input !~ /\S/;             # leere Eingabe
    chomp($input);
    if (-d $input) {                    # Verzeichnis existiert?
        $mp3dir = $input;
        last;
    }
    print "Verzeichnis '$input' existiert nicht. Nochmal versuchen.\n";
}

find(\&wanted, $mp3dir);                # Achtung: Rekursive Suche

sub wanted {
    return unless /\.mp3$/i;            # alles was keine *.mp3 Endung hat wird 
                                        # nicht beachtet
    my $filename = $_;
    my $fullpath = $File::Find::name;   
    return if (-d $fullpath);           # Verzeichnisse mit '.mp3' weglassen

    if (my $mp3 = MP3::Tag->new($fullpath)) {
        print "$_ (Tags: ", join(", ",$mp3->get_tags),")\n";
        
        my ($title, $track, $artist, $album, $comment, $year, $genre) 
        = $mp3->autoinfo();
        
        print "* Song:    $title\n"
            . "* Track:   $track\n"
            . "* Artist:  $artist\n"
            . "* Album:   $album\n"
            . "* Comment: $comment\n";
           <STDIN>;
        my $targetdir = make_dirname_from_tags($artist, $album);
        if (! $targetdir) {
            print "Fehler beim Erzeugen des Ordnernamens!\n";
            return;
        }
        
        
        
        if (! -d $targetdir) {          # existiert noch nicht?
            if (! mkdir("$cwd/$targetdir")) {
                warn "Kann Ordner '$cwd/$targetdir' nicht anlegen: $!";
                return;
            }            
        }
        
        print "\n\n Alle Tags aendern von $title? (1=y/0=n)\n";
        if (<STDIN> == 1) { 
                my $newTag = change_tag($artist, $title, $album);       
        }else {
                print "Dann eben nicht!";
                <STDIN>;
                }         
        #or die "Could not move '$filename' zu '$cwd/$targetdir/':$!";
           }
    }

sub change_tag {
        
        my ($artist, $title, $album) = @_;
        
        print "Alter Name: $artist\n"
                .".....Neuen Namen eingeben:";
                my $new_artist = <STDIN>;
                        chomp $new_artist;
                
        print "\n $new_artist\n";
        
        print "Alter Name: $title\n"
                .".....Neuen Namen eingeben:";
                my $new_title = <STDIN>;
                        chomp $new_title;
                        
        print "\n $new_title\n";        
        
        print "Alter Name: $album\n"
                .".....Neuen Namen eingeben:";
                my $new_album = <STDIN>;
                        chomp $new_album;
        
        print "\n $new_album\n";
        
        ## create a new tag
        
        my $id3v1->all($new_artist,  $new_title,  $new_album);
        $id3v1->write_tag();
        
        <STDIN>;
}



sub make_dirname_from_tags {
# Hier diejenigen Zeichen in den Tags ersetzen, die für Ordner-/Dateinamen
# verboten sind.

    my @tags = @_;
    return if ! @tags;
    for my $tag (@tags) {
        $tag =~ s/[:,]/_/g;     # Zeichenklasse noch anpassen
    }
    return(join  ' - ' , @tags);
    
}

#move("/TagReader/01 Casper - XOXO.mp3","/TagReader/Casper - xoxo/01 Casper - XOXO.mp3");