#!c:\perl\bin\perl 

#Usamos las librerias de acceso a BD
use DBI;

my $base_datos="ce";   #Nombre de las base de datos
my $tabla_pedidos="pedidos"; #Nombr de la tabla de pedidos

my $usuario="root"; #Usuario de la BD
my $clave="richal"; #Password de la BD
my $driver="mysql"; #Utilizamos el driver de mysql


my $id;     	 #VAriable donde guardaremos el id del articulo pedido
my $num_factura; #Variable donde guardaremos la factura del pedido
my $nombre; 	 #Variable donde guardaremos el nombre del cliente
my $email;	 #Variable donde guardaremos el email del cliente
my $direccion;	 #Variable donde guardaremos la direccion del cliente
my $telefono;	 #Variable donde guardaremos el telefono del cliente

#Cogemos los parametros que se le pasan al CGI ($num_factura, $id, $nombre, $email, $direccion, $telefono)
coge_parametros();

#Creamos la sentencia SQL para insertar
my $SQL_inserta_pedidos ="insert $tabla_pedidos  values ($num_factura, $id, '$nombre', '$email', '$direccion', '$telefono');";

#Escribimos la cabecera de la pagina HTML
print "Content-type: text/html\n\n";
escribe_inicio_html();

#Escrimos los parametros pasados (BORRAR)
print ("\n<h3>Num_factura=$num_factura Id=$id Nombre=$nombre  E-Mail=$email Direccion=$direccion Telefono=$telefono<h3><br>\n");



#Conectamos con la BD, miramos si hay algun error(HACER)


#Insertamos los datos en la tabla, miramos si hay algun error(HACER)


#Nos desconectamos de la BD. (HACER)



#Escribimos la cola de la pagina HTML
escribe_final_html();

#Terminamos
exit;
#--------------------------------------------------------------------
#--------------------------------------------------------------------
#----------------------------FUNCIONES-------------------------------
#--------------------------------------------------------------------
#--------------------------------------------------------------------
#En ests funcion cogemos los parametros que son necesarios para el
#CGI.
sub coge_parametros()
{

        #Determinamos el tipo de metodo usado para pasar los argumentos
        $method=$ENV{"REQUEST_METHOD"};
        if ($method eq "GET")
        {
                #Si el metodo es GET los argumentos vienen en $ENV{"QUERY_STYRNG"}
                $argumento=$ENV{"QUERY_STRING"};
        }
        else
        {
                #Si el metodo es POST los argumentos vienen en la entrada estandar
                $argumento=<STDIN>;
        }

        # Obtengo las variables
        foreach (split(/&/,$argumento))
        {
                ($variable,$valor) = split(/=/, $_);
                $valor=~tr/+/ /;
                $valor=~s/%([0-9|A-F]{2})/pack(C,hex($1))/eg;
                $datos{$variable}=$valor;
        }

	$num_factura=$datos{NUM_FACTURA};
        $id=$datos{ID};
        $nombre=$datos{NOMBRE};
        $email=$datos{EMAIL};
	$direccion=$datos{DIRECCION};
	$telefono=$datos{TELEFONO};
}

#--------------------------------------------------------------------
#En esta funcion escribimos el principio de la pagina HTML
sub escribe_inicio_html()
{

print <<inicio_HTML;
<html>
        <HEAD>
                <TITLE>Inserción de pedidos (CGI)</TITLE>
        </HEAD>
        <BODY bgcolor=#FFFFFF>
        <TABLE border=0  cellpadding=0 cellspacing=0 width=100%>
         <TD valign=middle width="100%" bgcolor="#008caa">
                <font color="#DDDDDD" face="sans-serif">
                 <strong>
                        <h1 align=center style='text-align:center'>INSERTAR PEDIDOS (CGI)</h1>
                 </strong>

         </TD>
        </TABLE>
inicio_HTML
}

#--------------------------------------------------------------------
#En esta funcion escribimos el fin de la pagina HTML
sub escribe_final_html()
{

print <<fin_HTML;
        </BODY>
        </HTML>
fin_HTML
}
#--------------------------------------------------------------------

