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 : edit_filter.cgi

#!/usr/bin/perl
# Show a form for editing or creating a log filter

require './syslog-ng-lib.pl';
&ReadParse();

# Show title and get the filter
$conf = &get_config();
if ($in{'new'}) {
	&ui_print_header(undef, $text{'filter_title1'}, "");
	}
else {
	&ui_print_header(undef, $text{'filter_title2'}, "");
	@filters = &find("filter", $conf);
	($filter) = grep { $_->{'value'} eq $in{'name'} } @filters;
	$filter || &error($text{'filter_egone'});
	}

# Form header
print &ui_form_start("save_filter.cgi", "post");
print &ui_hidden("new", $in{'new'}),"\n";
print &ui_hidden("old", $in{'name'}),"\n";
print &ui_table_start($text{'filter_header'}, undef, 2);

# Filter name
print &ui_table_row($text{'filter_name'},
		    &ui_textbox("name", $filter->{'value'}, 20));

# See if the conditions are simple (1 or more of facility, level, matches
# and program, and separated)
$simple = 1;
foreach $m (@{$filter->{'members'}}) {
	if (ref($m)) {
		if ($simple{$m->{'name'}}) {
			# Already done this type .. not simple any more
			$simple = 0;
		        }
		else {
			$simple{$m->{'name'}} = $m;
			}
		}
	elsif ($m eq "and") {
		# 'and' separator .. we can handle this
		}
	else {
		$simple = 0;
		}
	}

# Build table for simple mode
%simple = ( ) if (!$simple);
$stable = "<table>\n";

# Priority
$p = $simple{'priority'};
@pris = &list_priorities();
if ($p) {
	if ($p->{'values'}->[1] eq "..") {
		$i1 = &indexof(@pris, $p->{'values'}->[0]);
		$i2 = &indexof(@pris, $p->{'values'}->[2]);
		if ($i1 >= 0 && $i2 >= 0) {
			%gotpris = map { $pris[$_], 1 } ($i1 .. $i2);
			}
		}
	else {
		%gotpris = map { $_, 1 } grep { $_ ne "," } @{$p->{'values'}};
		}
	}
$stable .= "<tr> <td>".&ui_checkbox("priority", 1, $text{'filter_priority'},
				 $p ? 1 : 0)."</td>\n";
$stable .= "<td>";
foreach $p (@pris) {
	$stable .= &ui_checkbox("pri", $p, $p, $gotpris{$p})."\n";
	}
$stable .= "</td> </tr>\n";

# Facility
$p = $simple{'facility'};
@facs = &list_facilities();
if ($p) {
	%gotfacs = map { $_, 1 } grep { $_ ne "," } @{$p->{'values'}};
	}
$stable .= "<tr> <td valign=top>".
 &ui_checkbox("facility", 1, $text{'filter_facility'}, $p ? 1 : 0).
 "</td>\n";
$stable .= "<td><table>";
$i = 0;
foreach $f (@facs) {
	$stable .= "<tr>\n" if ($i % 8 == 0);
	$stable .= "<td>".&ui_checkbox("fac", $f, $f, $gotfacs{$f})."</td>\n";
	$stable .= "<tr>\n" if ($i % 8 == 7);
	$i++;
	}
$stable .= "</table></td> </tr>\n";

# Program
$p = $simple{'program'};
$stable .= "<tr> <td>".&ui_checkbox("program", 1, $text{'filter_program'},
				 $p ? 1 : 0)."</td>\n";
$stable .= "<td>".&ui_textbox("prog", $p ? $p->{'value'} : undef, 30).
	 "</td> </tr>\n";

# Match RE
$p = $simple{'match'};
$stable .= "<tr> <td>".&ui_checkbox("match", 1, $text{'filter_match'},
				 $p ? 1 : 0)."</td>\n";
$stable .= "<td>".&ui_textbox("re", $p ? $p->{'value'} : undef, 50).
	 "</td> </tr>\n";

# Sending hostname
$p = $simple{'host'};
$stable .= "<tr> <td>".&ui_checkbox("host", 1, $text{'filter_host'},
				 $p ? 1 : 0)."</td>\n";
$stable .= "<td>".&ui_textbox("hn", $p ? $p->{'value'} : undef, 30).
	 "</td> </tr>\n";

# Sending IP
$p = $simple{'netmask'};
if ($p) {
 ($net, $mask) = split(/\//, $p->{'value'});
 }
$stable .= "<tr> <td>".&ui_checkbox("netmask", 1, $text{'filter_netmask'},
				 $p ? 1 : 0)."</td>\n";
$stable .= "<td>".&ui_textbox("net", $net, 15)."/".
		 &ui_textbox("mask", $mask, 15)."</td> </tr>\n";

$stable .= "</table>\n";

# Build text area for complex mode
local @w;
foreach $m (@{$filter->{'members'}}) {
	if (ref($m)) {
		local ($line) = &directive_lines($m);
		$line =~ s/\s*;\s*$//;
		push(@w, $line);
		}
	else {
		push(@w, $m);
		}
	}
$ctable = &ui_textarea("bool", join(" ", @w), 5, 80);

# Show the two modes
print "<tr> <td colspan=2>\n";
print &ui_oneradio("mode", 0, "$text{'filter_mode0'}", $simple)," \n";
print $stable," \n";
print &ui_oneradio("mode", 1, "$text{'filter_mode1'}",!$simple)," \n";
print $ctable," \n";
print "</td> </tr>\n";

# Form footer and buttons
print &ui_table_end();
if ($in{'new'}) {
	print &ui_form_end([ [ "create", $text{'create'} ] ]);
	}
else {
	print &ui_form_end([ [ "save", $text{'save'} ],
			     [ "delete", $text{'delete'} ] ]);
	}
&ui_print_footer("list_filters.cgi", $text{'filters_return'});

${this.title}

Code Editor : edit_filter.cgi