Revision: | 1.4 |
Committed: | Fri Aug 14 15:38:02 2009 UTC (14 years, 9 months 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; |