sub convert_file {
my $result; my $cmd;
my ($inFile, $outFile) = @_;

   if ( $OUTPUT_TYPE eq 'ogg' ){
      $result = `$COMMAND_OGG $SILENT_ARG_FO -q $QUALITY -o "$outFile" "$inFile"`;
   }
   elsif ( $OUTPUT_TYPE eq 'mp3' ){
      # Modified: Odd @2011-03-23 01:51:26 - Include ID3 copying
      $cmd = &flac2mp3_cmd( $COMMAND_FLAC, "$inFile", $COMMAND_LAME, $QUALITY, "$outFile" );
      $result = `$cmd`;
   }
   return $result;
}

sub sync_collection_files {
   my $file; @files; $destinationFile; $srcInfo; $srcModTime; $destInfo; $destModTime;
   my $pm = new Parallel::ForkManager(2);
   my $inFile; $outFile; $bFileCreated;
   @files = @_;
   $file = '';
   $outFile = '';
   $inFile = '';
   $destinationFile = '';
   $bFileCreated = '0';
   $srcInfo = '';
   $srcModTime = '';
   $destInfo = '';
   $destModTime = '';

   foreach $file (@files) {
      $file =~ s/\n$//;
      $file =~ s/^\.\///;
      #print "F: $DIR_PREFIX_DEST/$file\n";
      
      # Figure out what the destination file would be...
      $destinationFile = $file;
      if ( $EXTENSION eq $INPUT_TYPE ){
         $destinationFile =~ s/\.$INPUT_TYPE$/\.$OUTPUT_TYPE/;
      }
      #print "D: $destinationFile\n";

      # Now stat the destinationFile, and see if it's date is more recent
      # than that of the original file. If so, we re-encode.
      # We also re-encode if the user supplied --force
      $srcInfo = stat ("$DIR_PREFIX_SOURCE/$file");

      $srcModTime = $srcInfo->mtime;
      $destInfo = stat ("$DIR_PREFIX_DEST/$destinationFile");
      if ( $destInfo ) {
         $destModTime = $destInfo->mtime;
         # print "DEST_MOD: $destModTime :: SRC_MOD: $srcModTime :: FORCE: $force\n";
#       } else {
#          print "NOT EXISTS: $destinationFile \n";
#          print "P1: $file ==> \n\t$destinationFile\n";
      }
      # If the destination file does not exist, or the user specified force,
      # or the srcfile is more recent then the dest file, we encode.
      if ( !$destInfo || $B_FORCE || ( $srcModTime > $destModTime) ) {
         $file =~ s/\`/\'/g;
         $inFile = "$DIR_PREFIX_SOURCE/$file" . "c";
         chop ($inFile);
         $outFile = "$DIR_PREFIX_DEST/$destinationFile" . "g";
         chop ($outFile);
         eval $PRINT_LINE_SMALL;
         if ( $EXTENSION eq $INPUT_TYPE ){
            if ( ! $B_SILENT ) {
               print "ENCODE: $file ==> \n";
               print "        $destinationFile\n";
            }
            else {
               # add line break only when file exists
               print "\nEncoding $file to $OUTPUT_TYPE...";
            }
            $inFile =~ s/\0//g;
            $outFile =~ s/\0//g;

            $pm->start and next; # do the fork

#            if ( $OUTPUT_TYPE eq 'ogg' ){
#               $cmd = "$COMMAND_OGG $SILENT_ARG_FO -q $QUALITY -o \"$outFile\" \"$inFile\"";
#            }
#            elsif ( $OUTPUT_TYPE eq 'mp3' ){
#               # Modified: Odd @2011-03-23 01:51:26 - Include ID3 copying
#               $cmd = &flac2mp3_cmd( $COMMAND_FLAC, "$inFile", $COMMAND_LAME, $QUALITY, "$outFile" );
#               #$result = `$cmd`;
#            }

               &convert_file($inFile, $outFile);

            $pm->finish;
         }
         else {
            if ( ! $B_SILENT ) {
               print "COPY: $file ==> \n";
               print "      $outFile\n";
            }
            else {
               print "\nCopying $file...";
            }
            $inFile =~ s/\0//g;
            $outFile =~ s/\0//g;
            $result = `cp -f "$inFile" "$outFile"`;
         }
         $bFileCreated = 'true';
         $B_DEST_CHANGED = 'true';
      }
   }
   if ( ! $bFileCreated ){
      if ( ! $B_SILENT ) {
         print "No files to process of type: $EXTENSION\n";
      }
      else {
         print "none found.";
      }
   }

   # wait for all the forks to finish before terminating
   # the parent.. otherwise terminating the parent force kills
   # all the forks
   $pm->wait_all_children;
}

160c160
<    print "--quality n -q n  For ogg: n can be 1-10, 10 is the biggest file/highest quality.\n";
---
>    print "--quality n -q n  For ogg: n can be -1-10, 10 is the biggest file/highest quality.\n";
352c352
<    if ( $OUTPUT_TYPE eq 'ogg' && $QUALITY !~ m/^([1-9]|10)$/ ) {
---
>    if ( $OUTPUT_TYPE eq 'ogg' && $QUALITY !~ m/^(-[0-1]|(\d|10))$/ ) {
354c354
<       $errorMessage = "$errorMessage\n\t$OUTPUT_TYPE only supports 1-10 quality. You entered: $QUALITY\n";
---
>       $errorMessage = "$errorMessage\n\t$OUTPUT_TYPE only supports -1-10 quality. You entered: $QUALITY\n";

75a76
> our @COPY_PLAYLISTS;
124a126,131
> #
> # Playlists types to copy over to the new directories. Has been
> # tested with both .m3u and .cue files with relative paths in the
> # files. Will not work (yet) with absolute paths or relative paths
> # outside of your $DIR_PREFIX_SOURCE.
> @COPY_PLAYLISTS = ( 'cue', 'm3u' );
504c511,521
<          }
---
>          }
>             elsif ( "@COPY_PLAYLISTS" =~ /(^|\s)$EXTENSION(\s|$)/ ) {
>                 &sync_playlist_files ("$inFile", "$outFile" );
>             if ( $LOG_LEVEL > 1 ) {
>                print "COPY: $file ==> \n";
>                print "      $outFile\n";
>             }
>             elsif ( $LOG_LEVEL > 0 ) {
>                print "\nCopying $file...";
>             }
>             }
555a573,590
> sub sync_playlist_files {
>     my ($inPlaylist, $outPlaylist) = @_;
>     my @outData;
>     open (INFILE, "$inPlaylist");
>     while (<INFILE>) {
>         $_ =~ s/\.$INPUT_TYPE/\.$OUTPUT_TYPE/;
>         if ( $OUTPUT_TYPE eq 'mp3' && $EXTENSION eq 'cue' && $_ =~ m/^FILE/) {
>             $_ =~ s/WAVE$/MP3/;
>         }
>         @outData = (@outData,"$_");
>     }
>     close INFILE;
>     open (OUTFILE, ">$outPlaylist");
>     print OUTFILE join("",@outData);
>     close OUTFILE;
>     
> }
>
561c596
<    @extensions = ( @COPY_TYPES, $INPUT_TYPE );
---
>    @extensions = ( @COPY_TYPES, $INPUT_TYPE, @COPY_PLAYLISTS );