|
|
@ -16,7 +16,7 @@ my $j = JSON::Any->new; |
|
|
|
|
|
|
|
# While Siona swims, we pave with bricks on the road she will run on... |
|
|
|
my $acname = $ENV{SIONA_ACNAME} || 'DRAGONWX'; |
|
|
|
my $ticker = $acname == 'HUSH3' ? 'HUSH' : $acname; |
|
|
|
my $ticker = $acname eq 'HUSH3' ? 'HUSH' : $acname; |
|
|
|
my $domain = $ENV{SIONA_DOMAIN} || 'explorer.dragonx.is'; |
|
|
|
my $root = "/var/www/$domain"; |
|
|
|
my $basedir = "/var/www/$domain/var/www/$domain"; |
|
|
@ -60,7 +60,7 @@ for my $h ($height-80 .. $height) { |
|
|
|
my $blockdir = "$root/var/www/$domain/block/$hash"; |
|
|
|
if (!-e "$root/block/$h") { |
|
|
|
# make /block/HEIGHT work |
|
|
|
my $cmd = "ln -s $blockdir $root/var/www/$domain/block/$h"; |
|
|
|
my $cmd = "ln -sf $blockdir $root/var/www/$domain/block/$h"; |
|
|
|
qx{$cmd}; |
|
|
|
warn $cmd; |
|
|
|
} |
|
|
|