Actualizacion. Ahora envia emails si el archivo no ha variado.

diff --git a/contratados/Contratados.pl b/contratados/Contratados.pl
index eb137a97abedc25a4af6d5f81538a75f3135d080..c651c55da9adfa267ebecda172fb17eb5e206576 100755 (executable)
--- a/contratados/Contratados.pl
+++ b/contratados/Contratados.pl
@@ -11,7 +11,6 @@ $opciones  ='-o username=msklar\@mecon%larva1976';
 # COPIO LOS ARCHIVOS DBF NECESARIOS {{{
 $fallo1 = system ("smbmount //dgrh/ottonello  $dir_local $opciones");
 if ($fallo1) {
-    print "NO MONTE NADA.....";
     $address='mmarre@mecon.gov.ar, sotton@mecon.gov.ar, msklar@mecon.gov.ar, hdelbo@mecon.gov.ar';
     $linea = "echo 'Hubo un error con el samba del script de Contratados en portal.mecon.gov.ar' | mail $address ";
     $ret = system ($linea);
@@ -19,6 +18,22 @@ if ($fallo1) {
 }
 # }}} FIN COPIA DE ARCHIVOS 
 
+# VEO SI LAS FECHAS DE LOS ARCHIVOS ES IGUAL
+$variable1 = `ls -l  --time-style=long-iso mnt/Resultados.dbf`;
+$variable2 = `ls -l  --time-style=long-iso Resultados.dbf.bak`;
+@variable1 = split (/\s+/, $variable1);
+@variable2 = split (/\s+/, $variable2);
+if (@variable1['5'] eq @variable2['5'] && @variable1['6'] eq @variable2['6']) {
+    $address='mmarre@mecon.gov.ar, sotton@mecon.gov.ar, msklar@mecon.gov.ar, eneme@mecon.gov.ar, gagric@mecon.gov.ar, gmeray@mecon.gov.ar';
+    $linea = "echo 'Hubo un error. No se actualizo el archivo de contratados para la carga de la intranet. ' | mail $address ";
+    $ret = system ($linea);
+    system ("smbumount $dir_local");
+    exit;
+}
+
+#COPIO EL ARCHIVO PARA COMPARAR DESPUES
+system ("cp $dir_local/Resultados.dbf ~/Resultados.dbf.bak --preserve=timestamp");
+
 # OBTENGO LOS HANDLERS DE LAS BASES {{{
 $dbh_local = DBI->connect("DBI:XBase:$dir_local");
 $dbh_mysql = DBI->connect("DBI:mysql:dbname=Contratados;host=intranet-db","intranet","intranet");