[RT18107] clean up access_pathmap.pl

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

#!/usr/bin/perl
use strict;
use warnings;
use Config::Simple;
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
);

if ($help) {
    print <<"HELP";

OPTIONS:
    --help
        Show help message and exit.
    --config
        Location of INI file for path mappings.
    --component
        The component of the INI file for which you want the paths.
        If you do not specify a component value then all components
        (sections) in the INI file are returned.
    --srcpath
        The source path to return the destination path for

HELP
    exit;
}

# 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) {
    my @components = ();
    #pull out components from INI file
    open my $fh, '<', $config_file;
    while (<$fh>) {
        chomp;
        if ($_ =~ /^\[[^]]+\]$/) {
            $_ =~ s/^\[//;
            $_ =~ s/\]$//;
            #we use newlines because spaces seem to be valid within an INI file section.
            #I am not sure if newlines are also valid because I could not find anything
            #defining the INI section syntax, but I imagine using a newline within an INI
            #file section declartion is not done very often if it is valid syntax.
            print "$_\n";
        }
    }
} elsif (!$srcpath) {
    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
        #source.
        print $key . "\n";
    }
} else {
    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};
    }
}