From cf83448edec64610ad99f82f4a3969f1787c62d4 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Nicol=C3=A1s=20Dimov?= <ndimov@gmail.com>
Date: Tue, 19 Oct 2004 18:58:15 +0000
Subject: [PATCH 1/1] bueno, por ahora verifica que el formato del nombre de
 los archivos sean por lo menos numeros, depues tendra que validar que sea una
 fecha, pero eso parece que se repite en el antifraude.pl... no se para que lo
 piden.. lo que no me acuerdo es donde va a estar el archivo de configuracion
 para leer los paths a donde voy a leer y mover los archivos... despues le
 pregunto a Alan que la tiene clara

---
 inst/afimonio | 58 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)

diff --git a/inst/afimonio b/inst/afimonio
index e69de29..5adb156 100644
--- a/inst/afimonio
+++ b/inst/afimonio
@@ -0,0 +1,58 @@
+#!/bin/bash
+
+# Funciones auxiliares
+
+is_number(){
+	num=`echo $1 | sed 's/[0-9]*//g'`
+	if [ -n "$num" ]; then 
+		return 1
+	fi
+	return 0
+}
+
+
+# filtra el nombre del archivo pasado por parametro sacandole todos los
+# caracteres que no sean numeros 
+checkfilename(){
+	date=`echo $1 | cut -d "." -f 1`
+	central=`echo $1 | cut -d "." -f 2`
+
+	is_number "$date"
+	if [ "$?" -ne 0 ]; then
+		return 1
+	fi
+	is_number "$central"
+	if [ "$?" -ne 0 ]; then
+		return 1
+	fi
+	return 0		
+}
+	
+# busco el archivo de configuracion para recuperar las rutas hacia los archivos
+# que debo leer.
+
+DATADIR='/home/nico/sop/'
+sourcedir=$DATADIR'util/'
+aceptdir=$DATADIR'/llamadas/enproceso'
+rejectdir=$DATADIR'/llamadas/rechazadas'
+LOGDIR='/home/nico/sop/log/'
+logfile=$LOGDIR/afimonio.log
+
+while [ true ]; do 
+	for file in `ls $sourcedir` ; do
+		
+		checkfilename $file	
+		if [ "$?" -eq 0 ]; then
+			cp $sourcedir$file $aceptdir #cambiar copiar por mover
+			fecha=$(date +%d/%m/%Y-%H:%M)
+			echo "$fecha $USER afimonio:\"Se detecta archivo de llamadas $file\"" >> $logfile
+			
+		else 
+			cp $sourcedir$file $rejectdir #cambiar copiar por mover
+			fecha=$(date +%d/%m/%Y-%H:%M)
+			echo "$fecha $USER afimonio:\"Se rechaza el  archivo $file\"" >> $logfile
+		fi
+	sleep 2
+	done #for
+done #while 
+
-- 
2.43.0