adminsuidsetup;
- $cgi = new CGI::Base;
- $cgi->get;
+ $cgi = new CGI;
$dbh = cgisuidsetup($cgi);
$dbh = dbh;
$dbh;
}
-=item cgisuidsetup CGI::Base_OBJECT
-Stores the CGI::Base_OBJECT for later use.
+=item cgisuidsetup CGI_object
+
+Stores the CGI (see L<CGI>) object for later use. (CGI::Base is depriciated)
Runs adminsuidsetup.
=cut
sub cgisuidsetup {
$cgi=$_[0];
+ if ( $cgi->isa('CGI::Base') ) {
+ carp "Use of CGI::Base is depriciated";
+ } elsif ( ! $cgi->isa('CGI') ) {
+ croak "Pass a CGI object to cgisuidsetup!";
+ }
adminsuidsetup;
}
+=item cgi
+
+Returns the CGI (see L<CGI>) object.
+
+=cut
+
+sub cgi {
+ $cgi;
+}
+
=item dbh
Returns the DBI database handle.
=cut
sub getotaker {
- if ($cgi && defined $cgi->var('REMOTE_USER')) {
+ if ( $cgi && $cgi->can('var') && defined $cgi->var('REMOTE_USER')) {
+ carp "Use of CGI::Base is depriciated";
return $cgi->var('REMOTE_USER'); #for now
+ } elsif ( $cgi && $cgi->can('remote_user') && defined $cgi->remote_user ) {
+ return $cgi->remote_user;
} else {
- 'freeside';
+ return 'freeside';
}
}
=head1 SEE ALSO
-L<FS::Record>, L<CGI::Base>, L<DBI>
+L<FS::Record>, L<CGI>, L<DBI>
=head1 HISTORY
inlined suidsetup
ivan@sisd.com 98-sep-12
+$Log: UID.pm,v $
+Revision 1.3 1998-11-08 10:45:42 ivan
+got sub cgi for FS::CGI
+
+Revision 1.2 1998/11/08 09:38:43 ivan
+cgisuidsetup complains if you pass it a isa CGI::Base instead of an isa CGI
+(first step in migrating from CGI-modules to CGI.pm)
+
+
=cut
1;