From 10f68acff0c99ea0e4fb347d5e070f05f2fd0bd3 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Mat=C3=ADas=20Sklar?= <msklar@mecon.gov.ar>
Date: Tue, 22 Jul 2003 15:44:29 +0000
Subject: [PATCH 1/1] Se corrige el formato del codigo de dependencia.

---
 novedades/cargas_de_datos/webgen-estado | 31 +++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100755 novedades/cargas_de_datos/webgen-estado

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++;
+}
+
+?>
-- 
2.43.0