PAL.C.T MINI SHELL
#!/usr/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("");
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`