File Manager

X7ROOT File Manager

Current Path: /usr/libexec/webmin

📁 ..
📁 JSON
📄 LICENCE(1.48 KB)
📄 LICENCE.ja(1.62 KB)
📄 README.md(4.01 KB)
📄 WebminCore.pm(7.65 KB)
📁 WebminUI
📁 acl
📄 acl_security.pl(4.51 KB)
📁 adsl-client
📁 ajaxterm
📁 apache
📁 at
📁 authentic-theme
📁 backup-config
📁 bacula-backup
📁 bandwidth
📁 bin
📁 bind8
📁 blue-theme
📁 change-user
📄 changepass.pl(868 B)
📄 chooser.cgi(7.21 KB)
📁 cluster-copy
📁 cluster-cron
📁 cluster-passwd
📁 cluster-shell
📁 cluster-software
📁 cluster-useradmin
📁 cluster-usermin
📁 cluster-webmin
📄 config-aix(227 B)
📄 config-cobalt-linux(264 B)
📄 config-coherent-linux(264 B)
📄 config-corel-linux(264 B)
📄 config-debian-linux(264 B)
📄 config-freebsd(256 B)
📄 config-generic-linux(264 B)
📄 config-gentoo-linux(264 B)
📄 config-hpux(243 B)
📄 config-irix(284 B)
📄 config-lib.pl(10.83 KB)
📄 config-macos(260 B)
📄 config-mandrake-linux(278 B)
📄 config-msc-linux(264 B)
📄 config-netbsd(283 B)
📄 config-open-linux(264 B)
📄 config-openbsd(241 B)
📄 config-openmamba-linux(264 B)
📄 config-openserver(236 B)
📄 config-osf1(266 B)
📄 config-pardus-linux(264 B)
📄 config-redhat-linux(264 B)
📄 config-slackware-linux(280 B)
📄 config-sol-linux(264 B)
📄 config-solaris(417 B)
📄 config-suse-linux(264 B)
📄 config-syno-linux(364 B)
📄 config-trustix-linux(264 B)
📄 config-turbo-linux(264 B)
📄 config-united-linux(264 B)
📄 config-unixware(286 B)
📄 config-windows(88 B)
📄 config.cgi(1.55 KB)
📄 config_save.cgi(1.64 KB)
📄 copyconfig.pl(4.33 KB)
📁 cpan
📄 create-module.pl(3.82 KB)
📁 cron
📁 custom
📄 date_chooser.cgi(2.19 KB)
📄 defaultacl(98 B)
📄 defaulttheme(16 B)
📁 dfsadmin
📁 dhcpd
📁 dovecot
📄 entities_map.txt(1.47 KB)
📁 exim
📁 exports
📁 fail2ban
📄 fastrpc.cgi(10.59 KB)
📄 favicon.ico(14.73 KB)
📁 fdisk
📄 feedback.cgi(6.37 KB)
📄 feedback_form.cgi(3.45 KB)
📁 fetchmail
📁 filemin
📁 filter
📁 firewall
📁 firewall6
📁 firewalld
📁 fsdump
📁 gray-theme
📄 group_chooser.cgi(7.36 KB)
📁 grub
📁 heartbeat
📄 help.cgi(2.36 KB)
📁 htaccess-htpasswd
📁 idmapd
📁 images
📄 index.cgi(5.61 KB)
📁 inetd
📁 init
📁 inittab
📄 install-module.pl(1.54 KB)
📄 install-type(4 B)
📁 ipfilter
📁 ipfw
📁 ipsec
📁 iscsi-client
📁 iscsi-server
📁 iscsi-target
📁 iscsi-tgtd
📁 jabber
📁 jailkit
📄 javascript-lib.pl(14.69 KB)
📁 krb5
📁 lang
📄 lang_list.txt(3.41 KB)
📁 ldap-client
📁 ldap-server
📁 ldap-useradmin
📁 logrotate
📁 logviewer
📁 lpadmin
📁 lvm
📁 mailboxes
📁 mailcap
📄 maketemp.pl(424 B)
📁 man
📄 mime.types(12.42 KB)
📄 miniserv.pem(974 B)
📄 miniserv.pl(172.58 KB)
📄 module_chooser.cgi(4.14 KB)
📁 mon
📁 mount
📁 mysql
📁 net
📄 newmods.pl(1.25 KB)
📁 nis
📁 openslp
📄 os_list.txt(33.58 KB)
📄 oschooser.pl(4.55 KB)
📁 package-updates
📁 pam
📄 pam_login.cgi(2.65 KB)
📁 pap
📁 passwd
📄 password_change.cgi(7 KB)
📄 password_form.cgi(1.3 KB)
📄 perlpath.pl(571 B)
📁 php-pear
📁 phpini
📁 postfix
📁 postgresql
📁 ppp-client
📁 pptp-client
📁 pptp-server
📁 proc
📁 procmail
📁 proftpd
📁 qmailadmin
📁 quota
📁 raid
📄 record-failed.pl(503 B)
📄 record-login.pl(513 B)
📄 record-logout.pl(516 B)
📄 robots.txt(26 B)
📄 rpc.cgi(4 KB)
📁 ruby-gems
📄 run-postinstalls.pl(1 KB)
📄 run-uninstalls.pl(1004 B)
📄 safeacl(44 B)
📁 samba
📁 sarg
📁 sendmail
📁 servers
📄 session_login.cgi(3.36 KB)
📄 setup.bat(3.09 KB)
📄 setup.pl(29.93 KB)
📄 setup.sh(31.72 KB)
📁 shell
📁 shorewall
📁 shorewall6
📁 smart-status
📁 smf
📁 software
📁 spam
📁 squid
📁 sshd
📁 status
📁 stunnel
📄 switch_skill.cgi(293 B)
📄 switch_user.cgi(404 B)
📁 syslog
📁 syslog-ng
📁 system-status
📁 tcpwrappers
📁 telnet
📄 thirdparty.pl(1.73 KB)
📁 time
📁 tunnel
📄 ui-lib.pl(82.48 KB)
📁 unauthenticated
📄 update-from-repo.sh(14.8 KB)
📁 updown
📄 uptracker.cgi(2.88 KB)
📄 user_chooser.cgi(7.29 KB)
📁 useradmin
📁 usermin
📄 version(6 B)
📁 vgetty
📁 virtual-server
📁 virtualmin-awstats
📁 virtualmin-htpasswd
📄 web-lib-funcs.pl(329.15 KB)
📄 web-lib.pl(907 B)
📁 webalizer
📁 webmin
📄 webmin-daemon(80 B)
📄 webmin-debian-pam(104 B)
📄 webmin-init(1.93 KB)
📄 webmin-pam(101 B)
📄 webmin-search-lib.pl(8.93 KB)
📄 webmin-systemd(351 B)
📄 webmin_search.cgi(2.63 KB)
📁 webmincron
📁 webminlog
📁 wuftpd
📁 xinetd
📄 xmlrpc.cgi(7.53 KB)

Editing: config-lib.pl

# config-lib.pl
# Common functions for parsing config.info files
# Each module has a number of configurable parameters (stored in the config and
# config-* files in the module directory). Descriptions and possible values for
# each option are stored in the file config.info in the module directory.
# Each line of config.info looks like
# name=desc,type[,options]
#  desc - A description of the parameter
#  type - Possible types (and options) are
#	0 - Free text
#	1 - One of many (options are possibilities)
#	2 - Many of many (options are possibilities)
#	3 - Optional free text
#	4 - Like 1, but uses a pulldown menu
#	5 - User name
#	6 - Group name
#	7 - Directory
#	8 - File
#	9 - Multiline text
#	10 - Like 1, but with free text option
#	11 - Section header
#	12 - Password free text, with don't change option
#	13 - Like 2, but uses a list box
#	14 - Parameter is the name of a function in config_info.pl that
#	     returns an alternate set of config.info values.
#	15 - Parameter is the suffix for a pair of functions with show_
#	     and parse_ prepended.
#	16 - Password free text

# generate_config(&config, info-file, [module], [&can-config], [checkbox-name],
#		  [only-section])
# Prints HTML for 
sub generate_config
{
my ($configref, $file, $module, $canconfig, $cbox, $section) = @_;
my %config = %$configref;

my $auto = $gconfig{"langauto_$remote_user"};
if (!defined($auto)) {
my $glangauto = $gconfig{'langauto'};
if (defined($glangauto)) {
	$auto = $glangauto;
	} 
else {
	my ($clanginfo) = grep { $_->{'lang'} eq $current_lang } &list_languages();
	$auto = $clanginfo->{'auto'};
	}
}

# Read the .info file in the right language
my (%info, @info_order, %einfo, $o);
&read_file($file, \%info, \@info_order);
%einfo = %info;
foreach $o (@lang_order_list) {
	&read_file("$file.$o", \%info, \@info_order);
	&read_file("$file.$o.auto", \%info, \@info_order)
		if ($auto && -r "$file.$o.auto");
	}

# Call any config pre-load function
if (&foreign_func_exists($module, 'config_pre_load')) {
	&foreign_call($module, "config_pre_load", \%info, \@info_order);
	&foreign_call($module, "config_pre_load", \%einfo);
	}

@info_order = &unique(@info_order);

if ($section) {
	# Limit to settings in one section
	@info_order = &config_in_section($section, \@info_order, \%info);
	}

# Show the parameter editors
foreach my $c (@info_order) {
	my $checkhtml;
	if ($cbox) {
		# Show checkbox to allow configuring
		$checkhtml = &ui_checkbox($cbox, $c, "",
					  !$canconfig || $canconfig->{$c});
		}
	else {
		# Skip those not allowed to be configured
		next if ($canconfig && !$canconfig->{$c});
		}
	my @p = split(/,/, $info{$c});
	my @ep = split(/,/, $einfo{$c});
	if (scalar(@ep) > scalar(@p)) {
		push(@p, @ep[scalar(@p) .. @ep-1]);
		}
	if ($p[1] == 14) {
		$module || &error($text{'config_ewebmin'});
		&foreign_require($module, "config_info.pl");
		my @newp = &foreign_call($module, $p[2], @p);
		$newp[0] ||= $p[0];
		@p = @newp;
		}
	if ($p[1] == 11) {
		# Title row
		print &ui_table_row(undef, "<b>$p[0]</b>", 2, [ undef, $tb ]);
		next;
		}
	if ($p[1] == 16 && $gconfig{'config_16_insecure'}) {
		# Don't allow mode 16
		$p[1] = 12;
		}
	my $label;
	if ($module && -r &help_file($module, "config_$c")) {
		$label = $checkhtml." ".
		         &hlink($p[0], "config_$c", $module);
		}
	else {
		$label = $checkhtml." ".$p[0];
		}
	my $field;
	if ($p[1] == 0) {
		# Text value
		$field = &ui_textbox($c, $config{$c}, $p[2] || 40, 0, $p[3]).
			 " ".$p[4];
		}
	elsif ($p[1] == 1) {
		# One of many
		my $len = 0;
		for(my $i=2; $i<@p; $i++) {
			$p[$i] =~ /^(\S*)\-(.*)$/;
			$len += length($2);
			}
		my @opts;
		for($i=2; $i<@p; $i++) {
			$p[$i] =~ /^(\S*)\-(.*)$/;
			push(@opts, [ $1, $2.($len > 50 ? "<br>" : "") ]);
			}
		$field = &ui_radio($c, $config{$c}, \@opts);
		}
	elsif ($p[1] == 2) {
		# Many of many
		my %sel;
		map { $sel{$_}++ } split(/,/, $config{$c});
		for($i=2; $i<@p; $i++) {
			$p[$i] =~ /^(\S*)\-(.*)$/;
			$field .= &ui_checkbox($c, $1, $2, $sel{$1});
			}
		}
	elsif ($p[1] == 3) {
		# Optional value
		my $none = $p[2] || $text{'config_none'};
		$field = &ui_opt_textbox($c, $config{$c}, $p[3] || 20, $none,
					 $p[6], 0, undef, $p[4])." ".$p[5];
		}
	elsif ($p[1] == 4) {
		# One of many menu
		my @opts;
		for($i=2; $i<@p; $i++) {
			$p[$i] =~ /^(\S*)\-(.*)$/;
			push(@opts, [ $1, $2 ]);
			}
		$field = &ui_select($c, $config{$c}, \@opts);
		}
	elsif ($p[1] == 5) {
		# User chooser
		if ($p[2]) {
			$field = &ui_radio($c."_def", $config{$c} ? 0 : 1,
					   [ [ 1, $p[2] ], [ 0, " " ] ]);
			}
		if ($p[3]) {
			$field .= &ui_textbox($c, $config{$c}, 30)." ".
				  &user_chooser_button($c, 1);
			}
		else {
			$field .= &unix_user_input($c, $config{$c});
			}
		}
	elsif ($p[1] == 6) {
		# Group chooser
		if ($p[2]) {
			$field = &ui_radio($c."_def", $config{$c} ? 0 : 1,
					   [ [ 1, $p[2] ], [ 0, " " ] ]);
			}
		if ($p[3]) {
			$field .= &ui_textbox($c, $config{$c}, 30)." ".
				  &group_chooser_button($c, 1);
			}
		else {
			$field .= &unix_group_input($c, $config{$c});
			}
		}
	elsif ($p[1] == 7) {
		# Directory chooser
		$field = &ui_textbox($c, $config{$c}, 40)." ".
			 &file_chooser_button($c, 1);
		}
	elsif ($p[1] == 8) {
		# File chooser
		$field = &ui_textbox($c, $config{$c}, 40)." ".
			 &file_chooser_button($c, 0);
		}
	elsif ($p[1] == 9) {
		# Text area
		my $cols = $p[2] || 40;
		my $rows = $p[3] || 5;
		my $sp = $p[4] ? eval "\"$p[4]\"" : " ";
		$field = &ui_textarea($c, join("\n", split(/$sp/, $config{$c})),
				      $rows, $cols);
		}
	elsif ($p[1] == 10) {
		# Radios with freetext option
		my $len = 20;
		for(my $i=2; $i<@p; $i++) {
			if ($p[$i] =~ /^(\S*)\-(.*)$/) {
				$len += length($2);
				}
			else {
				$len += length($p[$i]);
				}
			}
		my $fv = $config{$c};
		my @opts;
		for(my $i=2; $i<@p; $i++) {
			($p[$i] =~ /^(\S*)\-(.*)$/) || next;
			push(@opts, [ $1, $2.($len > 50 ? "<br>" : "") ]);
			$fv = undef if ($config{$c} eq $1);
			}
		push(@opts, [ "free", $p[$#p] !~ /^(\S*)\-(.*)$/ ? $p[$#p]
								 : " " ]);
		$field = &ui_radio($c, $fv ? "free" : $config{$c}, \@opts)." ".
			 &ui_textbox($c."_free", $fv, 20);
		}
	elsif ($p[1] == 12) {
		# Password field
		$field = &ui_radio($c."_nochange", 1,
				   [ [ 1, $text{'config_nochange'} ],
				     [ 0, $text{'config_setto'} ] ])." ".
			 &ui_password($c, undef, $p[2] || 40, 0, $p[3]);
		}
	elsif ($p[1] == 13) {
		# Multiple selections from menu
		my @sel = split(/,/, $config{$c});
		my @opts;
		for($i=2; $i<@p; $i++) {
			$p[$i] =~ /^(\S*)\-(.*)$/;
			push(@opts, [ $1, $2 ]);
			}
		$field = &ui_select($c, \@sel, \@opts, 5, 1);
		}
	elsif ($p[1] == 15) {
		# Input generated by function
		$module || &error($text{'config_ewebmin'});
		&foreign_require($module, "config_info.pl");
		$field = &foreign_call($module, "show_".$p[2],
				       $config{$c}, @p);
		}
	elsif ($p[1] == 16) {
		# Password free text
		$field = &ui_password($c, undef, $p[2] || 40, 0, $p[3]);
		}
	$label = "<a name=$c>$label</a>";
	print &ui_table_row($label, $field, 1, [ "width=30% nowrap" ]);
	}
}

# parse_config(&config, info-file, [module], [&canconfig], [section])
# Updates the specified configuration with values from %in
sub parse_config
{
my ($config, $file, $module, $canconfig, $section) = @_;

# Read the .info file
my (%info, @info_order, $o);
&read_file($file, \%info, \@info_order);
foreach $o (@lang_order_list) {
	&read_file("$file.$o", \%info, \@info_order);
	}
@info_order = &unique(@info_order);

if ($section) {
	# Limit to settings in one section
	@info_order = &config_in_section($section, \@info_order, \%info);
	}

# If config fields are conditional (not displayed)
# make sure to preserve system default values to
# prevent changing behaviour of a module
if (&foreign_exists($module) &&
    &foreign_require($module) &&
    &foreign_func_exists($module, 'config_pre_load')) {
	&foreign_call($module, "config_pre_load", \%info, \@info_order);
	}

# Actually parse the inputs
foreach my $c (@info_order) {
	next if ($canconfig && !$canconfig->{$c});
	my @p = split(/,/, $info{$c});
	if ($p[1] == 14) {
		$_[2] || &error($text{'config_ewebmin'});
		&foreign_require($_[2], "config_info.pl");
		my @newp = &foreign_call($_[2], $p[2]);
		$newp[0] ||= $p[0];
		@p = @newp;
		}
	if ($p[1] == 16 && $gconfig{'config_16_insecure'}) {
		# Don't allow mode 16
		$p[1] = 12;
		}
	if ($p[1] == 0 || $p[1] == 7 || $p[1] == 8 || $p[1] == 16) {
		# Free text input
		$config->{$c} = $in{$c};
		}
	elsif ($p[1] == 1 || $p[1] == 4) {
		# One of many
		$config->{$c} = $in{$c};
		}
	elsif ($p[1] == 5 || $p[1] == 6) {
		# User or group
		$config->{$c} = ($p[2] && $in{$c."_def"} ? "" : $in{$c});
		}
	elsif ($p[1] == 2 || $p[1] == 13) {
		# Many of many
		$in{$c} =~ s/\0/,/g;
		$config->{$c} = $in{$c};
		}
	elsif ($p[1] == 3) {
		# Optional free text
		if ($in{$c."_def"}) { $config->{$c} = ""; }
		else { $config->{$c} = $in{$c}; }
		}
	elsif ($p[1] == 9) {
		# Multilines of free text
		my $sp = $p[4] ? eval "\"$p[4]\"" : " ";
		$in{$c} =~ s/\r//g;
		$in{$c} =~ s/\n/$sp/g;
		$in{$c} =~ s/\s+$//;
		$config->{$c} = $in{$c};
		}
	elsif ($p[1] == 10) {
		# One of many or free text
		if ($in{$c} eq 'free') {
			$config->{$c} = $in{$c.'_free'};
			}
		else {
			$config->{$c} = $in{$c};
			}
		}
	elsif ($p[1] == 12) {
		# Optionally changed password
		if (!$in{"${c}_nochange"}) {
			$config->{$c} = $in{$c};
			}
		}
	elsif ($p[1] == 15) {
		# Parse custom HTML field
		$_[2] || &error($text{'config_ewebmin'});
		&foreign_require($_[2], "config_info.pl");
		$config->{$c} = &foreign_call($_[2], "parse_".$p[2],
					    $config->{$c}, @p);
		}
	}
}

# config_in_section(&section, &order, &config-info)
# Returns a list of config names that are in some section
sub config_in_section
{
my ($section, $info_order, $info) = @_;
my @new_order = ( );
my $in_section = 0;
foreach my $c (@$info_order) {
	my @p = split(/,/, $info->{$c});
	if ($p[1] == 11 && $c eq $section) {
		$in_section = 1;
		}
	elsif ($p[1] == 11 && $c ne $section) {
		$in_section = 0;
		}
	elsif ($in_section) {
		push(@new_order, $c);
		}
	}
return @new_order;
}

# save_module_preferences(module, &config)
# Check which user preferences can be save for
# given module based on module's prefs.info file
sub save_module_preferences
{
my ($module, $curr_config) = @_;
my $module_dir = &module_root_directory($module);
my $module_prefs_conf = "$module_dir/prefs.info";
if (-r $module_prefs_conf) {
	my %module_prefs_conf_allowed;
	&read_file($module_prefs_conf, \%module_prefs_conf_allowed);
	mkdir("$config_directory/$module", 0700);
	my $user_prefs_file = "$config_directory/$module/prefs.$remote_user";
	&lock_file($user_prefs_file);
	if ($module_prefs_conf_allowed{'allowed'} eq "*") {
		&write_file($user_prefs_file, \%$curr_config);
		}
	else {
		my %newconfigtmp;
		foreach my $key (keys %{$curr_config}) {
			if (grep(/^$key$/, split(",", $module_prefs_conf_allowed{'allowed'}))) {
				$newconfigtmp->{$key} = $curr_config->{$key};
				}
			}
		&write_file($user_prefs_file, \%$newconfigtmp);
		}
	&unlock_file($user_prefs_file);
	}
}

X7ROOT File Manager

Editing: config-lib.pl

Upload File

Create Folder