test/testmail.pl

   1 #!/usr/bin/env cqperl
   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 my $libs;
  21
  22 BEGIN {
  23   $libs = $ENV{SITE_PERLLIB} ? $ENV{SITE_PERLLIB} : "$FindBin::Bin/../lib";
  24
  25   die "Unable to find libraries\n" if !$libs;
  26 }
  27
  28 use lib $libs;
  29
  30 use Mail;
  31
  32 my $data = <<END;
  33 <table cellspacing=0 border=1>
  34   <tbody>
  35   <tr>
  36     <td align=center>RANCQ00008837</td>
  37     <td>Add new VOB to other projects</td>
  38     <td align=center>NeedingInfo</td>
  39     <td align=center>p6258c</td>
  40     <td align=center>p5602c</td>
  41     <td align=center>2007-07-26 15:19:53</td>
  42   </tr>
  43   <tr>
  44     <td align=center>RANCQ00012317</td>
  45     <td>RoseRT Crashing</td>
  46     <td align=center>NeedingInfo</td>
  47     <td align=center>p6258c</td>
  48     <td align=center>p29353</td>
  49     <td align=center>2007-07-18 11:49:57</td>
  50   </tr>
  51   <tr>
  52     <td align=center>RANCQ00012821</td>
  53     <td>http://ranweb requests</td>
  54     <td align=center>Verifying</td>
  55     <td align=center>p6258c</td>
  56     <td align=center>p6001c</td>
  57     <td align=center>2007-07-26 15:40:47</td>
  58   </tr>
  59   <tr>
  60     <td align=center>RANCQ00012830</td>
  61     <td>Not all errors are being reported when doing rebase from UCM GUI.</td>
  62     <td align=center>NeedingInfo</td>
  63     <td align=center>p6258c</td>
  64     <td align=center>p57413</td>
  65     <td align=center>2007-07-26 11:40:37</td>
  66   </tr>
  67   </tbody>
  68 </table>
  69 END
  70
  71 my $footing = <<END;
  72 --
  73 Clearquest Team
  74 END
  75
  76 my $heading     = "<h1>Helpdesk Report as of 20070801</h1>";
  77 my $subject     = "Helpdesk Report";
  78 my $to          = "andrew.defaria\@gdc4s.com";
  79
  80 # Main
  81 mail (
  82   "to"          => $to,
  83   "subject"     => $subject,
  84   "mode"        => "html",
  85   "heading"     => $heading,
  86   "footing"     => $footing,
  87   "data"        => $data,
  88 )