Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
ulang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	83 B	-rw-r--r--	2026-07-19 16:26
chfn-lib.pl	188 B	-rwxr-xr-x	2026-07-19 16:26
config	77 B	-rw-r--r--	2026-07-19 16:26
config.info	294 B	-rw-r--r--	2026-07-19 16:26
config.info.ca	322 B	-rwxr-xr-x	2026-07-19 16:26
config.info.de	317 B	-rw-r--r--	2026-07-19 16:26
config.info.el	605 B	-rw-r--r--	2026-07-19 16:26
config.info.nl	334 B	-rw-r--r--	2026-07-19 16:26
config.info.no	289 B	-rw-r--r--	2026-07-19 16:26
editor.pl	597 B	-rwxr-xr-x	2026-07-19 16:28
freebsd-lib.pl	446 B	-rwxr-xr-x	2026-07-19 16:26
index.cgi	1.34 KB	-rwxr-xr-x	2026-07-19 16:28
linux-lib.pl	2.24 KB	-rwxr-xr-x	2026-07-19 16:26
module.info	200 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	181 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	218 B	-rw-r--r--	2026-07-19 16:26
module.info.ca	36 B	-rw-r--r--	2026-07-19 16:26
module.info.ca.auto	105 B	-rw-r--r--	2026-07-19 16:26
module.info.cs	35 B	-rw-r--r--	2026-07-19 16:26
module.info.cs.auto	102 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	117 B	-rw-r--r--	2026-07-19 16:26
module.info.de	128 B	-rw-r--r--	2026-07-19 16:26
module.info.de.auto	13 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	237 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	133 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	141 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	182 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	120 B	-rw-r--r--	2026-07-19 16:26
module.info.fr	27 B	-rw-r--r--	2026-07-19 16:26
module.info.fr.auto	96 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	134 B	-rw-r--r--	2026-07-19 16:26
module.info.hu	47 B	-rw-r--r--	2026-07-19 16:26
module.info.hu.auto	107 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	36 B	-rw-r--r--	2026-07-19 16:26
module.info.ja.auto	102 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	138 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	120 B	-rw-r--r--	2026-07-19 16:26
module.info.nl	27 B	-rw-r--r--	2026-07-19 16:26
module.info.nl.auto	93 B	-rw-r--r--	2026-07-19 16:26
module.info.no	32 B	-rw-r--r--	2026-07-19 16:26
module.info.no.auto	88 B	-rw-r--r--	2026-07-19 16:26
module.info.pl	151 B	-rw-r--r--	2026-07-19 16:26
module.info.pl.auto	145 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	55 B	-rw-r--r--	2026-07-19 16:26
module.info.ru.auto	144 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	152 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	124 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	165 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	214 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	146 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	155 B	-rw-r--r--	2026-07-19 16:26
netbsd-lib.pl	446 B	-rwxr-xr-x	2026-07-19 16:26
openbsd-lib.pl	446 B	-rwxr-xr-x	2026-07-19 16:26
save.cgi	1.35 KB	-rwxr-xr-x	2026-07-19 16:28

Rename

# linux-lib.pl
# Functions for changing user details on linux
use utf8;

# change_details(realname, office, ophone, hphone, shell)
sub change_details
{
foreach $a (@_) {
	$a =~ s/\\//g;
	$a =~ s/'//g;
	}
utf8::decode($_[0]) if (!utf8::is_utf8($_[0]));
utf8::decode($_[1]) if (!utf8::is_utf8($_[1]));
local @ruser = getpwnam($remote_user);
local @uinfo = split(/,/, $ruser[6]);

if (has_command('usermod')) {
	my $realname = quotemeta($_[0]);
	my $officeroom = quotemeta($_[1]);
	my $ophone = quotemeta($_[2]);
	my $hphone = quotemeta($_[3]);
	my @udata = ($realname, $officeroom, $ophone, $hphone);
	my $udata = join(',', @udata);
	$udata =~ s/[,]+$//g;
	$udata =~ s/\\ / /g;
	
	# Change user details
	my $cmd = "usermod -c \"$udata\" ".quotemeta($remote_user);
	my $out = `$cmd 2>&1`;
	return $out if ($?);

# Change shell
	if ($ruser[8] ne $_[4]) {
		my $nshell = quotemeta($_[4]);
		if (grep( /^$_[4]$/, &shells_available() )) {
			my $cmd = "usermod -s $nshell ".quotemeta($remote_user);
			my $out = `$cmd 2>&1`;
			return $? ? $out : undef;
			}
		}
} else {

# What version of chfn are we running?
	local $out = `chfn -v 2>&1`;
	local $cmd;
	if ($out =~ /pwdutils/i || ($out =~ /-r/ && $out =~ /-w/ && $out =~ /-h/)) {
		# Change details using chfn from pwdutils syntax
		$cmd = "chfn -f ".quotemeta($_[0]);
		$cmd .= " -r ".quotemeta($_[1]) if ($_[1] || $uinfo[1]);
		$cmd .= " -w ".quotemeta($_[2]) if ($_[2] || $uinfo[2]);
		$cmd .= " -h ".quotemeta($_[3]) if ($_[3] || $uinfo[3]);
		$cmd .= " ".quotemeta($remote_user);
		}
	else {
		# Change details using chfn from util-linux syntax
		$cmd = "chfn -f ".quotemeta($_[0]);
		$cmd .= " -o ".quotemeta($_[1]) if ($_[1] || $uinfo[1]);
		$cmd .= " -p ".quotemeta($_[2]) if ($_[2] || $uinfo[2]);
		$cmd .= " -h ".quotemeta($_[3]) if ($_[3] || $uinfo[3]);
		$cmd .= " ".quotemeta($remote_user);
		}
	local $out = `$cmd 2>&1`;
	return $out if ($?);

# Change shell
	if ($ruser[8] ne $_[4]) {
		$cmd = "chsh -s ".quotemeta($_[4])." ".quotemeta($remote_user);
		$out = `$cmd 2>&1`;
		return $? ? $out : undef;
		}
	}
return undef;
}

sub shells_available
{
my @shellslist;
open(my $shells, "</etc/shells");
while(<$shells>) {
	s/\r|\n//g;
	s/^\s*#.*$//;
	push(@shellslist, $_) if (/\S/);
	}
close($shells);
return @shellslist;
}