#!/usr/bin/perl -w

$MP3ENCODER = "/home/michael/prog/bin/encode";
$MP3ENCODERFLAGS = "";
$FROMDIR = "";
$TODIR = "";

sub usage {
    print "Usage: mp3bulk <FROMDIR> <TODIR>\n";
}

$FROMDIR = $ARGV[0] or &usage;
$TODIR = $ARGV[1] or &usage;

print "\nwav2mp3 Version 0.1\n";
print "(c) 1999 Michael Lestinsky";

-d $FROMDIR or die "$FROMDIR is not a directory";
-d $TODIR or die "$TODIR is not a directory";

@WAVFILES = glob("$FROMDIR/*.wav");

foreach $ITEM (@WAVFILES) {
    $ITEM2 = $ITEM;
    # remove leading "./" and substitute ".wav" with ".mp3":
    $ITEM2 =~ s/\.\/(.*)\.wav$/$1.mp3/g; 
    $TOFILE = "$TODIR/" . "$ITEM2";
    @args = ($MP3ENCODER, $MP3ENCODERFLAGS, ($ITEM, $TOFILE));
    system(@args)==0 or die "system @args failed: $?";
    print "*** Done: $TOFILE\n\n"
}