install-eg.sh: install script for generating popularity badge scores

[sitka/sitka-tools.git] / deployment / access_pathmap.pl

diff --git a/deployment/access_pathmap.pl b/deployment/access_pathmap.pl
index 117e2aa..33c3b4c 100755 (executable)
--- a/deployment/access_pathmap.pl
+++ b/deployment/access_pathmap.pl
@@ -7,10 +7,10 @@ use Getopt::Long;
 my ($help, $config_file, $component, $srcpath); 
 
 GetOptions(
-    'help'              => \$help,            # show help message and exit
-    'config=s'          => \$config_file,     # INI file for path mappings
-    'component=s'       => \$component,       # The component to grab the source paths for
-    'srcpath=s'         => \$srcpath          # The source path to grap the destination path for
+    'help'              => \$help,              # show help message and exit
+    'config=s'          => \$config_file,       # INI file for path mappings
+    'component=s'       => \$component,         # The component to grab the source paths for
+    'srcpath=s'         => \$srcpath            # The source path to grap the destination path for
 );
 
 if ($help) {
@@ -35,6 +35,7 @@ HELP
 # load config
 die "No config file specified\n" unless ($config_file);
 die "Config file does not exist\n" unless (-r $config_file and -s $config_file);
+
 my $cfg = new Config::Simple($config_file);
 
 if (!$component) {
@@ -54,7 +55,7 @@ if (!$component) {
         }
     }
 } elsif (!$srcpath) {
-    foreach my $key (keys $cfg->get_block($component)) {
+    foreach my $key (keys %{$cfg->get_block($component)}) {
         #again we use newlines because spaces can be used within directory names. I belive
         #it is possible to use a newline in a directory name, but someone would have to be
         #trying really hard to make things break if they started doing that with the Evergreen
@@ -62,6 +63,15 @@ if (!$component) {
         print $key . "\n";
     }
 } else {
-    print $cfg->get_block($component)->{$srcpath};
+    while (!defined $cfg->get_block($component)->{$srcpath}) {
+        $srcpath =~ s/\/[^\/]*$//;
+        if ($srcpath !~ '/') {
+            last;
+        }
+    }
+
+    if (defined $cfg->get_block($component)->{$srcpath}) {
+        print $cfg->get_block($component)->{$srcpath};
+    }
 }