Vyššie na [Platon] / scripts / ep / greeter

Changed $Id$ for $Platon$.

#!/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;
#        }


}