Update 'bin/home_update.pl'

bin/home_update.pl

@@ -9,14 +9,14 @@ $|=1;
 sleep 30;
 
 # While Siona swims, we pave with bricks on the road she will run on...
-# my $dir = shift || $ENV{HOME} . "/data";
-my $dir         = shift || '/var/www/explorer.hush.land/var/www/explorer.hush.land/api';
+my $domain      = $ENV{DOMAIN};
+my $dir         = $ENV{DIR};
 my $getinfo     = readfile("$dir/getinfo.json");
 my $mining      = readfile("$dir/getmininginfo.json");
 my $txstats     = readfile("$dir/getchaintxstats.json");
 # run the slowest last so the RPC interface isn't juggling
 my $coinsupply  = readfile("$dir/coinsupply.json");
-my $template    = readfile("/var/www/explorer.hush.land/var/www/explorer.hush.land/template.html");
+my $template    = readfile("/var/www/$domain/template.html");
 
 
 #say $template;
@@ -71,4 +71,4 @@ sub readfile {
   return $data;
 }
 #  "connections": 48,
-#  "tls_connections": 28,
+#  "tls_connections": 28,