projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fixes "Error reval-ing" and won't bill errors
[freeside.git]
/
FS
/
FS
/
UID.pm
diff --git
a/FS/FS/UID.pm
b/FS/FS/UID.pm
index
88d7338
..
f5c4f61
100644
(file)
--- a/
FS/FS/UID.pm
+++ b/
FS/FS/UID.pm
@@
-4,6
+4,7
@@
use strict;
use vars qw(
@ISA @EXPORT_OK $cgi $dbh $freeside_uid $user
$conf_dir $secrets $datasrc $db_user $db_pass %callback $driver_name
use vars qw(
@ISA @EXPORT_OK $cgi $dbh $freeside_uid $user
$conf_dir $secrets $datasrc $db_user $db_pass %callback $driver_name
+ $AutoCommit
);
use subs qw(
getsecrets cgisetotaker
);
use subs qw(
getsecrets cgisetotaker
@@
-21,6
+22,8
@@
$freeside_uid = scalar(getpwnam('freeside'));
$conf_dir = "/usr/local/etc/freeside/";
$conf_dir = "/usr/local/etc/freeside/";
+$AutoCommit = 1; #ours, not DBI
+
=head1 NAME
FS::UID - Subroutines for database login and assorted other stuff
=head1 NAME
FS::UID - Subroutines for database login and assorted other stuff
@@
-75,9
+78,10
@@
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, {
$dbh = DBI->connect($datasrc,$db_user,$db_pass, {
- 'AutoCommit' =>
'true'
,
- 'ChopBlanks' =>
'true'
,
+ 'AutoCommit' =>
0
,
+ 'ChopBlanks' =>
1
,
} ) or die "DBI->connect error: $DBI::errstr\n";
swapuid(); #go to non-privledged user if running setuid freeside
} ) or die "DBI->connect error: $DBI::errstr\n";
swapuid(); #go to non-privledged user if running setuid freeside
@@
-256,7
+260,7
@@
coderef into the hash %FS::UID::callback :
=head1 VERSION
=head1 VERSION
-$Id: UID.pm,v 1.
3 2000-06-23 12:25:59
ivan Exp $
+$Id: UID.pm,v 1.
6 2001-04-23 09:00:06
ivan Exp $
=head1 BUGS
=head1 BUGS