#!/usr/local/bin/perl -w-- # -*- perl -*-
#
# $Id: reverse_rlog,v 1.2 1995/01/05 22:15:20 ejb Exp $
# $Source: /home/ejb/scripts/RCS/reverse_rlog,v $
# $Author: ejb $
#

# This code, from the perl manual page, forces this to be run by perl from 
# perl, sh, or csh.  It must be first.
eval '(exit $?0)' && eval 'exec /usr/local/bin/perl -S $0 ${1+"$@"}'
& eval 'exec /usr/local/bin/perl -S $0 $argv:q'
    if 0;

$whoami = ($0 =~ m,([^/]*)$,) ? $1 : $0;

$sep = "----------------------------\n";
$args = join(' ', @ARGV);
$/ = 0777;
open(RLOG, "rlog $args|") || die "$whoami: rlog $args failed\n";
$logs = <RLOG>;
@logs = split($sep, $logs);
print "", (shift(@logs)), $sep;;
$last = pop(@logs);
$last =~s/(=+\n)$//s;
$end = $1;
push(@logs, $last);
while (@logs)
{
    print "", (pop(@logs)), (@logs ? $sep : $end);
}