- or download this
my $cookie = $q->cookie( -name => 'sessionID',
-value => \@sessionID,
...
-path => '/admin/',
-domain => '.mydomain.com',
-secure => 0 );
- or download this
Name: sessionID
Information: username&password
Domain: .mydomain.com
Path: /admin/
Server Secure: no
- or download this
if ($q->cookie("sessionID")) {
($submitted_user, $submitted_pass) = @{ $q->cookie("sessionID") };
} else {
error("Invalid user/pass. Please login again.");
}