Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
atboot.cgi	1.02 KB	-rwxr-xr-x
config	211 B	-rw-r--r--
config-debian-linux	231 B	-rw-r--r--
config-debian-linux-ALL-4.0	201 B	-rw-r--r--
config-openSUSE-Linux-15.0-ALL	223 B	-rw-r--r--
config-suse-linux	223 B	-rw-r--r--
config.info	309 B	-rw-r--r--
config.info.ca	393 B	-rw-r--r--
config.info.de	333 B	-rw-r--r--
config.info.no	302 B	-rw-r--r--
delete_allows.cgi	764 B	-rwxr-xr-x
delete_targets.cgi	874 B	-rwxr-xr-x
down_allow.cgi	578 B	-rwxr-xr-x
edit_addr.cgi	1003 B	-rwxr-xr-x
edit_allow.cgi	1.55 KB	-rwxr-xr-x
edit_auth.cgi	1.41 KB	-rwxr-xr-x
edit_conn.cgi	1.42 KB	-rwxr-xr-x
edit_manual.cgi	652 B	-rwxr-xr-x
edit_target.cgi	5.68 KB	-rwxr-xr-x
edit_timeout.cgi	903 B	-rwxr-xr-x
index.cgi	3.44 KB	-rwxr-xr-x
install_check.pl	348 B	-rwxr-xr-x
iscsi-target-lib.pl	12.14 KB	-rw-r--r--
list_allow.cgi	1.64 KB	-rwxr-xr-x
log_parser.pl	484 B	-rwxr-xr-x
module.info	205 B	-rw-r--r--
module.info.af	0 B	-rw-r--r--
module.info.af.auto	130 B	-rw-r--r--
module.info.ar	0 B	-rw-r--r--
module.info.ar.auto	159 B	-rw-r--r--
module.info.be	0 B	-rw-r--r--
module.info.be.auto	207 B	-rw-r--r--
module.info.bg	0 B	-rw-r--r--
module.info.bg.auto	184 B	-rw-r--r--
module.info.ca	149 B	-rw-r--r--
module.info.cs	0 B	-rw-r--r--
module.info.cs.auto	120 B	-rw-r--r--
module.info.da	0 B	-rw-r--r--
module.info.da.auto	119 B	-rw-r--r--
module.info.de	103 B	-rw-r--r--
module.info.el	0 B	-rw-r--r--
module.info.el.auto	221 B	-rw-r--r--
module.info.es	0 B	-rw-r--r--
module.info.es.auto	144 B	-rw-r--r--
module.info.eu	0 B	-rw-r--r--
module.info.eu.auto	114 B	-rw-r--r--
module.info.fa	0 B	-rw-r--r--
module.info.fa.auto	185 B	-rw-r--r--
module.info.fi	0 B	-rw-r--r--
module.info.fi.auto	116 B	-rw-r--r--
module.info.fr	0 B	-rw-r--r--
module.info.fr.auto	144 B	-rw-r--r--
module.info.he	0 B	-rw-r--r--
module.info.he.auto	147 B	-rw-r--r--
module.info.hr	0 B	-rw-r--r--
module.info.hr.auto	126 B	-rw-r--r--
module.info.hu	0 B	-rw-r--r--
module.info.hu.auto	153 B	-rw-r--r--
module.info.it	0 B	-rw-r--r--
module.info.it.auto	144 B	-rw-r--r--
module.info.ja	0 B	-rw-r--r--
module.info.ja.auto	181 B	-rw-r--r--
module.info.ko	0 B	-rw-r--r--
module.info.ko.auto	159 B	-rw-r--r--
module.info.lt	0 B	-rw-r--r--
module.info.lt.auto	134 B	-rw-r--r--
module.info.lv	0 B	-rw-r--r--
module.info.lv.auto	128 B	-rw-r--r--
module.info.ms	131 B	-rw-r--r--
module.info.mt	0 B	-rw-r--r--
module.info.mt.auto	128 B	-rw-r--r--
module.info.nl	0 B	-rw-r--r--
module.info.nl.auto	130 B	-rw-r--r--
module.info.no	19 B	-rw-r--r--
module.info.no.auto	99 B	-rw-r--r--
module.info.pl	0 B	-rw-r--r--
module.info.pl.auto	135 B	-rw-r--r--
module.info.pt	0 B	-rw-r--r--
module.info.pt.auto	129 B	-rw-r--r--
module.info.pt_BR	0 B	-rw-r--r--
module.info.pt_BR.auto	135 B	-rw-r--r--
module.info.ro	0 B	-rw-r--r--
module.info.ro.auto	129 B	-rw-r--r--
module.info.ru	0 B	-rw-r--r--
module.info.ru.auto	219 B	-rw-r--r--
module.info.sk	0 B	-rw-r--r--
module.info.sk.auto	119 B	-rw-r--r--
module.info.sl	0 B	-rw-r--r--
module.info.sl.auto	111 B	-rw-r--r--
module.info.sv	0 B	-rw-r--r--
module.info.sv.auto	112 B	-rw-r--r--
module.info.th	0 B	-rw-r--r--
module.info.th.auto	260 B	-rw-r--r--
module.info.tr	0 B	-rw-r--r--
module.info.tr.auto	133 B	-rw-r--r--
module.info.uk	0 B	-rw-r--r--
module.info.uk.auto	188 B	-rw-r--r--
module.info.ur	0 B	-rw-r--r--
module.info.ur.auto	243 B	-rw-r--r--
module.info.vi	0 B	-rw-r--r--
module.info.vi.auto	134 B	-rw-r--r--
module.info.zh	0 B	-rw-r--r--
module.info.zh.auto	112 B	-rw-r--r--
module.info.zh_TW	0 B	-rw-r--r--
module.info.zh_TW.auto	112 B	-rw-r--r--
restart.cgi	355 B	-rwxr-xr-x
save_addr.cgi	943 B	-rwxr-xr-x
save_allow.cgi	1.27 KB	-rwxr-xr-x
save_auth.cgi	1.22 KB	-rwxr-xr-x
save_conn.cgi	1.34 KB	-rwxr-xr-x
save_manual.cgi	455 B	-rwxr-xr-x
save_target.cgi	4.1 KB	-rwxr-xr-x
save_timeout.cgi	862 B	-rwxr-xr-x
start.cgi	332 B	-rwxr-xr-x
stop.cgi	307 B	-rwxr-xr-x
up_allow.cgi	576 B	-rwxr-xr-x

Code Editor : edit_target.cgi

#!/usr/bin/perl
# Show a form to edit or create a target

use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './iscsi-target-lib.pl';
our (%text, %in);
&ReadParse();
my $conf = &get_iscsi_config();

# Get the target and show page header
my $target;
if ($in{'new'}) {
	&ui_print_header(undef, $text{'target_title1'}, "");
	$target = { 'members' => [ ] };
	}
else {
	&ui_print_header(undef, $text{'target_title2'}, "");
	($target) = grep { $_->{'value'} eq $in{'name'} }
			 &find($conf, "Target");
	$target || &error($text{'target_egone'});
	}

print &ui_form_start("save_target.cgi", "post");
print &ui_hidden("new", $in{'new'});
print &ui_hidden("oldname", $in{'name'});
print &ui_table_start($text{'target_header'}, undef, 2);

# Target name
my ($host, $tname);
if ($in{'new'}) {
	$host = &find_host_name($conf) || &generate_host_name();
	$tname = "";
	}
else {
	($host, $tname) = split(/:/, $target->{'value'});
	}
print &ui_table_row($text{'target_name'},
	"<tt>".$host.":</tt>".&ui_textbox("name", $tname, 30));

# Logical units it contains
my @luns = &find_value($target->{'members'}, "Lun");
for(my $i=0; $i<@luns+1; $i++) {
	my ($lunid, $lunstr) = split(/\s+/, $luns[$i]);
	my %lunopts = map { split(/=/, $_) } split(/,/, $lunstr);

my @opts;

# Start with option for no device
	my $none_found = 0;
	if ($i > 0) {
		push(@opts, [ 'none', $text{'target_none'} ]);
		$none_found = 1 if (!$lunopts{'Path'} && !$lunopts{'Sectors'});
		}

# Add regular partitions
	my $part_found = 0;
	my $sel = &fdisk::partition_select("part".$i, $lunopts{'Path'}, 0,
					   \$part_found);
	push(@opts, [ 'part', $text{'target_part'}, $sel ]);

# Then add RAID devices
	my $rconf = &raid::get_raidtab();
	my @ropts;
	my $raid_found = 0;
	foreach my $c (@$rconf) {
		if ($c->{'active'}) {
			push(@ropts, [ $c->{'value'},
				       &text('target_md',
					     substr($c->{'value'}, -1)) ]);
			$raid_found = 1 if ($lunopts{'Path'} eq $c->{'value'});
			}
		}
	if (@ropts) {
		push(@opts, [ 'raid', $text{'target_raid'},
		      &ui_select("raid".$i, $lunopts{'Path'}, \@ropts) ]);
		}

# Then add LVM logical volumes
	my @vgs = sort { $a->{'name'} cmp $b->{'name'} }
		       &lvm::list_volume_groups();
	my @lvs;
	foreach my $v (@vgs) {
		push(@lvs, sort { $a->{'name'} cmp $b->{'name'} }
				&lvm::list_logical_volumes($v->{'name'}));
		}
	my @lopts;
	my $lvm_found = 0;
	foreach my $l (@lvs) {
		push(@lopts, [ $l->{'device'},
			       &text('target_lv', $l->{'vg'}, $l->{'name'}) ]);
		$lvm_found = 1 if (&same_file($lunopts{'Path'},$l->{'device'}));
		}
	if (@lopts) {
		push(@opts, [ 'lvm', $text{'target_lvm'},
		      &ui_select("lvm".$i, $lunopts{'Path'}, \@lopts) ]);
		}

# Add special null-IO mode
	my $null_found = 0;
	push(@opts, [ 'null', $text{'target_null'},
		      &ui_textbox("null".$i, $lunopts{'Sectors'}, 10)." ".
		      $text{'target_sectors'} ]);
	$null_found = 1 if ($lunopts{'Type'} eq 'nullio');

# Then add other file mode
	my $mode = $part_found ? 'part' :
		   $raid_found ? 'raid' :
		   $none_found ? 'none' :
		   $null_found ? 'null' :
		   $lvm_found ? 'lvm' : 'other';
	push(@opts, [ 'other', $text{'target_other'},
		      &ui_textbox("other".$i,
			  $mode eq 'other' ? $lunopts{'Path'} : "", 50).
		      " ".&file_chooser_button("other") ]);

# Options for this lun
	my @grid;
	push(@grid, "".$text{'target_type'}."",
		 &ui_select("type".$i, $lunopts{'Type'} || "fileio",
			 [ [ 'fileio', $text{'target_fileio'} ],
			 [ 'blockio', $text{'target_blockio'} ] ]));
	push(@grid, "".$text{'target_iomode'}."",
		 &ui_select("iomode".$i, $lunopts{'IOMode'},
			 [ [ '', $text{'target_wt'} ],
				 [ 'wb', $text{'target_wb'} ],
				 [ 'ro', $text{'target_ro'} ] ]));

print &ui_table_row(&text('target_lun', $i+1),
		&ui_radio_table("mode".$i, $mode, \@opts)."\n".
		&ui_grid_table(\@grid, 2));
	}

print &ui_table_hr();

# Incoming user(s)
my @iusers = &find_value($target->{'members'}, "IncomingUser");
my $utable = &ui_columns_start([
		$text{'target_uname'},
		$text{'target_upass'},
		]);
my $i = 0;
foreach my $u (@iusers, "", "") {
	my ($uname, $upass) = split(/\s+/, $u);
	$utable .= &ui_columns_row([
		&ui_textbox("uname_$i", $uname, 30),
		&ui_textbox("upass_$i", $upass, 20),
		]);
	$i++;
	}
$utable .= &ui_columns_end();
print &ui_table_row($text{'target_iuser'},
	&ui_radio("iuser_def", @iusers ? 0 : 1,
		 [ [ 1, $text{'target_iuserall'} ],
		 [ 0, $text{'target_iuserbelow'} ] ])." \n".
	$utable);

# Outgoing user
my $u = &find_value($target->{'members'}, "OutgoingUser");
my ($uname, $upass) = split(/\s+/, $u);
print &ui_table_row($text{'target_ouser'},
	&ui_radio("ouser_def", $u ? 0 : 1,
		  [ [ 1, $text{'target_ousernone'} ],
		    [ 0, $text{'target_ousername'} ] ])." ".
	&ui_textbox("ouser", $uname, 30)." ".
	$text{'target_ouserpass'}." ".
	&ui_textbox("opass", $upass, 20));

print &ui_table_hr();

# Optional alias name
my $a = &find_value($target->{'members'}, "Alias");
print &ui_table_row($text{'target_alias'},
	&ui_opt_textbox("alias", $a, 20, $text{'target_noalias'}));

# Header digest mode
my $h = &find_value($target->{'members'}, "HeaderDigest");
print &ui_table_row($text{'target_hdigest'},
	&ui_select("hdigest", $h,
		   [ [ "", $text{'target_nodigest'} ],
		     [ "CRC32C" ] ], 1, 0, 1));

# Data digest mode
$h = &find_value($target->{'members'}, "DataDigest");
print &ui_table_row($text{'target_ddigest'},
	&ui_select("ddigest", $h,
		   [ [ "", $text{'target_nodigest'} ],
		     [ "CRC32C" ] ], 1, 0, 1));

print &ui_table_end();
if ($in{'new'}) {
	print &ui_form_end([ [ undef, $text{'create'} ] ]);
	}
else {
	print &ui_form_end([ [ undef, $text{'save'} ],
			     [ 'delete', $text{'delete'} ] ]);
	}

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

${this.title}

Code Editor : edit_target.cgi