projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
setup/config updates. getting easier...
[freeside.git]
/
FS
/
FS
/
UID.pm
diff --git
a/FS/FS/UID.pm
b/FS/FS/UID.pm
index
3e71f09
..
f81d8dc
100644
(file)
--- a/
FS/FS/UID.pm
+++ b/
FS/FS/UID.pm
@@
-15,8
+15,8
@@
use DBI;
use FS::Conf;
@ISA = qw(Exporter);
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'));
$freeside_uid = scalar(getpwnam('freeside'));
@@
-65,7
+65,11
@@
Returns the DBI database handle (usually you don't need this).
=cut
sub adminsuidsetup {
=cut
sub adminsuidsetup {
+ $dbh->disconnect if $dbh;
+ &forksuidsetup(@_);
+}
+sub forksuidsetup {
$user = shift;
croak "fatal: adminsuidsetup called without arguements" unless $user;
$user = shift;
croak "fatal: adminsuidsetup called without arguements" unless $user;
@@
-78,7
+82,6
@@
sub adminsuidsetup {
croak "Not running uid freeside!" unless checkeuid();
getsecrets;
croak "Not running uid freeside!" unless checkeuid();
getsecrets;
- $dbh->disconnect if $dbh;
$dbh = DBI->connect($datasrc,$db_user,$db_pass, {
'AutoCommit' => 0,
'ChopBlanks' => 1,
$dbh = DBI->connect($datasrc,$db_user,$db_pass, {
'AutoCommit' => 0,
'ChopBlanks' => 1,
@@
-249,7
+252,7
@@
coderef into the hash %FS::UID::callback :
=head1 VERSION
=head1 VERSION
-$Id: UID.pm,v 1.
8 2001-08-21 09:34:13
ivan Exp $
+$Id: UID.pm,v 1.
10 2001-09-24 03:23:34
ivan Exp $
=head1 BUGS
=head1 BUGS