<br />
<b>Warning</b>:  session_start(): open(/var/lib/php/sessions/sess_cmkjasdjrd7411efuhihd1ghfh, 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 />
!7

set flag InputChooser_verbose.

sclass URLChecker extends DynTextArea {
  InputChooser inputChooser = new(this);
  S url;
  bool mayQuery;
  Map<S, L<S>> headers;
  long size;
  PersistableThrowable loadError;
  
  JComponent visualize() {
    ret northAndCenter(wrap(inputChooser), super.visualize());
  }
  
  void update {
    temp enter();
    if (!inputChooser.update()) ret;
    
    fS input = inputChooser.input();
    if (!isURL(input)) ret;
    if (!setField(url := input)) ret;
    actualUpdate();
  }
  
  void actualUpdate {
    temp enter();
    setFields(mayQuery := false, headers := null, loadError := null);
    clearText();
    printToText("URL found: " + url);
    setField(mayQuery := mayQueryURLByHead(url));
    printToText("May query: " + yn(mayQuery));
    if (!mayQuery) ret;
    // TODO: also get content type
    try {
      setField(headers := getURLHeadersByHEAD(url));
    } catch e {
      printShortException(e);
      setField(loadError := persistableThrowable(e));
    }
    if (headers != null) {
      printToText("Headers:");
      for (S key, L<S> values : headers) {
        for (S value : values)
          printToText(key + " = " + value);
      }
    }
  }
  
  bool mayQueryURLByHead(S url) {
    true;
  }
}