[PREVIOUS CHAPTER]
[______TOC_______]
8 examples
8.1 site*ph sample (mnews ML)
$FACE_MARK = '(^_^)/~';
$AUTO_REGISTRATION_LINES_LIMIT = -1;
$SUPERFLUOUS_HEADERS = 1; # preserve more header fields
$USE_LIBMIME = 1; # when use MIME Extension in libMIME.pl
$MIME_DECODED_ARTICLE = 1; # do MIME decoding, then spool
$COMMAND_CHECK_LIMIT = 1; # the first 3 lines is checked for
# mistakes whether the command mode or not?
# at &Parsing in fml.pl,
$USE_RFC934 = 1; # inMatomeokuri, use mh/burst for the split
$OBJECTIVE_FILE = "$DIR/=objective"; # objective file
$GUIDE_FILE = "$DIR/=guide"; # the guide file of our Mailing List
$HELP_FILE = "$DIR/=help"; # the help file for useful commands
$DENY_FILE = "$DIR/=deny"; # attention to illegal access
$FAIL_FILE = "$DIR/=fail"; # attention to illegal access
$WELCOME_FILE = "$DIR/=welcome"; # could be "$DIR/welcome"
$MGET_LOGFILE = "$DIR/log_mget"; # log file for mget routine
$Subject = '(No Subject in original)'; # Subject field
$Envelope{'macro:s'} = 'localhost';
$PRECEDENCE = 'bulk';
@NEWSYSLOG_FILES = ("$MSEND_RC.bak", "$MEMBER_LIST.bak", "$ACTIVE_LIST.bak",
"${LOGFILE}_archive", "${LOGFILE}_matome");
$SKIP_FIELDS = '|X-Nsubject|X-Confirm-Reading-To';
$START_HOOK = q#
if ($CONTROL_ADDRESS && ($Envelope{'mode:chk'} =~ /$CONTROL_ADDRESS/i)) {
if ($Envelope{'Body'} =~ /subscribe/io
&& $Envelope{'Body'} !~ /unsubscribe/io) {
&use('utils');
&AutoRegist(*Envelope);
$DO_NOTHING = 1;
}
$Envelope{'mode:uip'} = 'on'
} elsif ($Envelope{'mode:uip'}) {
&Logging("Unsupport Command Mail");
&SendFile($From_address,
"Unsupport Command Mail this Address $ML_FN", $FAIL_FILE);
$DO_NOTHING = 1;
} else {
&Distribute;
$DO_NOTHING = 1;
}
#;
$SMTP_OPEN_HOOK = q#
$Envelope{'h:To:'} = $Envelope{'h:to:'}
|| $Envelope{'h:apparently-to:'} || "$MAIL_LIST $ML_FN";
$Envelope{'h:Reply-To:'} = $Envelope{'h:reply-to:'} = $MAIL_LIST;
if ($USE_LIBMIME && $Envelope{'MIME'}) {
&use('MIME');
$Envelope{'h:Subject:'} = &DecodeMimeStrings($Envelope{'h:Subject:'});
}
#;
$HEADER_ADD_HOOK = q#
if ($Envelope{'x-nsubject:'}) {
if ($STRIP_BRACKETS) {
$_ = $Envelope{'x-nsubject:'};
local($r) = 10;
s/\[$BRACKET:\d+\]\s*//g;
while (s/Re:\s*Re:\s*/Re: /gi && $r-- > 0) { ;}
$Envelope{'x-nsubject:'} = $_;
}
if ($USE_LIBMIME && $Envelope{'MIME'}) {
&use('MIME');
$Envelope{'x-nsubject:'} =
&DecodeMimeStrings($Envelope{'x-nsubject:'});
}
$body .= "X-Nsubject: [$BRACKET:$ID] $Envelope{'x-nsubject:'}\n";
}
#;
$TRF_NAME_HOOK = q#
$name =~ s/umura@solan\.chu/umura@nn.solan./oi;
#;