#!/usr/bin/perl
# $Id: betagamma_handler,v 1.2.2.1 2001/10/11 01:18:52 mpashniak Exp $
# Copyright 2001 Sun Microsystems, Inc.  All rights reserved.

$| = 1;

# sleep half a second.  we need the output to be ordered.
sleep 0.5;

while(<>)
{
	print STDERR "betahandler: ", $_;
	if (/^200 READY/)
	{
		last;
	}
}

print STDERR "betahandler: ", "SET 3 name=bar\n";
print "SET 3 name=bar\n";

while (<>)
{
	print STDERR "betahandler: ", $_;
	if (/^4/ || /^2/)
	{
		last;
	}
}

print STDERR "betahandler: ", "BADDATA 0 beta bar\n";
print "BADDATA 0 beta bar\n";

print STDERR "betahandler: ", "BYE SUCCESS\n";
print "BYE SUCCESS\n";

while (<>)
{
	print STDERR "betahandler: ", $_;
}

