summaryrefslogtreecommitdiff
path: root/FS/FS/part_export
diff options
context:
space:
mode:
authorJonathan Prykop <jonathan@freeside.biz>2015-07-27 18:27:11 -0500
committerJonathan Prykop <jonathan@freeside.biz>2015-07-27 18:27:11 -0500
commite924a5055f046a8ad29c5d1a2a26902f2d4847a0 (patch)
tree24092f7e0a9375d3c4ee18bfbc96de75a05bb5b1 /FS/FS/part_export
parent09ae66f29fc7cbd46c13ae1f9361713cbce54153 (diff)
RT#37163: Disconnect Users via Radclient [got rid of ignore_error]
Diffstat (limited to 'FS/FS/part_export')
-rw-r--r--FS/FS/part_export/sqlradius.pm10
1 files changed, 1 insertions, 9 deletions
diff --git a/FS/FS/part_export/sqlradius.pm b/FS/FS/part_export/sqlradius.pm
index 048a244..f0ef3fc 100644
--- a/FS/FS/part_export/sqlradius.pm
+++ b/FS/FS/part_export/sqlradius.pm
@@ -80,10 +80,6 @@ tie %options, 'Tie::IxHash',
'disconnect_port' => {
label => 'Port to send disconnection requests to, default 1700',
},
- 'disconnect_ignore_error' => {
- label => 'Ignore disconnection request errors',
- type => 'checkbox',
- },
;
$notes1 = <<'END';
@@ -270,7 +266,6 @@ sub _export_replace {
'disconnect_ssh' => $self->option('disconnect_ssh'),
'svc_acct_username' => $old->username,
'disconnect_port' => $self->option('disconnect_port'),
- 'ignore_error' => $self->option('disconnect_ignore_error'),
);
unless ( ref($err_or_queue) ) {
$dbh->rollback if $oldAutoCommit;
@@ -418,7 +413,6 @@ sub _export_delete {
'disconnect_ssh' => $self->option('disconnect_ssh'),
'svc_acct_username' => $svc_x->username,
'disconnect_port' => $self->option('disconnect_port'),
- 'ignore_error' => $self->option('disconnect_ignore_error'),
);
return $err_or_queue unless ref($err_or_queue);
if ( $jobnum ) {
@@ -1258,8 +1252,6 @@ I<svc_acct_username> - the user to be disconnected (required)
I<disconnect_port> - the port (on the nas) to send disconnect requests to (defaults to 1700)
-I<ignore_error> - do not die on error with the disconnect request
-
Note this is NOT the opposite of sqlradius_connect.
=cut
@@ -1294,7 +1286,7 @@ sub sqlradius_user_disconnect {
if $error && (@$nas > 1);
$error = "No clients found"
unless @$nas;
- die $error if $error && !$opt{'ignore_error'};
+ die $error if $error;
return '';
}