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
CHANGELOG	2.96 KB	-rw-r--r--	2026-07-17 21:17
aliases-lib.pl	7.93 KB	-rwxr-xr-x	2026-07-17 21:17
autoreply-file-lib.pl	2.28 KB	-rwxr-xr-x	2026-07-17 21:17
config	218 B	-rw-r--r--	2026-07-17 21:17
config.info	489 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	575 B	-rw-r--r--	2026-07-17 21:17
config.info.cs	370 B	-rw-r--r--	2026-07-17 21:17
config.info.de	594 B	-rw-r--r--	2026-07-17 21:17
config.info.el	404 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	584 B	-rw-r--r--	2026-07-17 21:17
config.info.no	519 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	604 B	-rw-r--r--	2026-07-17 21:17
delete.cgi	431 B	-rwxr-xr-x	2026-07-17 21:22
down.cgi	261 B	-rwxr-xr-x	2026-07-17 21:22
edit.cgi	9.05 KB	-rwxr-xr-x	2026-07-17 21:22
edit_auto.cgi	3.11 KB	-rwxr-xr-x	2026-07-17 21:22
edit_forward.cgi	1.18 KB	-rwxr-xr-x	2026-07-17 21:22
filter-lib.pl	17.71 KB	-rwxr-xr-x	2026-07-17 21:17
index.cgi	4.79 KB	-rwxr-xr-x	2026-07-17 21:22
module.info	260 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	175 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	195 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	109 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	46 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	88 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	110 B	-rw-r--r--	2026-07-17 21:17
module.info.de	114 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	289 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	114 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	120 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	144 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	132 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	124 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	124 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	92 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	100 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	151 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	121 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	103 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	34 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	75 B	-rw-r--r--	2026-07-17 21:17
module.info.no	37 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	74 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	134 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	104 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	110 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	200 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	125 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	124 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	127 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	97 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	103 B	-rw-r--r--	2026-07-17 21:17
move.cgi	1.61 KB	-rwxr-xr-x	2026-07-17 21:22
save.cgi	7.63 KB	-rwxr-xr-x	2026-07-17 21:22
save_auto.cgi	2.73 KB	-rwxr-xr-x	2026-07-17 21:22
save_forward.cgi	959 B	-rwxr-xr-x	2026-07-17 21:22
up.cgi	259 B	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# Show a table of simple actions

require './filter-lib.pl';
&ui_print_header(undef, $text{'index_title'}, "", undef, 0, 1);

if (&get_product_name() eq 'webmin') {
	&ui_print_endpage($text{'index_nowebmin'});
	}

# Warn if procmail is not installed
if ($config{'warn_procmail'} && !&has_command("procmail")) {
	print "$text{'index_warn'}\n";
	}

# Check for an override alias
$alias = &get_override_alias();
if ($alias) {
	# Got one .. but does it deliver locally
	$noat = $remote_user;
	$noat =~ s/\@/-/g;
	@values = @{$alias->{'values'}};
	($tome) = grep { $_ eq "\\$remote_user" ||
			 $_ eq "\\$noat" } @values;
	if ($tome) {
		@values = grep { $_ ne $tome } @values;
		$msg = 'index_aliasme';
		}
	else {
		$msg = 'index_alias';
		}
	print "$text{$msg} \n";
	print "<ul>\n";
	foreach $dest (&describe_alias_dest(\@values)) {
		print "<li>$dest\n";
		}
	print "</ul>\n";
	}

# Check if /etc/procmailrc forces local delivery
my $alerted;
if (&no_user_procmailrc()) {
	my $text_force = $text{'index_force'};
	if (-d "/etc/webmin/virtual-server") {
		$text_force .= " $text{'index_force_desc'}";
		}
	$alerted++;
	print &ui_alert_box($text_force, 'danger');
	}

@filters = &list_filters();
foreach my $filter (@filters) {
	$filter->{'action'} = &html_escape($filter->{'action'})
		if ($filter->{'action'});
	}
@links = ( );
if (@filters) {
	push(@links, &select_all_link("d"), &select_invert_link("d"));
	}
push(@links, &ui_link("edit.cgi?new=1",$text{'index_add'}));
($auto) = grep { $_->{'actionreply'} } @filters;
if (&can_simple_autoreply() && !$auto) {
	push(@links, &ui_link("edit_auto.cgi",$text{'index_addauto'}));
	}
($fwd) = grep { $_->{'actiontype'} eq '!' } @filters;
if (&can_simple_forward() && !$fwd) {
	push(@links, &ui_link("edit_forward.cgi",$text{'index_addfwd'}));
	}

@folders = &mailbox::list_folders();
if (@filters || &get_global_spamassassin()) {
	# Show table of filters
	print &ui_form_start("delete.cgi", "post");
	@tds = ( "width=5", "width=50%", "width=50%", "width=32" );
	print &ui_links_row(\@links);
	print &ui_columns_start([ "",
				  $text{'index_condition'},
				  $text{'index_action'},
				  @filters > 1 ? ( $text{'index_move'} ) : ( ),
				], 100, 0, \@tds);

# Add a magic non-editable row(s) for global spamassassin run
	if (&get_global_spamassassin()) {
		print &ui_columns_row(
			[ "", $text{'index_calways'}, $text{'index_aspam'},
			 @filters > 1 ? ( "" ) : ( ) ],
			\@tds);
		# Delete level
		$spamlevel = &get_global_spam_delete();
		if ($spamlevel) {
			print &ui_columns_row(
				[ "", &text('index_clevel', $spamlevel),
				 $text{'index_athrow'},
				 @filters > 1 ? ( "" ) : ( ) ],
				\@tds);
			}
		# Delivery path
		$spamfile = &get_global_spam_path();
		if ($spamfile) {
			$folder = &file_to_folder($spamfile, \@folders, 0, 1);
			$id = &mailbox::folder_name($folder);
			if ($folder->{'fake'}) {
				$sflink = "".&html_escape($folder->{'name'})."";
				}
			else {
				$sflink =
				 &ui_link("../mailbox/index.cgi?id=$id",
					 &html_escape($folder->{'name'}));
				}
			print &ui_columns_row(
				[ "", $text{'index_cspam'},
				 &text('index_afolder', $sflink),
				 @filters > 1 ? ( "" ) : ( ) ],
				\@tds);
			}
		}

# Show editable rows
	foreach $f (@filters) {
		# Work out nice condition and action descriptions
		local $cond;
		($cond, $lastalways) = &describe_condition($f);
		$cond = &ui_link("edit.cgi?idx=$f->{'index'}", $cond);
		local $action = &describe_action($f, \@folders);

# Create mover links
		local $mover;
		if ($f eq $filters[0]) {
			$mover .= "<img src=images/gap.gif alt=' '>";
			}
		else {
			$mover .= "<a href='up.cgi?idx=$f->{'index'}'>".
			 "<img src=images/up.gif border=0 alt='Up'></a>";
			}
		if ($f eq $filters[$#filters]) {
			$mover .= "<img src=images/gap.gif alt=' '>";
			}
		else {
			$mover .= "<a href='down.cgi?idx=$f->{'index'}'>".
			 "<img src=images/down.gif border=0 alt='Down'></a>";
			}

# Show the row
		print &ui_checked_columns_row(
			[ $cond,
			  $action,
			  @filters > 1 ? ( $mover ) : ( ) ],
			\@tds, "d", $f->{'index'}
			);

}

# Add a magic non-editable row for default delivery
	if (!$lastalways) {
		print &ui_columns_row(
			[ "", $text{'index_calways'}, $text{'index_adefault'},
			  @filters > 1 ? ( "" ) : ( ) ],
			\@tds);
		}

print &ui_columns_end();
	print &ui_links_row(\@links);
	print &ui_form_end([ [ "delete", $text{'index_delete'} ] ]);
	}
else {
	# Tell the user there are none
	@pmrc = &procmail::get_procmailrc();
	if (@pmrc) {
		if ($alerted) {
			print &ui_alert_box($text{'index_none2'}, 'info');
			}
		else {
			print $text{'index_none2'} . "";
			}
		}
	else {
		if ($alerted) {
			print &ui_alert_box($text{'index_none'}, 'info');
			}
		else {
			print $text{'index_none'} . "";
			}
		}
	print &ui_links_row(\@links);
	}

&ui_print_footer("/", $text{'index'});