From: Ivan Kohler <ivan@freeside.biz>
Date: Mon, 20 Feb 2012 02:30:42 +0000 (-0800)
Subject: adding some old random tools from the CVS tree
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=a0aaff1c093d24a0067074c06e85ccb15d8ecdc8

adding some old random tools from the CVS tree
---

diff --git a/bin/mailtest b/bin/mailtest
new file mode 100755
index 000000000..4821d9cfa
--- /dev/null
+++ b/bin/mailtest
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+use FS::UID qw(adminsuidsetup);
+use FS::Misc (send_email);
+use FS::Record;
+
+adminsuidsetup(shift) or die "usage: mailtest username\n";
+
+my $error = FS::Misc::send_email ( 
+  from    => 'ivan-test@freeside.biz',
+  to      => 'ivan-test@freeside.biz',
+  subject => 'Testing SASL',
+  body    =>  [ "hi there\n", "i'm testing SASL\n" ],
+);
+
+die "can't send test email: $error\n"
+  if $error;
+