Valido fisicamente los archivos de llamadas, la validacion logica deberia estar asegu...

diff --git a/inst/antifraude.pl b/inst/antifraude.pl
index 6ba78fe104f633433b9a4becf8a21d170630c465..04d7fee0a4e2a0e0fed5d393be0143a9dbaa2dd8 100644 (file)
--- 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;