bin/mailtest

   1 #!/usr/bin/perl
   2
   3 use FS::UID qw(adminsuidsetup);
   4 use FS::Misc (send_email);
   5 use FS::Record;
   6
   7 adminsuidsetup(shift) or die "usage: mailtest username\n";
   8
   9 my $error = FS::Misc::send_email (
  10   from    => 'ivan-test@freeside.biz',
  11   to      => 'ivan-test@freeside.biz',
  12   subject => 'Testing SASL',
  13   body    =>  [ "hi there\n", "i'm testing SASL\n" ],
  14 );
  15
  16 die "can't send test email: $error\n"
  17   if $error;
  18