| Revision: | 1.9 |
| Committed: | Sat Sep 5 21:16:59 2009 UTC (17 years ago) by root |
| Branch: | MAIN |
| CVS Tags: | rel-1_30, rel-1_1, rel-1_2, rel-1_28, rel-1_29, rel-1_24, rel-1_26, rel-1_27, rel-1_21, rel-1_22, rel-1_23 |
| Changes since 1.8: | +1 -1 lines |
| Log Message: | *** empty log message *** |
| # | Content |
|---|---|
| 1 | #!/opt/bin/perl |
| 2 | |
| 3 | # Usage: ./chat_server |
| 4 | # implement a chat server using "traditional message passing" |
| 5 | |
| 6 | use common::sense; |
| 7 | use AnyEvent::MP; |
| 8 | use AnyEvent::MP::Global; |
| 9 | |
| 10 | configure; |
| 11 | |
| 12 | my %clients; |
| 13 | |
| 14 | sub msg { |
| 15 | print "relaying: $_[0]\n"; |
| 16 | snd $_, $_[0] |
| 17 | for values %clients; |
| 18 | } |
| 19 | |
| 20 | our $server = port; |
| 21 | |
| 22 | rcv $server, join => sub { |
| 23 | my ($client, $nick) = @_; |
| 24 | |
| 25 | $clients{$client} = $client; |
| 26 | |
| 27 | mon $client, sub { |
| 28 | delete $clients{$client}; |
| 29 | msg "$nick (quits, @_)"; |
| 30 | }; |
| 31 | msg "$nick (joins)"; |
| 32 | }; |
| 33 | |
| 34 | rcv $server, privmsg => sub { |
| 35 | my ($nick, $msg) = @_; |
| 36 | msg "$nick: $msg"; |
| 37 | }; |
| 38 | |
| 39 | grp_reg eg_chat_server => $server; |
| 40 | |
| 41 | warn "server ready.\n"; |
| 42 | |
| 43 | AE::cv->recv; |