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
apply.cgi	219 B	-rwxr-xr-x	2026-07-17 21:22
backup_config.pl	630 B	-rwxr-xr-x	2026-07-17 21:17
config	479 B	-rw-r--r--	2026-07-17 21:17
config-freebsd	415 B	-rw-r--r--	2026-07-17 21:17
config-generic-linux	322 B	-rw-r--r--	2026-07-17 21:17
config-slackware-linux	322 B	-rw-r--r--	2026-07-17 21:17
config-solaris	235 B	-rw-r--r--	2026-07-17 21:17
config-syno-linux	219 B	-rw-r--r--	2026-07-17 21:17
config.info	726 B	-rw-r--r--	2026-07-17 21:17
config.info.bg	1.28 KB	-rw-r--r--	2026-07-17 21:17
config.info.ca	846 B	-rw-r--r--	2026-07-17 21:17
config.info.cs	676 B	-rw-r--r--	2026-07-17 21:17
config.info.de	862 B	-rw-r--r--	2026-07-17 21:17
config.info.es	524 B	-rw-r--r--	2026-07-17 21:17
config.info.hu	483 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	798 B	-rw-r--r--	2026-07-17 21:17
config.info.no	760 B	-rw-r--r--	2026-07-17 21:17
edit_auth.cgi	944 B	-rwxr-xr-x	2026-07-17 21:22
edit_conf.cgi	6.68 KB	-rwxr-xr-x	2026-07-17 21:22
edit_node.cgi	2.96 KB	-rwxr-xr-x	2026-07-17 21:22
edit_res.cgi	2.26 KB	-rwxr-xr-x	2026-07-17 21:22
feedback_files.pl	110 B	-rwxr-xr-x	2026-07-17 21:17
heartbeat-lib.pl	4.79 KB	-rwxr-xr-x	2026-07-17 21:17
index.cgi	3.3 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	564 B	-rwxr-xr-x	2026-07-17 21:17
module.info	200 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	178 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	248 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	135 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	22 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	26 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	138 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	124 B	-rw-r--r--	2026-07-17 21:17
module.info.de	129 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	260 B	-rw-r--r--	2026-07-17 21:17
module.info.es	26 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	143 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	146 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	181 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	140 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	168 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	147 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	159 B	-rw-r--r--	2026-07-17 21:17
module.info.it	0 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	151 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	190 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	169 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	121 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	25 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	112 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	103 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	147 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	166 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	175 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	237 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	141 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	134 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	159 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	220 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	118 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	0 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	127 B	-rw-r--r--	2026-07-17 21:17
save_auth.cgi	469 B	-rwxr-xr-x	2026-07-17 21:22
save_conf.cgi	3.56 KB	-rwxr-xr-x	2026-07-17 21:22
save_node.cgi	1.27 KB	-rwxr-xr-x	2026-07-17 21:22
start.cgi	246 B	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# save_conf.cgi
# Save configuration options

require './heartbeat-lib.pl';
&ReadParse();
@conf = &get_ha_config();
&error_setup($text{'conf_err'});

# Parse and validate inputs
for($i=0; defined($in{"serial_$i"}); $i++) {
	push(@serials, $in{"serial_$i"}) if ($in{"serial_$i"});
	}
&save_directive(\@conf, 'serial', \@serials );

if ($in{'baud_def'}) {
	&save_directive(\@conf, 'baud', [ ]);
	}
else {
	$in{'baud'} =~ /^\d+$/ || &error($text{'conf_ebaud'});
	&save_directive(\@conf, 'baud', [ $in{'baud'} ]);
	}

# changed (Christof Amelunxen, 22.08.2003)
# udp now bcast
if ($in{'bcasts_def'}) {
	&save_directive(\@conf, 'bcast', [ ]);
	}
else {
	@bcasts = split(/\s+/, $in{'bcasts'});
	foreach $b (@bcasts) {
		$b =~ /^\S+\d+$/ || &error(&text('conf_ebcastif', $b));
		}
	@bcasts || &error($text{'conf_ebcasts'});
	&save_directive(\@conf, 'bcast', \@bcasts);
	}

if ($in{'udpport_def'}) {
	&save_directive(\@conf, 'udpport', [ ]);
	}
else {
	$in{'udpport'} =~ /^\d+$/ || &error($text{'conf_eudpport'});
	&save_directive(\@conf, 'udpport', [ $in{'udpport'} ]);
	}

if ($in{'mcast_def'}) {
	&save_directive(\@conf, 'mcast', [ ]);
	}
else {
	$in{'mcast_dev'} =~ /^\S+\d+$/ || &error($text{'conf_emcast_dev'});
	&check_ipaddress($in{'mcast_ip'}) || &error($text{'conf_emcast_ip'});
	$in{'mcast_port'} =~ /^\d+$/ || &error($text{'conf_emcast_port'});
	$in{'mcast_ttl'} =~ /^\d+$/ || &error($text{'conf_emcast_ttl'});
	&save_directive(\@conf, 'mcast', [ join(" ",
		$in{'mcast_dev'}, $in{'mcast_ip'}, $in{'mcast_port'},
		$in{'mcast_ttl'}, $in{'mcast_loop'}) ] );
	}

if ($in{'keepalive_def'}) {
	&save_directive(\@conf, 'keepalive', [ ]);
	}
else {
	$in{'keepalive'} =~ /^\d+$/ || &error($text{'conf_ekeepalive'});
	&save_directive(\@conf, 'keepalive', [ $in{'keepalive'} ]);
	}

if ($in{'deadtime_def'}) {
	&save_directive(\@conf, 'deadtime', [ ]);
	}
else {
	$in{'deadtime'} =~ /^\d+$/ || &error($text{'conf_edeadtime'});
	&save_directive(\@conf, 'deadtime', [ $in{'deadtime'} ]);
	}

if ($in{'watchdog_def'}) {
	&save_directive(\@conf, 'watchdog', [ ]);
	}
else {
	-r $in{'watchdog'} || &error($text{'conf_ewatchdog'});
	&save_directive(\@conf, 'watchdog', [ $in{'watchdog'} ]);
	}

@node = split(/\s+/, $in{'node'});
@node || &error($text{'conf_enonode'});
$uname = `uname -n 2>/dev/null`;
$uname =~ s/\r|\n//g;
foreach $n (@node) {
	$found++ if ($n eq $uname);
	}
!$uname || $found || &error(&text('conf_ethisnode', "<tt>$uname</tt>"));
&save_directive(\@conf, 'node', \@node);

if ($in{'logfile_def'}) {
	&save_directive(\@conf, 'logfile', [ ]);
	}
else {
	$in{'logfile'} =~ /^\S+$/ || &error($text{'conf_elogfile'});
	&save_directive(\@conf, 'logfile', [ $in{'logfile'} ]);
	}

if ($in{'logfacility_def'}) {
	&save_directive(\@conf, 'logfacility', [ ]);
	}
else {
	&save_directive(\@conf, 'logfacility', [ $in{'logfacility'} ]);
	}

if ($in{'initdead_def'}) {
	&save_directive(\@conf, 'initdead', [ ]);
	}
else {
	$in{'initdead'} =~ /^\d+$/ || &error($text{'conf_einitdead'});
	$in{'deadtime_def'} || $in{'initdead'} >= $in{'deadtime'}*2 ||
		&error($text{'conf_einitdead2'});
	&save_directive(\@conf, 'initdead', [ $in{'initdead'} ]);
	}

# save nice failback behaviour
if (&version_atleast(1, 2, 0)) {
	# New-style option
	if ($in{'auto_failback'}) {
		&save_directive(\@conf, 'auto_failback',
			        [ $in{'auto_failback'} ]);
		}
	else {
		&save_directive(\@conf, 'auto_failback', [ ]);
		}
	}
else {
	# Old-style option
	if ($in{'nice_failback_def'}) {
		&save_directive(\@conf,'nice_failback',[ 'on' ]);
		}
	else {
		&save_directive(\@conf,'nice_failback', [ 'off' ]);
		}
	}

&flush_file_lines();
&redirect("");