Отпечатай - Някой да каже какво не му е наред

#!/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>
);

Цитат (pcdimo @ Авг. 16 2004,19:41)

#!/usr/bin/perl
use warnings;

use DBI;
use CGI::Session;
use CGI;

require 'cgi-lib.pl';
#това не ти е нужно мисля

Ако това
require 'cgi-lib.pl';
е онова за което си мисля,
не ти трябва.
CGI е това което ти трябва. Прочети документацията
cgi-lib.pl е просто старото за perl4.
Днес (от години) не се ползва
после...

Цитат

print $cookie = $cgi->cookie(CGISESSID => $session->id);
print $cgi->header( -cookie=>$cookie );

като ползваш
$cgi->anything()
къде си създал обекта?
my $cgi=CGI->new();

Не съм работил със CGI::Сессион

Linux за българи: Форуми

Програмиране => Web development => Темата е започната от: pcdimo в Aug 16, 2004, 19:41