#!/usr/bin/perl

# $Id: autozdravic.pl,v 1.3 2003/11/09 19:26:31 nepto Exp $

use IO::Handle;

select(STDIN); 
$|=1;
select(STDOUT); 
$|=1;
select(STDERR); 
$|=1;

$pass_written = 0;

while(<STDIN>)
{
#		$_ =~ s/^(.+)Ti povedal(.+)$/^$1tells you$2/;
		if(/^\[40m\[37m\[1m\[32m\[5m(.+)\[0m\[1m\[32m sa ti prave prihlasil!\[0m/) {
				printf STDERR ".tell %s Vitaj!\n", $1;
		}
		if(/Connection closed by foreign host./) {
				printf STDOUT "%s", $_;
				last;
		}
		printf STDOUT "%s", $_;
#		if (/Time: (..):(..):(..)/) {
#				$hours = $1;
#				$minutes = $2;
#				$seconds = $3;
#				printf STDOUT "hours=%s min=%s sec=%s\n", $1, $2, $3;
#		}


}