novedades/cargas_de_datos/webfer-feriados

   1 #!/usr/bin/php4 -qC
   2 <?php
   3
   4 error_reporting(E_ALL);
   5
   6 $origen  = isset( $argv[1] ) ? $argv[1] : '.';
   7 $destino = isset( $argv[2] ) ? $argv[2] : '.';
   8 $libdir  = isset( $argv[3] ) ? $argv[3] : getcwd();
   9
  10 require_once "$libdir/corregir_lib.php";
  11
  12 $fi = fopen( "$origen/webfer", 'r' );
  13 $fo = fopen( "$destino/feriados", 'w' );
  14 $fe = fopen( 'php://stderr', 'w' );
  15
  16 $s = fgets( $fi ); // Saca la descripción.
  17 fputs( $fo, "fecha,desc,tipo,hora\n" );
  18 $c = 1;
  19 while ( ( $s = fgets( $fi ) ) !== false ) {
  20     if ( preg_match( '/^(\d{8}),([^,]+),([^,]?),(\d{4}),$/', $s, $m ) ) {
  21     #if ( preg_match( '/^(\d{10}),([^,]+),(\d{8}),([:\d]*),([:\d]*),$/', $s, $m ) ) {
  22         list( $todo, $fecha, $desc, $tipo, $hora ) = $m;
  23         $fecha = invertir_fecha( $fecha );
  24         $hora  = corregir_hora( $hora );
  25         $tipo  = corregir_feriado( $tipo );
  26         $desc  = corregir_descripcion( $desc );
  27         fputs( $fo, "$fecha,$desc,$tipo,$hora\n" );
  28     } else {
  29         fputs( $fe, "ERROR: No se pudo interpretar la fila $c: $s.\n" );
  30     }
  31     $c++;
  32 }
  33
  34 ?>