Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	389 B	-rw-r--r--
apply.cgi	202 B	-rwxr-xr-x
backup_config.pl	617 B	-rwxr-xr-x
config	189 B	-rw-r--r--
config-Amazon-Linux-2-ALL	187 B	-rw-r--r--
config-CentOS-Linux-7.0-ALL	187 B	-rw-r--r--
config-Redhat-Enterprise-Linux...	187 B	-rw-r--r--
config-Scientific-Linux-7.0-AL...	187 B	-rw-r--r--
config-debian-linux	195 B	-rw-r--r--
config-freebsd	224 B	-rw-r--r--
config-gentoo-linux	210 B	-rw-r--r--
config-openmamba-linux	185 B	-rw-r--r--
config-redhat-linux-12.0-23.0	195 B	-rw-r--r--
config-redhat-linux-24.0-ALL	175 B	-rw-r--r--
config-solaris	196 B	-rw-r--r--
config-suse-linux	127 B	-rw-r--r--
config-syno-linux	121 B	-rw-r--r--
config.info	575 B	-rw-r--r--
config.info.ca	665 B	-rw-r--r--
config.info.ca.UTF-8	673 B	-rw-r--r--
config.info.de	699 B	-rw-r--r--
config.info.de.UTF-8	699 B	-rw-r--r--
config.info.hu	0 B	-rw-r--r--
config.info.nl	651 B	-rw-r--r--
config.info.nl.UTF-8	651 B	-rw-r--r--
config.info.no	629 B	-rw-r--r--
config.info.no.UTF-8	629 B	-rw-r--r--
delete_destinations.cgi	710 B	-rwxr-xr-x
delete_filters.cgi	667 B	-rwxr-xr-x
delete_logs.cgi	549 B	-rwxr-xr-x
delete_sources.cgi	667 B	-rwxr-xr-x
edit_destination.cgi	6.76 KB	-rwxr-xr-x
edit_filter.cgi	4.24 KB	-rwxr-xr-x
edit_log.cgi	2.22 KB	-rwxr-xr-x
edit_source.cgi	9.59 KB	-rwxr-xr-x
index.cgi	1.63 KB	-rwxr-xr-x
install_check.pl	379 B	-rwxr-xr-x
list_destinations.cgi	1.88 KB	-rwxr-xr-x
list_filters.cgi	1.1 KB	-rwxr-xr-x
list_logs.cgi	1.23 KB	-rwxr-xr-x
list_options.cgi	5.63 KB	-rwxr-xr-x
list_sources.cgi	1.04 KB	-rwxr-xr-x
log_parser.pl	685 B	-rwxr-xr-x
module.info	148 B	-rw-r--r--
module.info.ca	130 B	-rw-r--r--
module.info.ca.UTF-8	142 B	-rw-r--r--
module.info.de	112 B	-rw-r--r--
module.info.de.UTF-8	124 B	-rw-r--r--
module.info.hu	36 B	-rw-r--r--
module.info.hu.UTF-8	44 B	-rw-r--r--
module.info.ms_MY	117 B	-rw-r--r--
module.info.ms_MY.UTF-8	129 B	-rw-r--r--
module.info.nl	23 B	-rw-r--r--
module.info.nl.UTF-8	29 B	-rw-r--r--
module.info.no	25 B	-rw-r--r--
module.info.no.UTF-8	31 B	-rw-r--r--
save_destination.cgi	4.99 KB	-rwxr-xr-x
save_filter.cgi	3.64 KB	-rwxr-xr-x
save_log.cgi	1.94 KB	-rwxr-xr-x
save_options.cgi	2.08 KB	-rwxr-xr-x
save_source.cgi	6.11 KB	-rwxr-xr-x
start.cgi	198 B	-rwxr-xr-x
stop.cgi	194 B	-rwxr-xr-x
syslog-ng-lib.pl	20.61 KB	-rwxr-xr-x
view_log.cgi	2.92 KB	-rwxr-xr-x

Code Editor : save_filter.cgi

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

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

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

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

# Clear out current values
	$filter->{'members'} = [ ];

if ($in{'mode'} == 0) {
		if ($in{'priority'}) {
			# Add selected priorities
			@pris = split(/\0/, $in{'pri'});
			@pris || &error($text{'filter_epris'});
			@pris = map { (",", $_) } @pris;
			shift(@pris);	# remove first ,
			push(@{$filter->{'members'}}, "and",
			     { 'name' => 'priority',
			       'type' => 0,
			       'values' => \@pris });
			}

if ($in{'facility'}) {
			# Add selected facilities
			@facs = split(/\0/, $in{'fac'});
			@facs || &error($text{'filter_efacs'});
			@facs = map { (",", $_) } @facs;
			shift(@facs);	# remove first ,
			push(@{$filter->{'members'}}, "and",
			     { 'name' => 'facility',
			       'type' => 0,
			       'values' => \@facs });
			}

if ($in{'program'}) {
			$in{'prog'} =~ /^\S+$/ || &error($text{'filter_eprog'});
			push(@{$filter->{'members'}}, "and",
			     { 'name' => 'program',
			       'type' => 0,
			       'values' => [ $in{'prog'} ] });
			}

if ($in{'match'}) {
			$in{'re'} =~ /\S/ || &error($text{'filter_ematch'});
			push(@{$filter->{'members'}}, "and",
			     { 'name' => 'match',
			       'type' => 0,
			       'values' => [ $in{'re'} ] });
			}

if ($in{'host'}) {
			$in{'hn'} =~ /^\S+$/ || &error($text{'filter_ehost'});
			push(@{$filter->{'members'}}, "and",
			     { 'name' => 'host',
			       'type' => 0,
			       'values' => [ $in{'hn'} ] });
			}

if ($in{'netmask'}) {
		        &check_ipaddress($in{'net'}) ||
			      &error($text{'filter_enet'});
		        &check_ipaddress($in{'mask'}) ||
			      &error($text{'filter_emask'});
			push(@{$filter->{'members'}}, "and",
			     { 'name' => 'netmask',
			       'type' => 0,
			       'values' => [ $in{'net'}."/".$in{'mask'} ] });
			}

if (@{$filter->{'members'}}) {
			# Remove first 'and'
			shift(@{$filter->{'members'}});
			}
		else {
			&error($text{'filter_enone'});
			}
		}

else {
		# Parse boolean expression (in a temp file), and add to values
		$temp = &transname();
		&open_tempfile(TEMP, ">$temp", 0, 1);
		&print_tempfile(TEMP, "filter xxx {\n");
		&print_tempfile(TEMP, $in{'bool'},"\n");
		&print_tempfile(TEMP, "};\n");
		&close_tempfile(TEMP);
		eval {
		  $main::error_must_die = 1;
		  ($tfilter) = &read_config_file($temp);
		  };
		$@ && &error($text{'filter_ebool'});
		unlink($temp);
		$filter->{'members'} = $tfilter->{'members'};
		}
	
	# Actually update the object
	&save_directive($conf, undef, $old, $filter, 0);

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

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

${this.title}

Code Editor : save_filter.cgi