dialog ServerListener {
  title "ServerListener"
  size -1 -1 112 96
  option dbu
  text "Status:", 1, 8 8 22 6
  text "Not listening", 2, 32 8 30 6
  button "Listen", 3, 8 16 30 10
  button "Stop listening", 4, 40 16 38 10, disable
  text "Clients connected:", 5, 8 28 46 6
  list 6, 8 36 94 40, size
  button "Disconnect", 7, 8 80 30 10, disable
  button "Ping", 8, 40 80 22 10, disable
  button "Send...", 9, 64 80 22 10, disable
  text "Port:", 10, 64 8 14 6
  text "6667", 11, 80 8 22 6
}

on *:dialog:ServerListener:init:0: {
  if ($sock(ServerListener).status == listening) {
    //did -ra ServerListener 2 Listening
    //did -e ServerListener 4
    //did -b ServerListener 3
  }
  else {
    //did -ra ServerListener 2 Not Listening
    //did -b ServerListener 4
    //did -e ServerListener 3
  }
  if ($sock(ServerListener).port) {
    //did -ra ServerListener 11 $sock(ServerListener).port
  }
}

on *:dialog:ServerListener:sclick:3: {
  //socklisten ServerListener 6667
  //did -b ServerListener 3
  //did -e ServerListener 4
  //did -ra ServerListener 2 Listening
}

on *:dialog:ServerListener:sclick:4: {
  //sockclose ServerListener
  //did -e ServerListener 3
  //did -b ServerListener 4
  //did -ra ServerListener 2 Not listening
}

on *:socklisten:ServerListener: //echo -a Connection attempt | //sockaccept $sockname | //did -ra ServerListener 6 $sockname