WebSVN – DevTools – Diff – /generate_release_notes/trunk/src/tools/process_release_notes.pl

+#
 #   Package information
+#
 my @Packages;
-my @packageItems = qw( PV_ID RTAG_ID NAME VERSION PKG_ID PROJ_ID RNINFO);
+my @packageItems = qw( PV_ID RTAG_ID NAME VERSION PKG_ID PROJ_ID RNINFO BUILD_TYPE BS_ID);
 my %rmConfig;
 #-------------------------------------------------------------------------------
 # Function        : Main Entry
+#
 #-------------------------------------------------------------------------------
 # Function        : LocatePackages
+#
 # Description     : Locate packages in need of Release Notes
+#
-#                   Note: Exclude manually built packages that do not have a build standard
-#                         ie:  unit_test_br_st_saftp 1.0.1000.sea
-#
 # Inputs          : None
+#
 # Returns         : Nothing
 #                   Populates the @Packages array
+#
 sub LocatePackages
+{
     my $m_sqlstr =
             "SELECT * from
+            (
                 SELECT pv.pv_id,
                        rc.rtag_id,
                        pkg.pkg_name,
                        pv.pkg_version,
                        pv.pkg_id,
                        rt.proj_id ,
                        pv.release_notes_info,
+                       pv.build_type,
+                       pv.BS_ID,
                        TRUNC(sysdate - pv.modified_stamp ) AS age ,
                        row_number() OVER (PARTITION BY pv.pv_id, pkg.pkg_name, pv.pkg_version ORDER BY rc.rtag_id) rn
                 FROM release_manager.package_versions pv,
                      release_manager.release_content rc,
                      release_manager.packages pkg,
                 AND pkg.pkg_id = pv.pkg_id
                 AND rc.rtag_id = rt.rtag_id
                 AND pv.pv_id IN (SELECT pv_id
                                  FROM release_manager.package_versions
                                  WHERE (release_notes_info IS null
-                                     OR release_notes_info like 'MSG:%' )
+                                     OR (release_notes_info like 'MSG:%' AND release_notes_info != 'MSG:5' ))
                                  AND pv.dlocked = 'Y'
-                                 AND pv.build_type != 'M'
-                                 AND pv.BS_ID != 3
                                  AND pv.modified_stamp > (sysdate - $opt_age)
+                                 )
+            )
             where rn = 1";
                        rc.rtag_id,
                        pkg.pkg_name,
                        pv.pkg_version,
                        pv.pkg_id,
                        rt.proj_id,
-                       pv.release_notes_info
+                       pv.release_notes_info,
+                       pv.build_type,
+                       pv.BS_ID
                 FROM release_manager.package_versions pv,
                      release_manager.release_content rc,
                      release_manager.packages pkg,
                      release_manager.release_tags rt
                 WHERE pv.pv_id = rc.pv_id
     #DebugDumpData("Entry", $entry);
     Message("-------------------- $entry->{NAME}, $entry->{VERSION}") if $opt_status || $opt_verbose;
     my $pkgBase = catdir($GBE_DPKG, $entry->{NAME}, $entry->{VERSION});
     Verbose("Processing: $pkgBase");
-    unless (-d $pkgBase) {
-        Warning("Package not in archive: $pkgBase");
-        return;
-    }
+    #
-    #   Make the target Package Version Writable and Ensure that the doc directory
+    #   Handle special class of packages
+    #       Manually Built
+    #       No Build Standard
+    #       Not in dpkg_archive
+    #   Example: unit_test_br_kcm_ct_saftp
-    #   exists. This is done via a script that is invoked with SUDO, partially to
+    #   This type of package appears to be a place holder
-    #   interwork with the existing system
+    #   Still needs some level of processing
+    #
-    runSudoCommand('make_writable', 'dpkg_archive', $entry->{NAME},$entry->{VERSION});
-    runSudoCommand('make_docFolder', 'dpkg_archive', $entry->{NAME},$entry->{VERSION}, 'doc');
-    #
-    #   Get the basic data required for the Release Note
-    #   jats jats_get_releasenote_data.pl -pvid=1002782
-    #
-    $outfile = catdir($tempdir, join('_',$entry->{NAME},$entry->{VERSION})) . '.xml';
-    $rv = localTool('jats_get_releasenote_data', '-verbose', $opt_verbose, '-pvid', $entry->{PV_ID}, '-outfile', $outfile );
-    #
-    #   Generate the actual release note and update the Release Manager
+    if ($entry->{BUILD_TYPE}  eq 'M' && $entry->{BS_ID} == 3 && ! -d $pkgBase)
-    #   jats jats_gen_releasenote.pl -releasenote=mcrdemo_1.2.3157.cr.xml -UpdateRmFiles
-    unless ($rv)
+    {
-        $rv = localTool('jats_gen_releasenote.pl', '-verbose', $opt_verbose, '-UpdateRmFiles', '-releasenote', $outfile);
+        Verbose ("Placeholder package detected");
+        #DebugDumpData("Entry", $entry);
+        updatePlaceHolderRmNoteInfo($entry);
+        $rv = 0;
+    }
+    else
+    {
+        #
+        #
+        unless (-d $pkgBase) {
+            Warning("Package not in archive: $pkgBase");
+            return;
+        }
+        #
+        #   Make the target Package Version Writable and Ensure that the doc directory
+        #   exists. This is done via a script that is invoked with SUDO, partially to
+        #   interwork with the existing system
-    #
+        #
+        runSudoCommand('make_writable', 'dpkg_archive', $entry->{NAME},$entry->{VERSION});
+        runSudoCommand('make_docFolder', 'dpkg_archive', $entry->{NAME},$entry->{VERSION}, 'doc');
+        #
+        #   Get the basic data required for the Release Note
+        #   jats jats_get_releasenote_data.pl -pvid=1002782
+        #
+        $outfile = catdir($tempdir, join('_',$entry->{NAME},$entry->{VERSION})) . '.xml';
+        $rv = localTool('jats_get_releasenote_data', '-verbose', $opt_verbose, '-pvid', $entry->{PV_ID}, '-outfile', $outfile );
+        #
+        #   Generate the actual release note and update the Release Manager
+        #   jats jats_gen_releasenote.pl -releasenote=mcrdemo_1.2.3157.cr.xml -UpdateRmFiles
+        unless ($rv)
+        {
+            $rv = localTool('jats_gen_releasenote.pl', '-verbose', $opt_verbose, '-UpdateRmFiles', '-releasenote', $outfile);
+        }
+        #
-    #   Release note complete - or failed
+        #   Release note complete - or failed
-    #       Make the target PackageVersion ReadOnly
+        #       Make the target PackageVersion ReadOnly
-    #       Signal End of Package Processing - which will trigger blat
+        #       Signal End of Package Processing - which will trigger blat
-    #
+        #
-    #   Do this even if we have a Release Note Failure
+        #   Do this even if we have a Release Note Failure
-    #
+        #
-    runSudoCommand('make_readonly', 'dpkg_archive', $entry->{NAME},$entry->{VERSION});
+        runSudoCommand('make_readonly', 'dpkg_archive', $entry->{NAME},$entry->{VERSION});
+    }
     #    make_release_changed
     #       archive=archive-path
     #       pkg_name="package-name"
     #       pkg_version="package-version"
     Error ("Did not generate Release Note: $entry->{NAME}, $entry->{VERSION}") if ($rv);
+}
 #-------------------------------------------------------------------------------
+# Function        : updatePlaceHolderRmNoteInfo
+#
+# Description     : Insert Release Note Info into the Release Manager Database
+#                   This has the side effect that RM will see the Release Note
+#                   as being fully generated.
+#
+#                   Used only by special PlaceHolder packages
+#
+# Inputs          : $entry          - Hash of useful infomation
+#
+# Returns         :
+#
+sub updatePlaceHolderRmNoteInfo
+{
+    my ($entry) = @_;
+    executeRmQuery (
+        'updateRmNoteInfo',
+        'update release_manager.package_versions set release_notes_info=\'MSG:5\' where pv_id=' . $entry->{PV_ID}
+        );
+}
+#-------------------------------------------------------------------------------
 # Function        : localTool
+#
 # Description     : Run a jats tool from the same directory as this script
+#
 # Inputs          : $name           - Name of the script
+    #
     #   Determine interested users
+    #
     my $m_sqlstr = "SELECT U.user_email, prj.proj_name, rt.rtag_name, pkg.pkg_name, pv.pkg_version ,pv.pv_id, rt.rtag_id
-        FROM PACKAGE_INTEREST PI,
+        FROM RELEASE_MANAGER.PACKAGE_INTEREST PI,
-             PACKAGES PKG,
+             RELEASE_MANAGER.PACKAGES PKG,
-             PACKAGE_VERSIONS PV,
+             RELEASE_MANAGER.PACKAGE_VERSIONS PV,
-             USERS U,
+             RELEASE_MANAGER.USERS U,
-             RELEASE_TAGS RT,
+             RELEASE_MANAGER.RELEASE_TAGS RT,
-             PROJECTS PRJ
+             RELEASE_MANAGER.PROJECTS PRJ
         WHERE PKG.PKG_ID = PI.PKG_ID
           AND RT.RTAG_ID = $entry->{RTAG_ID}
           AND PV.PV_ID = $entry->{PV_ID}
           AND PV.PKG_ID = PKG.PKG_ID
           AND PRJ.PROJ_ID = RT.PROJ_ID
+    }
     return $pHash;
+}
 #-------------------------------------------------------------------------------
+# Function        : executeRmQuery
+#
+# Description     : Execute a simple RM query. One that does not expect any return data
+#
+# Inputs          : $fname           - OprName, for error reporting
+#                   $m_sqlstr        - SQL String
+#
+# Returns         : Will exit on error
+#
+sub executeRmQuery
+{
+    my ($fname, $m_sqlstr) = @_;
+    #
+    #   Connect to the Database - once
+    #
+    connectRM(\$RM_DB, 0) unless $RM_DB;
+    Verbose2('ExecuteQuery:', $fname);
+    #
+    #   Create the full SQL statement
+    #
+    my $sth = $RM_DB->prepare($m_sqlstr);
+    if ( defined($sth) )
+    {
+        if ( $sth->execute() )
+        {
+            $sth->finish();
+        }
+        else
+        {
+            Error("$fname: Execute failure: $m_sqlstr", $sth->errstr() );
+        }
+    }
+    else
+    {
+        Error("$fname: Prepare failure");
+    }
+}
+#-------------------------------------------------------------------------------
 #   Documentation
+#
 =pod

Subversion Repositories DevTools

(root)/generate_release_notes/trunk/src/tools/process_release_notes.pl – Rev 4698 → 4706