Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	621 B	-rw-r--r--
backup_config.pl	643 B	-rwxr-xr-x
cgi_args.pl	215 B	-rwxr-xr-x
config-Amazon-Linux-2-ALL	84 B	-rw-r--r--
config-CentOS-Linux-7.0-ALL	84 B	-rw-r--r--
config-Redhat-Enterprise-Linux...	84 B	-rw-r--r--
config-Scientific-Linux-7.0-AL...	84 B	-rw-r--r--
config-aix	139 B	-rw-r--r--
config-cobalt-linux	248 B	-rw-r--r--
config-coherent-linux	200 B	-rw-r--r--
config-corel-linux	204 B	-rw-r--r--
config-debian-linux	204 B	-rw-r--r--
config-debian-linux-2.2	204 B	-rw-r--r--
config-debian-linux-3.0-ALL	206 B	-rw-r--r--
config-generic-linux	167 B	-rw-r--r--
config-gentoo-linux	190 B	-rw-r--r--
config-mandrake-linux	196 B	-rw-r--r--
config-msc-linux	190 B	-rw-r--r--
config-open-linux	200 B	-rw-r--r--
config-openmamba-linux	200 B	-rw-r--r--
config-pardus-linux	167 B	-rw-r--r--
config-redhat-linux	200 B	-rw-r--r--
config-redhat-linux-24.0-ALL	101 B	-rw-r--r--
config-slackware-linux	167 B	-rw-r--r--
config-slackware-linux-8.0-ALL	113 B	-rw-r--r--
config-sol-linux	167 B	-rw-r--r--
config-suse-linux	206 B	-rw-r--r--
config-suse-linux-7.1-ALL	204 B	-rw-r--r--
config-syno-linux	187 B	-rw-r--r--
config-trustix-linux	190 B	-rw-r--r--
config-turbo-linux	196 B	-rw-r--r--
config-united-linux	204 B	-rw-r--r--
config.info	170 B	-rw-r--r--
config.info.ca	204 B	-rw-r--r--
config.info.ca.UTF-8	206 B	-rw-r--r--
config.info.cz	142 B	-rw-r--r--
config.info.cz.UTF-8	150 B	-rw-r--r--
config.info.de	194 B	-rw-r--r--
config.info.de.UTF-8	194 B	-rw-r--r--
config.info.es	123 B	-rw-r--r--
config.info.es.UTF-8	123 B	-rw-r--r--
config.info.fr	165 B	-rw-r--r--
config.info.fr.UTF-8	165 B	-rw-r--r--
config.info.it	194 B	-rw-r--r--
config.info.it.UTF-8	194 B	-rw-r--r--
config.info.ms	125 B	-rw-r--r--
config.info.ms.UTF-8	125 B	-rw-r--r--
config.info.ms_MY	125 B	-rw-r--r--
config.info.ms_MY.UTF-8	125 B	-rw-r--r--
config.info.nl	195 B	-rw-r--r--
config.info.nl.UTF-8	195 B	-rw-r--r--
config.info.no	201 B	-rw-r--r--
config.info.no.UTF-8	201 B	-rw-r--r--
config.info.pl	162 B	-rw-r--r--
config.info.pl.UTF-8	162 B	-rw-r--r--
config.info.ru.UTF-8	243 B	-rw-r--r--
config.info.ru_RU	149 B	-rw-r--r--
config.info.ru_RU.UTF-8	243 B	-rw-r--r--
config.info.ru_SU	149 B	-rw-r--r--
config.info.sv	108 B	-rw-r--r--
config.info.sv.UTF-8	108 B	-rw-r--r--
config.info.tr	134 B	-rw-r--r--
config.info.uk_UA	152 B	-rw-r--r--
config.info.uk_UA.UTF-8	239 B	-rw-r--r--
config.info.zh_CN	77 B	-rw-r--r--
config.info.zh_CN.UTF-8	98 B	-rw-r--r--
config.info.zh_TW.Big5	79 B	-rw-r--r--
config.info.zh_TW.UTF-8	101 B	-rw-r--r--
delete_exports.cgi	956 B	-rwxr-xr-x
edit_export.cgi	6.17 KB	-rwxr-xr-x
exports-lib.pl	8.19 KB	-rwxr-xr-x
index.cgi	2.06 KB	-rwxr-xr-x
install_check.pl	354 B	-rwxr-xr-x
log_parser.pl	1.01 KB	-rwxr-xr-x
module.info	181 B	-rw-r--r--
module.info.ca	97 B	-rw-r--r--
module.info.ca.UTF-8	109 B	-rw-r--r--
module.info.cz	19 B	-rw-r--r--
module.info.cz.UTF-8	25 B	-rw-r--r--
module.info.de	102 B	-rw-r--r--
module.info.de.UTF-8	114 B	-rw-r--r--
module.info.es	29 B	-rw-r--r--
module.info.es.UTF-8	35 B	-rw-r--r--
module.info.fr	21 B	-rw-r--r--
module.info.fr.UTF-8	27 B	-rw-r--r--
module.info.it	25 B	-rw-r--r--
module.info.it.UTF-8	31 B	-rw-r--r--
module.info.ja_JP.UTF-8	40 B	-rw-r--r--
module.info.ja_JP.euc	32 B	-rw-r--r--
module.info.ko_KR.UTF-8	35 B	-rw-r--r--
module.info.ko_KR.euc	29 B	-rw-r--r--
module.info.ms_MY	102 B	-rw-r--r--
module.info.ms_MY.UTF-8	114 B	-rw-r--r--
module.info.nl	20 B	-rw-r--r--
module.info.nl.UTF-8	26 B	-rw-r--r--
module.info.no	22 B	-rw-r--r--
module.info.no.UTF-8	28 B	-rw-r--r--
module.info.pl	92 B	-rw-r--r--
module.info.pl.UTF-8	105 B	-rw-r--r--
module.info.pt	37 B	-rw-r--r--
module.info.pt.UTF-8	43 B	-rw-r--r--
module.info.ru.UTF-8	35 B	-rw-r--r--
module.info.ru_RU	24 B	-rw-r--r--
module.info.ru_RU.UTF-8	38 B	-rw-r--r--
module.info.ru_SU	24 B	-rw-r--r--
module.info.sv	24 B	-rw-r--r--
module.info.sv.UTF-8	30 B	-rw-r--r--
module.info.tr	22 B	-rw-r--r--
module.info.zh_CN	20 B	-rw-r--r--
module.info.zh_TW.Big5	25 B	-rw-r--r--
restart_mountd.cgi	296 B	-rwxr-xr-x
save_export.cgi	4.39 KB	-rwxr-xr-x

Code Editor : edit_export.cgi

#!/usr/bin/perl
# edit_export.cgi
# Allow editing of one export to a client

use strict;
use warnings;
require './exports-lib.pl';
our (%text, %in, %gconfig);

&ReadParse();
my $nfsv = $in{'ver'} || &nfs_max_version("localhost");
my ($exp, %opts);

if ($in{'new'}) {
	&ui_print_header(undef, $text{'create_title'}, "", "create_export");
	if ($nfsv >= 4) {
		$exp->{"pfs"} = "/export";
		}
	$exp->{'active'} = 1;
	}
else {
	&ui_print_header(undef, $text{'edit_title'}, "", "edit_export");
	my @exps = &list_exports();
	$exp = $exps[$in{'idx'}];
	%opts = %{$exp->{'options'}};
	if ($nfsv == 4) {
		# If no NFSv4 options are in use, use NFSv3 form
		if (!$exp->{'pfs'} && $exp->{'host'} !~ /^gss/ &&
		    !$opts{'sec'}) {
			$nfsv = 3;
			}
		}
	}

# WebNFS doesn't exist on Linux
my $linux = ($gconfig{'os_type'} =~ /linux/i) ? 1 : 0;

print &ui_form_start("save_export.cgi", "post");
print &ui_hidden("new", $in{'new'});
print &ui_hidden("idx", $in{'idx'});
print &ui_hidden("ver", $in{'ver'});
print &ui_table_start($text{'edit_details'}, "width=100%", 2);

# Show directory input
print &ui_table_row(&hlink($text{'edit_dir'}, "dir"),
	&ui_textbox("dir", $exp->{'dir'}, 60)." ".
	&file_chooser_button("dir", 1));

# Show PFS directory
if ($nfsv == 4 && $in{'new'}) {
	print &ui_table_row(&hlink($text{'edit_pfs'}, "pfs"),
		&ui_opt_textbox("pfs", $exp->{'pfs'}, 60, $text{'edit_none'})." ".
		&file_chooser_button("dir", 1));
	}
elsif ($exp->{'pfs'}) {
	print &ui_table_row(&hlink($text{'edit_pfs'}, "pfs"),
		"<tt>".&html_escape($exp->{'pfs'})."</tt>");
	}

# Show active input
print &ui_table_row(&hlink($text{'edit_active'}, "active"),
	&ui_yesno_radio("active", $exp->{'active'}));

# Work out export destination
my $h = $exp->{'host'};
my ($mode, $host, $netgroup, $network, $netmask, $network6, $netmask6, $sec);
if ($h eq "=public") {
	$mode = 0;
	}
elsif ($h =~ /^gss\/(.*)/) {
	# To all clients, but with security required
	$mode = 3;
	$sec = $1;
	}
elsif ($h =~ /^\@(.*)/) {
	$mode = 1;
	$netgroup = $1;
	}
elsif ($h =~ /^([0-9\.]+)\/([0-9\.]+)$/) {
	$mode = 2;
	$network = $1;
	$netmask = $2;
	}
elsif ($h =~ /^([a-f0-9:]+)\/([0-9]+)$/i) {
	$mode = 6;
	$network6 = $1;
	$netmask6 = $2;
	}
elsif ($h eq "") {
	$mode = 3;
	}
else {
	$mode = 4;
	$host = $h;
	}

# Allowed hosts table
my @table;
push(@table, [ 3, $text{'edit_all'} ]);
push(@table, [ 4, $text{'edit_host'},
	       &ui_textbox("host", $host, 40) ]);
if (!$linux) {
	push(@table, [ 0, $text{'edit_webnfs'} ]);
	}
push(@table, [ 1, $text{'edit_netgroup'},
	       &ui_textbox("netgroup", $netgroup, 20) ]);
push(@table, [ 2, $text{'edit_network4'},
	       &ui_textbox("network", $network, 15)." ".
	       $text{'edit_netmask'}." ".
	       &ui_textbox("netmask", $netmask, 15) ]);
push(@table, [ 6,  $text{'edit_network6'},
	       &ui_textbox("network6", $network6, 40)."/".
	       &ui_textbox("netmask6", $netmask6, 6) ]);
print &ui_table_row(&hlink($text{'edit_to'}, "client"),
	&ui_radio_table("mode", $mode, \@table));

if ($nfsv >= 4) {
	# Show security level list
	$sec ||= $opts{'sec'};
	$sec ||= 'sys';
	print &ui_table_row(&hlink($text{'edit_secs'}, "secs"),
		&ui_multi_select("sec",
			[ map { [ $_, $text{'edit_sec_'.$_} ] }
			      split(/:/, $sec) ],
			[ [ 'sys', $text{'edit_sec_sys'} ],
			  [ 'krb5', $text{'edit_sec_krb5'} ],
			  [ 'krb5i', $text{'edit_sec_krb5i'} ],
			  [ 'krb5p', $text{'edit_sec_krb5p'} ],
			  [ 'lipkey', $text{'edit_sec_lipkey'} ],
			  [ 'spkm', $text{'edit_sec_spkm'} ] ],
			6, 1, 0));
	}

print &ui_table_end();

print &ui_table_start($text{'edit_security'}, "width=100%", 4);

# Show read-only input
print &ui_table_row(&hlink($text{'edit_ro'}, "ro"),
	&ui_yesno_radio("ro", defined($opts{'rw'}) ? 0 : 1));

# Show input for secure port
print &ui_table_row(&hlink($text{'edit_insecure'}, "insecure"),
	&ui_yesno_radio("insecure", defined($opts{'insecure'}) ? 1 : 0, 0, 1));

# Show subtree check input
print &ui_table_row(&hlink($text{'edit_subtree_check'}, "subtree_check"),
	&ui_yesno_radio("no_subtree_check",defined($opts{'no_subtree_check'})));

# Show nohide check input
print &ui_table_row(&hlink($text{'edit_hide'}, "hide"),
	&ui_yesno_radio("nohide", defined($opts{'nohide'}) ? 1 : 0, 0, 1));

# Show sync input
my $sync = defined($opts{'sync'}) ? 1 : defined($opts{'async'}) ? 2 : 0;
print &ui_table_row(&hlink($text{'edit_sync'}, "sync"),
	&ui_radio("sync", $sync,
		  [ map { [ $_, $text{'edit_sync'.$_} ] } (1, 2, 0) ]));

# Show root trust input
my $squash = defined($opts{'no_root_squash'}) ? 0 :
	      defined($opts{'all_squash'}) ? 2 : 1;
print &ui_table_row(&hlink($text{'edit_squash'}, "squash"),
	&ui_radio("squash", $squash,
		  [ [ 0, $text{'edit_everyone'} ],
		    [ 1, $text{'edit_except'} ],
		    [ 2, $text{'edit_nobody'} ] ]));

# Show untrusted user input
my $anonuid;
if (defined($opts{'anonuid'})) {
	$anonuid = getpwuid($opts{'anonuid'}) || $opts{'anonuid'};
	}
print &ui_table_row(&hlink($text{'edit_anonuid'}, "anonuid"),
	&ui_opt_textbox("anonuid", $anonuid, 20, $text{'edit_default'})." ".
	&user_chooser_button("anonuid", 0));

# Show untrusted group input
my $anongid;
if (defined($opts{'anongid'})) {
	$anongid = getgrgid($opts{'anongid'}) || $opts{'anongid'};
	}
print &ui_table_row(&hlink($text{'edit_anongid'}, "anongid"),
	&ui_opt_textbox("anongid", $anongid, 20, $text{'edit_default'})." ".
	&group_chooser_button("anongid", 0));

# Show input for relative symlinks
print &ui_table_row(&hlink($text{'edit_relative'}, "link_relative"),
	&ui_yesno_radio("link_relative", defined($opts{'link_relative'})));

# Show deny access input
print &ui_table_row(&hlink($text{'edit_noaccess'}, "noaccess"),
	&ui_yesno_radio("noaccess", defined($opts{'noaccess'})));

# Show untrusted UIDs input
print &ui_table_row(&hlink($text{'edit_uids'}, "squash_uids"),
	&ui_opt_textbox("squash_uids", $opts{'squash_uids'}, 20,
			$text{'edit_none'}));

# Show untrusted GIDs input
print &ui_table_row(&hlink($text{'edit_gids'}, "squash_gids"),
	&ui_opt_textbox("squash_gids", $opts{'squash_gids'}, 20,
			$text{'edit_none'}));

print &ui_table_end();

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

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

${this.title}

Code Editor : edit_export.cgi