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_rfile.cgi (2695B)

#!/usr/bin/perl
# edit_rfile.cgi
# Display the contents of an autoreply file

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

&ui_print_header(undef, $text{'rfile_title'}, "");
$in{'vfile'} = &make_absolute($in{'vfile'});
open(FILE, $in{'vfile'});
while(<FILE>) {
	if (/^Reply-Tracking:\s*(.*)/) {
		$replies = $1;
		}
	elsif (/^Reply-Period:\s*(.*)/) {
		$period = $1;
		}
	elsif (/^No-Autoreply:\s*(.*)/) {
		$no_autoreply = $1;
		}
	elsif (/^From:\s*(.*)/) {
		$from = $1;
		}
	else {
		push(@lines, $_);
		}
	}
close(FILE);
if (!-r $in{'vfile'}) {
	($froms, $doms) = &mailbox::list_from_addresses();
	$from = $froms->[0];
	}

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

print "<form action=save_rfile.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";
print "<textarea name=text rows=20 cols=80>",
	join("", @lines),"</textarea><p>\n";

print "<table>\n";

# Show From: address option
print "<tr> <td>$text{'rfile_from'}</td>\n";
printf "<td><input type=radio name=from_def value=1 %s> %s\n",
	$from eq '' ? "checked" : "", $text{'rfile_auto'};
printf "<input type=radio name=from_def value=0 %s>\n",
	$from eq '' ? "" :"checked";
printf "<input name=from size=30 value='%s'></td> </tr>\n",
	$from;
print "<tr> <td></td> <td><font size=-1>$text{'rfile_fromdesc'}</font></td> </tr>\n";

# Show reply-tracking option
printf "<tr> <td colspan=2><input type=checkbox name=replies value=1 %s> %s</td> </tr>\n",
	$replies ? "checked" : "", $text{'rfile_replies'};
if (&is_under_directory($user_module_config_directory, $replies) ||
    &is_under_directory($remote_user_info[7], $replies)) {
	print "<input type=hidden name=replies_file value='$replies'>\n";
	}

# Show reply period input
print "<tr> <td>&nbsp;&nbsp;&nbsp;$text{'rfile_period'}</td>\n";
printf "<td><input type=radio name=period_def value=1 %s> %s\n",
	$period eq '' ? "checked" : "", $text{'rfile_default'};
printf "<input type=radio name=period_def value=0 %s>\n",
	$period eq '' ? "" :"checked";
printf "<input name=period size=5 value='%s'> %s</td> </tr>\n",
	$period, $text{'rfile_secs'};

# Show people to not autoreply to
print "<tr> <td>$text{'rfile_no_autoreply'}</td>\n";
printf "<td><input name=no_autoreply size=40 value='%s'></td> </tr>\n",
	$no_autoreply;

print "</table>\n";

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

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

#!/usr/bin/perl # edit_rfile.cgi # Display the contents of an autoreply file require './forward-lib.pl'; &ReadParse(); &ui_print_header(undef, $text{'rfile_title'}, ""); $in{'vfile'} = &make_absolute($in{'vfile'}); open(FILE, $in{'vfile'}); while() { if (/^Reply-Tracking:\s*(.*)/) { $replies = $1; } elsif (/^Reply-Period:\s*(.*)/) { $period = $1; } elsif (/^No-Autoreply:\s*(.*)/) { $no_autoreply = $1; } elsif (/^From:\s*(.*)/) { $from = $1; } else { push(@lines, $_); } } close(FILE); if (!-r $in{'vfile'}) { ($froms, $doms) = &mailbox::list_from_addresses(); $from = $froms->[0]; } print &text('rfile_desc', "@{[&html_escape($in{'vfile'})]}"),"

\n"; print "$text{'rfile_desc2'}

\n"; print "

\n"; print &ui_hidden("file", $in{'file'}),"\n"; print &ui_hidden("num", $in{'num'}),"\n"; print &ui_hidden("vfile", $in{'vfile'}),"\n"; print "

\n"; print "

\n"; # Show From: address option print "\n"; printf "\n", $from; print "\n"; # Show reply-tracking option printf "\n", $replies ? "checked" : "", $text{'rfile_replies'}; if (&is_under_directory($user_module_config_directory, $replies) || &is_under_directory($remote_user_info[7], $replies)) { print "\n"; } # Show reply period input print "\n"; printf "\n", $period, $text{'rfile_secs'}; # Show people to not autoreply to print "\n"; printf "\n", $no_autoreply; print "

$text{'rfile_from'}	%s\n", $from eq '' ? "checked" : "", $text{'rfile_auto'}; printf "\n", $from eq '' ? "" :"checked"; printf "
	$text{'rfile_fromdesc'}
%s
$text{'rfile_period'}	%s\n", $period eq '' ? "checked" : "", $text{'rfile_default'}; printf "\n", $period eq '' ? "" :"checked"; printf " %s
$text{'rfile_no_autoreply'}

\n"; print " ", "\n"; print "

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