From: Matías Sklar <msklar@mecon.gov.ar>
Date: Tue, 22 Jul 2003 15:44:29 +0000 (+0000)
Subject: Se corrige el formato del codigo de dependencia.
X-Git-Tag: svn_import~46
X-Git-Url: https://git.llucax.com/mecon/scripts.git/commitdiff_plain/10f68acff0c99ea0e4fb347d5e070f05f2fd0bd3?ds=inline;hp=90dbf4275627caf35b6b5ee6893c8556d4acfcc8

Se corrige el formato del codigo de dependencia.
---

diff --git a/novedades/cargas_de_datos/webgen-estado b/novedades/cargas_de_datos/webgen-estado
new file mode 100755
index 0000000..5513d01
--- /dev/null
+++ b/novedades/cargas_de_datos/webgen-estado
@@ -0,0 +1,31 @@
+#!/usr/bin/php4 -qC
+<?php
+
+error_reporting(E_ALL);
+
+$origen  = isset( $argv[1] ) ? $argv[1] : '.';
+$destino = isset( $argv[2] ) ? $argv[2] : '.';
+$libdir  = isset( $argv[3] ) ? $argv[3] : getcwd();
+
+require_once "$libdir/corregir_lib.php";
+
+$fi = fopen( "$origen/webgen", 'r' );
+$fo = fopen( "$destino/estado", 'w' );
+$fe = fopen( 'php://stderr', 'w' );
+
+$s = fgets( $fi ); // Saca la descripción.
+fputs( $fo, "nrodoc,dependencia,estado,funcion\n" );
+$c = 1;
+while ( ( $s = fgets( $fi ) ) !== false ) {
+    if ( preg_match( '/^(\d{10}),(SCA|SAS|CAS),(AD|CA|SG|SE|ME|MA|MY|PL),(\w\d{9}),$/', $s, $m ) ) {
+    #if ( preg_match( '/^(\d{10}),([^,]+),(\d{8}),([:\d]*),([:\d]*),$/', $s, $m ) ) {
+        list( $todo, $doc, $est, $func, $dep ) = $m;
+        $doc = sacar_ceros( $doc );
+        fputs( $fo, "$doc,$dep,$est,$func\n" );
+    } else {
+        fputs( $fe, "ERROR: No se pudo interpretar la fila $c: $s.\n" );
+    }
+    $c++;
+}
+
+?>