[ViewVC] Annotation of: cvs/AnyEvent-MP/eg/chat_server

#!/opt/bin/perl

use common::sense;
use AnyEvent::MP;

initialise_node;

my %clients;

sub msg {
   print "relaying: $_[0]\n";
   snd $_, $_[0]
      for values %clients;
}

sub client_connect {
   my ($client, $name) = @_;

   mon $client;
   mon $client, sub {
      delete $clients{$client};
      msg "$name (quits, @_)";
   };

   $clients{$client} = $client;

   msg "$name (joins)";

   rcv $SELF, sub {
      msg "$name: $_[0]";
      0
   };
}

warn "server ready.\n";

AE::cv->recv;
Revision:	1.4
Committed:	Fri Aug 14 15:38:02 2009 UTC (17 years, 1 month ago) by root
Branch:	MAIN
Changes since 1.3:	+25 -30 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.2	#!/opt/bin/perl
2
3	root	1.4	use common::sense;
4	elmex	1.1	use AnyEvent::MP;
5
6	root	1.4	initialise_node;
7	elmex	1.3
8	root	1.4	my %clients;
9	root	1.2
10	root	1.4	sub msg {
11			print "relaying: $_[0]\n";
12			snd $_, $_[0]
13			for values %clients;
14			}
15
16			sub client_connect {
17			my ($client, $name) = @_;
18
19			mon $client;
20			mon $client, sub {
21			delete $clients{$client};
22			msg "$name (quits, @_)";
23			};
24	elmex	1.1
25	root	1.4	$clients{$client} = $client;
26	elmex	1.1
27	root	1.4	msg "$name (joins)";
28	elmex	1.3
29	root	1.4	rcv $SELF, sub {
30			msg "$name: $_[0]";
31	root	1.2	0
32	root	1.4	};
33			}
34	elmex	1.1
35	root	1.4	warn "server ready.\n";
36	elmex	1.1
37	root	1.4	AE::cv->recv;