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	389 B	-rw-r--r--	2026-07-17 21:17
apply.cgi	202 B	-rwxr-xr-x	2026-07-17 21:22
backup_config.pl	617 B	-rwxr-xr-x	2026-07-17 21:17
config	190 B	-rw-r--r--	2026-07-17 21:17
config-AlmaLinux-7.0-ALL	188 B	-rw-r--r--	2026-07-17 21:17
config-Amazon-Linux-2-ALL	188 B	-rw-r--r--	2026-07-17 21:17
config-CentOS-Linux-7.0-ALL	190 B	-rw-r--r--	2026-07-17 21:17
config-CentOS-Stream-Linux-8.0-ALL	188 B	-rw-r--r--	2026-07-17 21:17
config-CloudLinux-8.0-ALL	188 B	-rw-r--r--	2026-07-17 21:17
config-Oracle-Linux-8.0-ALL	188 B	-rw-r--r--	2026-07-17 21:17
config-Redhat-Enterprise-Linux-7.0-ALL	188 B	-rw-r--r--	2026-07-17 21:17
config-Rocky-Linux-7.0-ALL	188 B	-rw-r--r--	2026-07-17 21:17
config-Scientific-Linux-7.0-ALL	188 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux	196 B	-rw-r--r--	2026-07-17 21:17
config-freebsd	225 B	-rw-r--r--	2026-07-17 21:17
config-gentoo-linux	211 B	-rw-r--r--	2026-07-17 21:17
config-openSUSE-Linux-15.0-ALL	128 B	-rw-r--r--	2026-07-17 21:17
config-openmamba-linux	186 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-12.0-23.0	196 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-24.0-ALL	176 B	-rw-r--r--	2026-07-17 21:17
config-solaris	197 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux	128 B	-rw-r--r--	2026-07-17 21:17
config-syno-linux	122 B	-rw-r--r--	2026-07-17 21:17
config.info	575 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	673 B	-rw-r--r--	2026-07-17 21:17
config.info.de	687 B	-rw-r--r--	2026-07-17 21:17
config.info.hu	0 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	651 B	-rw-r--r--	2026-07-17 21:17
config.info.no	613 B	-rw-r--r--	2026-07-17 21:17
delete_destinations.cgi	710 B	-rwxr-xr-x	2026-07-17 21:22
delete_filters.cgi	667 B	-rwxr-xr-x	2026-07-17 21:22
delete_logs.cgi	549 B	-rwxr-xr-x	2026-07-17 21:22
delete_sources.cgi	667 B	-rwxr-xr-x	2026-07-17 21:22
edit_destination.cgi	6.76 KB	-rwxr-xr-x	2026-07-17 21:22
edit_filter.cgi	4.24 KB	-rwxr-xr-x	2026-07-17 21:22
edit_log.cgi	2.23 KB	-rwxr-xr-x	2026-07-17 21:22
edit_source.cgi	9.59 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	1.96 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	419 B	-rwxr-xr-x	2026-07-17 21:17
list_destinations.cgi	1.88 KB	-rwxr-xr-x	2026-07-17 21:22
list_filters.cgi	1.1 KB	-rwxr-xr-x	2026-07-17 21:22
list_logs.cgi	1.23 KB	-rwxr-xr-x	2026-07-17 21:22
list_options.cgi	5.63 KB	-rwxr-xr-x	2026-07-17 21:22
list_sources.cgi	1.04 KB	-rwxr-xr-x	2026-07-17 21:22
log_parser.pl	685 B	-rwxr-xr-x	2026-07-17 21:17
module.info	148 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	152 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	249 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	130 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	131 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	104 B	-rw-r--r--	2026-07-17 21:17
module.info.de	112 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	225 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	123 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	134 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	204 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	120 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	127 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	136 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	38 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	97 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	127 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	138 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	126 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	111 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	23 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	89 B	-rw-r--r--	2026-07-17 21:17
module.info.no	25 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	78 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	112 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	119 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	125 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	188 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	133 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	107 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	136 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	194 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	103 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	109 B	-rw-r--r--	2026-07-17 21:17
prefs.info	44 B	-rw-r--r--	2026-07-17 21:17
save_destination.cgi	4.99 KB	-rwxr-xr-x	2026-07-17 21:22
save_filter.cgi	3.64 KB	-rwxr-xr-x	2026-07-17 21:22
save_log.cgi	1.94 KB	-rwxr-xr-x	2026-07-17 21:22
save_options.cgi	2.08 KB	-rwxr-xr-x	2026-07-17 21:22
save_source.cgi	6.11 KB	-rwxr-xr-x	2026-07-17 21:22
start.cgi	198 B	-rwxr-xr-x	2026-07-17 21:22
stop.cgi	194 B	-rwxr-xr-x	2026-07-17 21:22
syslog-ng-lib.pl	20.63 KB	-rwxr-xr-x	2026-07-17 21:17
view_log.cgi	2.92 KB	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# Create, update or delete a log source

require './syslog-ng-lib.pl';
&ReadParse();
&error_setup($text{'source_err'});

# Get the old source
$conf = &get_config();
if (!$in{'new'}) {
	@sources = &find("source", $conf);
	($source) = grep { $_->{'value'} eq $in{'old'} } @sources;
	$source || &error($text{'source_egone'});
	$old = $source;
	}
else {
	$source = { 'name' => 'source',
		  'type' => 1,
		  'members' => [ ] };
	}

&lock_all_files($conf);
if ($in{'delete'}) {
	# Just delete it!
	&check_dependencies('source', $in{'old'}) &&
	    &error(&text('sdelete_eused', $in{'old'}));
	&save_directive($conf, undef, $source, undef, 0);
	}
else {
	# Validate inputs, and update object
	$in{'name'} =~ /^[a-z0-9_]+$/i || &error($text{'source_ename'});
	if ($in{'new'} || $in{'old'} ne $in{'name'}) {
		($clash) = grep { $_->{'value'} eq $in{'name'} } @sources;
		$clash && &error($text{'source_eclash'});
		}
	$source->{'values'} = [ $in{'name'} ];

# Clear out all existing values
	$source->{'members'} = [ ];

if ($in{'internal'}) {
		# Save internal option
		$internal = { 'name' => 'internal',
			      'type' => 0,
			      'values' => [ ] };
		&save_directive($conf, $source, undef, $internal, 1);
		}

foreach $t ("unix-stream", "unix-dgram") {
		# Save Unix socket file option
		next if (!$in{$t});
		$in{$t.'_name'} =~ /^\/\S/ ||
			&error($text{'source_eunix_name'});
		$unix = { 'name' => $t,
			  'type' => 0,
			  'values' => [ $in{$t.'_name'} ] };
		&save_directive($conf, $source, undef, $unix, 1);

# Save owner
		if (!$in{$t.'_owner_def'}) {
			defined(getpwnam($in{$t.'_owner'})) ||
				&error($text{'source_eowner'});
			&save_directive($conf, $unix, "owner",
					$in{$t.'_owner'}, 1);
			}
		if (!$in{$t.'_group_def'}) {
			defined(getgrnam($in{$t.'_group'})) ||
				&error($text{'source_egroup'});
			&save_directive($conf, $unix, "group",
					$in{$t.'_group'}, 1);
			}

# Save permissions
		if (!$in{$t.'_perm_def'}) {
			$in{$t.'_perm'} =~ /^[0-7]+$/ ||
				&error($text{'source_eperm'});
			&save_directive($conf, $unix, "perm",
					$in{$t.'_perm'}, 1);
			}

if ($t eq "unix-stream") {
			# Save keep-alive option
			if ($in{$t.'_keep'}) {
				&save_directive($conf, $unix, "keep-alive",
						$in{$t.'_keep'}, 1);
				}

# Save max connections option
			if (!$in{$t.'_max_def'}) {
				$in{$t.'_max'} =~ /^\d+$/ ||
					&error($text{'source_emax'});
				&save_directive($conf, $unix, "max-connections",
						$in{$t.'_max'}, 1);
				}
			}
		}

foreach $t ('tcp', 'udp') {
		# Save network socket file option
		next if (!$in{$t});
		$net = { 'name' => $t,
		         'type' => 0,
			 'values' => [ ] };
		&save_directive($conf, $source, undef, $net, 1);

# Save local IP and port
		if (!$in{$t.'_ip_def'}) {
			&check_ipaddress($in{$t.'_ip'}) ||
				&error($text{'source_eip'});
			&save_directive($conf, $net, "ip",
					$in{$t.'_ip'}, 1);
			}
		if (!$in{$t.'_port_def'}) {
			$in{$t.'_port'} =~ /^\d+$/ ||
				&error($text{'source_eport'});
			&save_directive($conf, $net, "port",
					$in{$t.'_port'}, 1);
			}

# Save TCP-specific options and max connections
		if ($t eq "tcp") {
			if ($in{$t.'_keep'}) {
				&save_directive($conf, $net, "keep-alive",
						$in{$t.'_keep'}, 1);
				}
			if ($in{$t.'_tkeep'}) {
				&save_directive($conf, $net, "tcp-keep-alive",
						$in{$t.'_tkeep'}, 1);
				}
			}
		if (!$in{$t.'_max_def'}) {
			$in{$t.'_max'} =~ /^\d+$/ ||
				&error($text{'source_emax'});
			&save_directive($conf, $net, "max-connections",
					$in{$t.'_max'}, 1);
			}
		}

# Save kernel file option
	if ($in{'file'}) {
		$in{'file_name'} =~ /^\/\S/ ||
			&error($text{'source_efile_name'});
		$file = { 'name' => 'file',
		          'type' => 0,
			  'values' => [ $in{'file_name'} ] };
		&save_directive($conf, $source, undef, $file, 1);

# Save log prefix
		if (!$in{'file_prefix_def'}) {
			$in{'file_prefix'} =~ /\S/ ||
			    &error($text{'source_eprefix'});
			&save_directive($conf, $file, "log_prefix",
					$in{'file_prefix'}, 1);
			}
		}

# Save named pipe option
	if ($in{'pipe'}) {
		$in{'pipe_name'} =~ /^\/\S/ ||
			&error($text{'source_epipe_name'});
		$pipe = { 'name' => 'pipe',
		          'type' => 0,
			  'values' => [ $in{'pipe_name'} ] };
		&save_directive($conf, $source, undef, $pipe, 1);

# Save log prefix and pad size
		if (!$in{'pipe_prefix_def'}) {
			$in{'pipe_prefix'} =~ /\S/ ||
			    &error($text{'source_eprefix'});
			&save_directive($conf, $pipe, "log_prefix",
					$in{'pipe_prefix'}, 1);
			}
		if (!$in{'pipe_pad_def'}) {
			$in{'pipe_pad'} =~ /^\d+$/ ||
			    &error($text{'source_epad'});
			&save_directive($conf, $pipe, "pad_size",
					$in{'pipe_pad'}, 1);
			}
		}
		
	# Save Solaris streams option
	if ($in{'sun-streams'}) {
		$in{'sun_streams_name'} =~ /^\/\S/ ||
			&error($text{'source_esun_streams_name'});
		$sun_streams = { 'name' => 'sun-streams',
				 'type' => 0,
				 'values' => [ $in{'sun_streams_name'} ] };
		&save_directive($conf, $source, undef, $sun_streams, 1);

# Save door file
		$in{'sun_streams_door'} =~ /\S/ ||
		    &error($text{'source_edoor'});
		&save_directive($conf, $sun_streams, "door",
				$in{'sun_streams_door'}, 1);
		}

# Save syslog protocol option
	if ($in{'network'}) {
		$net = { 'name' => 'network',
		         'type' => 0,
			 'values' => [ ] };
		&save_directive($conf, $source, undef, $net, 1);

# Save local IP and port
		if (!$in{'network_ip_def'}) {
			&check_ipaddress($in{'network_ip'}) ||
				&error($text{'source_eip'});
			&save_directive($conf, $net, "ip",
					$in{'network_ip'}, 1);
			}
		if (!$in{'network_port_def'}) {
			$in{'network_port'} =~ /^\d+$/ ||
				&error($text{'source_eport'});
			&save_directive($conf, $net, "port",
					$in{'network_port'}, 1);
			}
		if ($in{'network_transport'}) {
			&save_directive($conf, $net, "transport",
					$in{'network_transport'}, 1);
			}
		}

# Actually update the object
	&save_directive($conf, undef, $old, $source, 0);

# Update dependent log targets
	if (!$in{'new'}) {
		&rename_dependencies('source', $in{'old'}, $in{'name'});
		}
	}

&unlock_all_files();
&webmin_log($in{'delete'} ? 'delete' : $in{'new'} ? 'create' : 'modify',
	    'source', $in{'old'} || $in{'name'});
&redirect("list_sources.cgi");