#!/usr/bin/perl -w

# Copyright (c) 2010 Nokia Corporation and/or its subsidiary(-ies).

# All rights reserved.

# This component and the accompanying materials are made available

# under the terms of "Eclipse Public License v1.0"

# which accompanies this distribution, and is available

# at the URL "http://www.eclipse.org/legal/epl-v10.html".

#

# Initial Contributors:

# Nokia Corporation - initial contribution.

#

# Contributors:

#

# Description:

#

use strict;

use IO::Socket qw(:DEFAULT :crlf);

use constant DEFAULT_ADDR	=> '192.168.3.100';

use constant MY_ECHO_PORT	=> 5000;

my ($byte_out, $byte_in) = (0,0);

$/ = "\n";

$| = 1;

print "\nUsage: client.pl tcp|udp [ip] [port]\n\n";

my $quit = 0;

$SIG{INT}  = sub { $quit++ };

my $tcp = shift;

my $address = shift || DEFAULT_ADDR;

my $port = shift || MY_ECHO_PORT;

print "\nTry to connect to a $tcp server of $address:$port...\n";

my $sock = IO::Socket::INET->new(PeerAddr => $address,

                                 PeerPort => $port,

                                 Proto  => $tcp)

            or die "Can't connect: $!\n";

while (my $msg_out = <>)

{

    last if $msg_out =~ /^\.$/;

    print "out: $msg_out\n";

    $sock->send($msg_out);

    my $msg_in;

    $sock->recv($msg_in, 10000);

    print "in: $msg_in\n";

}

close $sock;