2 ################################################################################
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 $
12 # (c) Copyright 2007, ClearSCM, Inc., all rights reserved
14 ################################################################################
23 $libs = $ENV{SITE_PERLLIB} ? $ENV{SITE_PERLLIB} : "$FindBin::Bin/../lib";
25 die "Unable to find libraries\n" if !$libs;
33 <table cellspacing=0 border=1>
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>
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>
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>
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>
76 my $heading = "<h1>Helpdesk Report as of 20070801</h1>";
77 my $subject = "Helpdesk Report";
78 my $to = "Andrew\@DeFaria.com";
83 "subject" => $subject,
85 "heading" => $heading,
86 "footing" => $footing,