adding --manual-list="file" to update-my-copyright.pl

Along with using git status and related commands to find a list of
modified files to update the copyright on, this adds the option of
using a manually created list from a file (one filename per line).

Signed-off-by: Mark Allen <[email protected]>

Author: markalle

contrib/update-my-copyright.pl

@@ -2,6 +2,7 @@
 #
 # Copyright (c) 2010-2014 Cisco Systems, Inc.  All rights reserved.
 # Copyright (c) 2016-2017 Intel, Inc. All rights reserved.
+# Copyright (c) 2017      IBM Corporation. All rights reserved.
 # $COPYRIGHT$
 #
 
@@ -66,6 +67,7 @@
 # Defaults
 my $my_search_name = "Cisco";
 my $my_formal_name = "Cisco Systems, Inc.  All rights reserved.";
+my $my_manual_list = "";
 
 # Protected directories
 my @protected = qw(
@@ -80,13 +82,16 @@
     if (defined($ENV{OMPI_COPYRIGHT_SEARCH_NAME}));
 $my_formal_name = $ENV{OMPI_COPYRIGHT_FORMAL_NAME}
     if (defined($ENV{OMPI_COPYRIGHT_FORMAL_NAME}));
+$my_manual_list = $ENV{OMPI_COPYRIGHT_MANUAL_LIST}
+    if (defined($ENV{OMPI_COPYRIGHT_MANUAL_LIST}));
 
 GetOptions(
     "help" => \$HELP,
     "quiet" => \$QUIET,
     "check-only" => \$CHECK_ONLY,
     "search-name=s" => \$my_search_name,
     "formal-name=s" => \$my_formal_name,
+    "manual-list=s" => \$my_manual_list,
 ) or die "unable to parse options, stopped";
 
 if ($HELP) {
@@ -98,6 +103,7 @@
 --check-only         exit(111) if there are files with copyrights to edit
 --search-name=NAME   Set search name to NAME
 --formal-same=NAME   Set formal name to NAME
+--manual-list=FNAME  Use specified file as list of files to mod copyright
 EOT
     exit(0);
 }
@@ -143,6 +149,8 @@ sub quiet_print {
     if (-d "$top/.hg");
 $vcs = "svn"
     if (-d "$top/.svn");
+$vcs = "manual"
+    if ("$my_manual_list" ne "");
 
 my @files = find_modified_files($vcs);
 
@@ -363,6 +371,9 @@ sub find_modified_files {
         }
         close(CMD);
     }
+    elsif ($vcs eq "manual") {
+        @files = split(/\n/, `cat $my_manual_list`);
+    }
     else {
         die "unknown VCS '$vcs', stopped";
     }