From: Alan Kennedy <kennedya@3dgames.com.ar>
Date: Sat, 16 Oct 2004 01:48:59 +0000 (+0000)
Subject: Valido fisicamente los archivos de llamadas, la validacion logica deberia estar asegu... 
X-Git-Tag: svn_import~128
X-Git-Url: https://git.llucax.com/z.facultad/75.08/llamadas.git/commitdiff_plain/1f8380816fd60992d974748abce727f015bb1b2a

Valido fisicamente los archivos de llamadas, la validacion logica deberia estar asegurada por el AFIMONIO
---

diff --git a/inst/antifraude.pl b/inst/antifraude.pl
index 6ba78fe..04d7fee 100644
--- a/inst/antifraude.pl
+++ b/inst/antifraude.pl
@@ -3,7 +3,9 @@
 sub getCallFiles {
 	# Obtengo listado de archivos de llamadas y lo ordeno por fecha
 	opendir($DIR,$_[0]) or die 'Could not open dir';
-	@files = grep { -f "$ARGV[0]/$_" } readdir($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;