Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

cgi https and perl

by datannen (Novice)
on Sep 05, 2003 at 08:49 UTC ( #289138=perlquestion: print w/ replies, xml ) Need Help??
datannen has asked for the wisdom of the Perl Monks concerning the following question:

Hi, I'm trying to access my perl script to check a PHP session via https and get a Forbidden error. Do I need to change something in my code to allow the script to be accessed via https://site/cgi-bin/script.pl??
#!/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());

Comment on cgi https and perl
Download Code
Re: cgi https and perl
by datannen (Novice) on Sep 05, 2003 at 09:16 UTC
    sorry about this question...was an apache server config issue. I was just tired...time to go to sleep.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://289138]
Approved by Corion
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (8)
As of 2014-08-31 00:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (294 votes), past polls