#!/usr/bin/perl

use strict;
use MLDBM qw(GDBM_File Data::Dumper);
use Fcntl;
use Data::Dumper;

my %lang = ();

opendir(DH, ".") or die $!;

while (my $filename = readdir(DH)) {
    next if -d $filename;
    next if $filename !~ /^(\w{2})\.lang$/;
    my $lang = $1;
    print "Importing $filename ($lang)\n";
    eval {
	require $filename;
	my %temp = lang();
	$lang{$lang} = \%temp;
    };
}

closedir(DH);

#print Dumper(\%lang);

unlink 'DnsZoneLang';

print "Dumping to DB\n";

my %dbm = ();
my $dbm = tie %dbm, 'MLDBM', 'DnsZoneLang', O_CREAT|O_RDWR, 0640 or die $!;

%dbm = %lang;

untie %dbm;
undef $dbm;

print "Done\n";

#print "Bringing it all in again\n";

#$dbm = tie %dbm, 'MLDBM', 'DnsZoneLang', O_RDONLY, 0640 or die $!;

#print Dumper(\%dbm);

#untie %dbm;
#undef $dbm;