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	466 B	-rw-r--r--	2026-07-17 21:17
acl_security.pl	803 B	-rwxr-xr-x	2026-07-17 21:17
change-user-lib.pl	620 B	-rwxr-xr-x	2026-07-17 21:17
change.cgi	3.29 KB	-rwxr-xr-x	2026-07-17 21:22
defaultacl	31 B	-rw-r--r--	2026-07-17 21:17
index.cgi	6.24 KB	-rwxr-xr-x	2026-07-17 21:22
module.info	206 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	167 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	19 B	-rw-r--r--	2026-07-17 21:17
module.info.bg	0 B	-rw-r--r--	2026-07-17 21:17
module.info.bg.auto	250 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	140 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	19 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	32 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	120 B	-rw-r--r--	2026-07-17 21:17
module.info.da	0 B	-rw-r--r--	2026-07-17 21:17
module.info.da.auto	148 B	-rw-r--r--	2026-07-17 21:17
module.info.de	116 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	26 B	-rw-r--r--	2026-07-17 21:17
module.info.el	0 B	-rw-r--r--	2026-07-17 21:17
module.info.el.auto	291 B	-rw-r--r--	2026-07-17 21:17
module.info.es	32 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	124 B	-rw-r--r--	2026-07-17 21:17
module.info.eu	39 B	-rw-r--r--	2026-07-17 21:17
module.info.eu.auto	118 B	-rw-r--r--	2026-07-17 21:17
module.info.fa	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fa.auto	227 B	-rw-r--r--	2026-07-17 21:17
module.info.fi	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fi.auto	155 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	47 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	150 B	-rw-r--r--	2026-07-17 21:17
module.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hr.auto	148 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	98 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	19 B	-rw-r--r--	2026-07-17 21:17
module.info.it	35 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	121 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	200 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	33 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	131 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	122 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	19 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	35 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	129 B	-rw-r--r--	2026-07-17 21:17
module.info.no	29 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	109 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	144 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	28 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	151 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	32 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	127 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	44 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	209 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	32 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	124 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	167 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	31 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	141 B	-rw-r--r--	2026-07-17 21:17
module.info.uk	242 B	-rw-r--r--	2026-07-17 21:17
module.info.uk.auto	217 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	0 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	139 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	39 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	115 B	-rw-r--r--	2026-07-17 21:17
safeacl	31 B	-rw-r--r--	2026-07-17 21:17

Rename

#!/usr/bin/perl
# change.cgi
# Make all the changes, and re-direct to / in case the theme has changed

use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './change-user-lib.pl';
our (%text, %in, %gconfig, $base_remote_user, %access);
&ReadParse();

&ui_print_unbuffered_header(undef, $text{'change_title'}, "");

my @users = &acl::list_users();
my ($user) = grep { $_->{'name'} eq $base_remote_user } @users;
my $oldtheme = $user->{'theme'};
my $oldoverlay = $user->{'overlay'};
if (!defined($oldtheme)) {
	($oldtheme, $oldoverlay) = split(/\s+/, $gconfig{'theme'});
	}

# Validate the password
if ($access{'pass'} && &can_change_pass($user) && !$in{'pass_def'}) {
	$in{'pass'} =~ /:/ && &error($text{'change_ecolon'});
	$in{'pass'} eq $in{'pass2'} ||
		&error($text{'change_epass2'});
	my $perr = &acl::check_password_restrictions(
		$user->{'name'}, $in{'pass'});
	&error(&text('change_epass', $perr)) if ($perr);
	}

# Parse custom language
if ($access{'lang'}) {
	if ($in{'lang_def'}) {
		$user->{'lang'} = undef;
		$user->{'langauto'} = undef;
		$user->{'langneutral'} = undef;
		}
	else {
		$user->{'lang'} = $in{'lang'};
		$user->{'langauto'} = $in{'langauto'} ? 1 : 0;
		$user->{'langneutral'} = $in{'langneutral'} ? 1 : 0;
		}
	}

# Parse custom locale
if ($access{'locale'}) {
	# Parse new locale
	if ($in{'locale_def'} ||
	    $in{'locale'}) {
		if ($in{'locale_def'}) {
			$user->{'locale'} = undef;
			}
		else {
			$user->{'locale'} = $in{'locale'};
			}
		}
	# Parse old dateformat
	if ($in{'dateformat_def'} ||
	    $in{'dateformat'}) {
		if ($in{'dateformat_def'}) {
			$user->{'dateformat'} = undef;
			}
		else {
			$user->{'dateformat'} = $in{'dateformat'};
			}
		}
	}

# Parse custom theme and possibly overlay
my ($newoverlay, $newtheme);
if ($access{'theme'}) {
	if ($in{'theme_def'}) {
		$user->{'theme'} = undef;
		}
	else {
		$user->{'theme'} = $in{'theme'};
		}
	$newtheme = $user->{'theme'};
	if (!defined($newtheme)) {
		$newtheme = $gconfig{'theme'};
		}

# Overlay
	if (!$in{'overlay'}) {
		$newoverlay = undef;
		$user->{'overlay'} = undef;
		}
	else {
		$newoverlay = $in{'overlay'};
		$user->{'theme'} || &error($text{'change_eoverlay'});
		my %oinfo = &get_theme_info($in{'overlay'});
		if ($oinfo{'overlays'} &&
		 &indexof($user->{'theme'},
			 split(/\s+/, $oinfo{'overlays'})) < 0) {
			&error($text{'change_eoverlay2'});
			}
		$user->{'overlay'} = $in{'overlay'};
		}
	}

# Parse password change
if ($access{'pass'} && &can_change_pass($user) && !$in{'pass_def'}) {
	$user->{'pass'} = &acl::encrypt_password($in{'pass'});
	$user->{'temppass'} = 0;
	}

if ($access{'theme'} &&
    ($newtheme ne $oldtheme || $newoverlay ne $oldoverlay)) {
        if (defined(&theme_pre_change_theme)) {
                &theme_pre_change_theme();
                }
	}

print "$text{'change_user'} \n";
&acl::modify_user($user->{'name'}, $user);
print "$text{'change_done'}\n";

print "$text{'change_restart'} \n";
&reload_miniserv();
print "$text{'change_done'}\n";

if ($access{'theme'} &&
 ($newtheme ne $oldtheme || $newoverlay ne $oldoverlay)) {
	if (defined(&theme_post_change_theme)) {
		&theme_post_change_theme();
		}
	print "$text{'change_redirect'} \n";
	print &js_redirect("/", "top");
	print "$text{'change_done'}\n";
	}
else {
	&ui_print_footer("", $text{'index'});
	}