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
unauthenticated	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
CHANGELOG	9.22 KB	-rw-r--r--	2026-07-19 16:26
acl_security.pl	2.61 KB	-rw-r--r--	2026-07-19 16:26
bookmark.cgi	325 B	-rwxr-xr-x	2026-07-19 16:28
chattr.cgi	833 B	-rwxr-xr-x	2026-07-19 16:28
chcon.cgi	749 B	-rwxr-xr-x	2026-07-19 16:28
chmod.cgi	2.57 KB	-rwxr-xr-x	2026-07-19 16:28
chown.cgi	1.13 KB	-rwxr-xr-x	2026-07-19 16:28
compress.cgi	1.56 KB	-rwxr-xr-x	2026-07-19 16:28
config	20 B	-rw-r--r--	2026-07-19 16:26
config.cgi	2.68 KB	-rwxr-xr-x	2026-07-19 16:28
config.info	260 B	-rw-r--r--	2026-07-19 16:26
config.info.ar	97 B	-rw-r--r--	2026-07-19 16:26
config.info.ca	52 B	-rw-r--r--	2026-07-19 16:26
config.info.de	61 B	-rw-r--r--	2026-07-19 16:26
config.info.fr	60 B	-rw-r--r--	2026-07-19 16:26
config.info.it	199 B	-rw-r--r--	2026-07-19 16:26
config.info.uk	260 B	-rw-r--r--	2026-07-19 16:26
copy.cgi	442 B	-rwxr-xr-x	2026-07-19 16:28
create_file.cgi	592 B	-rwxr-xr-x	2026-07-19 16:28
create_folder.cgi	582 B	-rwxr-xr-x	2026-07-19 16:28
cut.cgi	441 B	-rwxr-xr-x	2026-07-19 16:28
defaultacl	398 B	-rw-r--r--	2026-07-19 16:26
defaultuconf	180 B	-rw-r--r--	2026-07-19 16:26
delete.cgi	466 B	-rwxr-xr-x	2026-07-19 16:28
download.cgi	801 B	-rwxr-xr-x	2026-07-19 16:28
edit_file.cgi	1.74 KB	-rwxr-xr-x	2026-07-19 16:28
extract.cgi	1.49 KB	-rwxr-xr-x	2026-07-19 16:28
filemin-lib.pl	29.34 KB	-rw-r--r--	2026-07-19 16:26
http_download.cgi	1.84 KB	-rwxr-xr-x	2026-07-19 16:28
index.cgi	3.33 KB	-rwxr-xr-x	2026-07-19 16:28
module.info	137 B	-rw-r--r--	2026-07-19 16:26
module.info.ar	116 B	-rw-r--r--	2026-07-19 16:26
module.info.ar.auto	32 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	164 B	-rw-r--r--	2026-07-19 16:26
module.info.ca	89 B	-rw-r--r--	2026-07-19 16:26
module.info.ca.auto	24 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	115 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	101 B	-rw-r--r--	2026-07-19 16:26
module.info.de	88 B	-rw-r--r--	2026-07-19 16:26
module.info.de.auto	21 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	209 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	140 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	131 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	137 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	110 B	-rw-r--r--	2026-07-19 16:26
module.info.fr	0 B	-rw-r--r--	2026-07-19 16:26
module.info.fr.auto	136 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	118 B	-rw-r--r--	2026-07-19 16:26
module.info.hu	0 B	-rw-r--r--	2026-07-19 16:26
module.info.hu.auto	109 B	-rw-r--r--	2026-07-19 16:26
module.info.it	104 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	137 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	118 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	113 B	-rw-r--r--	2026-07-19 16:26
module.info.nl	0 B	-rw-r--r--	2026-07-19 16:26
module.info.nl.auto	108 B	-rw-r--r--	2026-07-19 16:26
module.info.no	22 B	-rw-r--r--	2026-07-19 16:26
module.info.no.auto	75 B	-rw-r--r--	2026-07-19 16:26
module.info.pl	96 B	-rw-r--r--	2026-07-19 16:26
module.info.pl.auto	115 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	133 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	142 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	194 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	126 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	99 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	121 B	-rw-r--r--	2026-07-19 16:26
module.info.uk	367 B	-rw-r--r--	2026-07-19 16:26
module.info.uk.auto	188 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	101 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	110 B	-rw-r--r--	2026-07-19 16:26
paste.cgi	1.57 KB	-rwxr-xr-x	2026-07-19 16:28
prefs.info	10 B	-rw-r--r--	2026-07-19 16:26
rename.cgi	742 B	-rwxr-xr-x	2026-07-19 16:28
safeacl	50 B	-rw-r--r--	2026-07-19 16:26
save_config.cgi	1.02 KB	-rwxr-xr-x	2026-07-19 16:28
save_file.cgi	802 B	-rwxr-xr-x	2026-07-19 16:28
search.cgi	567 B	-rwxr-xr-x	2026-07-19 16:28
setfacl.cgi	1.57 KB	-rwxr-xr-x	2026-07-19 16:28
upload.cgi	5.54 KB	-rwxr-xr-x	2026-07-19 16:28

Rename

#!/usr/bin/perl
# File manager written in perl

require './filemin-lib.pl';

&ReadParse();
get_paths();

unless (opendir(DIR, $cwd)) {
	$path = "";
	print_errors($text{'error_opendir'} . " " .
		&html_escape($cwd) . " " . $!);
	}
else {
	&ui_print_header(
		undef, $module_info{'name'}, "", undef, 0, 0, 0,
		"<a href='config.cgi?path=" . &urlize($path) .
		"' data-config-pagination='$userconfig{'per_page'}'>" .
		"$text{'module_config'}</a>");

my %acls;
	my %attributes;
	my $setype = get_selinux_command_type();
	my %secontext;

# Push file names with full paths to array,
	# filtering out "." and ".."
	my $show_dot_files =
		$userconfig{
		  'config_portable_module_filemanager_show_dot_files'}
			ne 'false';
	@list = map { &simplify_path("$cwd/$_") }
		grep {
			$_ ne '.' && $_ ne '..' &&
			($show_dot_files ||
			 ($_ !~ /^\./ && $_ !~ /\/\./))
		} readdir(DIR);
	closedir(DIR);

# Filter out not allowed paths
	if (&test_allowed_paths()) {
		for $path (@allowed_paths) {
			my $slashed = $path;
			$slashed .= "/"
				if ($slashed !~ /\/$/);
			push @tmp_list,
				grep { $slashed =~ /^\Q$_\E\// ||
				       $_ =~ /\Q$slashed\E/ } @list;
			}
		# Remove duplicates
		my %hash = map { $_, 1 } @tmp_list;
		@list = keys %hash;
		}

# List ACLs
	if ($userconfig{'columns'} =~ /acls/ &&
	 get_acls_status()) {
		my $command = get_list_acls_command() . " " .
			join(' ',
			 map { quotemeta("$_") } @list);
		my $output = `$command`;
		my @aclsArr;
		foreach my $aclsStr (split(/\n\n/, $output)) {
			$aclsStr =~ /#\s+file:\s*(.*)/;
			my ($file) =
				($aclsStr =~ /#\s+file:\s*(.*)/);
			my @aclsA =
				($aclsStr =~
				/^(?!(#|user::|group::|other::))([\w:_-]+)/gm);
			push(@aclsArr, [$file, \@aclsA]);
			}
		%acls = map {
			$_->[0] => (
				'' .
				join(" ",
				 (grep /\S/, @{ $_->[1] })) .
				'')
		} @aclsArr;
		}

# List attributes
	if ($userconfig{'columns'} =~ /attributes/ &&
	 get_attr_status()) {
		my $command = get_attr_command() .
			join(' ',
			 map { quotemeta("$_") } @list);
		my $output = `$command`;
		my @attributesArr =
			map { [ split(/\s+/, $_, 2) ] }
				split(/\n/, $output);
		%attributes = map {
			$_->[1] => (
				'' .
				$_->[0] . '')
		} @attributesArr;
		}

# List security context
	if ($userconfig{'columns'} =~ /selinux/ &&
	 get_selinux_status()) {
		my $command = get_selinux_command() .
			join(' ',
			 map { quotemeta("$_") } @list);
		my $output = `$command`;
		(!$setype &&
		 ($output =~ s/\n//g,
		 $output =~ s/,\s/,/g));
		my $delimiter = ($setype ? '\n' : ',');
		my @searray =
			map { [ split(/\s+/, $_, 2) ] }
				split(/$delimiter/, $output);
		%secontext = map {
			$_->[1] => (
				$_->[0] eq "?" ? undef :
					'' .
					$_->[0] . ''
			)
		} @searray;
		}

# Get info about directory entries
	@info = map {
		[ $_, lstat($_), &clean_mimetype($_), -d, -l $_,
		  $secontext{$_}, $attributes{$_}, $acls{$_} ]
	} @list;

# Filter out folders
	@folders = map { $_ } grep { $_->[15] == 1 } @info;

# Filter out files
	@files = map { $_ } grep { $_->[15] != 1 } @info;

# Sort stuff by name
	@folders = sort { $a->[0] cmp $b->[0] } @folders;
	@files = sort { $a->[0] cmp $b->[0] } @files;

# Recreate list
	undef(@list);
	push @list, @folders, @files;

print_interface();
	&ui_print_footer("/", $text{'index'});
	}