3 use vars qw(@ISA $VERSION);
7 $VERSION = (qw$Revision: 1.1 $)[1];
8 $CGI::DefaultClass = 'CGI::Apache';
9 $CGI::Apache::AutoloadClass = 'CGI';
13 my ($callpack, $callfile, $callline) = caller;
14 ${"${callpack}::AutoloadClass"} = 'CGI';
19 my($r) = Apache->request;
20 %ENV = $r->cgi_env unless defined $ENV{GATEWAY_INTERFACE}; #PerlSetupEnv On
21 my $self = $class->SUPER::new(@_);
27 my ($self,@rest) = CGI::self_or_default(@_);
28 my $r = $self->{'.req'};
29 $r->basic_http_header;
30 return CGI::header($self,@rest);
34 my($self,@rest) = CGI::self_or_default(@_);
35 $self->{'.req'}->print(@rest);
38 sub read_from_client {
39 my($self, $fh, $buff, $len, $offset) = @_;
40 my $r = $self->{'.req'} || Apache->request;
41 return $r->read($$buff, $len, $offset);
44 sub new_MultipartBuffer {
46 my $new = CGI::Apache::MultipartBuffer->new($self, @_);
47 $new->{'.req'} = $self->{'.req'} || Apache->request;
51 package CGI::Apache::MultipartBuffer;
53 @ISA = qw(MultipartBuffer);
55 $CGI::Apache::MultipartBuffer::AutoloadClass = 'MultipartBuffer';
56 *CGI::Apache::MultipartBuffer::read_from_client =
57 \&CGI::Apache::read_from_client;
66 CGI::Apache - Make things work with CGI.pm against Perl-Apache API
72 my $q = new Apache::CGI;
74 $q->print($q->header);
76 #do things just like you do with CGI.pm
80 When using the Perl-Apache API, your applications are faster, but the
81 environment is different than CGI.
82 This module attempts to set-up that environment as best it can.
86 This module used to be named Apache::CGI. Sorry for the confusion.
90 If you're going to inherit from this class, make sure to "use" it
91 after your package declaration rather than "require" it. This is
92 because CGI.pm does a little magic during the import() step in order
93 to make autoloading work correctly.
97 perl(1), Apache(3), CGI(3)
101 Doug MacEachern E<lt>dougm@osf.orgE<gt>, hacked over by Andreas KE<ouml>nig E<lt>a.koenig@mind.deE<gt>, modified by Lincoln Stein <lt>lstein@genome.wi.mit.edu<gt>