diff options
author | jeff <jeff> | 2007-01-31 18:28:51 +0000 |
---|---|---|
committer | jeff <jeff> | 2007-01-31 18:28:51 +0000 |
commit | 5e8eef98b3f9963f835504ddfc1dbf146be07430 (patch) | |
tree | 41c502e0b89a6d93734ac698bb3f9e84c9a8629b | |
parent | ba4e1b9f088bee848cbe86527bc62b01476755c1 (diff) |
possible solution to ticket 1455
-rw-r--r-- | FS/FS/part_export/sqlradius.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/FS/FS/part_export/sqlradius.pm b/FS/FS/part_export/sqlradius.pm index dadd236e7..c2a1dabf3 100644 --- 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', }, + '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', @@ -201,7 +205,8 @@ sub _export_replace { 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'; |