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_aifc.cgi
# Save, create or delete an active interface

require './net-lib.pl';
&ReadParse();
@acts = &active_interfaces(1);

if ($in{'delete'}) {
	# delete an interface
	&error_setup($text{'aifc_err1'});
	$a = $acts[$in{'idx'}];
	&can_iface($a) || &error($text{'ifcs_ecannot_this'});
	&deactivate_interface($a);
	&webmin_log("delete", "aifc", $a->{'fullname'}, $a);
	}
else {
	# Validate and save inputs
	&error_setup($text{'aifc_err2'});
	if (!$in{'new'}) {
		# Editing existing interface
		$olda = $acts[$in{'idx'}];
		&can_iface($olda) || &error($text{'ifcs_ecannot_this'});
		$a->{'name'} = $olda->{'name'};
		$a->{'fullname'} = $olda->{'fullname'};
		$a->{'virtual'} = $olda->{'virtual'}
			if (defined($olda->{'virtual'}));
		}
	elsif (defined($in{'virtual'})) {
		# creating a virtual interface
		$in{'virtual'} =~ /^\d+$/ ||
			&error($text{'aifc_evirt'});
		$in{'virtual'} >= $min_virtual_number ||
			&error(&text('aifc_evirtmin', &html_escape($min_virtual_number)));
		foreach $ea (@acts) {
			if ($ea->{'name'} eq $in{'name'} &&
			    $ea->{'virtual'} eq $in{'virtual'}) {
				&error(&text('aifc_evirtdup',
				       &html_escape("$in{'name'}:$in{'virtual'}")));
				}
			}
		$a->{'name'} = $in{'name'};
		$a->{'virtual'} = $in{'virtual'};
		$a->{'fullname'} = $a->{'name'}.":".$a->{'virtual'};
		&can_create_iface() || &error($text{'ifcs_ecannot'});
		&can_iface($a) || &error($text{'ifcs_ecannot'});
		}
	elsif ($in{'name'} =~ /^([a-z]+\d*(s\d*)?(\.\d+)?):(\d+)$/) {
		# also creating a virtual interface
		foreach $ea (@acts) {
			if ($ea->{'name'} eq $1 &&
			    $ea->{'virtual'} eq $4) {
				&error(&text('aifc_evirtdup', &html_escape($in{'name'})));
				}
			}
		$4 >= $min_virtual_number ||
			&error(&text('aifc_evirtmin', &html_escape($min_virtual_number)));
		$a->{'name'} = $1;
		$a->{'virtual'} = $4;
		$a->{'fullname'} = $a->{'name'}.":".$a->{'virtual'};
		&can_create_iface() || &error($text{'ifcs_ecannot'});
		&can_iface($a) || &error($text{'ifcs_ecannot'});
		}
	elsif ($in{'name'} =~ /^[a-z]+\d*(s\d+)?(\.\d+)?$/) {
		# creating a real interface
		foreach $ea (@acts) {
			if ($ea->{'name'} eq $in{'name'}) {
				&error(&text('aifc_edup', &html_escape($in{'name'})));
				}
			}
		$a->{'name'} = $in{'name'};
		$a->{'fullname'} = $in{'name'};
		&can_create_iface() || &error($text{'ifcs_ecannot'});
		&can_iface($a) || &error($text{'ifcs_ecannot'});
		}
	else {
		&error($text{'aifc_ename'});
		}

# Validate and store inputs
	&check_ipaddress_any($in{'address'}) ||
		&error(&text('aifc_eip', &html_escape($in{'address'})));
	$a->{'address'} = $in{'address'};

# Check for address clash
	$allow_clash = defined(&allow_interface_clash) ?
			&allow_interface_clash($a, 0) : 1;
	if (!$allow_clash &&
	    ($in{'new'} || $olda->{'address'} ne $a->{'address'})) {
		($clash) = grep { $_->{'address'} eq $a->{'address'} } @acts;
		$clash && &error(&text('aifc_eclash', &html_escape($clash->{'fullname'})));
		}

if ($virtual_netmask && $a->{'virtual'} ne "") {
		# Always use this netmask for virtuals
		$a->{'netmask'} = $virtual_netmask;
		}
	elsif (!$access{'netmask'}) {
		# Use default netmask
		$a->{'netmask'} = $in{'new'} ?
			$config{'def_netmask'} || "255.255.255.0" :
			$olda->{'netmask'};
		}
	elsif (!$in{'netmask_def'}) {
		&check_netmask($in{'netmask'},$a->{'address'}) ||
			&error(&text('aifc_emask', &html_escape($in{'netmask'})));
		$a->{'netmask'} = $in{'netmask'};
		}

if (!$access{'broadcast'}) {
		# Compute broadcast
		$a->{'broadcast'} = $in{'new'} ?
			&compute_broadcast($a->{'address'}, $a->{'netmask'}) :
			$olda->{'broadcast'};
		}
	elsif (!$in{'broadcast_def'}) {
		&check_ipaddress_any($in{'broadcast'}) ||
			&error(&text('aifc_ebroad', &html_escape($in{'broadcast'})));
		$a->{'broadcast'} = $in{'broadcast'};
		}

if (!$access{'mtu'}) {
		# Use default MTU
		$a->{'mtu'} = $in{'new'} ? $config{'def_mtu'}
					 : $olda->{'mtu'};
		}
	elsif (!$in{'mtu_def'}) {
		$in{'mtu'} =~ /^\d+$/ ||
			&error(&text('aifc_emtu', &html_escape($in{'mtu'})));
		$a->{'mtu'} = $in{'mtu'} if ($olda->{'mtu'} ne $in{'mtu'});
		}

# Save active flag
	if ($a->{'virtual'} ne "") {
		# Virtual aliases are addresses only, so present means up.
		if ($access{'up'} && defined($in{'up'}) && !$in{'up'}) {
			&error($text{'aifc_evirtdown'});
			}
		$a->{'up'} = 1;
		}
	elsif (!$access{'up'}) {
		$a->{'up'} = $in{'new'} ? 1 : $olda->{'up'};
		}
	elsif ($in{'up'}) {
		$a->{'up'}++;
		}

# Save IPv6 addresses
	if (&supports_address6($a) && $in{'mode6'} eq 'address') {
		# Has IPv6 addresses
		@address6 = ( );
		@netmask6 = ( );
		%clash6 = ( );
		foreach $eb (@acts) {
			if ($eb->{'fullname'} ne $a->{'fullname'}) {
				foreach $a6 (@{$eb->{'address6'}}) {
					$clash6{$a6} = $eb;
					}
				}
			}
		for($i=0; defined($in{'address6_'.$i}); $i++) {
			next if ($in{'address6_'.$i} !~ /\S/);
			&check_ip6address($in{'address6_'.$i}) ||
				&error(&text('aifc_eaddress6', $i+1));
			$c = $clash6{$in{'address6_'.$i}};
			$c && &error(&text('aifc_eclash6', $i+1, &html_escape($c->{'name'})));
			push(@address6, $in{'address6_'.$i});
			$in{'netmask6_'.$i} =~ /^\d+$/ &&
			    $in{'netmask6_'.$i} > 0 &&
			    $in{'netmask6_'.$i} <= 128 ||
				&error(&text('aifc_enetmask6', $i+1));
			push(@netmask6, $in{'netmask6_'.$i});
			$clash6{$in{'address6_'.$i}} = $a;
			}
		@address6 || &error($text{'aifc_eaddresses6'});
		$a->{'address6'} = \@address6;
		$a->{'netmask6'} = \@netmask6;
		}
	elsif (&supports_address6($a) && $in{'mode6'} eq 'none') {
		# IPv6 addresses disabled
		delete($a->{'address6'});
		delete($a->{'netmask6'});
		}

if (defined($in{'ether'}) && $in{'ether'} ne '' &&
	    !$in{'ether_def'} && $a->{'virtual'} eq "" &&
	    &iface_hardware($a->{'name'})) {
		$in{'ether'} =~ /^[A-Fa-f0-9:]+$/ ||
			&error(&text('aifc_ehard', &html_escape($in{'ether'})));
		$a->{'ether'} = $in{'ether'}
			if ($olda->{'ether'} ne $in{'ether'});
		}
	$a->{'fullname'} = $a->{'name'}.
			   ($a->{'virtual'} eq '' ? '' : ':'.$a->{'virtual'});

# Bring it up
	&activate_interface($a);
	&webmin_log($in{'new'} ? 'create' : 'modify',
		    "aifc", $a->{'fullname'}, $a);
	}
&redirect("list_ifcs.cgi?mode=active");