datannen has asked for the wisdom of the Perl Monks concerning the following question:
#!/usr/bin/perl use CGI qw(:standard); use CGI::Cookie; use PHP::Session; %cookies = fetch CGI::Cookie; print (header()); print (start_html({title => "Admin Cookie CGI"})); print "Actual Cookies present:\n"; foreach $key (sort keys %cookies) { print "Cookie: $key Value: $cookies{$key}\n"; } print "Getting PHP Session variables..."; my $session = PHP::Session->new($cookies{PHPSESSID}->value); $id = $session->id; if ($session->is_registered('Is_An_Admin')) { $userid = $session->get('UserID'); } else { $userid = "Not a valid admin"; } print <<ENDH; <br><br> Admin UserID: $userid <h1>End Cookie test</h1> ENDH print (end_html());
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: cgi https and perl
by datannen (Novice) on Sep 05, 2003 at 09:16 UTC |