perl cgi problem

Tue, 18 Jan 2005 04:37:47 -0800 

Hejsan

Har ett litet bekymmer med perl och cgi.

Jag har ett formul�r som skall matas till ett perlscript som sen i sin tur ska stoppa in v�rdena i en mysql databas. Min query �r korrekt utan problemet �r just i cgi delen - i param v�rdena om jag inte misstar mig. Jag �r t�mligen �vertygad om att jag inte anv�nder param() p� ett korrekt s�tt men har sv�rt att begripa hur jag skall g�ra. Tacksam f�r eventuell hj�lp i denna del.

perl -c s�ger att syntaxen �r ok

Nedan f�ljer de aktuella delarna av perlskriptet

#!/usr/bin/perl -w

use DBI;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
use strict;

#globala variabler
my($dbname)="test";
my($host)="localhost";
my($user)="xxxxxxxx";
my($password)="yyyyyyyy";

my($dbh) = DBI->connect("dbi:mysql:database=$dbname;host=$host", $user, $password, { RaiseError=> 1, PrintError=> 1})
or err_trap("Cannot connect to the database");

my @param=param();
my [EMAIL PROTECTED];

my $query = "INSERT INTO perl (name, email)
          VALUES ('$param(name)','$param(email)')";

my $sth = $dbh->prepare($query);

$sth->execute();
print "Record inserterted into database";
$sth->finish();
#disconnect
$dbh->disconnect;

Till