Lösung mit einem Prozeß XI

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]

chatserver.pl
sub quit {
   my $handle = shift;
   my $handler = $handler{$handle};
   $read->remove($handle);
   $write->remove($handle) if @{$handler->{obuf}} > 0;
   delete $handler{$handle};
   delete $nickname{$handler->{nickname}};
   $handle->close;
   broadcast($handler->{nickname}, "has left.")
      if $handler->{nickname} ne "";
}

*Wenn irgendwelche Fehler auftreten oder eine Verbindung beendet wird, dann räumt quit auf.
 

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003