From a0aaff1c093d24a0067074c06e85ccb15d8ecdc8 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Sun, 19 Feb 2012 18:30:42 -0800 Subject: [PATCH] adding some old random tools from the CVS tree --- bin/mailtest | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100755 bin/mailtest 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; + -- 2.11.0