| Line 35... |
Line 35... |
| 35 |
|
35 |
|
| 36 |
use DBI;
|
36 |
use DBI;
|
| 37 |
|
37 |
|
| 38 |
my $VERSION = "1.0.0"; # Update this
|
38 |
my $VERSION = "1.0.0"; # Update this
|
| 39 |
my $GBE_DPKG = $ENV{GBE_DPKG}; # Sanitised by Jats
|
39 |
my $GBE_DPKG = $ENV{GBE_DPKG}; # Sanitised by Jats
|
| - |
|
40 |
my $GBE_RM_URL = $ENV{GBE_RM_URL};
|
| 40 |
my $RM_DB;
|
41 |
my $RM_DB;
|
| 41 |
my $tempdir;
|
42 |
my $tempdir;
|
| 42 |
my $sudoUtilsDir = '/home/releasem/sbin';
|
43 |
my $sudoUtilsDir = '/home/releasem/sbin';
|
| 43 |
my $lockFile = '/tmp/JATSRN_LOCK';
|
44 |
my $lockFile = '/tmp/JATSRN_LOCK';
|
| 44 |
my $scriptDir = "$FindBin::Bin";
|
45 |
my $scriptDir = "$FindBin::Bin";
|
| Line 155... |
Line 156... |
| 155 |
#-------------------------------------------------------------------------------
|
156 |
#-------------------------------------------------------------------------------
|
| 156 |
# Function : LocatePackages
|
157 |
# Function : LocatePackages
|
| 157 |
#
|
158 |
#
|
| 158 |
# Description : Locate packages in need of Release Notes
|
159 |
# Description : Locate packages in need of Release Notes
|
| 159 |
#
|
160 |
#
|
| - |
|
161 |
# Note: Exclude manually built packages that do not have a build standard
|
| - |
|
162 |
# ie: unit_test_br_st_saftp 1.0.1000.sea
|
| - |
|
163 |
#
|
| 160 |
# Inputs : None
|
164 |
# Inputs : None
|
| 161 |
#
|
165 |
#
|
| 162 |
# Returns : Nothing
|
166 |
# Returns : Nothing
|
| 163 |
# Populates the @Packages array
|
167 |
# Populates the @Packages array
|
| 164 |
#
|
168 |
#
|
| Line 187... |
Line 191... |
| 187 |
AND pv.pv_id IN (SELECT pv_id
|
191 |
AND pv.pv_id IN (SELECT pv_id
|
| 188 |
FROM release_manager.package_versions
|
192 |
FROM release_manager.package_versions
|
| 189 |
WHERE (release_notes_info IS null
|
193 |
WHERE (release_notes_info IS null
|
| 190 |
OR release_notes_info like 'MSG:%' )
|
194 |
OR release_notes_info like 'MSG:%' )
|
| 191 |
AND pv.dlocked = 'Y'
|
195 |
AND pv.dlocked = 'Y'
|
| - |
|
196 |
AND pv.build_type != 'M'
|
| - |
|
197 |
AND pv.BS_ID != 3
|
| 192 |
AND pv.modified_stamp > (sysdate - $opt_age)
|
198 |
AND pv.modified_stamp > (sysdate - $opt_age)
|
| 193 |
)
|
199 |
)
|
| 194 |
)
|
200 |
)
|
| 195 |
where rn = 1";
|
201 |
where rn = 1";
|
| 196 |
|
202 |
|
| Line 405... |
Line 411... |
| 405 |
foreach my $entry ( @userList)
|
411 |
foreach my $entry ( @userList)
|
| 406 |
{
|
412 |
{
|
| 407 |
#$entry->{USER_EMAIL} = 'dpurdie@vixtechnology.com';
|
413 |
#$entry->{USER_EMAIL} = 'dpurdie@vixtechnology.com';
|
| 408 |
#Debug0("Sending email to David Purdie indead of real user");
|
414 |
#Debug0("Sending email to David Purdie indead of real user");
|
| 409 |
|
415 |
|
| - |
|
416 |
my $rnUrl = $GBE_RM_URL . "/fixed_issues.asp?pv_id=$entry->{PV_ID}&rtag_id=$entry->{RTAG_ID}";
|
| 410 |
my $subject = "Package Release Notification: $entry->{PKG_NAME} $entry->{PKG_VERSION}";
|
417 |
my $subject = "Package Release Notification: $entry->{PKG_NAME} $entry->{PKG_VERSION}";
|
| 411 |
my $content = "Version <a href='http://bms:8002/ManagerSuite/Release_Manager/fixed_issues.asp?pv_id=$entry->{PV_ID}&rtag_id=$entry->{RTAG_ID}'>$entry->{PKG_VERSION}</a> of Package $entry->{PKG_NAME} in Project $entry->{PROJ_NAME} on Release Branch $entry->{RTAG_NAME} has been released.";
|
418 |
my $content = "Version <a href='$rnUrl'>$entry->{PKG_VERSION}</a> of Package $entry->{PKG_NAME} in Project $entry->{PROJ_NAME} on Release Branch $entry->{RTAG_NAME} has been released.";
|
| 412 |
$content .= "<p>Package Link: http://bms:8002/ManagerSuite/Release_Manager/fixed_issues.asp?pv_id=$entry->{PV_ID}&rtag_id=$entry->{RTAG_ID}";
|
419 |
$content .= "<p>Package Link: $rnUrl";
|
| 413 |
$content .= "<p>You have received this email as a result of your interest in this package. If you do not wish to receive further emails then remove your package interest from the notifications area in Release Manager.";
|
420 |
$content .= "<p>You have received this email as a result of your interest in this package. If you do not wish to receive further emails then remove your package interest from the notifications area in Release Manager.";
|
| 414 |
|
421 |
|
| 415 |
|
422 |
|
| 416 |
my $req = POST( 'mailto:' . $entry->{USER_EMAIL},
|
423 |
my $req = POST( 'mailto:' . $entry->{USER_EMAIL},
|
| 417 |
From => $rmConfig{'BUILD FAILURE MAIL SENDER'},
|
424 |
From => $rmConfig{'BUILD FAILURE MAIL SENDER'},
|