diff options
author | ivan <ivan> | 2006-08-06 08:43:40 +0000 |
---|---|---|
committer | ivan <ivan> | 2006-08-06 08:43:40 +0000 |
commit | 7fc8c3c193c3d673a58566569a0e82609212a087 (patch) | |
tree | 53ca89390dc432ed9007cd20fac572883504eba8 /FS/FS/svc_acct.pm | |
parent | 486a0cedc8fc8010e4867516d901beb4cd631d27 (diff) |
add debugging to track down RADIUS group problem
Diffstat (limited to 'FS/FS/svc_acct.pm')
-rw-r--r-- | FS/FS/svc_acct.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index 65dcf915f..ad8d9a152 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -17,6 +17,7 @@ use Carp; use Fcntl qw(:flock); use Date::Format; use Crypt::PasswdMD5 1.2; +use Data::Dumper; use FS::UID qw( datasrc ); use FS::Conf; use FS::Record qw( qsearch qsearchs fields dbh dbdef ); @@ -221,7 +222,11 @@ jobnum(s) (they will not run until the specific job(s) complete(s)). sub insert { my $self = shift; my %options = @_; - my $error; + + if ( $DEBUG ) { + warn "[$me] insert called on $self: ". Dumper($self). + "\nwith options: ". Dumper(%options); + } local $SIG{HUP} = 'IGNORE'; local $SIG{INT} = 'IGNORE'; @@ -234,7 +239,7 @@ sub insert { local $FS::UID::AutoCommit = 0; my $dbh = dbh; - $error = $self->check; + my $error = $self->check; return $error if $error; if ( $self->svcnum && qsearchs('cust_svc',{'svcnum'=>$self->svcnum}) ) { |