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

# Functions for reading and writing autoreply files

# read_autoreply(file, &simple)
# Fills in the autoreply parts of a simple alias structure from a file
sub read_autoreply
{
local ($file, $simple) = @_;
local @lines;
open(FILE, "<".$file);
while(<FILE>) {
	if (/^Reply-Tracking:\s*(.*)/) {
		$simple->{'replies'} = $1;
		}
	elsif (/^Reply-Period:\s*(.*)/) {
		$simple->{'period'} = $1;
		}
	elsif (/^No-Autoreply:\s*(.*)/) {
		$simple->{'no_autoreply'} = $1;
		}
	elsif (/^No-Autoreply-Regexp:\s*(.*)/) {
		push(@{$simple->{'no_autoreply_regexp'}}, $1);
		}
	elsif (/^Autoreply-File:\s*(.*)/) {
		push(@{$simple->{'autoreply_file'}}, $1);
		}
	elsif (/^Autoreply-Start:\s*(\d+)/) {
		$simple->{'autoreply_start'} = $1;
		}
	elsif (/^Autoreply-End:\s*(\d+)/) {
		$simple->{'autoreply_end'} = $1;
		}
	elsif (/^From:\s*(.*)/) {
		$simple->{'from'} = $1;
		}
	elsif (/^Charset:\s*(\S+)/) {
		$simple->{'charset'} = $1;
		}
	elsif (/^Subject:\s*(\S.*)/) {
		$simple->{'subject'} = $1;
		}
	else {
		push(@lines, $_);
		}
	}
close(FILE);
$simple->{'autotext'} = join("", @lines);
}

# write_autoreply(&file, &simple)
# Writes the autoreply parts of a simple alias structure to a file
sub write_autoreply
{
local ($file, $simple) = @_;
&open_tempfile(AUTO, ">$file");
if ($simple->{'replies'}) {
	&print_tempfile(AUTO,
		"Reply-Tracking: $simple->{'replies'}\n");
	}
if ($simple->{'period'}) {
	&print_tempfile(AUTO,
		"Reply-Period: $simple->{'period'}\n");
	}
if ($simple->{'no_autoreply'}) {
	&print_tempfile(AUTO,
		"No-Autoreply: $simple->{'no_autoreply'}\n");
	}
foreach my $r (@{$simple->{'no_autoreply_regexp'}}) {
	&print_tempfile(AUTO, "No-Autoreply-Regexp: $r\n");
	}
foreach my $f (@{$simple->{'autoreply_file'}}) {
	&print_tempfile(AUTO, "Autoreply-File: $f\n");
	}
if ($simple->{'autoreply_start'}) {
	&print_tempfile(AUTO,
		"Autoreply-Start: $simple->{'autoreply_start'}\n");
	}
if ($simple->{'autoreply_end'}) {
	&print_tempfile(AUTO,
		"Autoreply-End: $simple->{'autoreply_end'}\n");
	}
if ($simple->{'from'}) {
	&print_tempfile(AUTO, "From: $simple->{'from'}\n");
	}
if ($simple->{'charset'}) {
	&print_tempfile(AUTO, "Charset: $simple->{'charset'}\n");
	}
if ($simple->{'subject'}) {
	&print_tempfile(AUTO, "Subject: $simple->{'subject'}\n");
	}
&print_tempfile(AUTO, $simple->{'autotext'});
&close_tempfile(AUTO);
}