From 8c250233daf2cf0ea36343c30bf60c0ba70760ad Mon Sep 17 00:00:00 2001
From: Leandro Lucarella <llucax@gmail.com>
Date: Mon, 25 Oct 2004 00:08:06 +0000
Subject: [PATCH] Se corre el antifraude en background solo si hay archivos
 para procesar.

---
 inst/afimonio | 21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

diff --git a/inst/afimonio b/inst/afimonio
index b175dae..071de72 100644
--- a/inst/afimonio
+++ b/inst/afimonio
@@ -68,33 +68,36 @@ trap "finalize" INT
 trap "finalize" TERM 
 
 # Me lockeo
-lock "afimonio" || die "No se puede correr, hay otra instancia 	corriendo!"
+lock "afimonio" || die "No se puede correr, hay otra instancia corriendo o no se puede crear el lock file!"
 
 # Comienza el ciclo infinito que mueve los archivos
 while true; do 
+	files=
 	for file in `ls $SOURCEDIR` ; do
+		files=1
 		checkfilename $file	
 		if [ "$?" -eq 0 ]; then
-			mv $SOURCEDIR$file $ACEPTDIR #cambiar copiar por mover
+			mv $SOURCEDIR$file $ACEPTDIR
 			fecha=$(date +%d/%m/%Y-%H:%M)
 			echo "$fecha $USER afimonio:\"Se detecta archivo de llamadas $file\"" >> $LOGFILE
 		else 
-			mv $SOURCEDIR$file $REJECTDIR #cambiar copiar por mover
+			mv $SOURCEDIR$file $REJECTDIR
 			fecha=$(date +%d/%m/%Y-%H:%M)
-			echo "$fecha $USER afimonio:\"Se rechaza el  archivo $file\"" >> $LOGFILE
+			echo "$fecha $USER afimonio:\"Se rechaza el archivo $file\"" >> $LOGFILE
 		fi
 		# Verifico que el logfile no se pase del tamaño maximo
 		tam=`stat -c '%s' $LOGFILE`
 		# Si se paso del maximo dejo las ultimas 100 lineas
 		if [ "$tam" -ge "$AFIM_LOGSIZE" ]; then
-			tail -n 100 $LOGFILE > "$BINDIR/temp"	
-			rm $LOGFILE
-			mv "$BINDIR/temp" $LOGFILE
+			echo tail -n 100 $LOGFILE \> "$LOGDIR/$0.$$.temp"
+			echo mv "$LOGDIR/$0.$$.temp" $LOGFILE
+			tail -n 100 $LOGFILE > "$LOGDIR/$0.$$.temp"
+			mv "$LOGDIR/$0.$$.temp" $LOGFILE
 		fi
 	done #for
 	# me fijo si el antifraude esta corriendo y si no lo esta lo arranco
-	if ! is_lock "antifraude.pl" ; then
-		$BINDIR/antifraude.pl
+	if [ -n $files ] && ! is_lock "antifraude.pl"; then
+		$BINDIR/antifraude.pl &
 	fi
 	sleep 5
 done #while 
-- 
2.43.0