#!/usr/bin/perl
# This builds up and saves a core db.

use vars qw{$sourcedir $dbdir};
$dbdir="./db";

foreach ('./',$ENV{HOME}.'/.','/usr/local/etc/','/etc/') {
	if (-e "${_}perlmoo.conf") { do "${_}perlmoo.conf" ; last }
}
push @INC,$sourcedir if $sourcedir;

my $fn=shift || "$dbdir/db.pl";

require Error;
require "basedb.pl";

ActiveUser::setactive($wizard);
$ret=Db::DumpToFile($fn);
if (Error::iserror($ret)) {
	print STDERR $ret->message."\n";
	exit 1;
}
print "Database inititalized and saved to $fn\n";
exit;
