Revision 337 (by dpavlin, 2004/06/10 19:22:40) new trunk for webpac v2
 
#!/usr/bin/perl -w

use strict;
use TDB_File;
use Fcntl;	# for O_RDWR

my $tdb_file=shift @ARGV;
if (! $tdb_file) {
	print "usage: $0 [tdb file]\n";
	exit 1;
}

my %tdb_file;
tie %tdb_file, 'TDB_File', $tdb_file, TDB_DEFAULT, O_RDWR, 0644;
foreach (sort keys %tdb_file) {
	print "$_\t",$tdb_file{$_},"\n";
}
untie %tdb_file;