git.rot13.org Git - webpac/blob - tools/dump_tdb.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use TDB_File;
   5 use Fcntl;      # for O_RDWR
   6
   7 my $tdb_file=shift @ARGV;
   8 if (! $tdb_file) {
   9         print "usage: $0 [tdb file]\n";
  10         exit 1;
  11 }
  12
  13 my %tdb_file;
  14 tie %tdb_file, 'TDB_File', $tdb_file, TDB_DEFAULT, O_RDWR, 0644;
  15 foreach (sort keys %tdb_file) {
  16         print "$_\t",$tdb_file{$_},"\n";
  17 }
  18 untie %tdb_file;