#!/usr/local/bin/perl -w
#
# $Id: catdb 356 2011-09-24 23:25:47Z svnuser $
#
# $Log: catdb,v $
# Revision 1.1  1998/10/20 11:06:53  merlin
# Lists a db file.
# May not work with anything else than a DB file
#
#

use strict;
use DB_File;
use GDBM_File;

my $printname=0;

if ($#ARGV>0)
{
    $printname=1;
}

foreach (@ARGV)
{
    my $key;
    my $val;
    my %data;

    if (! dbmopen(%data,$_,0444))
    {
	if ($! eq "Invalid argument")
	{
	    tie (%data, 'DB_File', $_, O_RDONLY, 0, $DB_BTREE) or die "Can't tie $_: $!";
	}
	else
	{
	    die "Can't open $_: $!";
	}
    }

    while (($key,$val) = each %data)
    {
	if ($printname)
	{
	    print "$_: $key -> \"$val\"\n";
	}
	else
	{
	    print "$key -> \"$val\"\n";
	}
    }
}