freeside CGI patch (fwd)

[Bill Fumerola]

On Fri, 18 Sep 1998, Ivan Kohler wrote:

> On Thu, 17 Sep 1998, Bill Fumerola wrote:
> 
> > how important is having CGI-modules installed with the patch. The FreeBSD
> > ports tree already has this module (www/p5-CGI) setup.
> 
> I believe that is CGI.pm, which is different than CGI-modules.

billf at jade$ pwd
/usr/ports/www/p5-CGI
billf at jade$ cat Makefile |grep DISTNAME
DISTNAME=       CGI-modules-2.76
billf at jade$ cat pkg/PLIST |grep Base
lib/perl5/site_perl/%%PERL_VER%%/CGI/Base.pm

Base.pm is the file being patched, so I think p5-CGI is the correct
FreeBSD package/port.

> > Also, if that patch is applied, will it break other things, or is it just
> > something that should have been done anyways?
> Probably something that should have been done anyways.  I'd be surprised
> if it breaks anything else.

I'm including your patch in this email and cc'ing the freebsd ports team
in the p5-CGI maintainer in hopes that he will include this patch and
commit it so I don't have to dupe his stuff and include it in my port for
a two word change.

thank you,

- bill fumerola [root/billf]@chc-chimes.com - computer horizons corp -
-  ph:(800)252.2421 x128 / bfumerol at computerhorizons.com - BF1560  -

	"Logic, like whiskey, loses its beneficial effect 
	when taken in too large quantities" -Lord Dunsany




-------------- next part --------------
ivan at 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);
  }