#!/usr/bin/perl

#   this perl pgm adds a .END line to the end of the SLC's HYDSLR report
#   The report from the SLC RFC usually does not end correctly because the
#   NWSTG software cannot handle the size of this bulletin.  When the next
#   bulletin is a .B format from another RFC, all the reports were lost.

#   file /nfsuser/g03/wx53sk/shef/scripts/fixslr.pl

undef $/ ;
$/ = "\x0d\x0a\x03" ;    # redefine the end of a logical record

while (<>)
  { if (/SXUS55 KSTR/)
      { print $_,"\n.END \n" ; }
    else
      { print $_; }
  }