PAL.C.T MINI SHELL
#!/usr/bin/perl
# Display all active connections, with an option to add a new one
use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './iscsi-client-lib.pl';
our (%text);
&ui_print_header(undef, $text{'conns_title'}, "");
my $conns = &list_iscsi_connections();
ref($conns) || &error(&text('conns_elist', $conns));
if (@$conns) {
# Show current connections
my @tds = ( "width=5" );
my @links = ( &select_all_link("d"), &select_invert_link("d") );
print &ui_form_start("delete_conns.cgi");
print &ui_links_row(\@links);
print &ui_columns_start(
[ "", $text{'conns_ip'}, $text{'conns_sport'},
$text{'conns_iface'}, $text{'conns_name'},
$text{'conns_target'}, $text{'conns_username'},
$text{'conns_device'} ],
100, 0, \@tds);
foreach my $c (@$conns) {
print &ui_checked_columns_row([
&ui_link("view_conn.cgi?num=$c->{'num'}",$c->{'ip'}),
$c->{'port'},
$c->{'iface'},
$c->{'name'},
$c->{'target'},
$c->{'username'} || "<i>$text{'conns_nouser'}</i>",
$c->{'device'} ?
"<a href='../fdisk/edit_disk.cgi?".
"device=$c->{'device'}'>$c->{'device'}</a>" :
"<i>$text{'conns_nodevice'}</i>",
], \@tds, "d", $c->{'num'});
}
print &ui_columns_end();
print &ui_links_row(\@links);
print &ui_form_end([ [ undef, $text{'conns_delete'} ] ]);
}
else {
print "<b>$text{'conns_none'}</b><p>\n";
}
# Show form to add
print &ui_form_start("add_form.cgi", "post");
print &ui_table_start($text{'conns_header'}, undef, 2);
# Server hostname or IP
print &ui_table_row($text{'conns_host'},
&ui_textbox("host", undef, 40));
# Server port
print &ui_table_row($text{'conns_port'},
&ui_opt_textbox("port", undef, 5, $text{'default'}." (3260)"));
# Interface to use
my $ifaces = &list_iscsi_ifaces();
if (ref($ifaces)) {
print &ui_table_row($text{'conns_iface'},
&ui_select("iface", undef,
[ [ undef, "<".$text{'conns_ifacedef'}.">" ],
map { $_->{'name'} } @$ifaces ]));
}
print &ui_table_end();
print &ui_form_end([ [ undef, $text{'conns_start'} ] ]);
&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`