PAL.C.T MINI SHELL
#!/usr/bin/perl
# Display a page for iscsi options
use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './iscsi-client-lib.pl';
our (%text);
my $conf = &get_iscsi_config();
&ui_print_header(undef, $text{'iscsi_title'}, "");
print &ui_form_start("save_iscsi.cgi", "post");
print &ui_table_start($text{'iscsi_header'}, undef, 2);
# Start sessions at boot?
my $startup = &find_value($conf, "node.startup");
print &ui_table_row($text{'iscsi_startup'},
&ui_yesno_radio("startup", $startup eq "automatic" ? 1 : 0));
# Login re-try limit
my $retry = &find_value($conf, "node.session.initial_login_retry_max");
print &ui_table_row($text{'iscsi_retry'},
&ui_opt_textbox("retry", $retry, 5, $text{'default'}));
# Max commands in session queue
my $cmds = &find_value($conf, "node.session.cmds_max");
print &ui_table_row($text{'iscsi_cmds'},
&ui_opt_textbox("cmds", $cmds, 5, $text{'default'}));
# Device queue depth
my $queue = &find_value($conf, "node.session.queue_depth");
print &ui_table_row($text{'iscsi_queue'},
&ui_opt_textbox("queue", $queue, 5, $text{'default'}));
print &ui_table_end();
print &ui_form_end([ [ undef, $text{'save'} ] ]);
&ui_print_footer("", $text{'index_return'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`