test/testmail.pl

   1 #!/usr/bin/env perl
   2 ################################################################################
   3 #
   4 # File:         $RCSfile: testmail.pl,v $
   5 # Revision:     $Revision: 1.1 $
   6 # Description:  Tests Mail.pm
   7 # Author:       Andrew@DeFaria.com
   8 # Created:      Wed Aug  1 09:16:42 MST 2007
   9 # Modified:     $Date: 2007/12/07 05:52:36 $
  10 # Language:     perl
  11 #
  12 # (c) Copyright 2007, ClearSCM, Inc., all rights reserved
  13 #
  14 ################################################################################
  15 use strict;
  16 use warnings;
  17
  18 use FindBin;
  19
  20 use lib "$FindBin::Bin/../lib";
  21
  22 use Mail;
  23 use Display;
  24
  25 my $data = <<END;
  26 <table cellspacing=0 border=1>
  27   <tbody>
  28   <tr>
  29     <td align=center>RANCQ00008837</td>
  30     <td>Add new VOB to other projects</td>
  31     <td align=center>NeedingInfo</td>
  32     <td align=center>p6258c</td>
  33     <td align=center>p5602c</td>
  34     <td align=center>2007-07-26 15:19:53</td>
  35   </tr>
  36   <tr>
  37     <td align=center>RANCQ00012317</td>
  38     <td>RoseRT Crashing</td>
  39     <td align=center>NeedingInfo</td>
  40     <td align=center>p6258c</td>
  41     <td align=center>p29353</td>
  42     <td align=center>2007-07-18 11:49:57</td>
  43   </tr>
  44   <tr>
  45     <td align=center>RANCQ00012821</td>
  46     <td>http://ranweb requests</td>
  47     <td align=center>Verifying</td>
  48     <td align=center>p6258c</td>
  49     <td align=center>p6001c</td>
  50     <td align=center>2007-07-26 15:40:47</td>
  51   </tr>
  52   <tr>
  53     <td align=center>RANCQ00012830</td>
  54     <td>Not all errors are being reported when doing rebase from UCM GUI.</td>
  55     <td align=center>NeedingInfo</td>
  56     <td align=center>p6258c</td>
  57     <td align=center>p57413</td>
  58     <td align=center>2007-07-26 11:40:37</td>
  59   </tr>
  60   </tbody>
  61 </table>
  62 END
  63
  64 my $footing = <<END;
  65 --
  66 Clearquest Team
  67 END
  68
  69 my $heading     = "<h1>Helpdesk Report as of 20070801</h1>";
  70 my $subject     = "Helpdesk Report";
  71 my $to          = "Andrew\@DeFaria.com";
  72
  73 # Main
  74 display "Calling mail";
  75 mail (
  76   to            => $to,
  77   port          => 1025,
  78   subject       => $subject,
  79   mode          => "html",
  80   heading       => $heading,
  81   footing       => $footing,
  82   data          => $data,
  83   randomizeFrom => 1,
  84 );
  85 display "Called mail";