Mercurial > repos > sarahinraauzeville > dos2unix
changeset 4:71f57a90f530 draft
Uploaded
| author | sarahinraauzeville |
|---|---|
| date | Tue, 12 Dec 2017 09:40:37 -0500 |
| parents | bcc062005bb2 |
| children | de565501c7d3 |
| files | GalaxyPath.pm |
| diffstat | 1 files changed, 19 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/GalaxyPath.pm Tue Dec 12 09:40:37 2017 -0500 @@ -0,0 +1,19 @@ +package GalaxyPath; + +use parent 'Config::IniFiles'; + +sub _convert_path{ + my ($path)=@_; + return $path if ($path=~/^\//); + return "$ENV{'MY_GALAXY_DIR'}/galaxy/$path"; +} + +sub my_path{ + my $self = shift; + my ($section,$item)=@_; + defined $ENV{'MY_GALAXY_DIR'} || die 'no MY_GALAXY_DIR environment variable defined'; + -e $ENV{'MY_GALAXY_DIR'} || die "$ENV{'MY_GALAXY_DIR'} path not found"; + return join(',',map{_convert_path($_)}split/,/,$self->val($section,$item)); +} + +1;