#!/usr/bin/perl
#

use DBI;
use Data::Dumper;

$dir_local   ='/home/contratados/mnt';
$dir_local2  ='/home/contratados';
$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);
    exit;
}
# }}} FIN COPIA DE ARCHIVOS 

# 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");

$dbh_mysql->do("DELETE FROM Contratados");

$sql_select = 'SELECT * FROM resultados';
$sql_insert = "REPLACE INTO Contratados (nrodoc,tipodoc,nombre,codep,marco_legal,dedicacion,hentra,hsale,oficina,edificio,interno,fevig,febaja,felimita,responsa) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)";
$re_select = $dbh_local->prepare($sql_select);
$re_insert = $dbh_mysql->prepare($sql_insert);
$re_select->execute();
while ($res = $re_select->fetchrow_hashref()){
#    print Dumper($res);
#    last;
    $re_insert->execute($res->{DOC}, $res->{TIPDOC}, $res->{APELLIDO}.' '.$res->{NOMBRE},$res->{CODIGO_ACT},$res->{TIPOCONTRA},$res->{PARTIME},$res->{HENTRA},$res->{HSALE},$res->{OFICINA},$res->{EDIFICIO},$res->{INTERNO},$res->{FEVIG},$res->{FEBAJA},$res->{FELIMITA},$res->{RESPONSA});
}

$dbh_local->disconnect();

system ("smbumount $dir_local");

1;


