File Manager

X7ROOT File Manager

Current Path: /usr/libexec/webmin/updown

📁 ..
📄 CHANGELOG(876 B)
📄 acl_security.pl(1.74 KB)
📄 cancel.cgi(850 B)
📄 config(34 B)
📄 config.info.ca(376 B)
📄 config.info.cz(0 B)
📄 defaultacl(42 B)
📄 download.cgi(4.58 KB)
📄 download.pl(1.39 KB)
📄 fetch.cgi(3.1 KB)
📁 images
📄 index.cgi(7.04 KB)
📁 lang
📄 log_parser.pl(986 B)
📄 module.info(210 B)
📄 module.info.af(0 B)
📄 module.info.af.auto(179 B)
📄 module.info.ar(0 B)
📄 module.info.ar.auto(250 B)
📄 module.info.be(0 B)
📄 module.info.be.auto(289 B)
📄 module.info.bg(0 B)
📄 module.info.bg.auto(293 B)
📄 module.info.ca(168 B)
📄 module.info.ca.auto(20 B)
📄 module.info.cs(30 B)
📄 module.info.cs.auto(144 B)
📄 module.info.da(0 B)
📄 module.info.da.auto(183 B)
📄 module.info.de(174 B)
📄 module.info.de.auto(19 B)
📄 module.info.el(0 B)
📄 module.info.el.auto(334 B)
📄 module.info.es(27 B)
📄 module.info.es.auto(152 B)
📄 module.info.eu(0 B)
📄 module.info.eu.auto(180 B)
📄 module.info.fa(0 B)
📄 module.info.fa.auto(267 B)
📄 module.info.fi(27 B)
📄 module.info.fi.auto(137 B)
📄 module.info.fr(38 B)
📄 module.info.fr.auto(166 B)
📄 module.info.he(0 B)
📄 module.info.he.auto(207 B)
📄 module.info.hr(0 B)
📄 module.info.hr.auto(165 B)
📄 module.info.hu(32 B)
📄 module.info.hu.auto(159 B)
📄 module.info.it(26 B)
📄 module.info.it.auto(130 B)
📄 module.info.ja(48 B)
📄 module.info.ja.auto(217 B)
📄 module.info.ko(31 B)
📄 module.info.ko.auto(170 B)
📄 module.info.lt(0 B)
📄 module.info.lt.auto(167 B)
📄 module.info.lv(0 B)
📄 module.info.lv.auto(214 B)
📄 module.info.ms(191 B)
📄 module.info.ms.auto(19 B)
📄 module.info.mt(0 B)
📄 module.info.mt.auto(169 B)
📄 module.info.nl(31 B)
📄 module.info.nl.auto(155 B)
📄 module.info.no(33 B)
📄 module.info.no.auto(158 B)
📄 module.info.pl(147 B)
📄 module.info.pl.auto(20 B)
📄 module.info.pt(0 B)
📄 module.info.pt.auto(176 B)
📄 module.info.pt_BR(0 B)
📄 module.info.pt_BR.auto(185 B)
📄 module.info.ro(0 B)
📄 module.info.ro.auto(191 B)
📄 module.info.ru(49 B)
📄 module.info.ru.auto(256 B)
📄 module.info.sk(26 B)
📄 module.info.sk.auto(145 B)
📄 module.info.sl(0 B)
📄 module.info.sl.auto(159 B)
📄 module.info.sv(0 B)
📄 module.info.sv.auto(190 B)
📄 module.info.th(0 B)
📄 module.info.th.auto(372 B)
📄 module.info.tr(29 B)
📄 module.info.tr.auto(144 B)
📄 module.info.uk(0 B)
📄 module.info.uk.auto(317 B)
📄 module.info.ur(0 B)
📄 module.info.ur.auto(299 B)
📄 module.info.vi(0 B)
📄 module.info.vi.auto(211 B)
📄 module.info.zh(0 B)
📄 module.info.zh.auto(142 B)
📄 module.info.zh_TW(27 B)
📄 module.info.zh_TW.auto(127 B)
📄 safeacl(28 B)
📄 uninstall.pl(340 B)
📄 updown-lib.pl(7.44 KB)
📄 upload.cgi(6.42 KB)

Editing: fetch.cgi

#!/usr/bin/perl
# Output one file for download

require './updown-lib.pl';
&ReadParse();
&error_setup($text{'fetch_err'});
$can_fetch || &error($text{'fetch_ecannot'});

# Validate filename
$file = $ENV{'PATH_INFO'} || $in{'fetch'};
if ($file !~ /^([a-z]:)?\// && $can_dirs[0] ne "/") {
	$file = "$can_dirs[0]/$file";
	}
$file || &error($text{'fetch_efile'});
if ($file =~ /^(.*)\.zip$/ && $in{'unzip'}) {
	# Remove .zip extension
	$file = $1;
	}
-r $file || -d $file || &error($text{'fetch_eexists2'});
&can_write_file($file) ||
	&error(&text('fetch_eaccess', "<tt>$file</tt>", $!));
if (-d $file && !&has_command("zip")) {
	&error($text{'fetch_ezip'});
	}
if ($file eq "/" || $file =~ /^[a-z]:\/$/) {
	&error($text{'fetch_eroot'});
	}

if ($ENV{'PATH_INFO'}) {
	# Switch to the correct user
	if ($can_mode == 3) {
		@uinfo = getpwnam($remote_user);
		&switch_uid_to($uinfo[2], $uinfo[3]);
		}
	elsif ($can_mode == 1 && @can_users == 1) {
		@uinfo = getpwnam($can_users[0]);
		&switch_uid_to($uinfo[2], $uinfo[3]);
		}

if (-d $file) {
		# Zip up the whole directory
		($shortfile = $file) =~ s/^.*\///g;
		$shortfile =~ s/\s+//g;
		$temp = &transname($shortfile.".zip");
		$out = &backquote_command("cd ".quotemeta($file).
					  " && zip -r ".quotemeta($temp)." .");
		if ($?) {
			&error(&text('fetch_ezipcmd',
				     "<tt>".&html_escape($out)."</tt>"));
			}
		@st = stat($temp);
		print "Content-length: $st[7]\n";
		print "Content-type: application/zip\n\n";
		open(FILE, "<$temp");
		unlink($temp);
		my $bs = &get_buffer_size();
		while(read(FILE, $buffer, $bs)) {
			print("$buffer");
			}
		close(FILE);
		}
	else {
		# Work out the type
		&open_readfile(FILE, $file) ||
			&error(&text('fetch_eopen', $!));
		if ($fetch_show) {
			$type = &guess_mime_type($file, undef);
			if (!$type) {
				# See if it is really text
				$out = &backquote_command("file ".
					quotemeta(&resolve_links($file)));
				$type = "text/plain" if ($out =~ /text|script/);
				}
			}
		else {
			print "Content-Disposition: Attachment\n";
			}

# Send it
		$type ||= "application/octet-stream";
		if (!$fetch_show) {
			print "Content-Disposition: Attachment\n";
			}
		@st = stat($file);
		print "Content-length: $st[7]\n";
		print "X-Content-Type-Options: nosniff\n";
		print "Content-type: $type\n\n";
		while(read(FILE, $buffer, 1000000)) {
			print("$buffer");
			}
		close(FILE);
		}

# Switch back to root
	&switch_uid_back();
	}
else {
	# Save file in config
	if ($module_info{'usermin'}) {
		&lock_file("$user_module_config_directory/config");
		$userconfig{'fetch'} = $file;
		$userconfig{'show'} = $in{'show'};
		&write_file("$user_module_config_directory/config", \%userconfig);
		&unlock_file("$user_module_config_directory/config");
		}
	else {
		&lock_file("$module_config_directory/config");
		$config{'fetch_'.$remote_user} = $file;
		$config{'show_'.$remote_user} = $in{'show'};
		&write_file("$module_config_directory/config", \%config);
		&unlock_file("$module_config_directory/config");
		}

# Redirect to nice URL
	$file =~ s/#/%23/g;
	if (-d $file) {
		&redirect("fetch.cgi".$file.".zip?unzip=1");
		}
	else {
		&redirect("fetch.cgi".$file);
		}
	}

X7ROOT File Manager

Editing: fetch.cgi

Upload File

Create Folder