Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
help	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	1.8 KB	-rw-r--r--	2026-07-17 21:17
acl_security.pl	869 B	-rwxr-xr-x	2026-07-17 21:17
atboot.pl	5.4 KB	-rwxr-xr-x	2026-07-17 21:22
backup_config.pl	975 B	-rwxr-xr-x	2026-07-17 21:17
cgi_args.pl	668 B	-rwxr-xr-x	2026-07-17 21:17
change_rl.cgi	618 B	-rwxr-xr-x	2026-07-17 21:22
config-aix	204 B	-rw-r--r--	2026-07-17 21:17
config-alpine-linux	182 B	-rw-r--r--	2026-07-17 21:17
config-cobalt-linux-2.2-4.0	242 B	-rw-r--r--	2026-07-17 21:17
config-cobalt-linux-5.0-ALL	257 B	-rw-r--r--	2026-07-17 21:17
config-coherent-linux	277 B	-rw-r--r--	2026-07-17 21:17
config-corel-linux	179 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux	195 B	-rw-r--r--	2026-07-17 21:17
config-freebsd	154 B	-rw-r--r--	2026-07-17 21:17
config-freebsd-5.0-ALL	251 B	-rw-r--r--	2026-07-17 21:17
config-generic-linux	238 B	-rw-r--r--	2026-07-17 21:17
config-gentoo-linux	166 B	-rw-r--r--	2026-07-17 21:17
config-hpux	233 B	-rw-r--r--	2026-07-17 21:17
config-irix	186 B	-rw-r--r--	2026-07-17 21:17
config-macos	267 B	-rw-r--r--	2026-07-17 21:17
config-mandrake-linux	277 B	-rw-r--r--	2026-07-17 21:17
config-msc-linux	272 B	-rw-r--r--	2026-07-17 21:17
config-netbsd	106 B	-rw-r--r--	2026-07-17 21:17
config-open-linux	208 B	-rw-r--r--	2026-07-17 21:17
config-openSUSE-Linux-15.0-ALL	236 B	-rw-r--r--	2026-07-17 21:17
config-openbsd	106 B	-rw-r--r--	2026-07-17 21:17
config-openmamba-linux	277 B	-rw-r--r--	2026-07-17 21:17
config-openserver	208 B	-rw-r--r--	2026-07-17 21:17
config-osf1	214 B	-rw-r--r--	2026-07-17 21:17
config-pardus-linux	238 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux	277 B	-rw-r--r--	2026-07-17 21:17
config-slackware-linux	129 B	-rw-r--r--	2026-07-17 21:17
config-solaris	195 B	-rw-r--r--	2026-07-17 21:17
config-solaris-10-ALL	225 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux	187 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux-7.1-ALL	236 B	-rw-r--r--	2026-07-17 21:17
config-syno-linux	247 B	-rw-r--r--	2026-07-17 21:17
config-trustix-linux	262 B	-rw-r--r--	2026-07-17 21:17
config-turbo-linux	257 B	-rw-r--r--	2026-07-17 21:17
config-united-linux	197 B	-rw-r--r--	2026-07-17 21:17
config-unixware	178 B	-rw-r--r--	2026-07-17 21:17
config-windows	115 B	-rw-r--r--	2026-07-17 21:17
config.info	1.43 KB	-rw-r--r--	2026-07-17 21:17
config.info.ca	1.59 KB	-rw-r--r--	2026-07-17 21:17
config.info.cs	1.27 KB	-rw-r--r--	2026-07-17 21:17
config.info.de	1.51 KB	-rw-r--r--	2026-07-17 21:17
config.info.es	1.31 KB	-rw-r--r--	2026-07-17 21:17
config.info.eu	1.35 KB	-rw-r--r--	2026-07-17 21:17
config.info.fa	1.78 KB	-rw-r--r--	2026-07-17 21:17
config.info.fr	1.18 KB	-rw-r--r--	2026-07-17 21:17
config.info.hu	0 B	-rw-r--r--	2026-07-17 21:17
config.info.ja	1.57 KB	-rw-r--r--	2026-07-17 21:17
config.info.ko	1.19 KB	-rw-r--r--	2026-07-17 21:17
config.info.nl	1.25 KB	-rw-r--r--	2026-07-17 21:17
config.info.no	1.47 KB	-rw-r--r--	2026-07-17 21:17
config.info.pl	1.22 KB	-rw-r--r--	2026-07-17 21:17
config.info.ru	2.05 KB	-rw-r--r--	2026-07-17 21:17
config.info.sk	0 B	-rw-r--r--	2026-07-17 21:17
config.info.sv	549 B	-rw-r--r--	2026-07-17 21:17
config.info.tr	515 B	-rw-r--r--	2026-07-17 21:17
config.info.uk	1.45 KB	-rw-r--r--	2026-07-17 21:17
config.info.zh	388 B	-rw-r--r--	2026-07-17 21:17
config.info.zh_TW	727 B	-rw-r--r--	2026-07-17 21:17
create-boot.pl	424 B	-rwxr-xr-x	2026-07-17 21:22
defaultacl	40 B	-rw-r--r--	2026-07-17 21:17
delboot.pl	688 B	-rwxr-xr-x	2026-07-17 21:22
delete-boot.pl	379 B	-rwxr-xr-x	2026-07-17 21:22
delete_action.cgi	907 B	-rwxr-xr-x	2026-07-17 21:22
edit_action.cgi	5.12 KB	-rwxr-xr-x	2026-07-17 21:22
edit_hostconfig.cgi	6.2 KB	-rwxr-xr-x	2026-07-17 21:22
edit_launchd.cgi	2.05 KB	-rwxr-xr-x	2026-07-17 21:22
edit_rc.cgi	1.84 KB	-rwxr-xr-x	2026-07-17 21:22
edit_systemd.cgi	2.4 KB	-rwxr-xr-x	2026-07-17 21:22
edit_upstart.cgi	2.3 KB	-rwxr-xr-x	2026-07-17 21:22
fix_action.cgi	600 B	-rwxr-xr-x	2026-07-17 21:22
hostconfig-lib.pl	8.53 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	14.29 KB	-rwxr-xr-x	2026-07-17 21:22
init-lib.pl	81.98 KB	-rw-r--r--	2026-07-17 21:17
log_parser.pl	1.37 KB	-rwxr-xr-x	2026-07-17 21:17
mass_launchd.cgi	1.94 KB	-rwxr-xr-x	2026-07-17 21:22
mass_rcs.cgi	1.54 KB	-rwxr-xr-x	2026-07-17 21:22
mass_start_stop.cgi	2.81 KB	-rwxr-xr-x	2026-07-17 21:22
mass_systemd.cgi	2.68 KB	-rwxr-xr-x	2026-07-17 21:22
mass_upstarts.cgi	1.94 KB	-rwxr-xr-x	2026-07-17 21:22
modifyhostconfig.cgi	1.07 KB	-rwxr-xr-x	2026-07-17 21:22
module.info	305 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	207 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	253 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	174 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	0 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	168 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	150 B	-rw-r--r--	2026-07-17 21:17
module.info.de	0 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	148 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	277 B	-rw-r--r--	2026-07-17 21:17
module.info.es	0 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	173 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	201 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	177 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	169 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	158 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	184 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	139 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	202 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	156 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	142 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	0 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	160 B	-rw-r--r--	2026-07-17 21:17
module.info.no	0 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	148 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	163 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	199 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	208 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	249 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	172 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	154 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	218 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	283 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	140 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	149 B	-rw-r--r--	2026-07-17 21:17
prefs.info	55 B	-rw-r--r--	2026-07-17 21:17
rbac-mapping	80 B	-rw-r--r--	2026-07-17 21:17
reboot.cgi	725 B	-rwxr-xr-x	2026-07-17 21:22
save_action.cgi	6.37 KB	-rwxr-xr-x	2026-07-17 21:22
save_hostconfig_action.cgi	4.63 KB	-rwxr-xr-x	2026-07-17 21:22
save_launchd.cgi	1.72 KB	-rwxr-xr-x	2026-07-17 21:22
save_local.cgi	706 B	-rwxr-xr-x	2026-07-17 21:22
save_rc.cgi	2.48 KB	-rwxr-xr-x	2026-07-17 21:22
save_services.cgi	1.44 KB	-rwxr-xr-x	2026-07-17 21:22
save_startscript.cgi	1.9 KB	-rwxr-xr-x	2026-07-17 21:22
save_systemd.cgi	2.03 KB	-rwxr-xr-x	2026-07-17 21:22
save_upstart.cgi	2.15 KB	-rwxr-xr-x	2026-07-17 21:22
shutdown.cgi	591 B	-rwxr-xr-x	2026-07-17 21:22
start_stop.cgi	1.41 KB	-rwxr-xr-x	2026-07-17 21:22
syslog_logs.pl	350 B	-rwxr-xr-x	2026-07-17 21:17
uninstall.pl	1.93 KB	-rwxr-xr-x	2026-07-17 21:17
updateboot.pl	2.92 KB	-rwxr-xr-x	2026-07-17 21:22
win32.pl	1.93 KB	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# save_action.cgi
# Save or create an action

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

# Redirect to other CGIs for delete / start / stop
if ($in{'delete'} && $in{'old'}) {
	&redirect("delete_action.cgi?type=".&urlize($in{'type'}).
		  "&action=".&urlize($in{'old'}).
		  "&runlevel=".&urlize($in{'runlevel'}).
		  "&startstop=".&urlize($in{'startstop'}).
		  "&number=".&urlize($in{'number'}));
	}
elsif ($in{'old'}) {
	foreach $a (@action_buttons) {
		if ($in{$a}) {
			&redirect("start_stop.cgi?file=".&urlize($in{'file'}).
				  "&name=".&urlize($in{'old'})."&$a=1".
				  "&back=".&urlize($in{'back'}));
			exit;
			}
		}
	}

$access{'bootup'} == 1 || &error($text{'save_ecannot'});

# Check inputs
$in{'extra'} || $in{name} =~ /^[A-z0-9\_\-\.]+$/ ||
	&error($text{'save_ename'});
$dig = $config{'order_digits'};
foreach $rl (&list_runlevels()) {
	# If no priority was given for start/stop, make it 99
	if ($in{"S$rl"}) {
		if (!$in{"pri_S$rl"}) {
			$in{"pri_S$rl"} = "9" x $dig;
			}
		else {
			$in{"pri_S$rl"} = sprintf "%${dig}.${dig}d",
						  $in{"pri_S$rl"};
			}
		}
	if ($in{"K$rl"}) {
		if (!$in{"pri_K$rl"}) {
			$in{"pri_K$rl"} = "9" x $dig;
			}
		else {
			$in{"pri_K$rl"} = sprintf "%${dig}.${dig}d",
						  $in{"pri_K$rl"};
			}
		}
	}

if ($in{'old'} && $in{'type'} == 0) {
	# Changing a 'sane' action
	$in{data} =~ s/\r//g;
	if ($in{old} ne $in{name}) {
		# Need to rename the action..
		if (-r &action_filename($in{name})) {
			&error(&text('save_ealready', $in{name}));
			}
		&rename_action($in{old}, $in{name});
		}
	&lock_file("$dd/$in{'name'}") if ($dd);
	$file = &action_filename($in{name});
	&lock_file($file);
	foreach (&action_levels('S', $in{name})) {
		/^(\S+)\s+(\S+)\s+(\S+)$/;
		$slvl{$1} = $2;
		}
	foreach (&action_levels('K', $in{name})) {
		/^(\S+)\s+(\S+)\s+(\S+)$/;
		$klvl{$1} = $2;
		}
	if ($config{'expert'}) {
		# Update all runlevels
		foreach $rl (&list_runlevels()) {
			if ($in{"S$rl"} && !$slvl{$rl}) {
				&add_rl_action($in{name}, $rl,
					       'S', $in{"pri_S$rl"});
				}
			elsif (!$in{"S$rl"} && $slvl{$rl}) {
				&delete_rl_action($in{name}, $rl, 'S');
				}
			elsif ($in{"pri_S$rl"} != $slvl{$rl}) {
				&reorder_rl_action($in{name}, $rl,
						   'S', $in{"pri_S$rl"});
				}
			if ($in{"K$rl"} && !$klvl{$rl}) {
				&add_rl_action($in{name}, $rl,
					       'K', $in{"pri_K$rl"});
				}
			elsif (!$in{"K$rl"} && $klvl{$rl}) {
				&delete_rl_action($in{name}, $rl, 'K');
				}
			elsif ($in{"pri_K$rl"} != $klvl{$rl}) {
				&reorder_rl_action($in{name}, $rl,
						   'K',$in{"pri_K$rl"});
				}
			}
		}
	else {
		# Just change whether it gets started or not
		if ($in{'boot'} && !$in{'oldboot'}) {
			&enable_at_boot($in{'name'});
			}
		elsif (!$in{'boot'} && $in{'oldboot'}) {
			&disable_at_boot($in{'name'});
			}
		}
	&open_tempfile(ACTION, ">$file");
	&print_tempfile(ACTION, $in{data});
	&close_tempfile(ACTION);
	&unlock_file($file);
	&unlock_file("$dd/$in{'name'}") if ($dd);
	delete($in{'data'});
	&webmin_log("modify", "action", $in{'name'}, \%in);
	}
elsif ($in{'old'} && $in{'type'} == 1) {
	# Changing an odd action
	$in{data} =~ s/\r//g;
	$file = &runlevel_filename($in{runlevel}, $in{startstop},
				   $in{number}, $in{name});
	&lock_file($file);
	if ($in{old} ne $in{name}) {
		if (-r &action_filename($in{name})) {
			&error("An action called $in{name} already exists");
			}
		&rename_rl_action($in{runlevel}, $in{startstop}, $in{number},
				  $in{old}, $in{name});
		}
	&open_tempfile(ACTION, ">$file");
	&print_tempfile(ACTION, $in{data});
	&close_tempfile(ACTION);
	&unlock_file($file);
	delete($in{'data'});
	&webmin_log("modify", "action", $in{'name'}, \%in);
	}
else {
	# Creating a new action, and add it to multiple runlevels
	if (-r &action_filename($in{name})) {
		&error(&text('save_ealready', $in{name}));
		}
	@start = &get_start_runlevels();
	&lock_file(&action_filename($in{name}));
	$in{desc} =~ s/\r//g; $in{start} =~ s/\r//g; $in{stop} =~ s/\r//g;
	$data = "#!/bin/sh\n";
	if ($config{'chkconfig'}) {
		# Redhat-style description: and chkconfig: lines
		$desc = "description:";
		foreach (split(/\n/, $in{desc})) {
			$data .= "# $desc $_\n";
			$desc = " " x length($desc);
			}
		$startorder = "9" x $dig;
		$stoporder = "0" x $dig;
		foreach $rl (&list_runlevels()) {
			$startorder = $in{"pri_S$rl"} if ($in{"S$rl"});
			$stoporder = $in{"pri_K$rl"} if ($in{"K$rl"});
			}
		$data .= "# chkconfig: $config{'chkconfig'} ".
			 "$startorder $stoporder\n";
		}
	elsif ($config{'init_info'}) {
		# Suse-style init info section
		$data .= "### BEGIN INIT INFO\n".
			 "# Provides: $in{'name'}\n".
		         "# Required-Start: \$network\n".
		         "# Required-Stop: \$network\n".
			 "# Default-Start: ".join(" ", @start)."\n".
			 "# Description: $in{'desc'}\n".
			 "### END INIT INFO\n";
		}
	else {
		foreach (split(/\n/, $in{'desc'})) {
			$data .= "# $_\n";
			}
		}
	$data .= "\ncase \"\$1\" in\n";
	if ($supports_start_stop_msg) {
		$data .= "'start_msg')\n";
		$data .= "\techo \"$in{'start_msg'}\"\n";
		$data .= "\t;;\n";
		$data .= "'stop_msg')\n";
		$data .= "\techo \"$in{'stop_msg'}\"\n";
		$data .= "\t;;\n";
		}
	$subsys = $config{'subsys'};
	$data .= "'start')\n";
	foreach (split(/\n/, $in{start})) {
		$data .= "\t$_\n";
		}
	if ($subsys) {
		$data .= "\ttouch $subsys/$in{'name'}\n";
		}
	$data .= "\t;;\n";
	$data .= "'stop')\n";
	foreach (split(/\n/, $in{stop})) {
		$data .= "\t$_\n";
		}
	if ($subsys) {
		$data .= "\trm -f $subsys/$in{'name'}\n";
		}
	$data .= "\t;;\n";
	$data .= "*)\n";
	if ($supports_start_stop_msg) {
		$data .= "\techo \"Usage: \$0 { start | stop | start_msg | stop_msg }\"\n";
		}
	else {
		$data .= "\techo \"Usage: \$0 { start | stop }\"\n";
		}
	$data .= "\t;;\n";
	$data .= "esac\n";
	$data .= "exit 0\n";
	$file = &action_filename($in{name});
	&open_tempfile(ACTION, ">$file");
	&print_tempfile(ACTION, $data);
	&close_tempfile(ACTION);
	chmod(0755, $file);

if ($config{'expert'}) {
		# Make links from runlevels
		foreach $rl (&list_runlevels()) {
			if ($in{"S$rl"}) {
				&add_rl_action($in{name}, $rl, 'S',
					       $in{"pri_S$rl"});
				}
			if ($in{"K$rl"}) {
				&add_rl_action($in{name}, $rl, 'K',
					       $in{"pri_K$rl"});
				}
			}
		}
	else {
		# Just make one runlevel link
		if ($in{'boot'}) {
			&enable_at_boot($in{'name'});
			}
		}
	&unlock_file(&action_filename($in{name}));
	delete($in{'data'});
	&webmin_log("create", "action", $in{'name'}, \%in);
	}
&redirect("");