程嶏清单 17-9.txt

< linux网络编程工具>>配套源码

程序清单17-9：new_client.pl
sub _new_client {
        my $sock = $main_socket->accept();
    my $conn = bless {
          'sock' =>  $sock,
          'state' => 'connected'
    }, $g_pkg;
      my $rcvd_notification_proc = &$g_login_proc ($conn);
  if ($rcvd_notification_proc) {
          $conn->{rcvd_notification_proc} = $rcvd_notification_proc;
          my $callback = sub {_rcv($conn)};
          set_event_handler ($sock, "read" => $callback);
    } else {  # Login failed
          $conn->disconnect();
      }
}