Menu

#1 Page Redirect Bug Fix

Public_Alpha_1
open-accepted
Bug Fixes (1)
9
2001-12-05
2001-12-05
No

Edit CHAOS.CGI, and find the following code:
sub output {
my ($title, $text) = @_;
if ($themember ne "" && $themember ne "Guest")
{
if ($cookieExp eq "") {
$cookieExp = '+1y';
}
$memberc = new CGI::Cookie(-name
=> 'member', -value => $themember, -expires =>
$cookieExp);
$passwordc = new CGI::Cookie(-name
=> 'password', -value => $thepassword, -expires =>
$cookieExp);
print $query->header(-cookie =>
[$memberc, $passwordc]);
} else {
print $query->header;
}
if ($redirect ne "") {
$redirect = qq~<meta http-
equiv="refresh" content="4;$redirect">~;
}
print
qq~<html><head>$redirect<title>$title</title></head><bo
dy>~;
&boardHeader;
print $text;
&boardFooter;
print qq~</body></html>~;
}

That should occur at about line 127.

Change that to:

sub output {
my ($title, $text) = @_;
if ($themember ne "" && $themember ne "Guest")
{
if ($cookieExp eq "") {
$cookieExp = '+1y';
}
$memberc = new CGI::Cookie(-name
=> 'member', -value => $themember, -expires =>
$cookieExp);
$passwordc = new CGI::Cookie(-name
=> 'password', -value => $thepassword, -expires =>
$cookieExp);
print $query->header(-cookie =>
[$memberc, $passwordc]);
} else {
print $query->header;
}
if ($redirect ne "") {
$redirect = qq~<meta http-
equiv="refresh" content="4;url=$redirect">~;
# die "$redirect";
}
print
qq~<html><head>$redirect<title>$title</title></head><bo
dy>~;
&boardHeader;
print $text;
&boardFooter;
print qq~</body></html>~;
}

And page redirects should work.
Alternately, you can simply upload the attached
version of CHAOS.CGI over the existing one.

Discussion

  • Phil Gengler

    Phil Gengler - 2001-12-05

    The patched CHAOS.CGI

     
  • Phil Gengler

    Phil Gengler - 2001-12-05
    • status: open --> open-accepted
     

Log in to post a comment.

Want the latest updates on software, tech news, and AI?
Get latest updates about software, tech news, and AI from SourceForge directly in your inbox once a month.