[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;
    #;