Gecko [ contributie.vriendennsm.nl ]

Linux mail.vriendennsm.nl 6.1.0-51-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.1.177-1 (2026-07-16) x86_64
Apache/2.4.68 (Debian)
Server IP : 217.154.75.17 & Your IP : 216.73.216.195
Domains : Cant Read [ /etc/named.conf ]
User : www-data

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

#!/usr/bin/perl
# save.cgi
# Change the user's details and shell

require './chfn-lib.pl';
&ReadParse();
&error_setup($text{'save_err'});

# Force current values for those that can't be changed
@remote_user_info = getpwnam($remote_user);
@uinfo = split(/,/, $remote_user_info[6]);
$in{'real'} = $uinfo[0] if (!$config{'change_real'});
$in{'office'} = $uinfo[1] if (!$config{'change_office'});
$in{'ophone'} = $uinfo[2] if (!$config{'change_ophone'});
$in{'hphone'} = $uinfo[3] if (!$config{'change_hphone'});
$in{'shell'} = $remote_user_info[8] if (!$config{'change_shell'});

# Make sure values are set
$in{'shell'} =~ /\S/ || &error($text{'save_eshell2'});
$in{'real'} =~ /\S/ || &error($text{'save_ereal2'});

# Validate inputs
$in{'real'} =~ /[,:]/ && &error($text{'save_ereal'});
$in{'office'} =~ /[,:]/ && &error($text{'save_eoffice'});
$in{'ophone'} =~ /[,:]/ && &error($text{'save_eophone'});
$in{'hphone'} =~ /[,:]/ && &error($text{'save_ehphone'});
$in{'shell'} =~ /[,:]/ && &error($text{'save_eshell'});

# Change the details and shell
$err = &change_details($in{'real'}, $in{'office'}, $in{'ophone'}, $in{'hphone'},
		       $in{'shell'});
$err && &error("<tt>$err</tt>");

&ui_print_header(undef, $text{'save_title'}, "");

print &text($config{'change_shell'} ? 'save_desc' : 'save_desc2',
		  "<tt>$remote_user</tt>"),"<p>\n";

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