X-Git-Url: http://git.purplebirdman.com/public.git/blobdiff_plain/a71b334c4b9131461545d0325e3b2492380c6f0f..664d9e4373553bee6a51ffbf8acab072820aa4db:/public

diff --git a/public b/public
index 0d10631..2dd2481 100755
--- 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;