whois := method(host,
socket := Socket clone \
setHostName("rs.internic.net") setPort(43)
socket connect streamWrite(host, "\n")
while(socket streamReadNextChunk, nil)
return socket readBuffer
)
IO Справочник v0.05 © 2007-2024 Igor Salnikov aka SunDoctor