#!/usr/athena/bin/perl
#
# quick and dirty cleanup program for use with Barton
#
# first "telnet library.mit.edu | tee log"
# then  "barton.cleanup < log > cleanlog"
#
# Created for the MIT Libraries by Eric Celeste, April 1997.
#
# 970407  (efc)  first version
# 970415  (efc)  stripped out \r and ESC-[ sequences

while (<>) {
	
	s/\r//g;
	s/\033\[..//g;
	
	$printing = 0 if /^Finished printing/;

	print if $printing;

	$printing = 1 if /send to auxiliary printer/;

}