#!/usr/local/bin/perl

use IO::Socket;
use Time::localtime;

if ($#ARGV != 1) {die "Pouziti: klient num x[+-*/]y\n\n"}

$IDnum = $ARGV[0];
$param = $ARGV[1];

$seradr = "labe.felk.cvut.cz";
$port = 7654;
$klID = "KL".$IDnum;

$server = IO::Socket::INET->new(proto=>"tcp", PeerAddr=>$seradr, PeerPort=>$port, Reuse=>1)
or die "$klID: [",ctime,"] Nelze vytvorit spojeni s ",$seradr,".\n\n";

$server->autoflush(1);

# Odeslani pozadavku na server
print "$klID: [",ctime,"] Odesilam pozadavek: CALC $klID $param\n";
print $server "CALC $klID $param\n";

	$odp = <$server>;
	print "$klID: [",ctime,"] Prijmuta odpoved: $odp\n";
	@resp = split(' ',$odp);
	$prefix = $resp[0];
	$vysl = $resp[1];

	if ($prefix ne "RSLT") {
		print "$klID: [",ctime,"] Neocekavany format odpovedi.\n";
	} else {
		print "$klID: [",ctime,"] Vysledek: $param = $vysl.\n";
	}		

print "$klID: [",ctime,"] Rusim spojeni se serverem. Koncim.\n";
close $server;