#!/usr/bin/perl

system ("find /www/html/ | grep wav > /www/data/wav.local");

open (IN, "/www/data/wav.local");
open (HIFI, ">/www/data/wav.paths");


while ($line = <IN>) {

if (! ($line =~ /lo\-fi/) ) {

    print HIFI ($line);
 }

}

close(HIFI);
close(IN); 

open (LAME, "/www/data/wav.paths");

while ($line = <LAME>) {

          $path = $line;
          chomp $line;
          $path =~ s/(.*)\/(.*)\.wav/$2/g;
          chomp $path;

          $directorypath = $line;
          $directorypath =~ s/(.*)\/(.*)wav/$1/g; 
          chomp $directorypath;

          if (-e "$directorypath/$path.mp3") { print "file exists!"; next; }
          system ("/usr/sbin/lame/lame -b 128 -m j -h -V 0 -B 320 $line $directorypath/$path.mp3");

          system ("mkdir $directorypath/lo-fi");
          if (-e "$directorypath/lo-fi/$path.mp3") { print "file exists!"; next; }
          system ("/usr/sbin/lame/lame -m s -h -b 32 $line $directorypath/lo-fi/$path.mp3");  
}


close(LAME);

unlink </www/data/wav.local>;
unlink </www/data/wav.paths>;