I have a slight dilemma...

I'm working on a "Back" script that uses the information stored in cookies to reload a CGI page. The information (username, password, and project file) are stored in three different cookies. The program reads these cookies, then redirects the user to the CGI page. If one of the cookies is empty, it has the user manually sign back in by sending him or her to a default page.

This code works, but only for Netscape 6. IE 5 and Netscape 4.75 get 500 errors.

Here's the code...

use vars qw( $q $redirect );
use CGI;

$q = new CGI;

checkCookies($q);
print $q->redirect(-url=>"http://www.mysite.com/index.pl$redirect");

[download]

and checkCookies looks like:

sub checkCookies {

my $q = shift;

my $client = $q->cookie("cuser") || '';
my $password = $q->cookie("cpswd") || '';
my $project = $q->cookie("cproj") || '';

if(($client ne '') && ($password ne '') && ($project ne '')){
return "?action=display&uid=$client&pass=$password&ppa=$project";
}
else{ return ''; }
}

[download]

Is this something I've misprogrammed, or is this merely a browser bug?

Also, does anyone know of a way I can save state while a person is outside of a CGI page?

For now, I'll have users open new windows to enter the unCGI area, and just close them instead of attempting to keep them entirely in one window.

Thanks in advance...

John J Reiser
newrisedesigns.com

In reply to Redirection problems with Perl, Netscape and IE by newrisedesigns

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.