[ViewVC] Diff of: cvs/kgsueme/kgsueme/app.pl

Comparing kgsueme/kgsueme/app.pl (file contents):
Revision 1.14 by pcg, Sat May 29 06:38:27 2004 UTC vs.
Revision 1.15 by root, Sun May 30 19:21:45 2004 UTC

    # initialize new socket and connection
    my $sock = new IO::Socket::INET PeerHost => KGS::Protocol::KGSHOST, PeerPort => KGS::Protocol::KGSPORT
       or die "connect: $!";
-   $sock->blocking(1);
+   $sock->blocking (1);
-   $self->{conn}->handshake($sock);
+   $self->{conn}->handshake ($sock);
-   $sock->blocking(0);
+   $sock->blocking (0);
    my $input; $input = add_watch Glib::IO fileno $sock, [G_IO_IN, G_IO_ERR, G_IO_HUP], sub {
       # this is dorked
       my $buf;
       my $len = sysread $sock, $buf, 16384;
       if ($len) {
-         $self->{conn}->feed_data($buf);
+         $self->{conn}->feed_data ($buf);
       } elsif (defined $len || (!$!{EINTR} and !$!{EAGAIN})) {
          warn "disconnected";#d#
          remove Glib::Source $input;
          $self->event_disconnect;
       }
    $userpic{$msg->{name}} = $msg->{data};
    $_->($userpic{$msg->{name}}) for @{delete $userpic_cb{$msg->{name}} || []};
 }
-sub event_disconnect { }
+sub event_disconnect {
+   $_->destroy
+      for values %{delete $self->{game} or {}}, values %{delete $self->{room} or {}};
+}
 sub open_game {
    my ($self, %arg) = @_;
    ($self->{game}{$arg{channel}} ||= new game %arg, conn => $self->{conn}, app => $self)

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