ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent-MP/eg/chat_server
(Generate patch)

Comparing AnyEvent-MP/eg/chat_server (file contents):
Revision 1.9 by root, Sat Sep 5 21:16:59 2009 UTC vs.
Revision 1.10 by root, Tue Mar 6 16:54:49 2012 UTC

… …
3# Usage: ./chat_server 3# Usage: ./chat_server
4# implement a chat server using "traditional message passing" 4# implement a chat server using "traditional message passing"
5 5
6use common::sense; 6use common::sense;
7use AnyEvent::MP; 7use AnyEvent::MP;
8use AnyEvent::MP::Global;
9 8
10configure; 9configure;
11 10
12my %clients; 11my %clients;
13 12
… …
34rcv $server, privmsg => sub { 33rcv $server, privmsg => sub {
35 my ($nick, $msg) = @_; 34 my ($nick, $msg) = @_;
36 msg "$nick: $msg"; 35 msg "$nick: $msg";
37}; 36};
38 37
39grp_reg eg_chat_server => $server; 38db_set eg_chat_server => $server;
40 39
41warn "server ready.\n"; 40warn "server ready.\n";
42 41
43AE::cv->recv; 42AE::cv->recv;
43

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines