#!/usr/athena/bin/perl
#
# mreceived.pl
#
# filter the et output to replace a simple HReceived line with another
# HReceived line that has nested conditionals (these don't appear to
# be supported by ease)
#
# mhpower@mit.edu, 26 May 1995
#
while (<STDIN>)
   {
      chop;
      if ($_ eq 'HReceived: by $j; $b')
         {
            print 'HReceived: $?sfrom $s $.$?_($?s$|from $.$_) $.by $j ($v/$A)$?r with $r$. id $i$?u for $u$.; $b';
         }
      else
         {
            print;
         }
      print "\n";
    }