integrity-checker.pl: strip newline from hash-file input
[sitka/sitka-tools.git] / deployment / integrity-checker.pl
index e9b6e1b..b35ace2 100755 (executable)
@@ -31,8 +31,8 @@ GetOptions(
     'check-files'       => \$check_files,     # check deployed files
     'hash-file=s'       => \$hash_file,       # file containing git hashes (overrides --repo)
     'since=s'           => \$since,           # check only files modified since this time
-    'git-output=s'      => \$git_output,      # output file for git hashes (optional)
-    'deployed-output=s' => \$deployed_output  # output file for hashes of deployed files (optional)
+    'print-git-hashes=s'      => \$git_output,      # output file for git hashes (optional)
+    'print-deployed-hashes=s' => \$deployed_output  # output file for hashes of deployed files (optional)
 );
 
 if ($help) {
@@ -80,7 +80,7 @@ HELP
 }
 
 # specify all possible components (--all option);
-@components = split(' ', `./access_pathmap.pl --config $config_file`) if ($all);
+@components = split('\n', `./access_pathmap.pl --config $config_file`) if ($all);
 
 if ($git_output) {
     open (GITOUTPUT, '>>', $git_output) or die "Could not open $git_output: $!\n";
@@ -95,6 +95,7 @@ my %git_hashes;
 if ($hash_file) {
     open (HASHFILE, '<', $hash_file) or die "Could not open $hash_file: $!\n";
     while (<HASHFILE>) {
+        chomp;
         my ($hash, $file) = split(/\s+/, $_, 2);
         $git_hashes{$file} = $hash;
     }