#!/usr/athena/bin/perl

require '/mit/mkgray/chat/chat2.pl';

print("Opening a sh...\n");
$bsh = &chat'open_proc('sh');
print("Opened  a sh\n");
$foo = &listen(10);
print ("Foo: $foo\n");
while(1){
	print("bogush:>  ");
	$inp = (<STDIN>);
	&chat'print($inp);
	$x='';
	while(length($y = &chat'expect(5, '(.|\n)+', '$&'))){
		$x .=$y;
		print(STDERR ".");
	}
	print("Output:  $x\n");
}
print $foo;

sub listen {
        local($secs) = @_;
        local($return,$tmp) = "";
        while (length($tmp = &chat'expect($secs, '(.|\n)+', '$&'))) {
                print $tmp if $trace;
                $return .= $tmp;
        }
	$return;
}