#!/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());
In reply to cgi https and perl by datannen
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |