diff options
author | Yorhel <git@yorhel.nl> | 2008-10-26 15:00:48 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2008-10-26 15:00:48 +0100 |
commit | 02a8f7fd5ce082ee437249cb3aca7265a990d97a (patch) | |
tree | c2d9ee747c38c3ecbffbcfec4152dc43767d9e4e /util/init.pl | |
parent | 45802c119b3f3a36ffae3296b37d51dd3a454f29 (diff) |
Wrote a small script to initialize the directory structure
Diffstat (limited to 'util/init.pl')
-rwxr-xr-x | util/init.pl | 70 |
1 files changed, 70 insertions, 0 deletions
diff --git a/util/init.pl b/util/init.pl new file mode 100755 index 00000000..5c171705 --- /dev/null +++ b/util/init.pl @@ -0,0 +1,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"; + + + + |