package async_smtp
SMTP client and server
Install
Dune Dependency
Authors
Maintainers
Sources
async_smtp-v0.16.0.tar.gz
sha256=46d57c39e83b57301cee7f8d5a0a3b3b29b691734f06839ea30efd1f3090b8b9
doc/src/async_smtp.command/bsmtp.ml.html
Source file bsmtp.ml
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
open Core open Async open Async_smtp let main () = let stdin = Lazy.force Reader.stdin in let stdout = Lazy.force Writer.stdout in let pipe = Smtp_server.read_bsmtp stdin |> Pipe.map ~f:Or_error.ok_exn in let%bind () = Pipe.iter_without_pushback pipe ~f:(fun m -> let email = Smtp_envelope.email m in Writer.write stdout (Sexp.to_string_hum (Email.sexp_of_t email))) in Writer.flushed stdout ;; let parse = Command.async ~summary:"Parse BSMTP from stdin and output as sexp" (Command.Param.return main) ~behave_nicely_in_pipeline:false ;; let command : Command.t = Command.group ~summary:"BSMTP tools" [ "parse", parse ]
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>