|
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.
|
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |