<br />
<b>Warning</b>:  session_start(): open(/var/lib/php/sessions/sess_rinhvu6bl33ht6np4foahcksak, O_RDWR) failed: No space left on device (28) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
<br />
<b>Warning</b>:  session_start(): Failed to read session data: files (path: /var/lib/php/sessions) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
!747
!actionListener {
!awt {
!pcall

m {
  static JTable tbl;
  static int delay = 3000;
  static boolean withVMs = true;
  
  p {
    tbl = showTable("Bots Table");
    getFrame(tbl).setBounds(10, 10, 400, 400);
    
    addTalkButton();

    updateBotList();
    installTimer(tbl, runnable { updateBotList(); }, delay);
  }
  
  static new MonoThread update;
  
  !include #1001434 // MonoThread
  
  static void updateBotList() {
    update.run(runnable {
      new L<L<S>> bots;
      for (ProgramScan.Program p : quickBotScan()) {
        S botName = firstPartOfHelloString(p.helloString);
        boolean isVM = startsWithIgnoreCase(p.helloString, "This is a JavaX VM.");
        boolean shouldRecurse = startsWithIgnoreCase(botName, "Multi-Port") || isVM;
        
        if (withVMs || !isVM)
          bots.add(litlist(botName, "" + p.port));

        if (shouldRecurse) pcall {
          Map<Number, S> subBots = (Map) unstructure(sendToLocalBot(p.port, "list bots"));
          for (Number vport : subBots.keySet())
            bots.add(litlist(subBots.get(vport), p.port + "/" + vport));
        }
      }
      sortByFirstColumn(bots);
      fillTableWithStrings(tbl, bots, "Hello message", "Port");
    });
  }
  
  static void addTalkButton() {
    awt {
      JButton btn = new JButton("Talk to bot");
      btn.addActionListener(new ActionListener() {
        public void actionPerformed(ActionEvent e) {
          pcall {
            S value = getSelectedColumn(tbl, 1);
            if (value != null) {
              startBot("User Request List Bot", "#1001706");
              sendToLocalBot("User Request List Bot", "add *", "talk to bot " + quote(getSelectedColumn(tbl, 1)));
              startBot("Execute \"talk to bot\" commands bot.", "#1001709");
            }
          }
        }
      });
      addToWindow(tbl, btn);
    }
  }
}