mirror of
https://github.com/webmin/webmin.git
synced 2025-07-20 16:48:46 +00:00
42 lines
1.3 KiB
Perl
Executable File
42 lines
1.3 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Save timeout options
|
|
|
|
use strict;
|
|
use warnings;
|
|
no warnings 'redefine';
|
|
no warnings 'uninitialized';
|
|
require './iscsi-client-lib.pl';
|
|
our (%text, %config, %in);
|
|
&ReadParse();
|
|
&lock_file($config{'config_file'});
|
|
my $conf = &get_iscsi_config();
|
|
&error_setup($text{'timeout_err'});
|
|
|
|
# Session re-establishment timeout
|
|
my $timeout = $in{'timeout_def'} == 1 ? undef :
|
|
$in{'timeout_def'} == 2 ? 0 :
|
|
$in{'timeout_def'} == 3 ? -1 : $in{'timeout'};
|
|
$timeout =~ /^\-?\d+$/ || &error($text{'timeout_etimeout'});
|
|
&save_directive($conf, "node.session.timeo.replacement_timeout", $timeout);
|
|
|
|
# Other connection timeouts
|
|
foreach my $t ("login_timeout", "logout_timeout", "noop_out_interval",
|
|
"noop_out_timeout") {
|
|
my $v = $in{$t."_def"} ? undef : $in{$t};
|
|
!defined($v) || $v =~ /^\d+$/ || &error($text{'timeout_e'.$t});
|
|
&save_directive($conf, "node.conn[0].timeo.$t", $v);
|
|
}
|
|
|
|
# Other error timeouts
|
|
foreach my $t ("abort_timeout", "lu_reset_timeout", "tgt_reset_timeout") {
|
|
my $v = $in{$t."_def"} ? undef : $in{$t};
|
|
!defined($v) || $v =~ /^\d+$/ || &error($text{'timeout_e'.$t});
|
|
&save_directive($conf, "node.session.err_timeo.$t", $v);
|
|
}
|
|
|
|
&flush_file_lines($config{'targets_file'});
|
|
&unlock_file($config{'config_file'});
|
|
&webmin_log("timeout");
|
|
&redirect("");
|
|
|