use IO::Socket;
use IO::Select;
my $listener =
IO::Socket::INET->new( LocalPort => 8008, Listen => 5, Reuse => 1 );
die "Can't create socket for listening: $!" unless $listener;
print "Listening for connections on port 8008\n";
my $readable = IO::Select->new; # Create a new IO::Select object
$readable->add($listener); # Add the listener to it
my %names; #Holds all the names, connected to their sockets
#Connection => Name
my %names2; #Name => Connection number
#my %connects; #
my $count; #Used to display how many people have identified
my %connects; #Holds the connection number of the current user
#Connection => Connection number
my $connect; #Temp var for every loop. Tells what number the connection is
my $connect_count = 0; #A counter to assign the connection number
my @msgs; #Holds messages
while(1) {
# Get a list of sockets that are ready to talk to us.
my ($ready) = IO::Select->select($readable, undef, undef, undef);
foreach my $s (@$ready) {
# Is it a new connection?
if($s == $listener) {
# Accept the connection and add it to our readable list.
my $new_sock = $listener->accept;
$readable->add($new_sock) if $new_sock;
print $new_sock "Hello, Enter your name\r\n";
} else { # It's an established connection
$connect = $connects{$s};
if (defined $msgs[$connect]) {
print $s "$msgs[$connect]";
}
my $buf = <$s>; # Try to read a line
# Was there anyone on the other end?
if( defined $buf ) {
#if they havent yet entered their name, the first thing they enter will be their name
if (!defined $names{$s}) {
#chomp $buf;
$buf =~ /^(\w+)/;
#print "$1\n";
$names{$s} = "$1";
print $s "Name accepted\r\n";
$count = keys %names;
print $s "There are $count people connected\r\n";
@name = values %names;
print $s "@name\r\n";
$connect_count++;
$connects{$s} = $connect_count;
$names2{$buf} = $connect_count;
#%connects = reverse %names
} elsif ($buf =~ /goodbye/i) {
#if they think the server is not good enough for them they can leave
#and this is where they do it
print $s "See you later!\n";
#$names{$s} = undef;
delete $names{$s};
#%connects = reverse %names
$readable->remove($s);
$s->close;
} else {
$connect = $connects{$s};
if ($buf =~ /^(\w+):(.+)/) {
print "Names2 of $1: $names2{Peter}\n";
print %names2;
print "\n";
#if (defined $connects{$1}) {
$q = $names2{$1};
print "$q\n";
$msgs[$q] = "$names{$s}: $2\r\n";
#print $s "$msgs[$q]";
#}
} else {
print $s "$names{$s}: There are $b people\r\n";
}
#print $s "You said: $buf\n";
}
} else { # The client disconnected.
$readable->remove($s);
$s->close;
print STDERR "Client Connection closed\n";
$count--;
delete $names{$s};
#%connects = reverse %names
}
}
}
}