Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
ulang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	1.3 KB	-rw-r--r--	2026-07-19 16:26
autoreply-file-lib.pl	2.28 KB	-rwxr-xr-x	2026-07-19 16:26
autoreply.pl	12.68 KB	-rwxr-xr-x	2026-07-19 16:28
config	71 B	-rw-r--r--	2026-07-19 16:26
config-msc-linux	71 B	-rw-r--r--	2026-07-19 16:26
config.info	297 B	-rw-r--r--	2026-07-19 16:26
config.info.ca	333 B	-rwxr-xr-x	2026-07-19 16:26
config.info.de	299 B	-rw-r--r--	2026-07-19 16:26
config.info.el	584 B	-rw-r--r--	2026-07-19 16:26
config.info.nl	335 B	-rw-r--r--	2026-07-19 16:26
config.info.no	304 B	-rw-r--r--	2026-07-19 16:26
edit_afile.cgi	900 B	-rwxr-xr-x	2026-07-19 16:28
edit_alias.cgi	353 B	-rwxr-xr-x	2026-07-19 16:28
edit_ffile.cgi	1.72 KB	-rwxr-xr-x	2026-07-19 16:28
edit_forward.cgi	604 B	-rwxr-xr-x	2026-07-19 16:28
edit_rfile.cgi	2.63 KB	-rwxr-xr-x	2026-07-19 16:28
edit_vacation.cgi	2.25 KB	-rwxr-xr-x	2026-07-19 16:28
edit_vfile.cgi	1.81 KB	-rwxr-xr-x	2026-07-19 16:28
filter.pl	1.99 KB	-rwxr-xr-x	2026-07-19 16:28
forward-lib.pl	11.37 KB	-rwxr-xr-x	2026-07-19 16:26
index.cgi	5.85 KB	-rwxr-xr-x	2026-07-19 16:28
module.info	195 B	-rw-r--r--	2026-07-19 16:26
module.info.ar	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ar.auto	227 B	-rw-r--r--	2026-07-19 16:26
module.info.bg	0 B	-rw-r--r--	2026-07-19 16:26
module.info.bg.auto	268 B	-rw-r--r--	2026-07-19 16:26
module.info.ca	42 B	-rw-r--r--	2026-07-19 16:26
module.info.ca.auto	125 B	-rw-r--r--	2026-07-19 16:26
module.info.cs	36 B	-rw-r--r--	2026-07-19 16:26
module.info.cs.auto	119 B	-rw-r--r--	2026-07-19 16:26
module.info.da	0 B	-rw-r--r--	2026-07-19 16:26
module.info.da.auto	155 B	-rw-r--r--	2026-07-19 16:26
module.info.de	105 B	-rw-r--r--	2026-07-19 16:26
module.info.el	0 B	-rw-r--r--	2026-07-19 16:26
module.info.el.auto	355 B	-rw-r--r--	2026-07-19 16:26
module.info.es	26 B	-rw-r--r--	2026-07-19 16:26
module.info.es.auto	127 B	-rw-r--r--	2026-07-19 16:26
module.info.eu	0 B	-rw-r--r--	2026-07-19 16:26
module.info.eu.auto	176 B	-rw-r--r--	2026-07-19 16:26
module.info.fa	0 B	-rw-r--r--	2026-07-19 16:26
module.info.fa.auto	229 B	-rw-r--r--	2026-07-19 16:26
module.info.fi	0 B	-rw-r--r--	2026-07-19 16:26
module.info.fi.auto	161 B	-rw-r--r--	2026-07-19 16:26
module.info.fr	26 B	-rw-r--r--	2026-07-19 16:26
module.info.fr.auto	117 B	-rw-r--r--	2026-07-19 16:26
module.info.hr	0 B	-rw-r--r--	2026-07-19 16:26
module.info.hr.auto	164 B	-rw-r--r--	2026-07-19 16:26
module.info.hu	31 B	-rw-r--r--	2026-07-19 16:26
module.info.hu.auto	138 B	-rw-r--r--	2026-07-19 16:26
module.info.it	0 B	-rw-r--r--	2026-07-19 16:26
module.info.it.auto	147 B	-rw-r--r--	2026-07-19 16:26
module.info.ja	25 B	-rw-r--r--	2026-07-19 16:26
module.info.ja.auto	143 B	-rw-r--r--	2026-07-19 16:26
module.info.ko	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ko.auto	180 B	-rw-r--r--	2026-07-19 16:26
module.info.ms	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ms.auto	152 B	-rw-r--r--	2026-07-19 16:26
module.info.nl	42 B	-rw-r--r--	2026-07-19 16:26
module.info.nl.auto	129 B	-rw-r--r--	2026-07-19 16:26
module.info.no	37 B	-rw-r--r--	2026-07-19 16:26
module.info.no.auto	117 B	-rw-r--r--	2026-07-19 16:26
module.info.pl	177 B	-rw-r--r--	2026-07-19 16:26
module.info.pl.auto	177 B	-rw-r--r--	2026-07-19 16:26
module.info.pt	0 B	-rw-r--r--	2026-07-19 16:26
module.info.pt.auto	165 B	-rw-r--r--	2026-07-19 16:26
module.info.pt_BR	49 B	-rw-r--r--	2026-07-19 16:26
module.info.pt_BR.auto	122 B	-rw-r--r--	2026-07-19 16:26
module.info.ru	50 B	-rw-r--r--	2026-07-19 16:26
module.info.ru.auto	241 B	-rw-r--r--	2026-07-19 16:26
module.info.sk	0 B	-rw-r--r--	2026-07-19 16:26
module.info.sk.auto	162 B	-rw-r--r--	2026-07-19 16:26
module.info.sv	0 B	-rw-r--r--	2026-07-19 16:26
module.info.sv.auto	162 B	-rw-r--r--	2026-07-19 16:26
module.info.tr	0 B	-rw-r--r--	2026-07-19 16:26
module.info.tr.auto	168 B	-rw-r--r--	2026-07-19 16:26
module.info.uk	0 B	-rw-r--r--	2026-07-19 16:26
module.info.uk.auto	295 B	-rw-r--r--	2026-07-19 16:26
module.info.zh	0 B	-rw-r--r--	2026-07-19 16:26
module.info.zh.auto	137 B	-rw-r--r--	2026-07-19 16:26
module.info.zh_TW	0 B	-rw-r--r--	2026-07-19 16:26
module.info.zh_TW.auto	143 B	-rw-r--r--	2026-07-19 16:26
save_afile.cgi	372 B	-rwxr-xr-x	2026-07-19 16:28
save_alias.cgi	2.99 KB	-rwxr-xr-x	2026-07-19 16:28
save_ffile.cgi	691 B	-rwxr-xr-x	2026-07-19 16:28
save_forward.cgi	299 B	-rwxr-xr-x	2026-07-19 16:28
save_rfile.cgi	1.03 KB	-rwxr-xr-x	2026-07-19 16:28
save_simple.cgi	2.1 KB	-rwxr-xr-x	2026-07-19 16:28
save_vacation.cgi	1.05 KB	-rwxr-xr-x	2026-07-19 16:28
save_vfile.cgi	788 B	-rwxr-xr-x	2026-07-19 16:28

Rename

#!/usr/bin/perl
# index.cgi
# Display mail forwarding from .forward file

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

if ($config{'mail_system'} == 0) {
	# See if we can use or offer simple mode
	$simple = &get_simple();
	}
if ($simple) {
	# Possible .. show selector
	$in{'simple'} = 1 if (!defined($in{'simple'}));
	print $text{'index_mode'},"\n";
	foreach $s (1, 0) {
		if ($s == $in{'simple'}) {
			print "<span data-unckecked>" . $text{'index_simple'.$s},"</span>\n";
			}
		else {
			print &ui_link("index.cgi?simple=$s", $text{'index_simple'.$s});
			}
		print "&nbsp;|&nbsp;\n" if ($s != 0);
		}
	print "<p>\n";
	}

if ($in{'simple'} && $simple) {
	# Simple mode for Sendmail
	print &ui_form_start("save_simple.cgi", "post");
	print &ui_table_start($text{'index_header'}, undef, 2);

print &ui_table_row($text{'index_local'},
			    &ui_checkbox("local", 1, $text{'index_localyes'},
					 $simple->{'local'}));

print &ui_table_row($text{'index_forward'},
			    &ui_checkbox("forward", 1,$text{'index_forwardyes'},
					 $simple->{'forward'})." ".
			    &ui_textbox("forwardto", $simple->{'forward'} ||
					     $userconfig{'forwardto'}, 50));

# Autoreply active and text
	print &ui_table_row($text{'index_auto'},
			    &ui_checkbox("auto", 1,$text{'index_autoyes'},
					 $simple->{'auto'})."<br>\n".
			    &ui_textarea("autotext", $simple->{'autotext'},
					 5, 70));

# Attached files
	if ($config{'attach'}) {
		$ftable = "";
		$i = 0;
		foreach $f (@{$simple->{'autoreply_file'}}, undef) {
			$ftable .= &ui_textbox("file_$i", $f, 50)." ".
				   &file_chooser_button("file_$i")."<br>\n";
			$i++;
			}
		print &ui_table_row($text{'index_files'}, $ftable);
		}

$period = $simple->{'replies'} && $simple->{'period'} ?
			int($simple->{'period'}/60) :
		  $simple->{'replies'} ? 60 : undef;
	print &ui_table_row($text{'index_period'},
	    &ui_opt_textbox("period", $period, 3, $text{'index_noperiod'})." ".
	    $text{'index_mins'});

$df = &mailbox::get_preferred_from_address();
	$mode = $simple->{'from'} eq $df || !$simple->{'autotext'} ? 2 :
		$simple->{'from'} ? 0 : 1,
	print &ui_table_row($text{'index_from'},
		&ui_radio("from_def", $mode,
			  [ [ 1, $text{'index_fromauto'} ],
			    [ 2, $text{'index_fromdef'} ],
			    [ 0, $text{'index_fromaddr'}." ".
				 &ui_textbox("from", $simple->{'from'} || $df,
					     50) ] ]));

# Character set
	$cs = $simple ? $simple->{'charset'} :
	      &get_charset() eq $default_charset ? undef : &get_charset();
	$csmode = $cs eq &get_charset() ? 2 :
		  $cs ? 0 : 1;
	print &ui_table_row($text{'index_charset'},
		&ui_radio("charset_def", $csmode,
			  [ [ 1, $text{'default'}." ($default_charset)" ],
			    &get_charset() eq $default_charset ? ( ) :
				( [ 2, $text{'index_charsetdef'}.
				       " (".&get_charset().")" ] ),
			    [ 0, $text{'index_charsetother'} ] ])." ".
		&ui_textbox("charset", $csmode == 0 ? $cs : "", 20));
	
	print &ui_table_end();
	print &ui_form_end([ [ "save", $text{'save'} ] ]);
	}
elsif ($config{'mail_system'} == 0) {
	# Sendmail forwarding
	print "$text{'index_desc'}<p>\n";
	@aliases = &list_aliases();
	if (@aliases) {
		# find a good place to split
		$lines = 0;
		for($i=0; $i<@aliases; $i++) {
			$aline[$i] = $lines;
			$al = scalar(@{$aliases[$i]->{'values'}});
			$lines += ($al ? $al : 1);
			}
		$midline = int(($lines+1) / 2);
		for($mid=0; $mid<@aliases && $aline[$mid] < $midline; $mid++) { }

# render tables
		print "<table width=100%> <tr><td width=50% valign=top>\n";
		&aliases_table(@aliases[0..$mid-1]);
		print "</td><td width=50% valign=top>\n";
		if ($mid < @aliases) { &aliases_table(@aliases[$mid..$#aliases]); }
		print "</td></tr> </table>\n";
		}
	else {
		print "<b>$text{'index_none'}</b> <p>\n";
		}
	}
else {
	# Qmail forwarding
	print "$text{'index_desc'}<p>\n";
	@aliases = &list_dotqmails();
	if (@aliases) {
		# find a good place to split
		$lines = 0;
		for($i=0; $i<@aliases; $i++) {
			$aline[$i] = $lines;
			$al = scalar(@{$aliases[$i]->{'values'}});
			$lines += ($al ? $al : 1);
			}
		$midline = int(($lines+1) / 2);
		for($mid=0; $mid<@aliases && $aline[$mid] < $midline; $mid++) { }

# render tables
		print "<table width=100%> <tr><td width=50% valign=top>\n";
		&dotqmail_table(@aliases[0..$mid-1]);
		print "</td> <td>&nbsp;</td> <td width=50% valign=top>\n";
		if ($mid < @aliases) { &dotqmail_table(@aliases[$mid..$#aliases]); }
		print "</td></tr> </table>\n";
		}
	else {
		print "<b>$text{'index_none'}</b> <p>\n";
		}
	}

if (!$in{'simple'} || !$simple) {
	@links = ( &ui_link('edit_alias.cgi?new=1', $text{'index_add'}) );
	if ($config{'mail_system'} == 0 && $config{'edit'}) {
		push(@links, &ui_link('edit_forward.cgi', &text('index_edit', "<tt>.forward</tt>")));
		}
	print &ui_links_row(\@links);
	}

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

sub aliases_table
{
print &ui_columns_start([ $text{'aliases_to'},
			  $text{'aliases_enabled'} ], 100, 2);
foreach my $a (@_) {
	my @cols;
	my $e = "";
	foreach $v (@{$a->{'values'}}) {
		($anum, $astr) = &alias_type($v);
		$e .= &text("aliases_type$anum", "<tt>@{[&html_escape($astr)]}</tt>")."<br>\n";
		}
	push(@cols, &ui_link("edit_alias.cgi?num=$a->{'num'}", $e));
	push(@cols, $a->{'enabled'} ? $text{'yes'} :
                	"<font color=#ff0000>$text{'no'}</font>");
	print &ui_columns_row(\@cols);
	}
print &ui_columns_end();
}

sub dotqmail_table
{
print "<table border width=100%>\n";
print "<tr $tb> <td><b>$text{'aliases_from'}</b></td> <td><b>$text{'aliases_to'}</b></td> </tr>\n";
foreach $a (@_) {
	print "<tr $cb>\n";
	my $lnk = &ui_link("edit_alias.cgi?file=$a->{'file'}",
				&html_escape($a->{'name'} ? "$remote_user-$a->{'name'}" : $remote_user));
	print "<td>$lnk</td>\n";
	print "<td>\n";
	foreach $v (@{$a->{'values'}}) {
		($anum, $astr) = &alias_type($v);
		print &text("aliases_type$anum", "<tt>$astr</tt>"),"<br>\n";
		}
	print "</td> </tr>\n";
	}
print "</table>\n";

}