Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	971 B	-rw-r--r--	2026-07-19 16:26
cancel.cgi	850 B	-rwxr-xr-x	2026-07-19 16:28
config	53 B	-rw-r--r--	2026-07-19 16:26
config.info	376 B	-rw-r--r--	2026-07-19 16:26
config.info.ca	383 B	-rwxr-xr-x	2026-07-19 16:26
config.info.de	128 B	-rw-r--r--	2026-07-19 16:26
config.info.nl	404 B	-rwxr-xr-x	2026-07-19 16:26
config.info.no	397 B	-rw-r--r--	2026-07-19 16:26
defaultuconfig	13 B	-rw-r--r--	2026-07-19 16:26
download.cgi	5.02 KB	-rwxr-xr-x	2026-07-19 16:28
download.pl	1.39 KB	-rwxr-xr-x	2026-07-19 16:28
fetch.cgi	3.54 KB	-rwxr-xr-x	2026-07-19 16:28
index.cgi	7.3 KB	-rwxr-xr-x	2026-07-19 16:28
log_parser.pl	986 B	-rwxr-xr-x	2026-07-19 16:26
module.info	184 B	-rw-r--r--	2026-07-19 16:26
module.info.af	0 B	-rw-r--r--	2026-07-19 16:26
module.info.af.auto	133 B	-rw-r--r--	2026-07-19 16:26
module.info.ar	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ar.auto	205 B	-rw-r--r--	2026-07-19 16:26
module.info.be	0 B	-rw-r--r--	2026-07-19 16:26
module.info.be.auto	244 B	-rw-r--r--	2026-07-19 16:26
module.info.bg	0 B	-rw-r--r--	2026-07-19 16:26
module.info.bg.auto	259 B	-rw-r--r--	2026-07-19 16:26
module.info.ca	35 B	-rw-r--r--	2026-07-19 16:26
module.info.ca.auto	125 B	-rw-r--r--	2026-07-19 16:26
module.info.cs	0 B	-rw-r--r--	2026-07-19 16:26
module.info.cs.auto	155 B	-rw-r--r--	2026-07-19 16:26
module.info.da	0 B	-rw-r--r--	2026-07-19 16:26
module.info.da.auto	133 B	-rw-r--r--	2026-07-19 16:26
module.info.de	174 B	-rw-r--r--	2026-07-19 16:26
module.info.el	0 B	-rw-r--r--	2026-07-19 16:26
module.info.el.auto	295 B	-rw-r--r--	2026-07-19 16:26
module.info.es	0 B	-rw-r--r--	2026-07-19 16:26
module.info.es.auto	142 B	-rw-r--r--	2026-07-19 16:26
module.info.eu	0 B	-rw-r--r--	2026-07-19 16:26
module.info.eu.auto	156 B	-rw-r--r--	2026-07-19 16:26
module.info.fa	0 B	-rw-r--r--	2026-07-19 16:26
module.info.fa.auto	249 B	-rw-r--r--	2026-07-19 16:26
module.info.fi	0 B	-rw-r--r--	2026-07-19 16:26
module.info.fi.auto	143 B	-rw-r--r--	2026-07-19 16:26
module.info.fr	38 B	-rw-r--r--	2026-07-19 16:26
module.info.he	0 B	-rw-r--r--	2026-07-19 16:26
module.info.he.auto	193 B	-rw-r--r--	2026-07-19 16:26
module.info.hr	0 B	-rw-r--r--	2026-07-19 16:26
module.info.hr.auto	141 B	-rw-r--r--	2026-07-19 16:26
module.info.hu	32 B	-rw-r--r--	2026-07-19 16:26
module.info.hu.auto	139 B	-rw-r--r--	2026-07-19 16:26
module.info.it	0 B	-rw-r--r--	2026-07-19 16:26
module.info.it.auto	125 B	-rw-r--r--	2026-07-19 16:26
module.info.ja	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ja.auto	218 B	-rw-r--r--	2026-07-19 16:26
module.info.ko	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ko.auto	177 B	-rw-r--r--	2026-07-19 16:26
module.info.lt	0 B	-rw-r--r--	2026-07-19 16:26
module.info.lt.auto	175 B	-rw-r--r--	2026-07-19 16:26
module.info.lv	0 B	-rw-r--r--	2026-07-19 16:26
module.info.lv.auto	182 B	-rw-r--r--	2026-07-19 16:26
module.info.ms	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ms.auto	137 B	-rw-r--r--	2026-07-19 16:26
module.info.mt	0 B	-rw-r--r--	2026-07-19 16:26
module.info.mt.auto	149 B	-rw-r--r--	2026-07-19 16:26
module.info.nl	31 B	-rw-r--r--	2026-07-19 16:26
module.info.no	27 B	-rw-r--r--	2026-07-19 16:26
module.info.no.auto	120 B	-rw-r--r--	2026-07-19 16:26
module.info.pl	0 B	-rw-r--r--	2026-07-19 16:26
module.info.pl.auto	155 B	-rw-r--r--	2026-07-19 16:26
module.info.pt	0 B	-rw-r--r--	2026-07-19 16:26
module.info.pt.auto	149 B	-rw-r--r--	2026-07-19 16:26
module.info.pt_BR	0 B	-rw-r--r--	2026-07-19 16:26
module.info.pt_BR.auto	158 B	-rw-r--r--	2026-07-19 16:26
module.info.ro	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ro.auto	187 B	-rw-r--r--	2026-07-19 16:26
module.info.ru	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ru.auto	274 B	-rw-r--r--	2026-07-19 16:26
module.info.sk	0 B	-rw-r--r--	2026-07-19 16:26
module.info.sk.auto	148 B	-rw-r--r--	2026-07-19 16:26
module.info.sl	0 B	-rw-r--r--	2026-07-19 16:26
module.info.sl.auto	143 B	-rw-r--r--	2026-07-19 16:26
module.info.sv	0 B	-rw-r--r--	2026-07-19 16:26
module.info.sv.auto	149 B	-rw-r--r--	2026-07-19 16:26
module.info.th	0 B	-rw-r--r--	2026-07-19 16:26
module.info.th.auto	291 B	-rw-r--r--	2026-07-19 16:26
module.info.tr	0 B	-rw-r--r--	2026-07-19 16:26
module.info.tr.auto	158 B	-rw-r--r--	2026-07-19 16:26
module.info.uk	0 B	-rw-r--r--	2026-07-19 16:26
module.info.uk.auto	289 B	-rw-r--r--	2026-07-19 16:26
module.info.ur	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ur.auto	245 B	-rw-r--r--	2026-07-19 16:26
module.info.vi	0 B	-rw-r--r--	2026-07-19 16:26
module.info.vi.auto	176 B	-rw-r--r--	2026-07-19 16:26
module.info.zh	0 B	-rw-r--r--	2026-07-19 16:26
module.info.zh.auto	125 B	-rw-r--r--	2026-07-19 16:26
module.info.zh_TW	0 B	-rw-r--r--	2026-07-19 16:26
module.info.zh_TW.auto	134 B	-rw-r--r--	2026-07-19 16:26
updown-lib.pl	8.62 KB	-rwxr-xr-x	2026-07-19 16:26
upload.cgi	7.3 KB	-rwxr-xr-x	2026-07-19 16:28

Rename

#!/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);
		while(read(FILE, $buffer, &get_buffer_size_binary())) {
			print("$buffer");
			}
		close(FILE);
		}
	else {
		# Work out the type
		&open_readfile(FILE, $file) ||
			&error(&text('fetch_eopen', $!));
		my $type = "application/octet-stream";
		my $show_inline = 0;
		if ($fetch_show) {
			# Only allow file types that are safe to render inside a
			# Webmin session. Everything else must be downloaded.
			my $guessed_type =
				&guess_mime_type($file, "application/octet-stream");
			if ($guessed_type =~ /^image\/(?:gif|png|jpe?g)$/i) {
				$type = $guessed_type;
				$show_inline = 1;
				}
			elsif ($guessed_type =~ /^text\//i &&
			       $guessed_type !~ /^text\/(?:html|xml)$/i) {
				$type = "text/plain";
				$show_inline = 1;
				}
			else {
				my $file_desc = &backquote_command("file ".
					quotemeta(&resolve_links($file)));
				if ($file_desc =~ /\btext\b/i &&
				    $file_desc !~ /\b(?:html|xml|svg|pdf)\b/i) {
					$type = "text/plain";
					$show_inline = 1;
					}
				}
			}
		if (!$show_inline) {
			print "Content-Disposition: Attachment\n";
			}

# Send it
		my @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, &get_buffer_size_binary())) {
			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);
		}
	}