#!/usr/bin/perl -w
# rawdump [account(s)] 
# - dumps a cbb dbm file in a comparatively raw form to STDOUT
# Particularly useful for debugging, archival
# $Id: rawdump,v 1.2 1994/11/14 07:05:49 cbbrowne Exp $
require "cbbshutils.pl";
foreach $i (@ARGV) {
  &need_txn($i);
  &zeroth_TXNS();
  while (($key, $value) = &next_TXNS()) {
    print &log_entry($i, $key, $value, "Dump by rawdump");
  }
}
