contratados/Contratados.pl

   1 #!/usr/bin/perl
   2 #
   3
   4 use DBI;
   5 use Data::Dumper;
   6
   7 $dir_local   ='/home/contratados/mnt';
   8 $dir_local2  ='/home/contratados';
   9 $opciones  ='-o username=msklar\@mecon%larva1976';
  10
  11 # COPIO LOS ARCHIVOS DBF NECESARIOS {{{
  12 $fallo1 = system ("smbmount //dgrh/ottonello  $dir_local $opciones");
  13 if ($fallo1) {
  14     print "NO MONTE NADA.....";
  15     $address='mmarre@mecon.gov.ar, sotton@mecon.gov.ar, msklar@mecon.gov.ar, hdelbo@mecon.gov.ar';
  16     $linea = "echo 'Hubo un error con el samba del script de Contratados en portal.mecon.gov.ar' | mail $address ";
  17     $ret = system ($linea);
  18     exit;
  19 }
  20 # }}} FIN COPIA DE ARCHIVOS
  21
  22 # OBTENGO LOS HANDLERS DE LAS BASES {{{
  23 $dbh_local = DBI->connect("DBI:XBase:$dir_local");
  24 $dbh_mysql = DBI->connect("DBI:mysql:dbname=Contratados;host=intranet-db","intranet","intranet");
  25
  26 $dbh_mysql->do("DELETE FROM Contratados");
  27
  28 $sql_select = 'SELECT * FROM resultados';
  29 $sql_insert = "REPLACE INTO Contratados (nrodoc,tipodoc,nombre,codep,marco_legal,dedicacion,hentra,hsale,oficina,edificio,interno,fevig,febaja,felimita,responsa) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)";
  30 $re_select = $dbh_local->prepare($sql_select);
  31 $re_insert = $dbh_mysql->prepare($sql_insert);
  32 $re_select->execute();
  33 while ($res = $re_select->fetchrow_hashref()){
  34 #    print Dumper($res);
  35 #    last;
  36     $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});
  37 }
  38
  39 $dbh_local->disconnect();
  40
  41 system ("smbumount $dir_local");
  42
  43 1;
  44
  45