3 # testmsg.pl - Used for testing the Msg.pm module
4 # Invoke as testmsg.pl {-client|-server}
10 sub rcvd_msg_from_server {
11 my ($conn, $msg, $err) = @_;
13 die "Strange... shouldn't really be coming here\n";
17 my $incoming_msg_count=0;
19 sub rcvd_msg_from_client {
20 my ($conn, $msg, $err) = @_;
23 my $len = length ($msg);
29 # Unconditionally accept
30 \&rcvd_msg_from_client;
33 my $host = 'localhost';
36 foreach $prog (@ARGV) {
37 if ($prog eq '-server') {
38 Msg->new_server($host, $port, \&login_proc);
39 print "Server created. Waiting for events";
41 } elsif ($prog eq '-client') {
42 my $conn = Msg->connect($host, $port,
43 \&rcvd_msg_from_server);
45 die "Client could not connect to $host:$port\n" unless $conn;
46 print "Connection successful.\n";
48 my $msg = " " x 10000;
49 for ($i = 0; $i < 100; $i++) {
50 print "Sending msg $i\n";
51 $conn->send_now($msg);