#!/usr/bin/perl

use strict;
use warnings;
use lib "lib";
use CPAN::Forum::INC;
use Cwd qw(cwd);
use Getopt::Long qw(GetOptions);

my %opts;
GetOptions(\%opts, "config=s", "dir=s") or die;
die "$0 --config CONFIG --dir DB_DIR\n" 
    if not $opts{config} or not $opts{dir};

my %opt;
open my $opt, $opts{config} or die "You need to create a CONFIG file. See README.\n";
while (<$opt>) {
	chomp ;
	my ($k, $v) = split /=/;
	$opt{$k} = $v;
}
close $opt;

if (
	not $opt{username} or 
	not $opt{password} or 
	not $opt{email}
	) {
	print <<END;
Please provide the following values for the administrator:

$0 --username USERNAME  --email EMAIL --password PASSWORD
END

}

my $dbfile = "$opts{dir}/forum.db";
unlink $dbfile if -e $dbfile;
mkdir $opts{dir} if not -e $opts{dir};
CPAN::Forum::DBI->myinit("dbi:SQLite:$dbfile");
CPAN::Forum::DBI->init_db("schema/schema.sql", $dbfile);
print "Turning database directory and database word writable, for now\n";
chmod 0777, $opts{dir};
chmod 0777, $dbfile;


my $from = delete $opt{from};
CPAN::Forum::DB::Configure->set_field_value('from', $from);

my $user = CPAN::Forum::DB::Users->create({id => 1, update_on_new_user => 1, %opt});
$user->password($opt{password});
$user->update;
CPAN::Forum::DB::Usergroups->create({id => 1, name => "admin"});
CPAN::Forum::DB::UserInGroup->create({uid => 1, gid => 1});