#!/usr/bin/perl -w

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

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

# Findet das Aktuelle Verzeichnis
my $cwd = getcwd;

while (<STDIN>) {
	chomp;
	$_ = <*.mp3>;
	find(\&wanted, $_);# findet alles was in dem angegebenen Verzeichnis ist
}


sub wanted {
    my ($mp3, $track, $artist,$dir,$info);
     return unless /mp3$/i; # alles was keine *.mp3 Endung hat wird nicht beachtet

    if ($mp3=MP3::Tag->new($_)) {
        print "$_ (Tags: ", join(", ",$mp3->get_tags),")\n";
        my @info=$mp3->autoinfo;
        print "* Song: $info[0]\n";
        print "* Track: $info[1]\n";
        print "* Artist: $info[2]\n";
        print "* Album: $info[3]\n";
        print "* Comment: $info[4]\n";
	
	ordner("$info[2] - $info[3]");#übergabe der tags zum ordner erstellen
	print "\n Ordner wurde bzw ist schon erstellt.\n";
	
	

	#my $dir = "$cwd/Musik/$info[2] - $info[3]";
	
	#mkdir( $dir ) or die "mkdir( $dir) failed: $!\n";{
	#move ($_, "$cwd/$_") or die "Could not move '$_' to '$dir': $!";}
	
	my ($oldlocation,$newlocation);
	$oldlocation = "$cwd";
	print "$oldlocation";
	$newlocation = "$cwd/$info[2] - $info[3]/$_";
	print "\n$newlocation\n";
	
	move($oldlocation, $newlocation) 
	or die "Could not move '$_' zu '$newlocation':$!";
	
    }
    
    print "\n Weiter mit Enter!!\n";
    
}

sub ordner {
	my ($dir) = @_;

	unless(-e $dir or mkdir $dir) {
		die		"Unable to create $dir\n";
		
	}
}