diff options
| author | ivan <ivan> | 1998-08-13 01:04:57 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1998-08-13 01:04:57 +0000 |
| commit | 91eaf0c699150b81a1347e02826b5fa61ef27494 (patch) | |
| tree | e17b862ff3008597d1b45f763e1d3daa4a6bd042 /htdocs/docs/CGI-modules-2.76-patch.txt | |
| parent | 6feb45e3147c6b045d68cdfaf13b3466e94b2bc5 (diff) | |
Initial revision
Diffstat (limited to 'htdocs/docs/CGI-modules-2.76-patch.txt')
| -rwxr-xr-x | htdocs/docs/CGI-modules-2.76-patch.txt | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/htdocs/docs/CGI-modules-2.76-patch.txt b/htdocs/docs/CGI-modules-2.76-patch.txt new file mode 100755 index 000000000..55b50bbbe --- /dev/null +++ b/htdocs/docs/CGI-modules-2.76-patch.txt @@ -0,0 +1,23 @@ +ivan@rootwood:~/src/CGI-modules-2.76/CGI$ diff -c Base.pm Base.pm.orig +*** Base.pm Sat Jul 18 00:33:21 1998 +--- Base.pm.orig Sat Jul 18 00:06:12 1998 +*************** +*** 938,945 **** + my $orig_uri = $self->get_uri; + $self->log("Redirecting $CGI::Base::REQUEST_METHOD $orig_uri to $to_uri") + if $Debug; +! my $msg = ($perm) ? StatusHdr(301,"Moved Permanently") +! : StatusHdr(302,"Moved Temporarily"); + my $hdrs = SendHeaders($msg, LocationHdr($to_uri)); + $self->log($hdrs); + } +--- 938,945 ---- + my $orig_uri = $self->get_uri; + $self->log("Redirecting $CGI::Base::REQUEST_METHOD $orig_uri to $to_uri") + if $Debug; +! my $msg = ($perm) ? ServerHdr(301,"Moved Permanently") +! : ServerHdr(302,"Moved Temporarily"); + my $hdrs = SendHeaders($msg, LocationHdr($to_uri)); + $self->log($hdrs); + } + |