Albertphp's Blog

Client Program.

 

 

#!/usr/bin/perl -w 

# serIO.pl 

# Client Program

#——————— 

use strict;

use IO::Socket;

use Sys::Hostname;

print “>> Client Program <<\n\n”;

 

# Create a new socket

my $sock = new IO::Socket::INET(

                  PeerAddr => ‘localhost’,

                  PeerPort => 4587,

                  Proto    => ‘tcp’);

 

#Check for connection

$sock or die “no socket :$!”;

 

#print username

print “Enter the username : “;

 

#get the value for username

chop (my $username = <STDIN>);

 

#send username to the server

print $sock “USERNAME,”,$username,”\n”;

 

#get the reply from the server

my $usernameFlag = scalar <$sock>;

 

 

if ( $usernameFlag == “1″ ) 

{

print “Enter the password : “;

chop (my $password = <STDIN>);

print $sock “PASSWORD,”,$password,”\n”;

my $passwordFlag = scalar <$sock>;

if ( $passwordFlag == “1″ ) {

print “START POSTING DATA\n”;

 

my $def_msg = “Enter data to be sent : “;

print $def_msg;

my $data = “\n”;

while($data)

{

chop (my $data = <STDIN>);

if ( ($data eq “exit”) ) {

print $sock “exit”,”\n”;

print scalar <$sock>,”\nYou have exited from sending messages\n”;

exit 1;

}

if ( $data ne “” ) {

print $sock “DATA,”,$data,”\n”;

my $dataFlag = scalar <$sock>;

print $dataFlag;

}

print $def_msg;

}

}

else

{

print “Sorry, wrong password.\n”;

}

}

else

{

print “Sorry, wrong username.\n”;

exit 1;

}

 

#print $username;

exit;