in reply to CGI Session question
One alternative, if you make a wrapper to autenticate all access is a PATH_INFO adds...
use CGI; my $q = new CGI; my $Key= $ENV{PATH_INFO}; unless ( substr($Key,0,1) eq 'Z' ) { print $q->header, $q->start_form(-action => $ENV{SCRIPT_NAME}."/H" . $ENV{QU +ERY_STRING}), " ... autenticate form ..."; print $q->redirect(); } print $q->header; print " ... autenticated data ... ";
Updated: Insert RTīs link
--
Marco Antonio
Rio-PM
|
|---|