diff options
| -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'; |