18 lines
414 B
Text
18 lines
414 B
Text
use Net;
|
|
use Concurrency;
|
|
|
|
bundle Default {
|
|
class GoodByeWorld {
|
|
function : Main(args : String[]) ~ Nil {
|
|
server := TCPSocketServer->New(8080);
|
|
if(server->Listen(5)) {
|
|
while(true) {
|
|
client := server->Accept();
|
|
client->WriteString("<html>\n<body>\nGoodbye, world!\n</body>\n</html>\n");
|
|
client->Close();
|
|
};
|
|
};
|
|
server->Close();
|
|
}
|
|
}
|
|
}
|