#!/usr/bin/env perl
# @(#) dump mozilla mork database files
# morkdump (c) 2005 by Dirk Jagdmann <doj@cubic.org>

use strict;
use Mozilla::Mork;

my $file = $ARGV[0];
unless ($file) { die "Usage: $0 <filename>\n"; }

my $MorkDetails = Mozilla::Mork->new($file);
my $results = $MorkDetails->ReturnReferenceStructure();
foreach my $h (@$results)
{
    my %array = %$h;
    foreach my $f (sort(keys(%array)))
    {
	print "$f\t$array{$f}\n";
    }
    print "\n";
}