#!/usr/local/bin/perl

##############################################################################
# M¢dulo:       prueba.pl
# Funci¢n:      Aquí se incluyen las funciones llamadas desde parser.
# Autor:        David P‚rez
##############################################################################

$Traductor_defecto="Cuenta=''&email=''&Password=''&Nombre=''&Servicios=''&Estado=''";

require "./BD.pl";

use MIME::Entity;

# &prueba ("/u/web/persan/documentos/Misgastos.xls", "application/xls", "Misgastos.xls");
&update ();
#&IPRemota ();

sub prueba {
   my ($fichero, $tipo, $nombre) = @_;
   my ($ent);

   $ent = build MIME::Entity Path        => $fichero,
                              Type       => $tipo,
                              Filename   => $nombre;
   $ent->print(\*STDOUT);
}

sub update {
   my (%filtro);

#   $filtro{WHERE_} = "1";
#   $filtro{WHERE_ID} = "C0000";
   $filtro{Password} = "papr1ca";
   $filtro{email} = "javier\@orchestra.es";
   $filtro{Nombre} = "Javierico";
   $filtro{Estado} = "A";
   $filtro{Servicios} = "ra";
   print "Content-type: text/html\n\n<html><head></head><body>";
$debug = 1;
   &NuevoRegistro ("Traductor", %filtro);
   print "Todo bien</body></html>";
}

sub IPRemota {

print "Content-type: text/html\n\n";
print "<html><head><title></title></head><body>\n";
print $ENV{'REMOTE_ADDR'};
print "</body></html>\n";
}
