52 lines
1.1 KiB
Perl
Executable File
52 lines
1.1 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
#script cgi d'identification du client en ligne, avant de passer sa commande
|
|
|
|
use DBI;
|
|
use CGI;
|
|
|
|
require "cgi-lib.pl";
|
|
|
|
$html = new CGI;
|
|
|
|
print $html->header;
|
|
|
|
print <<"EOM";
|
|
|
|
<HTML>
|
|
<HEAD>
|
|
<TITLE>Identification du client</TITLE>
|
|
</HEAD>
|
|
<BODY BGCOLOR=\"\#FFFFFF\">
|
|
<BODY BGCOLOR=\"\#FFFFFF\">
|
|
<spacer TYPE=\"block\" HEIGHT=25>
|
|
<CENTER><H3>Veuillez enregistrer votre adresse e-mail et entrer un mot de passe</H3></CENTER>
|
|
<HR SIZE=7 NO SHADE>
|
|
<P><P>
|
|
<FORM METHOD=\"post\" ACTION=\"http://o2000/cgi/choisi_page.pl\">
|
|
<TABLE ALIGN=center>
|
|
<TR>
|
|
<TD>Votre e-mail</TD>
|
|
<TD></TD>
|
|
<TD><INPUT TYPE=\"text\" NAME=\"email\" SIZE=30></TD>
|
|
</TR>
|
|
<TR>
|
|
<TD>Votre mot de passe</TD>
|
|
<TD></TD>
|
|
<TD><INPUT TYPE=\"password\" NAME=\"entre1\" VALUE=\"Password\" SIZE = 15></TD>
|
|
</TR>
|
|
<TR>
|
|
<TD>Confirmez le mot de passe</TD>
|
|
<TD></TD>
|
|
<TD><INPUT TYPE=\"password\" NAME=\"entre2\" VALUE=\"Password\" SIZE = 15></TD>
|
|
</TR>
|
|
<TR>
|
|
<TD></TD>
|
|
<TD></TD>
|
|
<TD ALIGN=right><INPUT TYPE=\"submit\" VALUE=\"Soumettre\" ></TD>
|
|
</TR>
|
|
</TABLE>
|
|
|
|
</FORM>
|
|
EOM
|