#!/usr/local/bin/perl
# Note that this script has been abandoned just like the rest of the old
# mp3idx system.  The new mp3db command incorporates this functionality.

#H# uses id3v2 to add an id3v2 tag to an mp3 file based on its file name
#H# using my standard file name convention.

foreach $File (@ARGV) {
  chomp $File;
  if ($File !~ /\.mp3$/) {
    print ("Ignoring $File because it isn't an mp3 file!\n");
  } else {
    print "Processing $File...\n";
    if ($File =~ /^\/mp3\//) {
#      print "Seems to be an absolute path...\n";
      ($junk,$junk,$Category,$junk)=split(/\//,$File,4);
      $FileName=`echo "$File" | awk -F"/" '{print \$NF}'`;
      chomp $FileName;
#      print "$FileName is a $Category song.\n";
    } else {
#      print "Seems to be a relative path...";
      $CWD=`pwd`;
      ($junk,$junk,$Category,$junk)=split(/\//,$CWD,4);
      $FileName=`echo "$File" | awk -F"/" '{print \$NF}'`;
      chomp $FileName;
#      print "$FileName is a $Category song.\n";
    }
    $Genre="unknown";
    if ($Category eq "metal") { $Genre="137"; }
    if ($Category eq "80s") { $Genre="13"; }
    if ($Category eq "ads") { $Genre="unknown"; }
    if ($Category eq "alternative") { $Genre="40"; }
    if ($Category eq "classic") { $Genre="32"; }
    if ($Category eq "funny") { $Genre="57"; }
    if ($Category eq "misc") { $Genre="unknown"; }
    if ($Category eq "movies_TV_games") { $Genre="24"; }
    if ($Category eq "new") { $Genre="unknown"; }
    if ($Category eq "oldies") { $Genre="11"; }
    if ($Category eq "rock") { $Genre="17"; }
    if ($Category eq "techno_and_dance") { $Genre="18"; }

    ($Artist,$Album,$Track,$Title)=split(/ - /,$FileName,4);
    $Title =~ s/\.mp3//g;
    $CLI=qq[id3v2 -2 -a "$Artist" -A "$Album" -t "$Title" -T $Track];
    if ($Genre ne "unknown") {
      $CLI="$CLI -g $Genre";
    }
    $CLI=qq[$CLI "$File"];
    print "$CLI\n";
    system ("$CLI && echo done.");
    print "\n\n";
  }
}