Sharp.Augeas/Sharp.Augeas.Test/lens/mailscanner_rules.aug

76 lines
2.8 KiB
Plaintext
Raw Permalink Normal View History

2022-11-08 20:57:02 +03:00
(*
Module: Mailscanner_rules
Parses MailScanner rules files.
Author: Andrew Colin Kissa <andrew@topdog.za.net>
Baruwa Enterprise Edition http://www.baruwa.com
About: License
This file is licensed under the LGPL v2+.
About: Configuration files
This lens applies to MailScanner rules files
The format is described below:
# NOTE: Fields are separated by TAB characters --- Important!
#
# Syntax is allow/deny/deny+delete/rename/rename to replacement-text/email-addresses,
# then regular expression,
# then log text,
# then user report text.
# The "email-addresses" can be a space or comma-separated list of email
# addresses. If the rule hits, the message will be sent to these address(es)
# instead of the original recipients.
# If a rule is a "rename" rule, then the attachment filename will be renamed
# according to the "Default Rename Pattern" setting in MailScanner.conf.
# If a rule is a "rename" rule and the "to replacement-text" is supplied, then
# the text matched by the regular expression in the 2nd field of the line
# will be replaced with the "replacement-text" string.
# For example, the rule
# rename to .ppt \.pps$ Renamed .pps to .ppt Renamed .pps to .ppt
# will find all filenames ending in ".pps" and rename them so they end in
# ".ppt" instead.
*)
module Mailscanner_Rules =
autoload xfm
(************************************************************************
* USEFUL PRIMITIVES
*************************************************************************)
let eol = del /\n/ "\n"
let ws = del /[\t]+/ "\t"
let comment = Util.comment
let empty = Util.empty
let action = /allow|deny|deny\+delete|rename|rename[ ]+to[ ]+[^# \t\n]+|([A-Za-z0-9_+.-]+@[A-Za-z0-9_.-]+[, ]?)+/
let non_space = /[^# \t\n]+/
let non_tab = /[^\t\n]+/
let field (l:string) (r:regexp)
= [ label l . store r ]
(************************************************************************
* ENTRIES
*************************************************************************)
let entry = [ seq "rule" . field "action" action
. ws . field "regex" non_tab
. ws . field "log-text" non_tab
. ws . field "user-report" non_tab
. eol ]
(************************************************************************
* LENS
*************************************************************************)
let lns = (comment|empty|entry)*
let filter = (incl "/etc/MailScanner/filename.rules.conf")
. (incl "/etc/MailScanner/filetype.rules.conf")
. (incl "/etc/MailScanner/archives.filename.rules.conf")
. (incl "/etc/MailScanner/archives.filetype.rules.conf")
let xfm = transform lns filter