#!/usr/bin/perl -w
use strict;
use warnings;
use File::Basename;
use Cwd;
use constant TRUE  => 1;
use constant FALSE => 0;

################################################
#  UTILISATION #################################
#
#  1- Aller dans le bon dossier:
#     $ cd /my/drumkit/directory  
#  2- Et lancer le programme:
#     $ ~/Desktop/h2xmlizer.pl
#
## SETTINGS ####################################
#
 my $reg;
 $reg->{'pan_L'} 	= '1';
 $reg->{'pan_R'} 	= '1';
 $reg->{'isMuted'} 	= 'false';
 $reg->{'volume'}	= '0.80';
 $reg->{'min'}		= '0';
 $reg->{'max'}		= '1';
 $reg->{'gain'}		= '1';
 $reg->{'pitch'}	= '0';

 $reg->{'lastname'}	= 'FOO';
 $reg->{'firstname'}	= 'BAR';
 $reg->{'email'}	= 'fooBar@myMail.com';
#
################################################
################################################

my $nl = "\r\n";
my $name; my $filename;
my $currentDir = basename(getcwd());
my $head = 
"<drumkit_info>
    <name>$currentDir</name>
    <author><b>".$reg->{'lastname'}." ".$reg->{'firstname'}."</b>".$reg->{'email'}."</author>
    <info>compuls's drumkit <i>made using the knoodrake\@gmail.com's drumkit xml generator</i></info>
    <instrumentList>";
my $footer = 
"    </instrumentList>
</drumkit_info>";

# sauvegarde l'ancien drumkit.xml si existe
for (`ls -1|grep drumkit.xml`){
	`mv drumkit.xml drumkit.xml.backup` if /(drumkit\.xml)$/;
}

my $i = 0;
open (COMMAND,'ls -1|');
`touch drumkit.xml`;
my $fh = open (FILE,'+>','drumkit.xml');
print FILE $nl.$head;
while (<COMMAND>) {
	$_ =~ s/\s+$//;
	if ($_ =~ /^(.+)\.(flac|wav|mp3|ogg)$/i) {
	$name = $1;
	$filename = $1.".".$2;
	print FILE
"     	<instrument>
            <id>$i</id>
            <name>$name</name>
            <volume>".$reg->{'volume'}."</volume>
            <isMuted>".$reg->{'isMuted'}."</isMuted>
            <pan_L>".$reg->{'pan_L'}."</pan_L>
            <pan_R>".$reg->{'pan_R'}."</pan_R>
            <exclude />
            <layer>
                <filename>$filename</filename>
                <min>".$reg->{'min'}."</min>
                <max>".$reg->{'max'}."</max>
                <gain>".$reg->{'gain'}."</gain>
                <pitch>".$reg->{'pitch'}."</pitch>
            </layer>
        </instrument>";
	if($i==31){printFooterAndQuit()}
	$i++;
	}
}
while ($i<=31) {
	print FILE
"     	<instrument>
            <id>$i</id>
            <name>$i</name>
            <volume>0.00</volume>
            <isMuted>true</isMuted>
            <pan_L>1</pan_L>
            <pan_R>1</pan_R>
            <exclude />
            <layer>
                <filename>$filename</filename>
                <min>0</min>
                <max>1</max>
                <gain>1</gain>
                <pitch>0</pitch>
            </layer>
        </instrument>";
	$i++;
}
sub printFooterAndQuit {
	close COMMAND;
	print FILE $nl.$footer.$nl;
	close FILE;
	exit 1;
}
printFooterAndQuit();