#!/usr/bin/perl use warnings;
use DBI; use CGI::Session; use CGI;
require 'cgi-lib.pl';
print "Content-type: text/html\n\n";
$session = new CGI::Session("driver:File", undef, {Directory=>"/tmp"}); print $sid = $session->id(); print $cookie = $cgi->cookie(CGISESSID => $session->id); print $cgi->header( -cookie=>$cookie );
&ReadParse(*input) ;
print $first=$input{'first_name'}; $session->param('f_name', $first); $f_name = $session->param('f_name');
$last=$input{'last_name'}; $session->param('l_name', $last); $l_name = $session->param('l_name');
$add=$input{'address'}; $session->param('address', $add); $address=$session->param('address'); $grad=$input{'city'}; $session->param('city', $grad); $city= $session->param('city'); $durjava=$input{'country'}; $session->param('country', $durjava); $country=$session->param(country);
$mail=$input{'email'}; $session->param('email', $mail); $email=$session->param('email');
$pass=$input{'passwd'}; $session->param('passwd', $pass); $password=$session->param('passwd');
$ip= $ENV{'REMOTE_ADDR'}.$tt; $session->param('ip', $ip); $iphost=$session->param('ip');
if ($f_name eq " " or $l_name eq " " or $city eq " " or $country eq " " or $address eq " " or $email eq " " or $password eq " "){die print "<center><br>Не сте въвели данни";}
$tt = localtime(); $myu="root"; $myp=""; $dbh=DBI->connect('dbi:mysql:perl', $myu, $myp) or die "$DBI:errstr\n";
$vnesi=$dbh->prepare ("INSERT INTO user (first_name, last_name ,address,city,country,email,password,ip) VALUES ('$f_name','$l_name', '$address','$city','$country','$email','$password','$iphost');") || die "$DBI::errstr\n"; $vnesi->execute() || die "$DBI:errstr\n";
$res=$dbh->prepare ("select * from user;") || die "$DBI::errstr\n"; $res->execute() ;
while (@all = $res ->fetchrow_array) { $name=$all[1],"\n";
}
$tt = localtime(); @tt1=split(/ /, $tt);
print qq( <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
</head> <body bgcolor="white" text="black"> <table align="center" border="1" width="40%"> <tr align="center"><td colspan="2"><p><b>Вашите данни</td><tr> <tr><td width="50%" align="center">Име</td><td align="left"> $f_name </td></tr>
<tr><td width="50%" align="center">Фамилия</td><td align="left"> $l_name</td></tr>
<tr><td width="50%" align="center">Адрес</td><td align="left"> $address </td></tr>
<tr><td width="50%" align="center">Град</td><td align="left"> $city </td></tr>
<tr><td width="50%" align="center">Държава</td><td align="left"> $country </td></tr> <tr><td width="50%" align="center">E-Mail</td><td align="left"> $email </td></tr>
<tr><td width="50%" align="center">Парола</td><td align="left">); for ($i = 0; $i < length($password); $i++) {print "*";} print qq( <tr><td width="50%" align="center">IP</td><td align="left">); print $iphost ;
$dbh->disconnect();
# expire the session itself after 1 idle hour $session->expire('+1h');
# delete the session for good #$session->delete();
print qq(
</td></tr><form action="arhiv.pl" method="POST"> <tr><td colspan="2" align="center"> <input type="submit" name="submit" value=" Submit Registration " ></td></tr></table> </body> </html> );
|