=pod
$ficheroszip = `ls -1 *.zip`;

foreach $file (split(/\n/,$ficheroszip) ){
	$file =~ s/\n//g;
	`unzip -qqo $file`;
}
=cut

$ficherosbmp = `ls -1 *.bmp`;

$activo = 1;

foreach $file (split(/\n/,$ficherosbmp) ){
	#$code = "convert -sample 32x32 $newfilename $gif";
	
	print "\n";
	print "**** FILE: $file ****\n";
	Accion($file,"rename",$activo);
	Accion($file,"gif",$activo);
	#Accion($file,"deletebmp",$activo);
}


if($activo){
	`rm *.bmp`;
}


sub Accion {
	my $url = shift @_;
	my $modo = shift @_;
	my $exec = shift @_;
	my $file = $url;
	my $oldfile;
	my $newfile;
	
	$file =~ s/\n//g;
	
	if ($modo eq "rename") {
		$oldfile = $file;
		$oldfile =~ s/ /\\ /g;
		$newfile = $file;
		$newfile =~ s/ /_/g;			
		
		$code = "mv $oldfile $newfile";		
	} elsif ($modo eq "gif" ){	
		$file =~ s/ /_/g;	
		$gif = $file;   				
		$gif =~ s/.bmp/.gif/g;
		$gif =~ s/.jpg/.gif/g;
		$code = "convert $file $gif" ;
	} elsif ($modo eq "deletebmp" ){	
		$oldfile = $file;
		$oldfile =~ s/ /\\ /g;
		$code = "rm -f $oldfile" ;
	}

  
	if(!$exec){
		print $code . "\n";
	} else {
		system($code);
	}		
}