Page Redirect Bug Fix
Status: Alpha
Brought to you by:
lrdchaos
Menu
▾
▴
#1 Page Redirect Bug Fix
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.
The patched CHAOS.CGI