File Manager

X7ROOT File Manager

Current Path: /usr/libexec/usermin

📁 ..
📁 JSON
📄 LICENCE(1.48 KB)
📄 LICENCE.ja(1.62 KB)
📄 README(1.93 KB)
📄 WebminCore.pm(7.65 KB)
📁 WebminUI
📄 acl_security.pl(2.89 KB)
📁 at
📁 authentic-theme
📁 blue-theme
📁 changepass
📁 chfn
📄 chooser.cgi(7.21 KB)
📁 commands
📄 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-redhat-linux(264 B)
📄 config-slackware-linux(280 B)
📄 config-sol-linux(264 B)
📄 config-solaris(417 B)
📄 config-suse-linux(264 B)
📄 config-trustix-linux(264 B)
📄 config-turbo-linux(264 B)
📄 config-united-linux(264 B)
📄 config-unixware(286 B)
📄 copyconfig.pl(4.33 KB)
📁 cron
📁 cshrc
📄 date_chooser.cgi(2.19 KB)
📄 defaultacl(98 B)
📄 defaulttheme(16 B)
📄 entities_map.txt(1.47 KB)
📄 favicon.ico(14.73 KB)
📄 feedback.cgi(6.37 KB)
📄 feedback_form.cgi(3.45 KB)
📁 fetchmail
📁 file
📁 filemin
📁 filter
📁 forward
📁 gnupg
📁 gray-theme
📄 group_chooser.cgi(7.36 KB)
📄 help.cgi(2.06 KB)
📁 htaccess
📁 htaccess-htpasswd
📁 images
📄 index.cgi(5.55 KB)
📄 install-module.pl(1.27 KB)
📄 install-type(4 B)
📄 javascript-lib.pl(14.69 KB)
📁 lang
📄 lang_list.txt(3.41 KB)
📁 language
📁 mailbox
📁 mailcap
📄 maketemp.pl(424 B)
📁 man
📄 mime.types(12.42 KB)
📄 miniserv.pem(974 B)
📄 miniserv.pl(171.07 KB)
📁 mysql
📄 newmods.pl(1.25 KB)
📄 os_list.txt(33.58 KB)
📄 oschooser.pl(4.55 KB)
📄 pam_login.cgi(2.65 KB)
📄 password_change.cgi(7 KB)
📄 password_form.cgi(1.3 KB)
📄 perlpath.pl(571 B)
📁 plan
📁 postgresql
📁 proc
📁 procmail
📁 quota
📄 robots.txt(26 B)
📄 rpm-name(8 B)
📁 schedule
📄 session_login.cgi(3.35 KB)
📄 setup.sh(24.78 KB)
📁 shell
📁 spam
📁 ssh
📄 switch_user.cgi(404 B)
📁 telnet
📁 theme
📄 thirdparty.pl(1.73 KB)
📁 tunnel
📁 twofactor
📄 uconfig.cgi(1.39 KB)
📄 uconfig_save.cgi(1.46 KB)
📄 ui-lib.pl(82.48 KB)
📁 ulang
📄 update-from-repo.sh(14.8 KB)
📄 updateboot.pl(1.89 KB)
📁 updown
📄 uptracker.cgi(2.88 KB)
📄 user_chooser.cgi(7.29 KB)
📄 usermin-debian-pam(104 B)
📄 usermin-init(1.88 KB)
📄 usermin-pam(101 B)
📄 usermin-pam-osx(243 B)
📄 usermin-systemd(352 B)
📁 usermount
📄 version(6 B)
📄 web-lib-funcs.pl(328.14 KB)
📄 web-lib.pl(907 B)
📄 webmin-search-lib.pl(8.93 KB)
📄 webmin_search.cgi(2.63 KB)

Editing: feedback.cgi

#!/usr/bin/perl
# Send the webmin feedback form

BEGIN { push(@INC, "."); };
use WebminCore;

&init_config();
if (&get_product_name() eq 'usermin') {
	&switch_to_remote_user();
	}
&ReadParseMime();
&error_setup($text{'feedback_err'});
%access = &get_module_acl();
$access{'feedback'} || &error($text{'feedback_ecannot'});

# Construct the email body
$in{'text'} =~ s/\r//g;
$date = localtime(time());
$ver = &get_webmin_version();
if ($in{'name'} && $in{'email'}) {
	$from = "$in{'name'} <$in{'email'}>";
	$email = $in{'email'};
	}
elsif ($in{'email'}) {
	$email = $from = $in{'email'};
	}
else {
	$email = $from = "feedback\@".&get_system_hostname();
	}
local $m = $in{'module'};
$m || !$in{'config'} || &error($text{'feedback_emodule'});
&check_os_support($m) && $m !~ /\.\./ || &error($text{'feedback_emodule2'});
if ($m) {
	%minfo = &get_module_info($m);
	$ver .= " (Module: $minfo{'version'})" if ($minfo{'version'});
	$module = "$m ($minfo{'desc'})";
	}
else {
	$module = "None";
	}
if ($gconfig{'nofeedbackcc'}) {
	@tolist = ( $gconfig{'feedback_to'} ||
		    $minfo{'feedback'} ||
		    $webmin_feedback_address );
	}
else {
	@tolist = split(/\s+/, $in{'to'});
	}
@tolist || &error($text{'feedback_enoto'});
foreach $t (@tolist) {
	$headers .= "To: $t\n";
	}
$headers .= "From: $from\n";
$headers .= "Subject: $text{'feedback_title'}\n";

$attach[0] = <<EOF;
Content-Type: text/plain
Content-Transfer-Encoding: 7bit

Name:           $in{'name'}
Email address:  $in{'email'}
Date:           $date
Webmin version: $ver
Perl version:   $]
Module:         $module
Browser:        $ENV{'HTTP_USER_AGENT'}
EOF

if ($in{'os'}) {
	$uname = `uname -a`;
	$attach[0] .= <<EOF;
OS from webmin: $gconfig{'real_os_type'} $gconfig{'real_os_version'}
OS code:        $gconfig{'os_type'} $gconfig{'os_version'}
Uname output:   $uname
EOF
	}

$attach[0] .= "\n".$in{'text'}."\n";

if ($in{'config'} && !$gconfig{'nofeedbackconfig'}) {
	# Check if this user has full rights to the module
	$access{'feedback'} >= 2 || &error($text{'feedback_ecannot2'});
	local %uacl = &get_module_acl(undef, $m);
	local %defacl;
	local $mdir = &module_root_directory($m);
	&read_file("$mdir/defaultacl", \%defacl);
	if ($access{'feedback'} != 3) {
		foreach $k (keys %uacl) {
			if ($defacl{$k} ne $uacl{$k}) {
				&error($text{'feedback_econfig'});
				}
			}
		}

# Attach all the text file from the module's config
	local %mconfig = &foreign_config($m);
	if (keys %mconfig) {
		local $a;
		$a .= "Content-Type: text/plain; name=\"config\"\n";
		$a .= "Content-Transfer-Encoding: 7bit\n";
		$a .= "\n";
		foreach $k (keys %mconfig) {
			$a .= "$k=$mconfig{$k}\n";
			}
		push(@attach, $a);
		}

# Find out what config files the module uses
	local @files;
	if (-r "$mdir/feedback_files.pl") {
		# Ask the module for it's files
		&foreign_require($m, "feedback_files.pl");
		@files = &foreign_call($m, "feedback_files", $m);
		}

# Use all the path in the config
	foreach $k (keys %mconfig) {
		push(@files, $mconfig{$k}) if ($mconfig{$k} =~ /^\//);
		}
	@files = &unique(@files);

# Attach those config files that are plain text (less than 5%
	# non-ascii characters). Also skip logfiles.
	foreach $f (@files) {
		next if (!$f || -d $f);
		next if ($f =~ /\/var\/log\//);
		local $/ = undef;
		open(FILE, "<$f") || next;
		local $data = <FILE>;
		close(FILE);
		local $count = ($data =~ tr/[\000-\176]/[\000-\176]/);
		if (!length($data) || 100*$count / length($data) > 95) {
			# File is text
			local $a;
			local $sf = &short_name($f);
			$a .= "Content-Type: text/plain; name=\"$sf\"\n";
			$a .= "Content-Transfer-Encoding: 7bit\n";
			$a .= "\n";
			$a .= $data;
			push(@attach, $a);
			}
		}
	}

# Include uploaded attached files
foreach $u ('attach0', 'attach1') {
	if ($in{$u} ne '') {
		local $a;
		local $name = &short_name($in{"${u}_filename"});
		local $type = $in{"${u}_content_type"};
		$type = &guess_mime_type($name) if (!$type);
		$a .= "Content-type: $type; name=\"$name\"\n";
		$a .= "Content-Transfer-Encoding: base64\n";
		$a .= "\n\n";
		$a .= &encode_base64($in{$u});
		push(@attach, $a);
		}
	}

# Build the MIME email
$bound = "bound".time();
$mail = $headers;
$mail .= "Content-Type: multipart/mixed; boundary=\"$bound\"\n";
$mail .= "MIME-Version: 1.0\n";
$mail .= "\n";
$mail .= "This is a multi-part message in MIME format.\n";
foreach $a (@attach) {
	$mail .= "\n--".$bound."\n";
	$mail .= $a;
	}
$mail .= "\n--".$bound."--\n";

if (!$in{'mailserver_def'}) {
	$ok = &send_via_smtp($in{'mailserver'});
	$sent = 3 if ($ok);
	}

if (!$sent) {
	# Try to send the email by calling sendmail -t
	%sconfig = &foreign_config("sendmail");
	$sendmail = $sconfig{'sendmail_path'} ? $sconfig{'sendmail_path'}
					      : &has_command("sendmail");
	if (-x $sendmail && open(MAIL, "| $sendmail -t")) {
		print MAIL $mail;
		if (close(MAIL)) {
			$sent = 2;
			}
		}
	}

if (!$sent) {
	# Try to connect to a local SMTP server
	$ok = &send_via_smtp("localhost");
	$sent = 1 if ($ok);
	}

if ($sent) {
	# Tell the user that it was sent OK
	&ui_print_header(undef, $text{'feedback_title'}, "", undef, 0, 1);
	if ($sent == 3) {
		print &text('feedback_via', join(",", @tolist),
			    "<tt>$in{'mailserver'}</tt>"),"\n";
		}
	elsif ($sent == 2) {
		print &text('feedback_prog', join(",", @tolist),
			    "<tt>$sendmail</tt>"),"\n";
		}
	else {
		print &text('feedback_via', join(",", @tolist),
			    "<tt>localhost</tt>"),"\n";
		}
	print "<p>\n";
	&ui_print_footer("/", $text{'index'});

# Save settings in config
	$gconfig{'feedback_name'} = $in{'name'};
	$gconfig{'feedback_email'} = $in{'email'};
	$gconfig{'feedback_mailserver'} =
		$in{'mailserver_def'} ? undef : $in{'mailserver'};
	&write_file("$config_directory/config", \%gconfig);
	}
else {
	# Give up! Tell the user ..
	&error($text{'feedback_esend'});
	}

sub send_via_smtp
{
local $error;
&open_socket($_[0], 25, MAIL, \$error);
return 0 if ($error);
&smtp_command(MAIL) || return 0;
&smtp_command(MAIL, "helo ".&get_system_hostname()."\r\n") || return 0;
&smtp_command(MAIL, "mail from: <$email>\r\n") || return 0;
foreach $t (@tolist) {
	&smtp_command(MAIL, "rcpt to: <$t>\r\n") || return 0;
	}
&smtp_command(MAIL, "data\r\n");
$mail =~ s/\r//g;
$mail =~ s/\n/\r\n/g;
print MAIL $mail;
&smtp_command(MAIL, ".\r\n");
&smtp_command(MAIL, "quit\r\n");
close(MAIL);
return 1;
}

# smtp_command(handle, command)
sub smtp_command
{
local ($m, $c) = @_;
print $m $c;
local $r = <$m>;
return $r =~ /^[23]\d+/;
}

sub short_name
{
$_[0] =~ /([^\\\/]+)$/;
return $1;
}

X7ROOT File Manager

Editing: feedback.cgi

Upload File

Create Folder