nop has asked for the wisdom of the Perl Monks concerning the following question:
my $user = $q->remote_user; my $password = "password"; # doesn't matter if ($user ne "" and $password ne "") { my $access = &authorize($user,$password); my $c_a = $q->cookie(-name=>'access', -value=>$access, -expires=>$expires); my $c_u = $q->cookie(-name=>'user', -value=>$user, -expires=>$expires); print $q->header(-cookie=>[$c_a, $c_u]) . $q->start_html(-title=>"R3: login", -style=>{-code=>&css()}) . "<h1>Welcome to R3!</h1><h2>Hello, $user.<h2><h3>You have access l +evel $access and are logged in for $expires.<br>Have a nice day.</h3> +" . $q->end_html; exit(0);
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: cgi cookie failure
by Fastolfe (Vicar) on Oct 04, 2000 at 23:02 UTC | |
|
Re: cgi cookie failure
by isotope (Deacon) on Oct 05, 2000 at 02:51 UTC | |
|
Re: cgi cookie failure
by wardk (Deacon) on Oct 05, 2000 at 00:47 UTC | |
|
RE: cgi cookie failure
by nop (Hermit) on Oct 05, 2000 at 01:06 UTC |