#!/usr/pkg/bin/perl
use IO::Pty;
use POSIX 'setsid';

$| = 1;

my $username = "googlbot";
my $password = "xxx";
my $hostname = "tty.freeshell.org";

my $shell = do_cmd("telnet", $hostname);

waitfor("login:");
print $shell $username, "\n";
waitfor("Password:");
print $shell $password, "\n";
waitfor("key:");
print $shell "\x08";
waitfor("\[CONTINUE\]");
print $shell "\n";
waitfor("googlbot> ");
print $shell "com\n";

print $shell "gbotlab\n";

while(1) {
	$_ = <$shell>;
	print $shell "v8===D\n" if /!penis/;
	print $shell "v( o Y o )\n" if /!tits/;
	print $shell "v( * Y * )\n" if /!boobs/;
	print $shell "v( o Y O )\n" if /!carbsgf/;
	print;
}

sub waitfor {
	my $str = shift;
	do {
		sysread($shell, $_, 512, length($_));
	} until (/$str/);
	print;
}

sub do_cmd {
	my ($cmd, @args) = @_;
	my $pty = IO::Pty->new;
	defined (my $child = fork)
		or die "fork: $!";
	return $pty if $child;
	setsid();
	my $tty = $pty->slave;
	close $pty;
	STDIN->fdopen($tty, "<")
		or die "STDIN: $!";
	STDOUT->fdopen($tty, ">")
		or die "STDOUT: $!";
	STDERR->fdopen($tty, ">")
		or die "STDERR: $!";
	close $tty;
	$| = 1;
	exec $cmd, @args;
	die "exec: $!";
}