#!/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>
);
Автор
Тема: Някой да каже какво не му е наред (Прочетена 1500 пъти)