added $domain variable to update.pl

explorer.dragonx.is/bin/update.pl

@@ -10,18 +10,20 @@ my $hashps = $r->get("hashps");
 my $STATS = {};
 $|=1;
 
+my $domain = $ENV{'SIONA_DOMAIN'};
+
 # give rpc's a chance to finish before us in cron
 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/$ENV{'SIONA_DOMAIN'}/api';
+my $dir         = shift || "/var/www/$domain/api";
 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/$ENV{'SIONA_DOMAIN'}/template.html");
+my $template    = readfile("/var/www/$domain/template.html");
 
 
 #say $template;