Examples

UpCommands
Sitemap
 

Here we show some examples of real life rule scripts from the area of mail filtering.

First a rule set to sort mail into MH folders based upon the mailing list they are coming from.

Example

::fmail::def mailinglists {
    on {[input header X-loop		~ [email protected]]}	   do {store2mh-folder List/ALUG; stop}
    on {[input header X-from_		~ nmh]}		   do {store2mh-folder Mail/nmh-list; stop}
    on {[input header X-from_		~ exmh]}	   do {store2mh-folder Mail/exmh-list; stop}
    on {[input header X-from_		~ w-sec-request]}  do {store2mh-folder List/Security; stop}
    on {[input header X-from_		~ pgplib-dev]}	   do {store2mh-folder List/Security/PGPlib; stop}
    on {[input header X-from_		~ owner-g10]}	   do {store2mh-folder List/Security/GPG; stop}
    on {[input header X-loop		~ gnupg]}	   do {store2mh-folder List/Security/GPG; stop}
    on {[input header X-mailing-list	~ tix]}		   do {store2mh-folder Tcl/c-libs/Tix; stop}
    on {[input header X-mailing-list	~ tcl-i18n]}	   do {store2mh-folder Tcl/i18n; stop}
    on {[input header X-mailing-list	~ tclr]}	   do {store2mh-folder Tcl/TclTeam/tclr; stop}
    on {[input header X-mailing-list	~ f-cpu]}	   do {store2mh-folder List/fcpu; stop}
    on {[input header X-mailing-list	~ tclxml]}	   do {store2mh-folder Tcl/TclTeam/XML; stop}
    on {[input header X-mailing-list	~ tkgs]}	   do {store2mh-folder Tcl/TkGS; stop}
    on {[input header subject		~ tcl-i18n]}	   do {store2mh-folder Tcl/i18n; stop}
    on {[input header X-from_		~ owner-mysql]}	   do {store2mh-folder List/MySQL; stop}
    on {[input header X-from_		~ pilot-unix]}	   do {store2mh-folder List/pilot; stop}
    on {[input header X-loop		~ [email protected]]} do {store2mh-folder Tcl/iTcl; stop}
    on {[input header X-mailing-list	~ all@westend]}	   do {store2mh-folder westend; stop}
    on {[input header Mailing-list	~ ttdp]}	   do {store2mh-folder Tcl/TTdp; stop}
    on {[input header Mailing-list	~ elmo]}	   do {store2mh-folder Tcl/TclTeam/ELMO; stop}
    on {[input header subject		~ elmo]}	   do {store2mh-folder Tcl/TclTeam/ELMO; stop}
    on {[input header Errors-to		~ owner-pleb]}	   do {store2mh-folder List/Pleb; stop}
    on {[input header To		~ colossus]}	   do {store2mh-folder Tcl/colossus; stop}
    on {[input header To		~ minotaur]}	   do {store2mh-folder Tcl/colossus; stop}
    on {[input header Subject		~ WWWOFFLE]}	   do {store2mh-folder Linux/wwwoffle; stop}
}
	

And now sorting into folder based upon the topic addressed in the subject.

Example

::fmail::def bytopic {
    on {[input header subject ~ test]}		do {store2mh-folder junk; stop}
    on {[input header subject ~ Test]}		do {store2mh-folder junk; stop}
    on {[input header subject ~ pitcl]}		do {store2mh-folder Tcl/TclTeam/palmtcl; stop}
    on {[input header subject ~ tclr]}		do {store2mh-folder Tcl/TclTeam/tclr; stop}
    on {[input header to      ~ tclteam]}	do {store2mh-folder Tcl/TclTeam/; stop}
    on {[input header cc      ~ tclteam]}	do {store2mh-folder Tcl/TclTeam/; stop}
    on {[input header subject ~ memchan]}	do {store2mh-folder Tcl/c-libs/memchan; stop}
    on {[input header subject ~ pool]}		do {store2mh-folder Tcl/Pool; stop}
    on {[input header subject ~ autodoc]}	do {store2mh-folder Tcl/Autodoc; stop}
    on {[input header subject ~ trf]}		do {store2mh-folder Tcl/c-libs/Trf; stop}
    on {[input header subject ~ img]}		do {store2mh-folder Tcl/c-libs/Img; stop}
    on {[input header subject ~ arch.clt]}	do {store2mh-folder bluepeak/newsmaster; stop}
    on {[input header subject ~ tcl]}		do {store2mh-folder Tcl; stop}
    on {[input header subject ~ cgi_lib]}	do {store2mh-folder Tcl; stop}
    on {[input header subject ~ welcomebot]}	do {store2mh-folder Tcl/TclTeam/bot.response; stop}
    on {[input header subject ~ book]}		do {store2mh-folder Tcl/Book; stop}
    on {[input header subject ~ wwwoffle]}	do {store2mh-folder Linux/wwwoffle; stop}
    on {[input header subject ~ eten]}		do {store2mh-folder Tcl/TclTeam/ETEN; stop}
    on {[input header subject ~ ETEN]}		do {store2mh-folder Tcl/TclTeam/ETEN; stop}
}
	

Or the person the mail came from:

Example

::fmail::def byaddress {
    #	** administrivia **

    on {[input header from ~ MAILER-DAEMON]}	do {store2mh-folder bluepeak/postmaster; stop}
    on {[input header to ~ postmaster]}		do {store2mh-folder bluepeak/postmaster; stop}
    on {[input header to ~ newsmaster]}		do {store2mh-folder bluepeak/newsmaster; stop}
    on {[input header to ~ news]}		do {store2mh-folder bluepeak/newsmaster; stop}
    on {[input header to ~ root]}		do {store2mh-folder bluepeak/root; stop}
}
	

At last a high level rule script using some of the example rule sets defined above.

Example

::fmail::def main_rules {
    always process mailinglists
    always process spamblock

    #always vacation

    always process bytopic
    always process byaddress

    default store2mh-folder inbox
}
	

© Andreas Kupries
Last update at Thu Nov 11 21:48:39 MET 1999