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	5.55 KB	-rw-r--r--	2026-07-17 21:17
acl_security.pl	3.08 KB	-rwxr-xr-x	2026-07-17 21:17
alpine-linux-lib.pl	754 B	-rw-r--r--	2026-07-17 21:17
apply.cgi	299 B	-rwxr-xr-x	2026-07-17 21:22
backup_config.pl	1005 B	-rwxr-xr-x	2026-07-17 21:17
cgi_args.pl	752 B	-rwxr-xr-x	2026-07-17 21:17
cobalt-linux-lib.pl	33.11 KB	-rwxr-xr-x	2026-07-17 21:17
coherent-linux-lib.pl	33.11 KB	-rwxr-xr-x	2026-07-17 21:17
config	48 B	-rw-r--r--	2026-07-17 21:17
config-ALL-linux	48 B	-rw-r--r--	2026-07-17 21:17
config-cygwin	82 B	-rw-r--r--	2026-07-17 21:17
config-freebsd	48 B	-rw-r--r--	2026-07-17 21:17
config-macos	48 B	-rw-r--r--	2026-07-17 21:17
config-netbsd	48 B	-rw-r--r--	2026-07-17 21:17
config-openbsd	48 B	-rw-r--r--	2026-07-17 21:17
config-solaris	79 B	-rw-r--r--	2026-07-17 21:17
config-syno-linux	48 B	-rw-r--r--	2026-07-17 21:17
config-unixware	48 B	-rw-r--r--	2026-07-17 21:17
config-windows	78 B	-rw-r--r--	2026-07-17 21:17
config.info	193 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	241 B	-rw-r--r--	2026-07-17 21:17
config.info.cs	205 B	-rw-r--r--	2026-07-17 21:17
config.info.de	219 B	-rw-r--r--	2026-07-17 21:17
config.info.es	175 B	-rw-r--r--	2026-07-17 21:17
config.info.fa	255 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	246 B	-rw-r--r--	2026-07-17 21:17
config.info.hu	0 B	-rw-r--r--	2026-07-17 21:17
config.info.ja	68 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	197 B	-rw-r--r--	2026-07-17 21:17
config.info.no	208 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	240 B	-rw-r--r--	2026-07-17 21:17
config.info.pt_BR	229 B	-rw-r--r--	2026-07-17 21:17
config.info.ru	361 B	-rw-r--r--	2026-07-17 21:17
config.info.sk	225 B	-rw-r--r--	2026-07-17 21:17
config.info.sv	42 B	-rw-r--r--	2026-07-17 21:17
config.info.tr	65 B	-rw-r--r--	2026-07-17 21:17
config.info.uk	87 B	-rw-r--r--	2026-07-17 21:17
config.info.zh	43 B	-rw-r--r--	2026-07-17 21:17
config.info.zh_TW	44 B	-rw-r--r--	2026-07-17 21:17
create_route.cgi	1004 B	-rwxr-xr-x	2026-07-17 21:22
cygwin-lib.pl	11.29 KB	-rwxr-xr-x	2026-07-17 21:17
debian-linux-lib.pl	31.63 KB	-rwxr-xr-x	2026-07-17 21:17
defaultacl	114 B	-rw-r--r--	2026-07-17 21:17
delete_aifcs.cgi	739 B	-rwxr-xr-x	2026-07-17 21:22
delete_bifcs.cgi	2.09 KB	-rwxr-xr-x	2026-07-17 21:22
delete_hosts.cgi	523 B	-rwxr-xr-x	2026-07-17 21:22
delete_ipnodes.cgi	542 B	-rwxr-xr-x	2026-07-17 21:22
delete_routes.cgi	458 B	-rwxr-xr-x	2026-07-17 21:22
dhcpcd-lib.pl	28.88 KB	-rw-r--r--	2026-07-17 21:17
edit_aifc.cgi	5.36 KB	-rwxr-xr-x	2026-07-17 21:22
edit_bifc.cgi	10.53 KB	-rwxr-xr-x	2026-07-17 21:22
edit_host.cgi	1.13 KB	-rwxr-xr-x	2026-07-17 21:22
edit_ipnode.cgi	1.04 KB	-rwxr-xr-x	2026-07-17 21:22
edit_range.cgi	1.34 KB	-rwxr-xr-x	2026-07-17 21:22
freebsd-lib.pl	19.22 KB	-rwxr-xr-x	2026-07-17 21:17
gentoo-linux-lib.pl	8.47 KB	-rwxr-xr-x	2026-07-17 21:17
ifupdown-lib.pl	3.17 KB	-rw-r--r--	2026-07-17 21:17
index.cgi	1.25 KB	-rwxr-xr-x	2026-07-17 21:22
interface_chooser.cgi	3.8 KB	-rwxr-xr-x	2026-07-17 21:22
linux-lib.pl	32.32 KB	-rwxr-xr-x	2026-07-17 21:17
list_dns.cgi	2.3 KB	-rwxr-xr-x	2026-07-17 21:22
list_hosts.cgi	1.36 KB	-rwxr-xr-x	2026-07-17 21:22
list_ifcs.cgi	7.96 KB	-rwxr-xr-x	2026-07-17 21:22
list_ipnodes.cgi	1.07 KB	-rwxr-xr-x	2026-07-17 21:22
list_routes.cgi	3.38 KB	-rwxr-xr-x	2026-07-17 21:22
log_parser.pl	1.39 KB	-rwxr-xr-x	2026-07-17 21:17
macos-lib.pl	11.58 KB	-rwxr-xr-x	2026-07-17 21:17
mandrake-linux-lib.pl	33.11 KB	-rwxr-xr-x	2026-07-17 21:17
mod_aifc.cgi	720 B	-rwxr-xr-x	2026-07-17 21:22
module.info	498 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	170 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	261 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	127 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	25 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	27 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	111 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	129 B	-rw-r--r--	2026-07-17 21:17
module.info.de	121 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	19 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	229 B	-rw-r--r--	2026-07-17 21:17
module.info.es	30 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	116 B	-rw-r--r--	2026-07-17 21:17
module.info.eu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.eu.auto	142 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	194 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	145 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	30 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	128 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	34 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	148 B	-rw-r--r--	2026-07-17 21:17
module.info.it	28 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	112 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	33 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	153 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	28 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	105 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	136 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	18 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	29 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	105 B	-rw-r--r--	2026-07-17 21:17
module.info.no	31 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	99 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	122 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	19 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	31 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	125 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	34 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	131 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	36 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	167 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	28 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	113 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	31 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	103 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	30 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	130 B	-rw-r--r--	2026-07-17 21:17
module.info.uk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.uk.auto	223 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	21 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	90 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	24 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	96 B	-rw-r--r--	2026-07-17 21:17
msc-linux-lib.pl	33.11 KB	-rwxr-xr-x	2026-07-17 21:17
net-detect.pl	3.47 KB	-rw-r--r--	2026-07-17 21:17
net-lib.pl	13.32 KB	-rwxr-xr-x	2026-07-17 21:17
netbsd-lib.pl	19.22 KB	-rwxr-xr-x	2026-07-17 21:17
netplan-lib.pl	26.1 KB	-rw-r--r--	2026-07-17 21:17
nm-lib.pl	18.13 KB	-rw-r--r--	2026-07-17 21:17
open-linux-lib.pl	7.2 KB	-rwxr-xr-x	2026-07-17 21:17
openbsd-lib.pl	12.61 KB	-rwxr-xr-x	2026-07-17 21:17
openmamba-linux-lib.pl	33.11 KB	-rwxr-xr-x	2026-07-17 21:17
pardus-linux-lib.pl	33.11 KB	-rwxr-xr-x	2026-07-17 21:17
rbac-mapping	180 B	-rw-r--r--	2026-07-17 21:17
rc.inet1	1.95 KB	-rw-r--r--	2026-07-17 21:17
redhat-linux-lib.pl	33.11 KB	-rwxr-xr-x	2026-07-17 21:17
save_aifc.cgi	6.04 KB	-rwxr-xr-x	2026-07-17 21:22
save_bifc.cgi	10.9 KB	-rwxr-xr-x	2026-07-17 21:22
save_dns.cgi	4.24 KB	-rwxr-xr-x	2026-07-17 21:22
save_host.cgi	1.18 KB	-rwxr-xr-x	2026-07-17 21:22
save_ipnode.cgi	1.26 KB	-rwxr-xr-x	2026-07-17 21:22
save_range.cgi	1.42 KB	-rwxr-xr-x	2026-07-17 21:22
save_routes.cgi	283 B	-rwxr-xr-x	2026-07-17 21:22
slackware-linux-9.1-ALL-lib.pl	7.85 KB	-rwxr-xr-x	2026-07-17 21:17
slackware-linux-lib.pl	6.71 KB	-rwxr-xr-x	2026-07-17 21:17
solaris-lib.pl	20.8 KB	-rwxr-xr-x	2026-07-17 21:17
suse-linux-8.0-lib.pl	7.32 KB	-rwxr-xr-x	2026-07-17 21:17
suse-linux-8.2-lib.pl	7.32 KB	-rwxr-xr-x	2026-07-17 21:17
suse-linux-9.0-lib.pl	8.75 KB	-rwxr-xr-x	2026-07-17 21:17
suse-linux-9.1-lib.pl	8.75 KB	-rwxr-xr-x	2026-07-17 21:17
suse-linux-9.2-ALL-lib.pl	11.23 KB	-rwxr-xr-x	2026-07-17 21:17
suse-linux-lib.pl	9.08 KB	-rwxr-xr-x	2026-07-17 21:17
system_info.pl	2.42 KB	-rw-r--r--	2026-07-17 21:17
trustix-linux-lib.pl	33.11 KB	-rwxr-xr-x	2026-07-17 21:17
turbo-linux-lib.pl	33.11 KB	-rwxr-xr-x	2026-07-17 21:17
united-linux-lib.pl	7.32 KB	-rwxr-xr-x	2026-07-17 21:17
unixware-lib.pl	9.91 KB	-rwxr-xr-x	2026-07-17 21:17
windows-lib.pl	11.29 KB	-rwxr-xr-x	2026-07-17 21:17

Rename

#!/usr/bin/perl
# save_dns.cgi
# Save DNS client configuration

require './net-lib.pl';
$access{'dns'} == 2 || &error($text{'dns_ecannot'});
&error_setup($text{'dns_err'});
&ReadParse();
$old_fqdn = &get_system_hostname(); # Fully-Qualified Domain Name
$old_pqdn = &get_system_hostname(1); # Partially Qualified Domain Name (short name)
$old_hostname = &get_hostname();

$in{'hostname'} =~ /^[A-Za-z0-9\.\-]+$/ ||
	&error(&text('dns_ehost', &html_escape($in{'hostname'})));
$dns = { };

$new_pqdn = $in{'hostname'};
$new_pqdn =~ s/\..*$//;

for($i=0; defined($ns = $in{"nameserver_$i"}); $i++) {
	$ns = $in{"nameserver_$i"};
	$ns =~ s/^\s+//; $ns =~ s/\s+$//;
	if ($ns) {
		my $nns = $ns;
		# Just remove scope identifier (%interface) for simplicity
		$nns =~ s/\%.*$//;
		&check_ipaddress_any($nns) ||
			&error(&text('dns_ens', &html_escape($ns)));
		push(@{$dns->{'nameserver'}}, $nns);
		}
	}
if ($in{'name0'}) {
    my $i = 0 ;
    my $namekey="name$i";
    while ($in{$namekey}) {
	$dns->{'name'}[$i] = $in{$namekey};
	my $nskey = "nameserver$i";
	my $j = -1;
	while (++$j < $max_dns_servers) {
	    $ns = $in{"${nskey}_$j"};
	    $ns =~ s/^\s+//; $ns =~ s/\s+$//;
	    if ($ns) {
		&check_ipaddress_any($ns) ||
		    &error(&text('dns_ens', &html_escape($ns)));
		push(@{$dns->{$nskey}}, $ns);
	    }
	}
	$i++;
	$namekey="name$i";
    }
}
if (!$in{'domain_def'}) {
	@dlist = split(/\s+/, $in{'domain'});
	foreach $d (@dlist) {
		$d =~ /^[A-Za-z0-9\.\-]+$/ ||
			&error(&text('dns_edomain', &html_escape($d)));
		$new_fqdn = "$new_pqdn.$d" if !$new_fqdn;
		push(@{$dns->{'domain'}}, $d);
		}
	@dlist || &error($text{'dns_esearch'});
	}
&parse_order($dns);
&save_dns_config($dns);
&save_hostname($in{'hostname'});

if ($in{'hosts'} && ($in{'hostname'} ne $old_hostname || $new_fqdn ne $old_fqdn)) {
	# Update hostname/fqdn/pqdn in /etc/hosts too
	@hosts = &list_hosts();
	foreach $h (@hosts) {
		local $found = 0;
		foreach $n (@{$h->{'hosts'}}) {
			if (lc($n) eq lc($old_hostname)) {
				$n = $in{'hostname'};
				$found++;
				}
			elsif (lc($n) eq lc($old_fqdn) && $new_fqdn) {
				$n = $new_fqdn;
				$found++;
				}
			elsif (lc($n) eq lc($old_pqdn)) {
				$n = $new_pqdn;
				$found++;
				}
			}
		&modify_host($h) if ($found);
		}

# Update in ipnodes too
	@ipnodes = &list_ipnodes();
	foreach $h (@ipnodes) {
		local $found = 0;
		foreach $n (@{$h->{'ipnodes'}}) {
			if (lc($n) eq lc($old_hostname)) {
				$n = $in{'hostname'};
				$found++;
				}
			elsif (lc($n) eq lc($old_fqdn) && $new_fqdn) {
				$n = $new_fqdn;
				$found++;
				}
			elsif (lc($n) eq lc($old_pqdn)) {
				$n = $new_pqdn;
				$found++;
				}
			}
		&modify_ipnode($h) if ($found);
		}
	}

if (&foreign_installed("postfix") && $in{'hostname'} ne $old_hostname) {
	# Update postfix mydestination too
	&foreign_require("postfix");
	&postfix::lock_postfix_files();
	@mydests = split(/[ ,]+/, &postfix::get_current_value("mydestination"));
	$idx = &indexoflc($old_hostname, @mydests);
	if ($idx >= 0) {
		$mydests[$idx] = $in{'hostname'};
		&postfix::set_current_value("mydestination",
					    join(", ", @mydests));
		}
	$idx = &indexoflc($old_pqdn, @mydests);
	if ($idx >= 0) {
		$mydests[$idx] = $new_pqdn;
		&postfix::set_current_value("mydestination",
					    join(", ", @mydests));
		}
	$old_domain = $old_hostname =~ /^[^\.]+\.(.*)$/ ? $1 :
		      $old_fqdn =~ /^[^\.]+\.(.*)$/ ? $1 : undef;
	$new_domain = $in{'hostname'} =~ /^[^\.]+\.(.*)$/ ? $1 :
		      $new_fqdn =~ /^[^\.]+\.(.*)$/ ? $1 : undef;
	if ($old_domain && $new_domain &&
	    lc($old_domain) ne lc($new_domain)) {
		$idx = &indexoflc("localhost.$old_domain", @mydests);
		if ($idx >= 0) {
			$mydests[$idx] = "localhost.$new_domain";
			&postfix::set_current_value("mydestination",
						    join(", ", @mydests));
			}
		}

# Update postfix myorigin
	$myorigin = &postfix::get_current_value("myorigin");
	if ($myorigin eq $old_hostname) {
		&postfix::set_current_value("myorigin",
					    $in{'hostname'});
		}

# Update postfix myhostname
	$myhostname = &postfix::get_current_value("myhostname");
	if ($myhostname eq $old_hostname) {
		&postfix::set_current_value("myhostname",
					    $in{'hostname'});
		}

&postfix::unlock_postfix_files();
	if (&postfix::is_postfix_running()) {
		&postfix::reload_postfix();
		}
	}

&webmin_log("dns", undef, undef, \%in);
&redirect("");