diff options
author | ivan <ivan> | 2001-09-24 03:23:34 +0000 |
---|---|---|
committer | ivan <ivan> | 2001-09-24 03:23:34 +0000 |
commit | a08b4d18bc28e44fe236f1060632ffefc773f78b (patch) | |
tree | e561862de4dc27ce045e702fdcbb62d0f4ffbbfe /FS/FS/UID.pm | |
parent | 6e66ba42e0a4ddd87e1491ad23a8fb4de0241ffd (diff) |
queue daemon forks now
Diffstat (limited to 'FS/FS/UID.pm')
-rw-r--r-- | FS/FS/UID.pm | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/FS/FS/UID.pm b/FS/FS/UID.pm index f80156e97..f81d8dcdd 100644 --- a/FS/FS/UID.pm +++ b/FS/FS/UID.pm @@ -15,8 +15,8 @@ use DBI; use FS::Conf; @ISA = qw(Exporter); -@EXPORT_OK = qw(checkeuid checkruid cgisuidsetup - adminsuidsetup getotaker dbh datasrc getsecrets driver_name ); +@EXPORT_OK = qw(checkeuid checkruid cgisuidsetup adminsuidsetup forksuidsetup + getotaker dbh datasrc getsecrets driver_name ); $freeside_uid = scalar(getpwnam('freeside')); @@ -65,7 +65,11 @@ Returns the DBI database handle (usually you don't need this). =cut sub adminsuidsetup { + $dbh->disconnect if $dbh; + &forksuidsetup(@_); +} +sub forksuidsetup { $user = shift; croak "fatal: adminsuidsetup called without arguements" unless $user; @@ -78,7 +82,6 @@ sub adminsuidsetup { croak "Not running uid freeside!" unless checkeuid(); getsecrets; - $dbh->disconnect if $dbh; $dbh = DBI->connect($datasrc,$db_user,$db_pass, { 'AutoCommit' => 0, 'ChopBlanks' => 1, @@ -118,7 +121,7 @@ Returns the CGI (see L<CGI>) object. =cut sub cgi { - #carp "warning: \$FS::UID::cgi isa Apache" if $cgi->isa('Apache'); + carp "warning: \$FS::UID::cgi isa Apache" if $cgi->isa('Apache'); $cgi; } @@ -249,7 +252,7 @@ coderef into the hash %FS::UID::callback : =head1 VERSION -$Id: UID.pm,v 1.9 2001-09-06 20:41:59 ivan Exp $ +$Id: UID.pm,v 1.10 2001-09-24 03:23:34 ivan Exp $ =head1 BUGS |