This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Refresh CGI to 2.34
authorChip Salzenberg <chip@perl.com>
Tue, 15 Apr 1997 00:00:00 +0000 (00:00 +0000)
committerChip Salzenberg <chip@atlantic.net>
Mon, 14 Apr 1997 12:00:00 +0000 (00:00 +1200)
eg/cgi/customize.cgi
eg/cgi/tryit.cgi
lib/CGI.pm
lib/CGI/Apache.pm

index d932f4b..c1c8187 100644 (file)
@@ -89,4 +89,4 @@ print hr(),
     hr;
           
 print a({HREF=>"/"},'Go to the home page');
-
+print end_html;
index 155cd72..83c620c 100644 (file)
@@ -32,4 +32,6 @@ if (param()) {
        hr;
 }
 print a({href=>'../cgi_docs.html'},'Go to the documentation');
+print end_html;
+
 
index 28fe43b..30ad7a7 100644 (file)
@@ -28,8 +28,8 @@ $AUTOLOAD_DEBUG=0;
 #    3) print header(-nph=>1)
 $NPH=0;
 
-$CGI::revision = '$Id: CGI.pm,v 2.32 1997/3/19 10:10 lstein Exp $';
-$CGI::VERSION='2.3202';
+$CGI::revision = '$Id: CGI.pm,v 2.34 1997/4/7 7:23 lstein Exp $';
+$CGI::VERSION='2.3401';
 
 # OVERRIDE THE OS HERE IF CGI.pm GUESSES WRONG
 # $OS = 'UNIX';
@@ -87,9 +87,7 @@ $SL = {
 $NPH++ if defined($ENV{'SERVER_SOFTWARE'}) && $ENV{'SERVER_SOFTWARE'}=~/IIS/;
 
 # Turn on special checking for Doug MacEachern's modperl
-if (defined($MOD_PERL = $ENV{'GATEWAY_INTERFACE'}) &&
-    $MOD_PERL =~ /^CGI-Perl/)
-{
+if (defined($ENV{'GATEWAY_INTERFACE'}) && ($MOD_PERL = $ENV{'GATEWAY_INTERFACE'} =~ /^CGI-Perl/)) {
     $NPH++;
     $| = 1;
     $SEQNO = 1;
@@ -176,7 +174,6 @@ sub new {
     my($class,$initializer) = @_;
     my $self = {};
     bless $self,ref $class || $class || $DefaultClass;
-    $CGI::DefaultClass->_reset_globals() if $MOD_PERL;
     $initializer = to_filehandle($initializer) if $initializer;
     $self->init($initializer);
     return $self;
@@ -986,12 +983,11 @@ END_OF_FUNC
 'redirect' => <<'END_OF_FUNC',
 sub redirect {
     my($self,@p) = self_or_default(@_);
-    my($url,$target,$cookie,$nph,@other) =
-       $self->rearrange([[URI,URL],TARGET,COOKIE,NPH],@p);
+    my($url,$target,$cookie,$nph,@other) = $self->rearrange([[URI,URL],TARGET,COOKIE,NPH],@p);
     $url = $url || $self->self_url;
     my(@o);
     foreach (@other) { push(@o,split("=")); }
-    if ($MOD_PERL or exists $self->{'.req'}) {
+    if($MOD_PERL or exists $self->{'.req'}) {
        my $r = $self->{'.req'} || Apache->request;
        $r->header_out(Location => $url);
        $r->err_header_out(Location => $url);
index 6666f19..61b55f5 100644 (file)
@@ -4,10 +4,16 @@ use vars qw(@ISA $VERSION);
 require CGI;
 @ISA = qw(CGI);
 
-$VERSION = (qw$Revision: 1.00 $)[1];
+$VERSION = (qw$Revision: 1.01 $)[1];
 $CGI::DefaultClass = 'CGI::Apache';
 $CGI::Apache::AutoloadClass = 'CGI';
 
+sub import {
+    my $self = shift;
+    my ($callpack, $callfile, $callline) = caller;
+    ${"${callpack}::AutoloadClass"} = 'CGI';
+}
+
 sub new {
     my($class) = shift;
     my($r) = Apache->request;
@@ -75,10 +81,17 @@ When using the Perl-Apache API, your applications are faster, but the
 enviroment is different than CGI.
 This module attempts to set-up that environment as best it can.
 
-=head1 NOTE
+=head1 NOTE 1
 
 This module used to be named Apache::CGI.  Sorry for the confusion.
 
+=head1 NOTE 2
+
+If you're going to inherit from this class, make sure to "use" it
+after your package declaration rather than "require" it.  This is
+because CGI.pm does a little magic during the import() step in order
+to make autoloading work correctly.
+
 =head1 SEE ALSO
 
 perl(1), Apache(3), CGI(3)