Tweet
möchte abfragen, ob ein benutzer in eine Datenbank eingetragen ist (mit Passwort), wenn ja, soll ein cookie erstellt werden. folgenden Code hab ich zusammengebastelt, aber es funktioniert nicht, weiß jemand warum:
#!/usr/bin/perl
use DBI;
require "/usr/logins/usercgi/oracle_setup.pl";
use CGI;
$gen_cgi=new CGI;
$name = $gen_cgi->param('user');
$pass = $gen_cgi->param('pass');
$dbh = DBI->connect('DBI:Oracle:', '********', '********' );
$sth = $dbh->prepare("select passwd where name=$name");
$sth->execute;
if ($sth eq $pass) {
$c = new CGI;
$cook = $c->cookie(-name=>'userid', -value=>'logged');
print $c->header(-cookie=>$cook);
print "You are now logged in!";
} elsif
print "Not logged in!";
#!/usr/bin/perl
use DBI;
require "/usr/logins/usercgi/oracle_setup.pl";
use CGI;
$gen_cgi=new CGI;
$name = $gen_cgi->param('user');
$pass = $gen_cgi->param('pass');
$dbh = DBI->connect('DBI:Oracle:', '********', '********' );
$sth = $dbh->prepare("select passwd where name=$name");
$sth->execute;
if ($sth eq $pass) {
$c = new CGI;
$cook = $c->cookie(-name=>'userid', -value=>'logged');
print $c->header(-cookie=>$cook);
print "You are now logged in!";
} elsif
print "Not logged in!";
