Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

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/
#!/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?

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

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (16)
As of 2015-03-30 16:22 GMT
Find Nodes?
    Voting Booth?

    When putting a smiley right before a closing parenthesis, do you:

    Results (649 votes), past polls