Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
at	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
authentic-theme	[ DIR ]	drwxr-xr-x	2026-07-25 20:56
blue-theme	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
changepass	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
chfn	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
commands	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
cron	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
cshrc	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
fetchmail	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
filemin	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
filter	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
forward	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
gnupg	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
gray-theme	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
htaccess	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
htaccess-htpasswd	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
language	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
mailbox	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
mailcap	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
man	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
mysql	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
plan	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
postgresql	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
proc	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
procmail	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
quota	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
schedule	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
shell	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
spam	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
ssh	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
theme	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
tunnel	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
twofactor	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
ulang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
unauthenticated	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
updown	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
usermount	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
vendor_perl	[ DIR ]	drwxr-xr-x	2026-06-10 18:25
xterm	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
LICENCE	1.48 KB	-rw-r--r--	2026-07-19 16:26
LICENCE.ja	1.62 KB	-rw-r--r--	2026-07-19 16:26
README	1.92 KB	-rw-r--r--	2026-07-19 16:26
WebminCore.pm	9.05 KB	-rw-r--r--	2026-07-19 16:26
acl_security.pl	2.89 KB	-rwxr-xr-x	2026-07-19 16:26
chooser.cgi	7.21 KB	-rwxr-xr-x	2026-07-19 16:28
config-aix	227 B	-rw-r--r--	2026-07-19 16:26
config-cobalt-linux	264 B	-rw-r--r--	2026-07-19 16:26
config-coherent-linux	264 B	-rw-r--r--	2026-07-19 16:26
config-corel-linux	264 B	-rw-r--r--	2026-07-19 16:26
config-debian-linux	264 B	-rw-r--r--	2026-07-19 16:26
config-freebsd	256 B	-rw-r--r--	2026-07-19 16:26
config-generic-linux	264 B	-rw-r--r--	2026-07-19 16:26
config-gentoo-linux	264 B	-rw-r--r--	2026-07-19 16:26
config-hpux	243 B	-rw-r--r--	2026-07-19 16:26
config-irix	284 B	-rw-r--r--	2026-07-19 16:26
config-lib.pl	11.84 KB	-rwxr-xr-x	2026-07-19 16:26
config-macos	260 B	-rw-r--r--	2026-07-19 16:26
config-mandrake-linux	278 B	-rw-r--r--	2026-07-19 16:26
config-msc-linux	264 B	-rw-r--r--	2026-07-19 16:26
config-netbsd	283 B	-rw-r--r--	2026-07-19 16:26
config-open-linux	264 B	-rw-r--r--	2026-07-19 16:26
config-openbsd	241 B	-rw-r--r--	2026-07-19 16:26
config-openmamba-linux	264 B	-rw-r--r--	2026-07-19 16:26
config-openserver	236 B	-rw-r--r--	2026-07-19 16:26
config-osf1	266 B	-rw-r--r--	2026-07-19 16:26
config-redhat-linux	264 B	-rw-r--r--	2026-07-19 16:26
config-slackware-linux	280 B	-rw-r--r--	2026-07-19 16:26
config-sol-linux	264 B	-rw-r--r--	2026-07-19 16:26
config-solaris	417 B	-rw-r--r--	2026-07-19 16:26
config-suse-linux	264 B	-rw-r--r--	2026-07-19 16:26
config-trustix-linux	264 B	-rw-r--r--	2026-07-19 16:26
config-turbo-linux	264 B	-rw-r--r--	2026-07-19 16:26
config-united-linux	264 B	-rw-r--r--	2026-07-19 16:26
config-unixware	286 B	-rw-r--r--	2026-07-19 16:26
copyconfig.pl	4.33 KB	-rwxr-xr-x	2026-07-19 16:28
date_chooser.cgi	2.19 KB	-rwxr-xr-x	2026-07-19 16:28
deb-name	8 B	-rw-r--r--	2026-07-19 16:28
defaultacl	124 B	-rw-r--r--	2026-07-19 16:26
defaulttheme	16 B	-rw-r--r--	2026-07-19 16:26
entities_map.txt	1.47 KB	-rw-r--r--	2026-07-19 16:26
favicon.ico	14.73 KB	-rw-r--r--	2026-07-19 16:26
group_chooser.cgi	7.51 KB	-rwxr-xr-x	2026-07-19 16:28
help.cgi	2.26 KB	-rwxr-xr-x	2026-07-19 16:28
html-editor-lib.pl	17.72 KB	-rw-r--r--	2026-07-19 16:26
index.cgi	5.64 KB	-rwxr-xr-x	2026-07-19 16:28
install-module.pl	1.27 KB	-rwxr-xr-x	2026-07-19 16:28
install-type	4 B	-rw-r--r--	2026-07-19 16:28
javascript-lib.pl	14.69 KB	-rwxr-xr-x	2026-07-19 16:26
lang_list.txt	2.51 KB	-rw-r--r--	2026-07-19 16:26
maketemp.pl	424 B	-rwxr-xr-x	2026-07-19 16:26
mime.types	12.42 KB	-rw-r--r--	2026-07-19 16:26
miniserv-lib.pl	175.51 KB	-rw-r--r--	2026-07-19 16:26
miniserv.pem	2.9 KB	-rw-r--r--	2026-07-19 16:26
miniserv.pl	33.88 KB	-rwxr-xr-x	2026-07-19 16:28
newmods.pl	1.25 KB	-rwxr-xr-x	2026-07-19 16:26
os_list.txt	35.22 KB	-rw-r--r--	2026-07-19 16:26
oschooser.pl	4.55 KB	-rwxr-xr-x	2026-07-19 16:28
pam_login.cgi	4.33 KB	-rwxr-xr-x	2026-07-19 16:28
password_change.cgi	7.02 KB	-rwxr-xr-x	2026-07-19 16:28
password_form.cgi	1.3 KB	-rwxr-xr-x	2026-07-19 16:28
perlpath.pl	571 B	-rwxr-xr-x	2026-07-19 16:28
robots.txt	26 B	-rw-r--r--	2026-07-19 16:26
session_login.cgi	5.11 KB	-rwxr-xr-x	2026-07-19 16:28
setup.sh	27.29 KB	-rwxr-xr-x	2026-07-19 16:26
switch_user.cgi	404 B	-rwxr-xr-x	2026-07-19 16:28
thirdparty.pl	1.73 KB	-rwxr-xr-x	2026-07-19 16:26
uconfig.cgi	1.39 KB	-rwxr-xr-x	2026-07-19 16:28
uconfig_save.cgi	1.46 KB	-rwxr-xr-x	2026-07-19 16:28
ui-lib.pl	123.52 KB	-rwxr-xr-x	2026-07-19 16:26
update-from-repo.sh	14.77 KB	-rwxr-xr-x	2026-07-19 16:26
updateboot.pl	2.37 KB	-rwxr-xr-x	2026-07-19 16:28
uptracker.cgi	2.89 KB	-rwxr-xr-x	2026-07-19 16:28
user_chooser.cgi	7.39 KB	-rwxr-xr-x	2026-07-19 16:28
usermin-init	1.88 KB	-rwxr-xr-x	2026-07-19 16:26
usermin-pam	101 B	-rw-r--r--	2026-07-19 16:26
usermin-pam-osx	243 B	-rw-r--r--	2026-07-19 16:26
usermin-systemd	375 B	-rw-r--r--	2026-07-19 16:26
version	6 B	-rw-r--r--	2026-07-19 16:26
web-lib-funcs.pl	417.23 KB	-rwxr-xr-x	2026-07-19 16:26
web-lib.pl	856 B	-rwxr-xr-x	2026-07-19 16:26
webmin-search-lib.pl	9.47 KB	-rwxr-xr-x	2026-07-19 16:26
webmin_search.cgi	2.63 KB	-rwxr-xr-x	2026-07-19 16:28

Rename

#!/usr/bin/perl
# copyconfig.pl
# Copy the appropriate config file for each module into the webmin config
# directory. If it is already there, merge in new directives. Called with
# <osname> <osversion> <install dir> <config dir> <module>+

@ARGV >= 4 || die "usage: copyconfig.pl <os>[/real-os] <version>[/real-version] <webmin-dir> <config-dir> [module ...]";
$os = $ARGV[0];
$ver = $ARGV[1];
$wadir = $ARGV[2];
$confdir = $ARGV[3];
($os, $real_os) = split(/\//, $os);
($ver, $real_ver) = split(/\//, $ver);
$real_os =~ s/ /-/g;
$real_ver =~ s/ /-/g;

# Find all clones
opendir(DIR, $wadir);
foreach $f (readdir(DIR)) {
	if (readlink("$wadir/$f")) {
		@st = stat("$wadir/$f");
		push(@{$clone{$st[1]}}, $f);
		}
	}
closedir(DIR);

# For each module, copy its config to itself and all clones
@mods = @ARGV[4..$#ARGV];
foreach $m (@mods) {
	# Find any range-number config files. Search first by real OS type
	# (ie Ubuntu 6.1), then by internal OS code (ie. debian-linux 3.1)
	$srcdir = "$wadir/$m";
	$rangefile = $real_rangefile = undef;
	foreach $ov ([ $real_os, $real_ver, \$real_rangefile ],
		     [ $os, $ver, \$rangefile ]) {
		my ($o, $v, $rf) = @$ov;
		opendir(DIR, $srcdir);
		while($f = readdir(DIR)) {
			if ($f =~ /^config\-\Q$o\E\-([0-9\.]+)\-([0-9\.]+)$/ &&
			    $v >= $1 && $v <= $2) {
				$$rf = "$srcdir/$f";
				}
			elsif ($f =~ /^config\-\Q$o\E\-([0-9\.]+)\-(\*|ALL)$/ &&
			       $v >= $1) {
				$$rf = "$srcdir/$f";
				}
			elsif ($f =~ /^config\-\Q$o\E\-(\*|ALL)\-([0-9\.]+)$/ &&
			       $v <= $2) {
				$$rf = "$srcdir/$f";
				}
			}
		closedir(DIR);
		}

# Find the best-matching config file. Search first by real OS type,
	# then by internal OS code

# Check for real OS match by name and version, version range, or
	# name only
	if (-r "$srcdir/config-$real_os-$real_ver") {
		$conf = "$srcdir/config-$real_os-$real_ver";
		}
	elsif ($real_rangefile) {
		$conf = $real_rangefile;
		}
	elsif (-r "$srcdir/config-$real_os") {
		$conf = "$srcdir/config-$real_os";
		}

# Check for OS code match by name and version, version range, or name
	elsif (-r "$srcdir/config-$os-$ver") {
		$conf = "$srcdir/config-$os-$ver";
		}
	elsif ($rangefile) {
		$conf = $rangefile;
		}
	elsif (-r "$srcdir/config-$os") {
		$conf = "$srcdir/config-$os";
		}

# Check for config for an entire OS class, like *-linux
	elsif ($os =~ /^(\S+)-(\S+)$/ && -r "$srcdir/config-ALL-$2") {
		$conf = "$srcdir/config-ALL-$2";
		}
	elsif ($os =~ /^(\S+)-(\S+)$/ && -r "$srcdir/config-*-$2") {
		$conf = "$srcdir/config-*-$2";
		}

# Use default config file, if it exists
	elsif (-r "$srcdir/config") {
		$conf = "$srcdir/config";
		}
	else {
		$conf = "/dev/null";
		}

@st = stat($srcdir);
	@copyto = ( @{$clone{$st[1]}}, $m );
	foreach $c (@copyto) {
		if (!-d "$confdir/$c") {
			# New module .. need to create config dir
			mkdir("$confdir/$c", 0755);
			push(@newmods, $c);
			}
		undef(%oldconf); undef(%newconf);
		&read_file("$confdir/$c/config", \%oldconf);
		&read_file($conf, \%newconf);
		foreach $k (keys %oldconf) {
			$newconf{$k} = $oldconf{$k};
			}
		&write_file("$confdir/$c/config", \%newconf);
		}
	}
print join(" ", @newmods),"\n";

# read_file(file, &hash, [&order], [lowercase], [split-char])
# Fill the given hash reference with name=value pairs from a file.
sub read_file
{
my ($file, $hash, $order, $lowercase, $split) = @_;
$split = "=" if (!defined($split));
open(ARFILE, $file) || return 0;
local $_;
while(<ARFILE>) {
	s/\r|\n//g;
	my $cmt = index($_, "#");
	my $eq = index($_, $split);
	if ($cmt != 0 && $eq >= 0) {
		my $n = substr($_, 0, $eq);
		my $v = substr($_, $eq+1);
		chomp($v);
		$hash->{$lowercase ? lc($n) : $n} = $v;
		push(@$order, $n) if ($order);
        	}
        }
close(ARFILE);
return 1;
}

# write_file(file, &data-hash, [join-char])
# Write out the contents of a hash as name=value lines.
sub write_file
{
my ($file, $data_hash, $join_char) = @_;
my (%old, @order);
my $join = defined($join_char) ? $join_char : "=";
&read_file($file, \%old, \@order);
open(ARFILE, ">$file") || die "open of $file failed : $!";
my %done;
foreach $k (@order) {
	if (exists($data_hash->{$k}) && !$done{$k}++) {
		(print ARFILE $k,$join,$data_hash->{$k},"\n") ||
			die "write to $file failed : $!";
		}
	}
foreach $k (keys %{$data_hash}) {
	if (!exists($old{$k}) && !$done{$k}++) {
		(print ARFILE $k,$join,$data_hash->{$k},"\n") ||
			die "write to $file failed : $!";
		}
	}
close(ARFILE);
}