diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2013-04-05 01:03:44 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2013-04-05 01:03:44 -0700 |
| commit | 3ff1fb4e10fdaef86527c10bd416e988d2a62a49 (patch) | |
| tree | 114c4e41e06749796283bf475b6fcf1c23171fb4 /FS/FS/CGI.pm | |
| parent | b70a4b7f41c84aefd7f273974db59e5c37fc368b (diff) | |
login/login pages and cookie/session-based auth
Diffstat (limited to 'FS/FS/CGI.pm')
| -rw-r--r-- | FS/FS/CGI.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/FS/FS/CGI.pm b/FS/FS/CGI.pm index 972625ff6..5ac31dbec 100644 --- a/FS/FS/CGI.pm +++ b/FS/FS/CGI.pm @@ -6,7 +6,7 @@ use Exporter; use CGI; use URI::URL; #use CGI::Carp qw(fatalsToBrowser); -use FS::UID; +use FS::UID qw( cgi ); @ISA = qw(Exporter); @EXPORT_OK = qw( header menubar idiot eidiot popurl rooturl table itable ntable @@ -232,7 +232,7 @@ sub rooturl { $url_string = shift; } else { # better to start with the client-provided URL - my $cgi = &FS::UID::cgi; + my $cgi = cgi; $url_string = $cgi->isa('Apache') ? $cgi->uri : $cgi->url; } @@ -244,7 +244,7 @@ sub rooturl { $url_string =~ s{ / - (browse|config|docs|edit|graph|misc|search|view|pref|elements|rt|torrus) + (browse|config|docs|edit|graph|misc|search|view|loginout|pref|elements|rt|torrus) (/process)? ([\w\-\.\/]*) $ |