blob: 5c1717055049858bc5c09d53152a5b6b8e6dc9ea (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
#!/usr/bin/perl
# This script should be run after you've somehow managed to fetch
# all the versioned files from the git repo.
print "Initializing the files and directories needed to run VNDB...\n";
# determine our root directory
use Cwd 'abs_path';
our $ROOT;
BEGIN {
($ROOT = abs_path $0) =~ s{/util/init\.pl$}{};
}
print " Using project root: $ROOT\n";
print "\n";
print "Creating directory structures...\n";
for my $d (qw| cv rg st sf |) {
print " /static/$d\n";
mkdir "$ROOT/static/$d" or die "mkdir '$ROOT/static/$d': $!\n";
for my $i (0..99) {
my $n = sprintf '%s/static/%s/%02d', $ROOT, $d, $i;
mkdir $n or die "mkdir '$n': $!\n";
chmod 0777, $n or die "chmod 777 '$n': $!\n";
}
}
print "\n";
print "Creating /www\n";
print " You can use this directory to store all files you want to\n";
print " be available from the main domain. A favicon.ico for example.\n";
mkdir "$ROOT/www" or die $!;
print "\n";
print "Writing robots.txt in /static and /www\n";
print " You probably don't want your personal copy of VNDB to end up\n";
print " in the google results, so I'll install a default robots.txt\n";
print " for you. You're free to modify them as you wish.\n";
for ('static/robots.txt', 'www/robots.txt') {
print " $_ exists, skipping...\n", next if -f "$ROOT/$_";
open my $F, '>', "$ROOT/$_" or die "$_: $!\n";
print $F "User-agent: *\nDisallow: /\n";
close $F;
}
print "\n";
if(!-f "$ROOT/data/config.pl") {
# TODO: create a template config file
print "No custom config file found, please write one!\n";
}
print "\n";
print "Everything is initialized! Now make sure to configure your\n";
print "webserver and to initialize a postgresql database (using\n";
print "dump.sql)\n";
|