|
|
@ -8,7 +8,7 @@ $|=1; |
|
|
|
# While Siona swims, we pave with bricks on the road she will run on... |
|
|
|
my $STATS = {}; |
|
|
|
my $acname = $ENV{SIONA_ACNAME} || 'DRAGONWX'; |
|
|
|
my $ticker = $acname == 'HUSH3' ? 'HUSH' : $acname; |
|
|
|
my $ticker = $acname eq 'HUSH3' ? 'HUSH' : $acname; |
|
|
|
my $domain = $ENV{SIONA_DOMAIN} || '$domain'; |
|
|
|
my $dir = shift || "/var/www/$domain/var/www/$domain/api"; |
|
|
|
my $getinfo = readfile("$dir/getinfo.json"); |
|
|
|