#!/usr/bin/perl
# rawread - no arguments
# Reads information in RAW from a log file
# Useful when doing recovery
# $Id: rawread,v 1.1 1994/10/27 12:16:01 cbbrowne Exp $
require "cbbshutils.pl";
$lastfile = "";
while (<>) {
  ($time, $file, $key, $value, $comment) = split(/===/, $_);
  if ($file ne $lastfile) {   # Only use "need_txn" if we've changed files
    &need_txn($file);
    $lastfile = $file;
  }
  $TXNS{$key} = $value;
  &log_txn($key, $value, "RAW:$desc");
}
