projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
65326fc
)
adding some old random tools from the CVS tree
author
Ivan Kohler
<ivan@freeside.biz>
Mon, 20 Feb 2012 02:30:42 +0000
(18:30 -0800)
committer
Ivan Kohler
<ivan@freeside.biz>
Mon, 20 Feb 2012 02:30:42 +0000
(18:30 -0800)
bin/mailtest
[new file with mode: 0755]
patch
|
blob
diff --git a/bin/mailtest
b/bin/mailtest
new file mode 100755
(executable)
index 0000000..
4821d9c
--- /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;
+