/*
 * Anmerkung alle Funktionsaufrufe prüfen, ob der return Wert < 0 ist.
 * Sollte das der Fall sein beenden diese das Programm.
 */

fd = Socket( IPv4, SOCK_STREAM, TCP )
Bind( fd, any, len( any ) )
Listen( fd, 1 )

for (;;)
{
  cfd = accept( fd, client, len(client) )
  glen = 0
  while( ( len = Recv( cfd, buffer, len(buffer), 0) ) > 0 )
  {
    glen += len
  }
  
  print inet_ntop( client.ip ) + "port:" + ntohs( client.port ) + " read: " + glen
  Close( cfd )
}

Close( fd )