diff options
| author | ivan <ivan> | 1998-11-08 10:45:42 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1998-11-08 10:45:42 +0000 |
| commit | 44ea6c1538ce923c333796b0784aded5f64be761 (patch) | |
| tree | d96afae593c6761946149f63e0cd0bbe5e8b9aa5 /site_perl | |
| parent | 1b1dd72e3722189a339898d20eabeb1f1bdafce1 (diff) | |
got sub cgi for FS::CGI
Diffstat (limited to 'site_perl')
| -rw-r--r-- | site_perl/UID.pm | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/site_perl/UID.pm b/site_perl/UID.pm index 00adfc0c5..7959343e0 100644 --- a/site_perl/UID.pm +++ b/site_perl/UID.pm @@ -95,6 +95,16 @@ sub cgisuidsetup { adminsuidsetup; } +=item cgi + +Returns the CGI (see L<CGI>) object. + +=cut + +sub cgi { + $cgi; +} + =item dbh Returns the DBI database handle. @@ -212,7 +222,10 @@ inlined suidsetup ivan@sisd.com 98-sep-12 $Log: UID.pm,v $ -Revision 1.2 1998-11-08 09:38:43 ivan +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) |