On Tue, Jul 12, 2005 at 10:39:19PM -0700, .|MoNK|Cucumber . wrote:
> The lot of you that choose to argue and insult those that wish to use
> appended disclaimers/footers are merely wasting peoples time.
>
> The fact of the matter is that companies do use disclaimers/footers, and it
> was a simple question regarding if it was possible with Exim.
>
> The thread is not a debate on whether or not to use them, just a how-to
> question.
I had to do this recently as part of an investigation into the
technicalities of disclaimers in our setup.
In /etc/exim4/conf.d/router/200_exim4-config_primary I have
smarthost:
debug_print = "R: smarthost for [EMAIL PROTECTED]"
driver = manualroute
domains = ! +local_domains
transport = remote_smtp_smarthost
# transport = ${if eq {$sender_address_domain}{sun.ac.za}\
# {remote_smtp_filter}{remote_smtp}}
route_list = * DCsmarthost byname
host_find_failed = defer
same_domain_copy_routing = yes
no_more
To use the disclaimer, I uncomment the two commented lines and comment
the one above it: transport = remote_smtp_smarthost
I then created a file:
/etc/exim4/conf.d/transport/33_exim4-config_remote_smtp_disclaimer_smarthost
which contains:
remote_smtp_filter:
#driver = pipe
driver = smtp
transport_filter = "/usr/local/bin/disclaimer"
The file /usr/local/bin/disclaimer was compiled from the attached
sources. You should edit the functions "disclaimer" and
"disclaimer-header" to suit you situation.
You need Ocaml to compile the sources and use "make" to create a
bytecode-compiled program or "make nc" to compile a native-code
program.
Regards
Johann
--
Johann Spies Telefoon: 021-808 4036
Informasietegnologie, Universiteit van Stellenbosch
"Let your character be free from the love of money,
being content with what you have; for He Himself has
said, "I will never desert you, nor will I ever
forsake you."
Hebrews 13:5
OCAMLMAKEFILE=/usr/share/ocaml-tools/OCamlMakefile
SOURCES=disclaimer.ml
RESULT=disclaimer
LIBS=unix pcre netstring
INCDIRS=+pcre +netstring
OCAMLFLAGS=-labels
LIBDIRS=+pcre +netstring
include $(OCAMLMAKEFILE)
(* #require "unix";; *)
(* #require "pcre";; *)
(* #require "netstring";; *)
(* Description: *)
(* Receive email handed to the program by exim4 through stdin. *)
(* Add a disclaimer to the first < `Body b> of the email if there is no *)
(* header "US-dislaimer: added" in the email. *)
(* Add a header "US-dislcaimer: added" to the email *)
(* Hand the message back to exim4 *)
let disclaimer_added = ref false
let disclaimer = "\n\nVrywaring: Jy hoef eintlik net die e-pos self te gelees
het. :)\nDisclaimer: If you are reading this you are wasting your time :)\n"
let disclaimerheader = "US-disclaimer"
(* Receive the message though stdin *)
(* let readmessage f = Netmime.read_mime_message (new Netstream.input_stream
(new Netchannels.input_channel (open_in f))) *)
let readmessage () = Netmime.read_mime_message (new Netstream.input_stream (new
Netchannels.input_channel stdin));;
(* Write the message though stdout *)
let writemessage mesg = Netmime.write_mime_message ~crlf:false (new
Netchannels.output_channel stdout) mesg
(* Does this part of the message (or the whole message) have the structure:
(<obj>, `Body <obj>) ?
*)
(* let testsimple x = match x with *)
(* (headers,`Body bb) -> true *)
(* | _ -> false *)
(* If so, unpack it into a header section (headers) and body (bb) *)
let getsimpleparts ( x: Netmime.complex_mime_message) = match x with
(headers, `Body bb) -> headers, bb
| _ -> failwith "Invalid email-structure";;
(* Add header to header section *)
let add_header ( header: Netmime.mime_header ) =
header# update_field disclaimerheader "added"
(* Add dislaimer to body section *)
let add_disclaimer ( contents: Netmime.mime_body ) =
let s = contents # value ^ disclaimer in
contents #set_value s
let handle_simple_message message =
let headers, contents = getsimpleparts message in
match List.mem("US-disclaimer", "added") headers#fields with
false -> add_header headers;
add_disclaimer contents;
writemessage message
| true -> disclaimer_added:=true;
writemessage message
let handle ( mesg : Netmime.complex_mime_message) = match mesg with
(header,`Body bb) -> handle_simple_message mesg
| (header, `Parts body) ->
let rec aux body =
match body with
[] -> ()
| (h2, `Body b)::_ ->
if not (List.mem("US-disclaimer", "added") header#fields) then
begin
add_header header;
add_disclaimer b;
end
| (_, `Parts l)::_ -> aux l
in
aux body;
writemessage mesg
let _ = handle ( readmessage () )
--
## List details at http://www.exim.org/mailman/listinfo/exim-users
## Exim details at http://www.exim.org/
## Please use the Wiki with this list - http://www.exim.org/eximwiki/
