#!/usr/bin/perl
#
# Author: Peter Keel <seegras@discordia.ch>
# Version: 1.0
# 
# Renames mp3-files to Neverwinter Nights bmu-files and adds header. 
# 

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

foreach $file_name (@ARGV) {
    $out_file=$file_name;
    $out_file =~ s/\.mp3\b/\.bmu/i;
    open(IN_FILE,"<$file_name") || die "Cannot open $file_name for input\n";
    open(TEMP,">$out_file");
    while(<IN_FILE>){
	$_ =~ s/^ID3/BMU V1.0ID3/;
        print TEMP ($_);
    }
    close IN;
    close TEMP;
}