X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=test%2Ftestmail.pl;h=2fb5635847619eff3235f0841fc10ba0c20dac66;hb=c5e829f19b4b6f92d2e58803af360687effafe5a;hp=8ac46bd81529a9464303086cfa8b0d581ac038a2;hpb=020a4a5ea2be725b155cae3a2cadc9aba3911b9b;p=clearscm.git

diff --git a/test/testmail.pl b/test/testmail.pl
index 8ac46bd..2fb5635 100755
--- a/test/testmail.pl
+++ b/test/testmail.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/env cqperl
+#!/usr/bin/env perl
 ################################################################################
 #
 # File:         $RCSfile: testmail.pl,v $
@@ -17,17 +17,10 @@ use warnings;
 
 use FindBin;
 
-my $libs;
-
-BEGIN {
-  $libs = $ENV{SITE_PERLLIB} ? $ENV{SITE_PERLLIB} : "$FindBin::Bin/../lib";
-
-  die "Unable to find libraries\n" if !$libs;
-}
-
-use lib $libs;
+use lib "$FindBin::Bin/../lib";
 
 use Mail;
+use Display;
 
 my $data = <<END;
 <table cellspacing=0 border=1>
@@ -75,14 +68,18 @@ END
 
 my $heading	= "<h1>Helpdesk Report as of 20070801</h1>";
 my $subject	= "Helpdesk Report";
-my $to		= "andrew.defaria\@gdc4s.com";
+my $to		= "Andrew\@DeFaria.com";
 
 # Main
+display "Calling mail";
 mail (
-  "to"		=> $to,
-  "subject"	=> $subject,
-  "mode"	=> "html",
-  "heading"	=> $heading,
-  "footing"	=> $footing,
-  "data"	=> $data,
-)
+  to            => $to,
+  port          => 1025,
+  subject       => $subject,
+  mode          => "html",
+  heading       => $heading,
+  footing       => $footing,
+  data          => $data,
+  randomizeFrom => 1,
+);
+display "Called mail";
\ No newline at end of file