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

[z.facultad/75.08/llamadas.git] / inst / antifraude.pl

diff --git a/inst/antifraude.pl b/inst/antifraude.pl
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..04d7fee0a4e2a0e0fed5d393be0143a9dbaa2dd8 100644 (file)
--- a/inst/antifraude.pl
+++ b/inst/antifraude.pl
@@ -0,0 +1,24 @@
+#!/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");
+}