mirror of
https://github.com/webmin/webmin.git
synced 2025-07-23 00:30:33 +00:00
43 lines
1.2 KiB
Perl
Executable File
43 lines
1.2 KiB
Perl
Executable File
#!/usr/local/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'});
|
|
|
|
|