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

Comparing AnyEvent-MP/eg/chat_client (file contents):
Revision 1.10 by root, Mon Aug 31 10:07:04 2009 UTC vs.
Revision 1.11 by root, Mon Aug 31 13:18:06 2009 UTC

… …
7use AnyEvent::MP; 7use AnyEvent::MP;
8use AnyEvent::MP::Global; 8use AnyEvent::MP::Global;
9 9
10my $nick = shift; 10my $nick = shift;
11 11
12configure "anon/"; 12configure;
13 13
14$| = 1; 14$| = 1;
15
16my $port = port;
17 15
18my ($client, $server); 16my ($client, $server);
19 17
20sub server_connect { 18sub server_connect {
21 my $servernodes = AnyEvent::MP::Global::find "eg_chat_server" 19 my $servernodes = AnyEvent::MP::Global::find "eg_chat_server"
22 or return after 1, \&server_connect; 20 or return after 1, \&server_connect;
23 21
24 print "\rconnecting...\n"; 22 print "\rconnecting...\n";
25 23
26 $server = $servernodes->[0];
27
28 $client = port { print "\r \r@_\n> " }; 24 $client = port { print "\r \r@_\n> " };
29 mon $client, sub { 25 mon $client, sub {
30 print "\rdisconnected @_\n"; 26 print "\rdisconnected @_\n";
31 &server_connect; 27 &server_connect;
32 }; 28 };
33 29
30 $server = $servernodes->[0];
34 snd $server, join => $client, $nick; 31 snd $server, join => $client, $nick;
35 mon $server, $client; 32 mon $server, $client;
36} 33}
37 34
38server_connect; 35server_connect;

Diff Legend

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