FM / forward

/usr/share/usermin/forward

Name	Size	Mode	Actions
images/	-	0755	rm
ulang/	-	0755	rm
autoreply-file-lib.pl	2339	0755	edit dl rm
autoreply.pl	12980	0755	edit dl rm
CHANGELOG	1334	0644	edit dl rm
config	71	0644	edit dl rm
config-msc-linux	71	0644	edit dl rm
config.info	297	0644	edit dl rm
config.info.ca	333	0755	edit dl rm
config.info.de	299	0644	edit dl rm
config.info.el	584	0644	edit dl rm
config.info.nl	335	0644	edit dl rm
config.info.no	304	0644	edit dl rm
edit_afile.cgi	900	0755	edit dl rm
edit_alias.cgi	353	0755	edit dl rm
edit_ffile.cgi	1766	0755	edit dl rm
edit_forward.cgi	604	0755	edit dl rm
edit_rfile.cgi	2695	0755	edit dl rm
edit_vacation.cgi	2303	0755	edit dl rm
edit_vfile.cgi	1851	0755	edit dl rm
filter.pl	2036	0755	edit dl rm
forward-lib.pl	11642	0755	edit dl rm
index.cgi	5989	0755	edit dl rm
module.info	195	0644	edit dl rm
module.info.ar	0	0644	edit dl rm
module.info.ar.auto	227	0644	edit dl rm
module.info.bg	0	0644	edit dl rm
module.info.bg.auto	268	0644	edit dl rm
module.info.ca	42	0644	edit dl rm
module.info.ca.auto	125	0644	edit dl rm
module.info.cs	36	0644	edit dl rm
module.info.cs.auto	119	0644	edit dl rm
module.info.da	0	0644	edit dl rm
module.info.da.auto	155	0644	edit dl rm
module.info.de	105	0644	edit dl rm
module.info.el	0	0644	edit dl rm
module.info.el.auto	355	0644	edit dl rm
module.info.es	26	0644	edit dl rm
module.info.es.auto	127	0644	edit dl rm
module.info.eu	0	0644	edit dl rm
module.info.eu.auto	176	0644	edit dl rm
module.info.fa	0	0644	edit dl rm
module.info.fa.auto	229	0644	edit dl rm
module.info.fi	0	0644	edit dl rm
module.info.fi.auto	161	0644	edit dl rm
module.info.fr	26	0644	edit dl rm
module.info.fr.auto	117	0644	edit dl rm
module.info.hr	0	0644	edit dl rm
module.info.hr.auto	164	0644	edit dl rm
module.info.hu	31	0644	edit dl rm
module.info.hu.auto	138	0644	edit dl rm
module.info.it	0	0644	edit dl rm
module.info.it.auto	147	0644	edit dl rm
module.info.ja	25	0644	edit dl rm
module.info.ja.auto	143	0644	edit dl rm
module.info.ko	0	0644	edit dl rm
module.info.ko.auto	180	0644	edit dl rm
module.info.ms	0	0644	edit dl rm
module.info.ms.auto	152	0644	edit dl rm
module.info.nl	42	0644	edit dl rm
module.info.nl.auto	129	0644	edit dl rm
module.info.no	37	0644	edit dl rm
module.info.no.auto	117	0644	edit dl rm
module.info.pl	177	0644	edit dl rm
module.info.pl.auto	177	0644	edit dl rm
module.info.pt	0	0644	edit dl rm
module.info.pt.auto	165	0644	edit dl rm
module.info.pt_BR	49	0644	edit dl rm
module.info.pt_BR.auto	122	0644	edit dl rm
module.info.ru	50	0644	edit dl rm
module.info.ru.auto	241	0644	edit dl rm
module.info.sk	0	0644	edit dl rm
module.info.sk.auto	162	0644	edit dl rm
module.info.sv	0	0644	edit dl rm
module.info.sv.auto	162	0644	edit dl rm
module.info.tr	0	0644	edit dl rm
module.info.tr.auto	168	0644	edit dl rm
module.info.uk	0	0644	edit dl rm
module.info.uk.auto	295	0644	edit dl rm
module.info.zh	0	0644	edit dl rm
module.info.zh.auto	137	0644	edit dl rm
module.info.zh_TW	0	0644	edit dl rm
module.info.zh_TW.auto	143	0644	edit dl rm
save_afile.cgi	372	0755	edit dl rm
save_alias.cgi	3063	0755	edit dl rm
save_ffile.cgi	691	0755	edit dl rm
save_forward.cgi	299	0755	edit dl rm
save_rfile.cgi	1051	0755	edit dl rm
save_simple.cgi	2146	0755	edit dl rm
save_vacation.cgi	1076	0755	edit dl rm
save_vfile.cgi	788	0755	edit dl rm

Edit: /usr/share/usermin/forward/edit_ffile.cgi (1766B)

#!/usr/bin/perl
# edit_ffile.cgi
# Allow editing of a filter config file

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

&ui_print_header(undef, $text{'ffile_title'}, "");
$in{'vfile'} = &make_absolute($in{'vfile'});
open(FILE, $in{'vfile'});
while(<FILE>) {
	s/\r|\n//g;
	if (/^(\S+)\s+(\S+)\s+(\S+)\s+(.*)$/) {
		push(@filter, [ $1, $2, $3, $4 ]);
		}
	elsif (/^(2)\s+(\S+)$/) {
		$other = $2;
		}
	}
close(FILE);

print "<b>",&text('ffile_desc', "<tt>@{[&html_escape($in{'vfile'})]}</tt>"),"</b><p>\n";

print "<form action=save_ffile.cgi method=post enctype=multipart/form-data>\n";
print &ui_hidden("file", $in{'file'}),"\n";
print &ui_hidden("num", $in{'num'}),"\n";
print &ui_hidden("vfile", $in{'vfile'}),"\n";

$i = 0;
foreach $f (@filter, [ 1, '', '', '' ]) {
	$field = "<select name=field_$i>\n";
	foreach $ft ('', 'from', 'to', 'subject', 'cc', 'body') {
		$field .= sprintf "<option value='%s' %s>%s\n",
			$ft, $f->[2] eq $ft ? "selected" : "",
			$ft ? $text{"ffile_$ft"} : "&nbsp";
		}
	$field .= "</select>\n";

$what = "<select name=what_$i>\n";
	$what .= sprintf "<option value=0 %s>%s\n",
		$f->[0] == 0 ? "selected" : "", $text{"ffile_what0"};
	$what .= sprintf "<option value=1 %s>%s\n",
		$f->[0] == 1 ? "selected" : "", $text{"ffile_what1"};
	$what .= "</select>\n";

$match = "<input name=match_$i size=20 value='$f->[3]'>\n";

$action = "<input name=action_$i size=20 value='$f->[1]'>\n";

print &text('ffile_line', $field, $what, $match, $action),"<br>\n";
	$i++;
	}
print &text('ffile_other',
	    "<input name=other size=30 value='$other'>"),"<br>\n";

print "<input type=submit value=\"$text{'save'}\">\n";
print "</form>\n";

&ui_print_footer("edit_alias.cgi?num=$in{'num'}&file=@{[&urlize($in{'file'})]}",
		 $text{'aform_return'});

#!/usr/bin/perl # edit_ffile.cgi # Allow editing of a filter config file require './forward-lib.pl'; &ReadParse(); &ui_print_header(undef, $text{'ffile_title'}, ""); $in{'vfile'} = &make_absolute($in{'vfile'}); open(FILE, $in{'vfile'}); while() { s/\r|\n//g; if (/^(\S+)\s+(\S+)\s+(\S+)\s+(.*)$/) { push(@filter, [ $1, $2, $3, $4 ]); } elsif (/^(2)\s+(\S+)$/) { $other = $2; } } close(FILE); print "",&text('ffile_desc', "@{[&html_escape($in{'vfile'})]}"),"

\n"; print "

\n"; &ui_print_footer("edit_alias.cgi?num=$in{'num'}&file=@{[&urlize($in{'file'})]}", $text{'aform_return'});