Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	108 B	-rw-r--r--
add_conn.cgi	1.1 KB	-rwxr-xr-x
add_form.cgi	2.34 KB	-rwxr-xr-x
add_iface.cgi	1.13 KB	-rwxr-xr-x
atboot.cgi	618 B	-rwxr-xr-x
backup_config.pl	646 B	-rwxr-xr-x
config	190 B	-rw-r--r--
config-debian-linux	176 B	-rw-r--r--
config-gentoo-linux	155 B	-rw-r--r--
config-suse-linux	184 B	-rw-r--r--
config.info	280 B	-rw-r--r--
config.info.ca	328 B	-rw-r--r--
config.info.ca.UTF-8	335 B	-rw-r--r--
config.info.de	299 B	-rw-r--r--
config.info.de.UTF-8	299 B	-rw-r--r--
config.info.no	296 B	-rw-r--r--
config.info.no.UTF-8	296 B	-rw-r--r--
delete_conns.cgi	2.21 KB	-rwxr-xr-x
delete_ifaces.cgi	1.91 KB	-rwxr-xr-x
edit_auth.cgi	3.16 KB	-rwxr-xr-x
edit_iscsi.cgi	1.15 KB	-rwxr-xr-x
edit_timeout.cgi	1.52 KB	-rwxr-xr-x
index.cgi	1.37 KB	-rwxr-xr-x
install_check.pl	348 B	-rwxr-xr-x
iscsi-client-lib.pl	10.23 KB	-rw-r--r--
list_conns.cgi	2.02 KB	-rwxr-xr-x
list_ifaces.cgi	2.4 KB	-rwxr-xr-x
log_parser.pl	749 B	-rwxr-xr-x
module.info	173 B	-rw-r--r--
module.info.ca	117 B	-rw-r--r--
module.info.ca.UTF-8	130 B	-rw-r--r--
module.info.de	120 B	-rw-r--r--
module.info.de.UTF-8	132 B	-rw-r--r--
module.info.ms_MY	110 B	-rw-r--r--
module.info.ms_MY.UTF-8	122 B	-rw-r--r--
module.info.no	114 B	-rw-r--r--
module.info.no.UTF-8	126 B	-rw-r--r--
save_auth.cgi	3.04 KB	-rwxr-xr-x
save_iscsi.cgi	1.06 KB	-rwxr-xr-x
save_timeout.cgi	1.21 KB	-rwxr-xr-x
view_conn.cgi	2.51 KB	-rwxr-xr-x

Code Editor : save_auth.cgi

#!/usr/bin/perl
# Save authentication options

use strict;
use warnings;
require './iscsi-client-lib.pl';
our (%text, %config, %in);
&ReadParse();
&lock_file($config{'initiator_file'});
&lock_file($config{'config_file'});
my $conf = &get_iscsi_config();
&error_setup($text{'auth_err'});

# Authentication method
&save_directive($conf, "node.session.auth.authmethod", $in{'method'});

# Login and password to iSCSI server
if ($in{'username_def'}) {
	&save_directive($conf, "node.session.auth.username", undef);
	&save_directive($conf, "node.session.auth.password", undef);
	}
else {
	$in{'username'} =~ /\S/ || &error($text{'auth_eusername'});
	$in{'password'} =~ /\S/ || &error($text{'auth_epassword'});
	&save_directive($conf, "node.session.auth.username", $in{'username'});
	&save_directive($conf, "node.session.auth.password", $in{'password'});
	}

# Login and password by the iSCSI server to the client
if ($in{'username_in_def'}) {
	&save_directive($conf, "node.session.auth.username_in", undef);
	&save_directive($conf, "node.session.auth.password_in", undef);
	}
else {
	$in{'username_in'} =~ /\S/ || &error($text{'auth_eusername_in'});
	$in{'password_in'} =~ /\S/ || &error($text{'auth_epassword_in'});
	&save_directive($conf, "node.session.auth.username_in",
			$in{'username_in'});
	&save_directive($conf, "node.session.auth.password_in",
			$in{'password_in'});
	}

# Authentication method
&save_directive($conf, "discovery.sendtargets.auth.authmethod", $in{'dmethod'});

# Discovery login and password to iSCSI server
if ($in{'dusername_def'}) {
	&save_directive($conf, "discovery.sendtargets.auth.username", undef);
	&save_directive($conf, "discovery.sendtargets.auth.password", undef);
	}
else {
	$in{'dusername'} =~ /\S/ || &error($text{'auth_edusername'});
	$in{'dpassword'} =~ /\S/ || &error($text{'auth_edpassword'});
	&save_directive($conf, "discovery.sendtargets.auth.username",
			$in{'dusername'});
	&save_directive($conf, "discovery.sendtargets.auth.password",
			$in{'dpassword'});
	}

# Discovery login and password by the iSCSI server to the client
if ($in{'dusername_in_def'}) {
	&save_directive($conf, "discovery.sendtargets.auth.username_in", undef);
	&save_directive($conf, "discovery.sendtargets.auth.password_in", undef);
	}
else {
	$in{'dusername_in'} =~ /\S/ || &error($text{'auth_edusername_in'});
	$in{'dpassword_in'} =~ /\S/ || &error($text{'auth_edpassword_in'});
	&save_directive($conf, "discovery.sendtargets.auth.username_in",
			$in{'dusername_in'});
	&save_directive($conf, "discovery.sendtargets.auth.password_in",
			$in{'dpassword_in'});
	}

# Initiator name
if ($in{'newname'}) {
	my $gen = &generate_initiator_name();
	$gen || &error($text{'auth_egen'});
	&save_initiator_name($gen);
	}
elsif ($in{'name'} ne &get_initiator_name()) {
	# Validate and save name
	$in{'name'} =~ /^[a-z0-9\.\-\:]+$/ && length($in{'name'}) <= 223 ||
		&error($text{'auth_ename'});
	&save_initiator_name($in{'name'});
	}

&flush_file_lines($config{'targets_file'});
&unlock_file($config{'config_file'});
&unlock_file($config{'initiator_file'});
&webmin_log("auth");
&redirect("");

${this.title}

Code Editor : save_auth.cgi