(no commit message)

diff --git a/contratados/Contratados.pl b/contratados/Contratados.pl
new file mode 100755 (executable)
index 0000000..eb137a9
--- /dev/null
+++ b/contratados/Contratados.pl
@@ -0,0 +1,45 @@
+#!/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;
+
+

diff --git a/contratados/Contratados_Dump b/contratados/Contratados_Dump
new file mode 100644 (file)
index 0000000..ddde67f
--- /dev/null
+++ b/contratados/Contratados_Dump
@@ -0,0 +1,80 @@
+-- MySQL dump 8.22
+--
+-- Host: bal747f    Database: contratados_tmp
+---------------------------------------------------------
+-- Server version      3.23.53-log
+
+--
+-- Table structure for table 'Contratados'
+--
+
+CREATE TABLE Contratados (
+  nrodoc int(11) NOT NULL default '0',
+  tipodoc char(2) NOT NULL default '',
+  nombre varchar(50) default NULL,
+  codep varchar(10) default NULL,
+  marco_legal varchar(10) default '0',
+  dedicacion int(11) default '0',
+  hentra varchar(5) default NULL,
+  hsale varchar(5) default NULL,
+  oficina varchar(20) default NULL,
+  edificio varchar(5) default NULL,
+  interno varchar(12) default NULL,
+  fevig date default NULL,
+  febaja date default NULL,
+  felimita date default NULL,
+  responsa varchar(100) default NULL,
+  aprobado varchar(10) default NULL,
+  PRIMARY KEY  (tipodoc,nrodoc)
+) TYPE=MyISAM;
+
+--
+-- Dumping data for table 'Contratados'
+--
+
+
+
+--
+-- Table structure for table 'discogral'
+--
+
+CREATE TABLE discogral (
+  codigo_act decimal(10,0) unsigned zerofill default NULL,
+  partime int(3) default NULL,
+  hentra varchar(5) default NULL,
+  hsale varchar(5) default NULL,
+  oficina varchar(20) default NULL,
+  edificio varchar(5) default NULL,
+  interno varchar(12) default NULL,
+  fevig date default NULL,
+  febaja date default NULL,
+  felimita date default NULL,
+  responsa varchar(100) default NULL,
+  numdoc int(8) default NULL,
+  tipocontra varchar(10) default NULL,
+  aprobado varchar(10) default NULL
+) TYPE=MyISAM;
+
+--
+-- Dumping data for table 'discogral'
+--
+
+
+
+--
+-- Table structure for table 'personal'
+--
+
+CREATE TABLE personal (
+  apellido char(30) default NULL,
+  nombre char(30) default NULL,
+  tipodoc char(3) default NULL,
+  numdoc int(8) default NULL
+) TYPE=MyISAM;
+
+--
+-- Dumping data for table 'personal'
+--
+
+
+