Chat server: Difference between revisions
m
→{{header|Ada}}
(add Ada) |
m (→{{header|Ada}}) |
||
Line 63:
Shutdown (Sock, Both);
All_Clients.Delete (Sock_ID);
Write (To_String (Name) & " left.");
end Client_Task;
|