#!/usr/bin/perl
# cpanel - dumpgdbm                               Copyright(c) 2009 cPanel, Inc.
#                                                           All rights Reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

use Fcntl        ();
use Data::Dumper ();
use GDBM_File    ();

if ( $ARGV[0] eq '--bincheck' ) {
    print "BinCheck ok\n";
    exit();
}

if ( defined $ARGV[0] && -e $ARGV[0] ) {
    my %GDBM_FILE;
    tie %GDBM_FILE, 'GDBM_File', $ARGV[0], &GDBM_File::GDBM_READER, 0644;
    print Data::Dumper::Dumper( \%GDBM_FILE );
}
else {
    print "This tool is for displaying the contents of a gdbm file.\n";
    print "Example: $0 /var/cpanel/locale/themes/x3/en.gdbm\n\n";
    print "Usage: $0 [gdbm file]\n";
}