adding some old random tools from the CVS tree

1 files changed, 18 insertions, 0 deletions

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;
+