Updated env

[public.git] / public

diff --git a/public b/public
index 0d106314438b4d6d186a46e93b770b0d3b5d8cf9..2dd248138c56764610cf4d189cae94e961b09309 100755 (executable)
--- a/public
+++ b/public
@@ -5,9 +5,12 @@ use warnings;
 use File::Spec;
 use File::Path qw/ make_path /;
 
-my $root_dir = '/mnt/Shared/Personal/My art';
-my $link_dir = '/var/www/html/public';
-my $http_uri = 'http://136.63.171.222/public';
+my $root_dir = $ENV{PUBLIC_ROOT_DIR}
+       or die "Need PUBLIC_ROOT_DIR\n";
+my $link_dir = $ENV{PUBLIC_LINK_DIR}
+       or die "Need PUBLIC_LINK_DIR\n";
+my $http_uri = $ENV{PUBLIC_HTTP_URI}
+       or die "Need PUBLIC_HTTP_URI\n";
 
 
 sub nonce {
@@ -33,7 +36,8 @@ sub addFiles {
        my $name = shift
                or die "Need filename!\n";
 
-       opendir DIR, $root_dir;
+       opendir DIR, $root_dir
+        or die $!;
        my @files = grep /$name/i, readdir(DIR);
        closedir DIR;