#!/usr/bin/perl
##################
#name: slut
#by: jasper
##################
use Class::Struct;
use Time::localtime;
use IO::Socket;
use strict;

#####################
#client configuration
my $server = "localhost";
my $port = 7809;
my $nick = shift || "slut";

struct( slut => [
        server  => '$',
        port => '$',
        nick => '$',
        usr_crypto => '%', #stores remote nick (key) and session encryption key (value)
        bytes_o => '$',
       	bytes_i => '$',
       	sock => '$'
    ]);
	    		    
print "+ - -\n* Slut v0.1a\n* By: Jasper\n+ - -\n\n";

my $sock = IO::Socket::INET->new (PeerAddr => $server,
                                PeerPort => $port,
                                Proto => "tcp",
                                Reuse => 1)or die "Can't Connect to $server!\n";
		     
my $slut = slut->new(server => $server,
		    port => $port,
		    nick => $nick,
		    sock => $sock);
		    
my $buff;
print $sock "hey!";   
while ($sock->recv($buff,256)) {
	chomp($buff);

	print "$buff\n";
		
	$slut->bytes_i =+ length($buff);
	#$slut->bytes_o =+ length($data);
}