Gecko [ 122.154.134.11 ]

Name	Size	Permission
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	127 B	-rw-r--r--
atboot.cgi	658 B	-rwxr-xr-x
config	70 B	-rw-r--r--
config-Amazon-Linux-2-ALL	184 B	-rw-r--r--
config-CentOS-Linux-7.0-ALL	184 B	-rw-r--r--
config-Redhat-Enterprise-Linux...	184 B	-rw-r--r--
config-Scientific-Linux-7.0-AL...	184 B	-rw-r--r--
config-debian-linux	92 B	-rw-r--r--
config-redhat-linux	128 B	-rw-r--r--
config-syno-linux	70 B	-rw-r--r--
config.info	421 B	-rw-r--r--
config.info.ca	487 B	-rw-r--r--
config.info.ca.UTF-8	492 B	-rw-r--r--
config.info.de	504 B	-rw-r--r--
config.info.de.UTF-8	504 B	-rw-r--r--
config.info.no	465 B	-rw-r--r--
config.info.no.UTF-8	465 B	-rw-r--r--
delete_targets.cgi	927 B	-rwxr-xr-x
edit_manual.cgi	1 KB	-rwxr-xr-x
edit_target.cgi	5.36 KB	-rwxr-xr-x
index.cgi	2.7 KB	-rwxr-xr-x
install_check.pl	346 B	-rwxr-xr-x
iscsi-tgtd-lib.pl	11.61 KB	-rw-r--r--
log_parser.pl	457 B	-rwxr-xr-x
module.info	196 B	-rw-r--r--
module.info.ca	136 B	-rw-r--r--
module.info.ca.UTF-8	149 B	-rw-r--r--
module.info.de	123 B	-rw-r--r--
module.info.de.UTF-8	135 B	-rw-r--r--
restart.cgi	298 B	-rwxr-xr-x
save_manual.cgi	631 B	-rwxr-xr-x
save_target.cgi	4.42 KB	-rwxr-xr-x
start.cgi	275 B	-rwxr-xr-x
stop.cgi	250 B	-rwxr-xr-x

Code Editor : index.cgi

#!/usr/bin/perl
# Display a list of iSCSI targets

use strict;
use warnings;
require './iscsi-tgtd-lib.pl';
our (%text, %config, $module_name);

&ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1, 0,
		 &help_search_link("tgtadm", "man", "doc", "google"));

my $err = &check_config();
if ($err) {
	&ui_print_endpage(
		$err." ".&text('index_clink', "../config.cgi?$module_name"));
	}

# Find and show targets
my $conf = &get_tgtd_config();
my @targets = grep { $_->{'name'} eq 'target' } @$conf;
my @crlinks = ( &ui_link("edit_target.cgi?new=1",$text{'index_add'}) );
if (@targets) {
	unshift(@crlinks, &select_all_link("d"), &select_invert_link("d"));
	print &ui_form_start("delete_targets.cgi");
	print &ui_links_row(\@crlinks);
	my @tds = ( "width=5" );
	print &ui_columns_start([
		"", $text{'index_target'}, $text{'index_lun'},
		$text{'index_size'}, $text{'index_users'},
		], 100, 0, \@tds);
	foreach my $t (@targets) {
		my @luns;
		my $size = 0;
		foreach my $l (&find($t, 'backing-store'),
			 &find($t, 'direct-store')) {
			my $v = $l->{'values'}->[0];
			push(@luns, &mount::device_name($v));
			$size += &get_device_size($v);
			}
		my @users = map { $_->{'values'}->[0] }
				&find($t, "incominguser");
		if (@users > 5) {
			@users = (@users[0 .. 4], "...");
			}
		print &ui_checked_columns_row([
			"<a href='edit_target.cgi?name=".
			 &urlize($t->{'value'})."'>".$t->{'value'}."</a>",
			join(" , ", @luns) || "$text{'index_noluns'}",
			$size ? &nice_size($size) : "",
			join(" , ", @users) || "$text{'index_nousers'}"
			],
			\@tds, "d", $t->{'value'});
		}
	print &ui_columns_end();
	print &ui_links_row(\@crlinks);
	print &ui_form_end([ [ undef, $text{'index_delete'} ] ]);
	}
else {
	print "$text{'index_none'}\n";
	print &ui_links_row(\@crlinks);
	}

print &ui_hr();
print &ui_buttons_start();

# Manual edit button
print &ui_buttons_row("edit_manual.cgi", $text{'index_manual'},
		      $text{'index_manualdesc'});

# Show start/stop/restart buttons
my $pid = &is_tgtd_running();
if ($pid) {
	print &ui_buttons_row("restart.cgi", $text{'index_restart'},
			      $text{'index_restartdesc'});
	print &ui_buttons_row("stop.cgi", $text{'index_stop'},
			      $text{'index_stopdesc'});
	}
else {
	print &ui_buttons_row("start.cgi", $text{'index_start'},
			      $text{'index_startdesc'});
	}

# Show start at boot button
&foreign_require("init");
my $starting = &init::action_status($config{'init_name'});
print &ui_buttons_row("atboot.cgi",
		      $text{'index_atboot'},
		      $text{'index_atbootdesc'},
		      undef,
		      &ui_radio("boot", $starting == 2 ? 1 : 0,
				[ [ 1, $text{'yes'} ], [ 0, $text{'no'} ] ]));

print &ui_buttons_end();

&ui_print_footer("/", $text{'index'});

${this.title}

Code Editor : index.cgi