#!/usr/bin/perl

sub getCallFiles {
	# Obtengo listado de archivos de llamadas y lo ordeno por fecha
	opendir($DIR,$_[0]) or die 'Could not open dir';
	# Valido solo fisicamente, lo logico ya valido afimonio..
	@files = grep {/[0-9]{12}\.[0-9]{4}/ && 
			-f "$ARGV[0]/$_" } readdir($DIR);
	#@sortedfiles = sort bydate @files; // Do subroutine
	closedir($DIR);
	return @files;
}

# En la version final, recibo por param el directorio del .conf, por ahora
# recibo un dir donde tengo archivos de llamadas
if ((!$ARGV[0]) || (! -d $ARGV[0])) { 
	print("No se ha ingresado un directorio fuente de llamadas\n");
	exit 1;
}

@archivos = getCallFiles($ARGV[0]);
foreach $callfile (@archivos) {
	printf("Archivo de llamada: $callfile\n");
}
