From cacbab512d4102e6db19c6487c4d291006dd0fda Mon Sep 17 00:00:00 2001
From: Brian Cully <bjc@kublai.com>
Date: Fri, 21 Nov 2014 11:02:46 -0500
Subject: Initial commit.

---
 t/delivert | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100755 t/delivert

(limited to 't/delivert')

diff --git a/t/delivert b/t/delivert
new file mode 100755
index 0000000..63c3864
--- /dev/null
+++ b/t/delivert
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+use Email::Simple;
+use IO::File;
+
+use strict;
+use warnings;
+
+die usage() unless $#ARGV == 0;
+my $path = shift;
+
+local $/;
+my $email = Email::Simple->new(<>);
+
+my $msgid = $email->header('Message-ID');
+$msgid =~ s/<(.*)@.*>/$1/;
+
+my $fh = IO::File->new(">$path/$msgid") ||
+  die "Couldn't write to $path/$msgid: $!\n";
+print $fh $email->as_string;
+$fh->close;
+
+sub usage {
+  "Usage: $0 path\n";
+}
-- 
cgit v1.2.3