|
|
@ -57,10 +57,10 @@ for my $h ($height-80 .. $height) { |
|
|
|
my $hash = qx!$cli -ac_name=$acname getblockhash $h!; |
|
|
|
chomp $hash; |
|
|
|
|
|
|
|
my $blockdir = "$root/var/www/$domain/block/$hash"; |
|
|
|
my $blockdir = "$root/block/$hash"; |
|
|
|
if (!-e "$basedir/block/$h") { |
|
|
|
# make /block/HEIGHT work |
|
|
|
my $cmd = "ln -s $blockdir $root/var/www/$domain/block/$h"; |
|
|
|
my $cmd = "ln -s $blockdir $root/block/$h"; |
|
|
|
qx{$cmd}; |
|
|
|
warn $cmd; |
|
|
|
} |
|
|
@ -122,9 +122,9 @@ HTML |
|
|
|
next if $@; |
|
|
|
|
|
|
|
$TX->{$tx} = $o; |
|
|
|
my $tx_dir = "$root/var/www/$domain/tx/$tx"; |
|
|
|
my $tx_file = "$root/var/www/$domain/tx/$tx/index.html"; |
|
|
|
my $tx_template_file = "$root/var/www/$domain/tx/template.html"; |
|
|
|
my $tx_dir = "$root/tx/$tx"; |
|
|
|
my $tx_file = "$root/tx/$tx/index.html"; |
|
|
|
my $tx_template_file = "$root/tx/template.html"; |
|
|
|
my $tx_template = readfile($tx_template_file); |
|
|
|
my $txtime = localtime($o->{time}); |
|
|
|
#my $txsize = $o->{size} . " bytes"; |
|
|
|