test/casos/caso_3_protocolizacion.php

   1 #!/usr/bin/php4 -qC
   2 <?php /* vim: set binary expandtab tabstop=4 shiftwidth=4 textwidth=80 foldmethod=marker:
   3 -------------------------------------------------------------------------------
   4                              Ministerio de Economía
   5                                     YATTA!
   6 -------------------------------------------------------------------------------
   7 This file is part of YATTA!.
   8
   9 YATTA! is free software; you can redistribute it and/or modify it under
  10 the terms of the GNU General Public License as published by the Free
  11 Software Foundation; either version 2 of the License, or (at your option)
  12 any later version.
  13
  14 YATTA! is distributed in the hope that it will be useful, but WITHOUT
  15 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  16 FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
  17
  18 You should have received a copy of the GNU General Public License; if not,
  19 write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
  20 Boston, MA  02111-1307  USA
  21 -------------------------------------------------------------------------------
  22 Creado: jue abr 15 15:36:32 ART 2004
  23 Autor:  Martin Marrese <mmarre@mecon.gov.ar>
  24 -------------------------------------------------------------------------------
  25 $Id$
  26 -------------------------------------------------------------------------------
  27 Descripción:
  28 Prueba con el script de protocolizacion que genera los pdf's.
  29 -----------------------------------------------------------------------------*/
  30
  31 //{{{Require Once
  32 require_once './caso_3_protocolizacion/constantes.php';
  33 require_once 'YATTA/Controlador.php';
  34 require_once 'DB.php';
  35 require_once 'PEAR.php';
  36 //}}}
  37
  38 //{{{Creo una conexion mysql al servidor
  39 $db =& DB::connect('mysql://intranet:intranet@unix(/var/run/mysqld/mysqld.sock)/yatta', true);
  40 if (DB::isError($db)) {
  41      trigger_error($db->getMessage(), E_USER_ERROR);
  42 }
  43 //}}}
  44
  45 //{{{Identificador del sistema al cual pertenecen los procesos.
  46 $id_sistema = PROTOCOLIZACIóN_PERM;
  47 //}}}
  48
  49 //{{{Proceso con array de datos obligatorios solamente.
  50 $datos = array (
  51             'script' =>
  52             '/var/www/sistemas/yatta/test/casos/caso_3_protocolizacion/clase.php',
  53             'id_sistema' => $id_sistema,
  54             'descripcion' => 'Script de auditoria para protocolización.',
  55             'owner' => 'mmarre@mecon',
  56             'destinos' => 'msklar@mecon',
  57             'resultado' => 'Informe Auditoria.zip',
  58             'parametros' => array ('base'=>'normas', 'anio'=>'2004')
  59         );
  60 $controlador =& new YATTA_Controlador;
  61 $res = $controlador->agregarProceso($db, $datos);
  62 if (PEAR::isError($res)) {
  63     trigger_error('Error: ' . $res->getMessage() . "\n", E_USER_ERROR);
  64 }
  65 //}}}
  66
  67 var_dump($res);
  68 ?>