#!/usr/bin/perl -w

my $line;

open(INFILE, "< presets.csv");

# my @params = {"synthMode","synthNoteOnLevel","synthNoteOffLevel","synthMode","synthNoteOnLevel","synthNoteOffLevel","synthAmpDynamic","synthFilterDynamic","synthCutoff","synthResonance","synthLevel","synthMix","synthTone","synthOsc1DetuneCoarse","synthOsc1DetuneFine","synthOsc1Amp","synthOsc1Pan","synthOsc2DetuneCoarse","synthOsc2DetuneFine","synthOsc2Amp","synthOsc2Pan","synthOsc3DetuneCoarse","synthOsc3DetuneFine","synthOsc3Amp","synthOsc3Pan","synthAttack","synthRelease","synthPortamento","synthEnvelope","octaverOct1Level","octaverOct2Level","octaverOctaveUpLevel","octaverDryLevel"};

my $i=0;
my @headers;

while($line=<INFILE>)
{
    chomp $line;
#    print $line."\n";

    my @values = split(/,/, $line);
    if ($i == 0) {
	print ('yo yo!'."\n");
	@headers = @values;
    } else {
	open(OUTFILE, "> $values[0]");
	print (OUTFILE "\<\?xml version=\"1.0\" encoding\=\"UTF-8\"?>"."\n"."\n"."\n"."\<MarkbassDigitalPedalPreset type\=\"synth\" version\=\"1\"\>"."\n");
	for (my $j=1; $j<=$#headers; $j++) {
	    print (OUTFILE "  \<param name\=\"".$headers[$j]."\" value\=\"".$values[$j]."\"\/\>"."\n")
	}

	print (OUTFILE "\<\/MarkbassDigitalPedalPreset\>");
	close(OUTFILE);
    }
    $i++;
}

close(INFILE);

# PROGRAM END