#!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"; #Nombre 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

#Creamos la sentencia SQL
my $SQL_consulta="select * from $tabla_pedidos;";

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



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


#Hacemos una consulta en la tabla, y miramos si hay algun error(HACER)
#Mostramos los elementos de la tabla con la funcion muestra_pedido,
#cuyo formato es:
#                       muestra_pedido($num_factura,$id,$nombre,$email,$direccion,$telefono);

#Nos desconectamos de la BD. (HACER)



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

#Terminamos
exit;
#--------------------------------------------------------------------
#--------------------------------------------------------------------
#----------------------------FUNCIONES-------------------------------
#--------------------------------------------------------------------
#--------------------------------------------------------------------
#En esta funcion muestra el articulo que se le pasa como parametro
#el formato es muestra_articulo($id,$nombre,$precio);
sub muestra_pedido()
{
        my ($num_factura,$id,$nombre,$email,$direccion,$telefono)=@_;

print <<articulo_HTML;

	<TR>
         <strong>
         <TD rowspan=1 valign=middle bgcolor="#008caa"><font color="#DDDDDD" face="sans-serif size=+2">$num_factura</font></TD>
         <TD rowspan=1 valign=middle bgcolor="#008caa"><font color="#DDDDDD" face="sans-serif size=+2">$id</font></TD>
         <TD rowspan=1 valign=middle bgcolor="#008caa"><font color="#DDDDDD" face="sans-serif size=+2">$nombre</font></TD>
         <TD rowspan=1 valign=middle bgcolor="#008caa"><font color="#DDDDDD" face="sans-serif size=+2"><a href="mailto:$email">$email</a></font></TD>
         <TD rowspan=1 valign=middle bgcolor="#008caa"><font color="#DDDDDD" face="sans-serif size=+2">$direccion</font></TD>
         <TD rowspan=1 valign=middle bgcolor="#008caa"><font color="#DDDDDD" face="sans-serif size=+2">$telefono</font></TD>
	 </strong>

	<!-- Boton de Borrar -->	
	 <TD valign=middle bgcolor="#008caa">
		<FORM NAME="formBorrar$num_factura" ACTION="/cgi-bin/borra_pedido.pl" METHOD=GET>
			<INPUT TYPE="hidden" NAME="NUM_FACTURA" VALUE="$num_factura">			
			<INPUT TYPE="button" VALUE="Borrar" onClick="document.formBorrar$num_factura.submit()">
		</FORM>	
	</TD></TR>


	<!-- Linea en blanco-->
	<TR><TD colspan=3 valign=middle bgcolor="#FFFFFF"></TD></TR>
articulo_HTML
}

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

print <<inicio_HTML;
<html>
        <HEAD>
                <TITLE>Listar Pedidos (CGI)</TITLE>
        </HEAD>
        <BODY bgcolor=#FFFFFF>
        <TABLE border=0  cellpadding=0 cellspacing=0 width=100%>
         <TD valign=middle width="100%" bgcolor="#007b99">
                <font color="#DDDDDD" face="sans-serif">
                 <strong>
                        <h1 align=center style='text-align:center'>LISTAR PEDIDOS (CGI)</h1>
                 </strong>
                </font>
         </TD>
        </TABLE>
	<hr>
	<br>
        <TABLE border=1  cellpadding=0 cellspacing=0 width=100%>
	<TR>
         <font color="#AAAAAA" face="sans-serif"><strong>
         <TH valign=middle bgcolor="#008caa">Factura</TH>
         <TH valign=middle bgcolor="#008caa">Art&iacute;culo</TH>
         <TH valign=middle bgcolor="#008caa">Cliente</TH>
         <TH valign=middle bgcolor="#008caa">E-Mail</TH>
         <TH valign=middle bgcolor="#008caa">Direccion</TH>
         <TH valign=middle bgcolor="#008caa">Telefono</TH>
	 </strong></font>
	</TR>

inicio_HTML
}

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

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



