New functions added for automating mustfix releases

Change-Id: Ib098262d51acbda5fe8f67450c86da097648f49c
Reviewed-on: http://ralgit01.raleigh.ibm.com/gerrit1/52383
Tested-by: Jenkins Server <pfd-jenkins+hostboot@us.ibm.com>
Tested-by: Jenkins OP Build CI <op-jenkins+hostboot@us.ibm.com>
Tested-by: Jenkins OP HW <op-hw-jenkins+hostboot@us.ibm.com>
Tested-by: FSP CI Jenkins <fsp-CI-jenkins+hostboot@us.ibm.com>
Reviewed-by: Prachi Gupta <pragupta@us.ibm.com>
Reviewed-by: Daniel M. Crowell <dcrowell@us.ibm.com>

1 files changed, 200 insertions, 0 deletions

diff --git a/src/build/tools/hbRelease b/src/build/tools/hbRelease
index dd783e9dc..07ae63d32 100755
--- a/src/build/tools/hbRelease
+++ b/src/build/tools/hbRelease
@@ -95,6 +95,8 @@ my %commands = ( "define" => \&execute_define,
                  "gerrit-commit" => \&execute_gerrit_commit,
                  "pre-release" => \&execute_pre_release,
                  "post-release" => \&execute_post_release,
+                 "create-track" => \&execute_create_track,
+                 "checkinBuildToTrack" => \&execute_checkinBuildToTrack,
                  "help" => \&execute_help,
                );
 
@@ -499,6 +501,198 @@ sub execute_pre_release
     print_debug_info($level, $feature, $cq_id, $released);
 }
 
+sub execute_create_track
+{
+    my $level = "";
+    my $release = "";
+    my $released = "";
+    my $track = "";
+
+    GetOptions("level:s" => \$level);
+    GetOptions("release:s" => \$release);
+    GetOptions("released:s" => \$released);
+    GetOptions("track:s" => \$track);
+
+    die "Missing level" if ($level eq "");
+    die "Missing release" if ($release eq "");
+    die "Missing released" if ($released eq "");
+
+    #
+    my $feature = "";
+    my $rel_needs_appr = "";
+    my $approval_flag = "yes";
+
+    if($track eq "")
+    {
+        # CMVC open feature
+        my $open_feature = "Feature -open -component $globals{component}";
+        $open_feature .= " -remarks \"Hostboot Release - $level\" -verbose";
+        # Get the Feature number from the output, should be the only numbers.
+        print "open_feature=> $open_feature\n";
+        $feature = run_system_command($open_feature);
+        $feature =~ s/[^0-9]//g;
+        #
+        print "\n\n--------------------------------------\n";
+        print "level (passed as \"RELEASE_NAME\") => $level\n";
+        print "release (passed as \"FIPS_RELEASE\") => $release\n";
+        print "released (passed as \"PREVIOUS_RELEASE\") => $released\n";
+        print "owner=> $globals{cmvcUser}\n";
+        print "feature=> $feature\n\n";
+        print "\n--------------------------------------\n\n";
+
+        # CMVC assign feature
+        print "#####-> run_system_command(\"Feature -assign $feature -owner $globals{cmvcUser} -verbose\")\n";
+        run_system_command("Feature -assign $feature -owner $globals{cmvcUser} -verbose");
+
+        # CMVC accept feature
+        print "#####-> run_system_command(\"Feature -accept $feature -verbose\");\n";
+        run_system_command("Feature -accept $feature -verbose");
+
+        # CMVC create track
+        print "#####-> run_system_command(\"Track -create -release $release -feature $feature -verbose\")\n";
+        run_system_command("Track -create -release $release -feature $feature -verbose");
+
+        # CMVC check track
+        print "#####-> $rel_needs_appr = run_system_command(\"Report -g ReleaseView -where \"name='$release'\" -select approve\")\n";
+        chomp($rel_needs_appr = run_system_command("Report -g ReleaseView -where \"name='$release'\" -select approve"));
+        print "\nrel_needs_appr=> \"$rel_needs_appr\"\n";
+        print "\napproval_flag=> \"$approval_flag\"\n";
+    }
+    else
+    {
+        $feature = $track;
+    }
+    #
+    my $featureFile = $ENV{CMVC_FEATURE_FILE};
+    open(CMVC_FEATURE,">",$featureFile)
+        or die("Cannot open: $featureFile: $!");
+    print CMVC_FEATURE "FEATURE=$feature";
+    close(CMVC_FEATURE);
+
+    my $rel_needs_appr_file = $ENV{REL_NEEDS_APPR_FILE};
+    open(REL_NEEDS_APPR,">",$rel_needs_appr_file)
+        or die("Cannot open: $rel_needs_appr_file: $!");
+    print REL_NEEDS_APPR "REL_NEEDS_APPR=$rel_needs_appr";
+    close(REL_NEEDS_APPR);
+
+    my $notify_email_file = $ENV{'NOTIFY_EMAIL_FILE'};
+    open(NOTIFY_EMAIL_TXT,">",$notify_email_file)
+        or die("Cannot open: $notify_email_file: $!");
+
+    chomp(my $datenow = run_system_command("date"));
+    #
+    open(TXTRELNOTE, "< ", $ENV{'RELEASENOTESTXT'});
+    my $txtrelnote = <TXTRELNOTE>;
+    close(TXTRELNOTE);
+    #
+    my $NEXTJOB=\
+    "https://hostboot-jenkins.swg-devops.com/job/Hostboot/job/Release/job/\
+    auto-release-HB/job/rel-fips/job/rel-fips-4-checkinBuildToTrack/\
+    build?delay=0sec";
+    if($rel_needs_appr eq $approval_flag)
+    {
+        print "(in IF loop)\nYes, found \$rel_needs_appr eq \$approval_flag: ($rel_needs_appr eq $approval_flag)\n";
+        print "MUSTFIX_APPROVERS=> $ENV{'MUSTFIX_APPROVERS'}\n";
+        print "RELEASE_ADMINS=> $ENV{'RELEASE_ADMINS'}\n";
+        my $MAIL_SUB = "Action Required: Your approval required for Track \
+        $ENV{'FIPS_RELEASE'}:$feature";
+        print NOTIFY_EMAIL_TXT "[$datenow]\n\n\nDear Approver(s) [$ENV{MUSTFIX_APPROVERS}],\n\tThere is a new track/feature opened pending your approval for a mustfix release.\n\tDetails are below, please approve it ASAP, thanks!\n";
+        print NOTIFY_EMAIL_TXT "\n\t(Note: Jenkins job will time-out if approval not obtained within a day of receiving this notice)\n\n";
+        print NOTIFY_EMAIL_TXT "\tFIPS_RELEASE=$ENV{FIPS_RELEASE}\n\tFEATURE=$feature\n";
+        print NOTIFY_EMAIL_TXT "\n\n$txtrelnote\n\n";
+        print NOTIFY_EMAIL_TXT "#--------------------------#";
+        print NOTIFY_EMAIL_TXT "\n\n\nDear Release_admin(s) [$ENV{'RELEASE_ADMINS'}],\n\tOnce this track is approved, please use following information if/as required to \tretrigger the release job (e.g. if it  had timed out beyond the wait-time of 1 day):\n\n";
+        print NOTIFY_EMAIL_TXT "\n\tNEXTJOB=$NEXTJOB";
+        print NOTIFY_EMAIL_TXT "\n\tREL_FIPS_TRIGGER_PROJ=$ENV{REL_FIPS_TRIGGER_PROJ}\n\tREL_FIPS_TRIGGER_BUILD_NUM=$ENV{REL_FIPS_TRIGGER_BUILD_NUM}\n";
+        print NOTIFY_EMAIL_TXT "\n\n\n(A copy of this email has been sent to:\n\t$ENV{'MUSTFIX_APPROVERS'}\n\t$ENV{'RELEASE_ADMINS'}\n\t)\n\n\n";
+        print NOTIFY_EMAIL_TXT "#-----------<E-O-F>---------------#\n";
+        close(NOTIFY_EMAIL_TXT);
+        run_system_command("cat $notify_email_file | mail -s \"$MAIL_SUB\" $ENV{'MUSTFIX_APPROVERS'} $ENV{'RELEASE_ADMINS'}");
+    }
+    else
+    {
+
+        print "(in ELSE loop)\nSorry, \$rel_needs_appr ne \$approval_flag: ($rel_needs_appr ne $approval_flag)\n";
+        print NOTIFY_EMAIL_TXT "#--------------------------#\n";
+        print NOTIFY_EMAIL_TXT "[$datenow]\n\n\nNo approval required for:\nFIPS_RELEASE=$ENV{FIPS_RELEASE}\nFEATURE=$feature\n";
+        print NOTIFY_EMAIL_TXT "\n\n$txtrelnote\n\n";
+        print NOTIFY_EMAIL_TXT "\nNEXTJOB=$NEXTJOB";
+        print NOTIFY_EMAIL_TXT "\nREL_FIPS_TRIGGER_PROJ=$ENV{REL_FIPS_TRIGGER_PROJ}\nREL_FIPS_TRIGGER_BUILD_NUM=$ENV{REL_FIPS_TRIGGER_BUILD_NUM}\n\n";
+        print NOTIFY_EMAIL_TXT "\n\n(Since, no approval required, no email or other notification sent out)\n\n";
+        print NOTIFY_EMAIL_TXT "#-----------<E-O-F>---------------#\n";
+        close(NOTIFY_EMAIL_TXT);
+    }
+
+    # Add in cmvc coReqs and cmvc preReqs
+    print "#####-> execute_cmvc_reqs($feature,$level,$released,$release)\n";
+    execute_cmvc_reqs($feature,$level,$released,$release);
+}
+
+sub execute_checkinBuildToTrack
+{
+    my $level = "";
+    my $release = "";
+    my $checkInDir = "";
+    my $released = "";
+
+    GetOptions("level:s" => \$level);
+    GetOptions("release:s" => \$release);
+    GetOptions("checkInDir:s" => \$checkInDir);
+    GetOptions("released:s" => \$released);
+
+    die "Missing level" if ($level eq "");
+    die "Missing release" if ($release eq "");
+    die "Missing check in directory" if ($checkInDir eq "");
+    die "Missing released" if ($released eq "");
+
+    my $featureFile = $ENV{CMVC_FEATURE_FILE};
+    open(CMVC_FEATURE,"<",$featureFile)
+        or die("Cannot open: $featureFile: $!");
+    #Read the feature from the file:
+    my $keyval = <CMVC_FEATURE>;
+    my ($key, $feature) = split /=/, $keyval ;
+    close(CMVC_FEATURE);
+
+    if($release =~ m/fips9/)
+    {
+        $CMVC_FILES .= "src/hbfw/img/hostboot_bootloader.bin ";
+        $CMVC_FILES .= "src/hbfw/img/hostboot_securerom.bin ";
+    }
+
+    print "\n\n--------------------------------------\n";
+    print "level (passed as \"RELEASE_NAME\") => $level\n";
+    print "release (passed as \"FIPS_RELEASE\") => $release\n";
+    print "checkInDir (passed as \"CMVC_DIR\") => $checkInDir\n";
+    print "released (passed as \"PREVIOUS_RELEASE\") => $released\n";
+    print "feature (read from the \"$ENV{CMVC_FEATURE_FILE}\" file => $feature\n";
+    print "CMVC_FILES =>  $CMVC_FILES\n";
+    print "\n--------------------------------------\n\n";
+
+    #Lock Files
+    print  "#####-> run_system_command(\"File -lock $CMVC_FILES -release $release -feature $feature -verbose\")\n";
+    run_system_command("File -lock $CMVC_FILES -release $release -feature $feature -verbose");
+    #Check In Files
+    print "Present working directory:\n";
+    run_system_command("pwd");
+    print "Switching directory to \"$checkInDir\" .....\n";
+    chdir ($checkInDir);
+    run_system_command("pwd");
+    print "#####-> run_system_command(\"File -checkin $CMVC_FILES -top $checkInDir -release $release -feature $feature -verbose\")\n";
+    run_system_command("File -checkin $CMVC_FILES -top $checkInDir -release $release -feature $feature -verbose");
+
+    #Complete Fix Records
+    print "#####-> run_system_command(\"Fix -complete -feature $feature -release $release -component esw_hbfw -verbose\")\n";
+    run_system_command("Fix -complete -feature $feature -release $release -component esw_hbfw -verbose");
+
+    #Get ClearQuest ID
+    my $response = run_system_command("Feature -view $feature");
+    my ($cq_id) = $response =~ /CQID\s+(.*)/;
+    print $cq_id if $debug;
+
+    #Print out Debug information
+    print_debug_info($level, $feature, $cq_id, $released);
+}
+
 sub execute_post_release
 {
     my $feature = "";
@@ -757,6 +951,8 @@ sub create_release_notes
     my $commits = git_commit_history("HEAD", $level_info->{released});
 
     open RELNOTE, "> ".git_root()."/releaseNotes.html";
+    open TXTRELNOTE, "> ".$ENV{'RELEASENOTESTXT'};
+    print TXTRELNOTE "The list of commits included for approval are:\n";
     print RELNOTE "<html>\n";
     print RELNOTE "    <head><title>Release notes for $level</title></head>\n";
     print RELNOTE <<STYLESHEET;
@@ -826,6 +1022,7 @@ STYLESHEET
         print RELNOTE "        <td>$subject</td>\n";
         print RELNOTE "        <td>$commit</td>\n";
         print RELNOTE "    </tr>\n";
+        print TXTRELNOTE "$commit\n";
     }
     print RELNOTE "</table>\n";
 
@@ -833,8 +1030,10 @@ STYLESHEET
     print RELNOTE "</html>\n";
 
     close RELNOTE;
+    close TXTRELNOTE;
 
     system "git add ".git_root()."/releaseNotes.html";
+    #system "git add ".git_root()."/releaseNotes.txt";
     system "git commit -m \"Release notes for $level\"";
 
 }
@@ -2701,6 +2900,7 @@ sub run_system_command
 
     print "$cmd\n";
     my $output = `$cmd`;
+    #print "output=$output\n";
     die "failed running system command $cmd - $?" if ($?);
     print $output if $debug;