#!/usr/bin/perl
#
# Author: Peter Keel <killer@discordia.ch>
# Fix broken mp3files via mp3asm
#

die "Usage: $0 mp3file\n" unless($ARGV[0]);

chop ( $PWD = `pwd`);
$base_dir = $PWD;

foreach $file_name (@ARGV)
    {
	print STDERR "Processing '$file_name'\n";
	$indice = index $file_name, ".";
        $new_file = substr $file_name, 0, $indice ;
	$new_file = $new_file.".2.mp3";
        system ("mp3asm $file_name -o $new_file");
        system ("mv -f $new_file $file_name");
    }