setting cookie then redirect problem

B

bagsmode

Hi,

I'm trying to set a session cookie and then redirect, however I get the
error:

Status: 302 Moved Location: /index.cgi

I thought I recall getting an error like this when I first tried
performing a redirect when I had left in
print "Content-type:text/html\n\n";
before the redirect. After removing that print statement, I was able to
get the redirect test script to execute correctly.

Now I'm getting this "Moved Location" message again. While I'm not doing
the print of the Context.. I am doing a print when saving (?) the cookie
info with:
print $cgi->header( -cookie=>$cookie );

BTW, I tried using #$CGI::Session->header($cgi); but I get an error when
trying to use this about header not being defined or some-such.

TIA
Glenn

Below is the full script:
VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV
#!c:/Perl/bin/Perl.exe

use CGI;
use CGI::Session;
use CGI::Carp qw(fatalsToBrowser);

# READ IN VALUES

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}


# SET "login" AND "pswd"
$session = new CGI::Session("driver:File", undef,
{Directory=>"/windows/temp"});
foreach $key (sort (keys(%FORM))) {
if ($FORM{$key} eq "") {
die_nice("Please fill out the field for <b>$key</b>.");
}
$session->param($key, $FORM{$key});
}

$cgi = new CGI;
$cookie = $cgi->cookie(CGISESSID => $session->id);
print $cgi->header( -cookie=>$cookie );

# REDIRECT BACK TO INDEX
my $url = '/index.cgi';
print $cgi->redirect($url);

exit;

sub die_nice {
print "Content-type:text/html\n\n";
print "<html><head><title>Login Failed</title></head><body>";
my ($err_msg) = @_;
print "<h2><b>Error</b></h2><p>";
print "$err_msg<p>";
print "<br>Use the BACK button to return to the form with your
current fields filled in\n";
print "</body></html>";
exit;
}
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 
J

Jeff Bars

Something like this may help...

reDir("http://wwww.somewhere.com/disclaimer.html");

sub reDir{
$IIS = ($ENV{'SERVER_SOFTWARE'} && ($ENV{'SERVER_SOFTWARE'} =~ /iis/i)) ?
1:0;
chdir($1) if (($IIS) && ($0 =~ /(.*)(\\|\/)/));
print "HTTP/1.0 302 Temporary Redirection\r\n" if ($IIS);
print "Content-type: text/html\r\n";
print "Location: $_[0] \r\n\r\n";
}

-JB





bagsmode said:
Hi,

I'm trying to set a session cookie and then redirect, however I get the
error:

Status: 302 Moved Location: /index.cgi

I thought I recall getting an error like this when I first tried
performing a redirect when I had left in
print "Content-type:text/html\n\n";
before the redirect. After removing that print statement, I was able to
get the redirect test script to execute correctly.

Now I'm getting this "Moved Location" message again. While I'm not doing
the print of the Context.. I am doing a print when saving (?) the cookie
info with:
print $cgi->header( -cookie=>$cookie );

BTW, I tried using #$CGI::Session->header($cgi); but I get an error when
trying to use this about header not being defined or some-such.

TIA
Glenn

Below is the full script:
VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV
#!c:/Perl/bin/Perl.exe

use CGI;
use CGI::Session;
use CGI::Carp qw(fatalsToBrowser);

# READ IN VALUES

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}


# SET "login" AND "pswd"
$session = new CGI::Session("driver:File", undef,
{Directory=>"/windows/temp"});
foreach $key (sort (keys(%FORM))) {
if ($FORM{$key} eq "") {
die_nice("Please fill out the field for <b>$key</b>.");
}
$session->param($key, $FORM{$key});
}

$cgi = new CGI;
$cookie = $cgi->cookie(CGISESSID => $session->id);
print $cgi->header( -cookie=>$cookie );

# REDIRECT BACK TO INDEX
my $url = '/index.cgi';
print $cgi->redirect($url);

exit;

sub die_nice {
print "Content-type:text/html\n\n";
print "<html><head><title>Login Failed</title></head><body>";
my ($err_msg) = @_;
print "<h2><b>Error</b></h2><p>";
print "$err_msg<p>";
print "<br>Use the BACK button to return to the form with your
current fields filled in\n";
print "</body></html>";
exit;
}
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Click to expand...
 
B

bagsmode

Jeff said:
Something like this may help...

reDir("http://wwww.somewhere.com/disclaimer.html");

sub reDir{
$IIS = ($ENV{'SERVER_SOFTWARE'} && ($ENV{'SERVER_SOFTWARE'} =~ /iis/i)) ?
1:0;
chdir($1) if (($IIS) && ($0 =~ /(.*)(\\|\/)/));
print "HTTP/1.0 302 Temporary Redirection\r\n" if ($IIS);
print "Content-type: text/html\r\n";
print "Location: $_[0] \r\n\r\n";
}

-JB

Hi,

I'm trying to set a session cookie and then redirect, however I get the
error:

Status: 302 Moved Location: /index.cgi

I thought I recall getting an error like this when I first tried
performing a redirect when I had left in
print "Content-type:text/html\n\n";
before the redirect. After removing that print statement, I was able to
get the redirect test script to execute correctly.

Now I'm getting this "Moved Location" message again. While I'm not doing
the print of the Context.. I am doing a print when saving (?) the cookie
info with:
print $cgi->header( -cookie=>$cookie );

BTW, I tried using #$CGI::Session->header($cgi); but I get an error when
trying to use this about header not being defined or some-such.

TIA
Glenn

Below is the full script:
VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV
#!c:/Perl/bin/Perl.exe

use CGI;
use CGI::Session;
use CGI::Carp qw(fatalsToBrowser);

# READ IN VALUES

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}


# SET "login" AND "pswd"
$session = new CGI::Session("driver:File", undef,
{Directory=>"/windows/temp"});
foreach $key (sort (keys(%FORM))) {
if ($FORM{$key} eq "") {
die_nice("Please fill out the field for <b>$key</b>.");
}
$session->param($key, $FORM{$key});
}

$cgi = new CGI;
$cookie = $cgi->cookie(CGISESSID => $session->id);
print $cgi->header( -cookie=>$cookie );

# REDIRECT BACK TO INDEX
my $url = '/index.cgi';
print $cgi->redirect($url);

exit;

sub die_nice {
print "Content-type:text/html\n\n";
print "<html><head><title>Login Failed</title></head><body>";
my ($err_msg) = @_;
print "<h2><b>Error</b></h2><p>";
print "$err_msg<p>";
print "<br>Use the BACK button to return to the form with your
current fields filled in\n";
print "</body></html>";
exit;
}
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Click to expand...
Click to expand...

BTW, first off, let me thank Jeff for helping me with the redirect :)
Ended up needing to do meta refresh to forward to the next page.

Now, I'm having an issue with getting the information FROM the cookie.
After saving the login info in the script above using:
$session->param($key, $FORM{$key});
(I'm getting the login information via POST form).

Then I try to retry the information using the method shown at CPAN under
CGI::Session::Tutorial :
--- script redirected to after saving cookie info above ---
#!c:/Perl/bin/Perl.exe

use DBI;
use CGI;
use CGI::Session;
use CGI::Carp qw(fatalsToBrowser);

# CHECK FOR COOKIE INFO--IF DOESN'T EXIST, SEND TO LOGIN
$cgi = new CGI;
$sid = $cgi->cookie('CGISESSID') || $cgi->param('CGISESSID') || undef;
$session = new CGI::Session(undef, $sid, {Directory=>'/windows/temp'});
my $login_name = $session->param(-name=>'login');
--- end ---

When this executes, I get the following:
Software error:

flock() unimplemented on this platform at
C:/Perl/lib/CGI/Session/File.pm line 54.

Should I be using a different version since I'm on win98 of either
CGI::Session or CGI::Session::File?

Thanks,
Glenn
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

How to set a cookie and redirect 11
Python CGI programming on Mac OSX 1
CGI::Cookie problem 0
Using CGI::Cookie 1
Unable to add task to todo list 1
Session Problem in Perl 2
Session Cookie Glitch with mod_perl 2.03 and Apache 2.2.6 1
Session Expiration Problem 0

Members online

No members online now.
Total: 35 (members: 1, guests: 34)
Robots: 484

Forum statistics

Threads
473,769
Messages
2,569,579
Members
45,053
Latest member
BrodieSola

Latest Threads

Top