#!/usr/bin/perl
use strict;
use warnings;
use autodie;
use POSIX 'strftime';
chdir 'dl/dump';
my @pub = (glob('vndb-db-*'), glob('vndb-dev-*'), glob('vndb-votes-*'), glob('vndb-tags-*'), glob('vndb-traits-*'));
open my $F, '>', 'index.html~';
print $F q{
VNDB Database Downloads
VNDB Database Downloads
Refer to the Database Dumps page on VNDB.org for more information about these files.
Latest versions
| Name | Destination |
|---|
};
printf $F q{| %s | %s |
},
$_, $_, readlink
for (grep -l, @pub);
print $F q{
Files
| Name | Last modified | Size |
|---|
};
printf $F q{| %s | %s | %d |
},
$_, $_, strftime('%F %T', gmtime((stat)[9])), -s
for (grep !-l, @pub);
print $F q{
};
close $F;
rename 'index.html~', 'index.html';