projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ba4e1b9
)
possible solution to ticket 1455
author
jeff
<jeff>
Wed, 31 Jan 2007 18:28:51 +0000
(18:28 +0000)
committer
jeff
<jeff>
Wed, 31 Jan 2007 18:28:51 +0000
(18:28 +0000)
FS/FS/part_export/sqlradius.pm
patch
|
blob
|
history
diff --git
a/FS/FS/part_export/sqlradius.pm
b/FS/FS/part_export/sqlradius.pm
index
dadd236
..
c2a1dab
100644
(file)
--- a/
FS/FS/part_export/sqlradius.pm
+++ b/
FS/FS/part_export/sqlradius.pm
@@
-31,6
+31,10
@@
tie %options, 'Tie::IxHash',
type => 'checkbox',
label => 'Show the Called-Station-ID on session reports',
},
type => 'checkbox',
label => 'Show the Called-Station-ID on session reports',
},
+ 'keep_password' => {
+ type => 'checkbox',
+ label => 'Do not change the password on suspend and unsuspend events',
+ },
'groups_susp_reason' => { label =>
'Radius group mapping to reason (via template user)',
type => 'textarea',
'groups_susp_reason' => { label =>
'Radius group mapping to reason (via template user)',
type => 'textarea',
@@
-201,7
+205,8
@@
sub _export_replace {
sub _export_suspend {
my( $self, $svc_acct ) = (shift, shift);
sub _export_suspend {
my( $self, $svc_acct ) = (shift, shift);
- my $new = $svc_acct->clone_suspended;
+ my $new = $self->option('keep_password') ? $svc_acct
+ : $svc_acct->clone_suspended;
local $SIG{HUP} = 'IGNORE';
local $SIG{INT} = 'IGNORE';
local $SIG{HUP} = 'IGNORE';
local $SIG{INT} = 'IGNORE';