A simple example of a plugin that logs all incoming mail to a file.

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@93 958fd67b-6ff1-0310-b445-bb7760255be9

plugins/content_log

@@ -0,0 +1,31 @@
+# -*- perl -*-
+# $Id$
+#
+# A simple example of a plugin that logs all incoming mail to a file.
+# Useful for debugging other plugins or keeping an archive of things.
+
+use POSIX qw:strftime:;
+
+sub register {
+  my ($self, $qp) = @_;
+  $self->register_hook("data_post", "mail_handler");
+}
+
+sub mail_handler {
+  my ($self, $transaction) = @_;
+
+  # as a decent default, log on a per-day-basis
+  my $date = strftime("%Y%m%d",localtime(time));
+  open(my $out,">>mail/$date")
+    or return(DECLINED,"Could not open log file.. continuing anyway");
+
+  $transaction->header->print($out);
+  $transaction->body_resetpos;
+  while (my $line = $transaction->body_getline) {
+    print $out $line;
+  }
+
+  close $out;
+
+  return (DECLINED, "successfully saved message.. continuing");
+}