Check if connection ok on cid for eL^Topo

ON *:EXIT: {
  var %log = connections.log
  if ($isfile(%log)) { .remove $qt(%log) }
}

ON *:START: {
  ; auto einai proeretiko
  var %log = connections.log
  if ($isfile(%log)) { .remove $qt(%log) }
}

ON *:CONNECT: {
  var %log = connections.log
  write $qt(%log) $cid
}

alias check_window_con {

  ; Usage: $check_window_con(CID)

  if (!$1) { return }
  var %log = connections.log
  if (!$read(%log,ntw,$1)) { return 0 }
  else { return 1 }
}