Hi! I am I doing this right?
use strict; use DBI; use CGI qw(:standard); use File::Basename; my $query=new CGI; print $query->header(); print $query->start_html( -title=>'JERRY PRESTON COOKIES' ); print $query->startform( -method=>'POST', -name =>'JERRY PRESTON COOKIES'); my $expiration = "+1y"; my $username = "jerryp"; my $database = "testdb"; my $password = "testword"; my $usercookie = cookie(-name=>"$database.username",-value=>"$username",-expires=>"$expiratio n"); my $passcookie = cookie(-name=>"$database.password",-value=>"$password",-expires=>"$expiratio n"); print header(-cookie=>[$usercookie,$passcookie]); $username = cookie("$database.username");# or return(1); $password = cookie("$database.password");# or return(1); print "<br><br>$database * username *$username* password *$password*<BR>"; I get nothing when I print out: print "<br><br>$database * username *$username* password *$password*<BR>"; What am I doing wrong? Is there a better way? How can I check on my PC to see the cookies? I am running this script on a SUN 2.8. Thanks, Jerry