# The labels to display against various ezmlm-make command line switches ...
%labels = (
a => 'Archived', d => 'Digest', f => 'Prefix', i => 'Indexed',
l => 'Subscriber List', m => 'Moderated Posting', n => 'Text Editing',
p => 'Public', r => 'Remote Admin', s => 'Moderated Subscription',
t => 'Trailer', u => 'User Posting Only',q => 'Service Request Address',
k => 'Blacklist', g => 'Guard Archive', 5 => 'Forward to Owner'
);
# Work out what options are already selected ...
open(CONFIG, "<$list/config") || die "Unable to read DIR/config: $!. This probably means that your mailing list was created with an older version of ezmlm. Try recreating the list with the newer version. Died";
while(<CONFIG>) {
next unless /^F:-(\w+)/;
$options = $1; last;
}
close CONFIG;
# Print a list of options, selecting the ones that apply to this list ...
# Get the contents of the headeradd, headerremove, mimeremove and prefix files
open(ADD, "<$list/headeradd") || die "Unable to read DIR/headeradd: $!";
open(DEL, "<$list/headerremove") || die "Unable to read DIR/headerremove: $!";
open(MIME, "<$list/mimeremove"); # no die since it may not exist.
open(PREFIX, "<$list/prefix"); # ditto mimeremove
while(<ADD>) { $headeradd .= $_; }
while(<DEL>) { $headerremove .= $_; }
while(<MIME>) { $mimeremove .= $_; }
while(<PREFIX>) { $prefix .= $_; }
close ADD, DEL, MIME, PREFIX;
print '<P><BIG><STRONG>Subject prefex for outgoing messages: </STRONG></BIG>', $q->textfield(-name=>'prefix', -default=>$prefix, -size=>12) if defined($prefix);
print '<P><BIG><STRONG>Headers to strip from all outgoing mail:</BIG></STRONG><BR>', $q->textarea(-name=>'headerremove', -default=>$headerremove, -rows=>5, -columns=>70);
print '<P><BIG><STRONG>Headers to add to all outgoing mail:</BIG></STRONG><BR>', $q->textarea(-name=>'headeradd', -default=>$headeradd, -rows=>5, -columns=>70);
print '<P><BIG><STRONG>Mime types to strip from all outgoing mail:</BIG></STRONG><BR>', $q->textarea(-name=>'mimeremove', -default=>$mimeremove, -rows=>5, -columns=>70) if defined($mimeremove);
