Connection from 127.0.0.1:2002
Invalid value for shared scalar at ./threads.pl line 47.

##</code><code>##

#!/usr/bin/perl -w
$|++;
use strict;
use IO::Socket;
use threads;
use threads::shared;

our %clients : shared;
our $i : shared = 0;

my $log  = "$ENV{HOME}/games/aardwolf/.aard.log";
my $port = shift;

my $server = IO::Socket::INET->new(
    LocalPort => $port,
    Proto     => 'tcp',
    Listen    => 1
) or die "Couldn't be a tcp server on port $port: $@\n";

threads(\&handle_clients($server))->detach;

open LOG, $log or die $!;

while (my $line = <LOG>) {
    lock %clients;
    for my $i (keys %clients) {
	unless (defined $clients{$i}->connected) {
	    delete $clients{$i};
	    next;
	}

	$clients{$i}->print($line);
    }
}

close LOG;

sub handle_clients {
    my $server = shift;
    while (my $client = $server->accept) {
	lock $i; ++$i;

	my $client_addr = peerinfo($client);
	print "Connection from $client_addr\n";

	lock %clients;
	$clients{$i} = $client;
    }
}

sub peerinfo {
    my $client = shift;
    
    my $other_end      = getpeername($client);
    my ($port, $iaddr) = unpack_sockaddr_in($other_end);
    my $ip             = inet_ntoa($iaddr);

    return "$ip:$port";
}