!7

!include #1022531 // DynGazelleWebServer

// we want our own structure() because of DynamicObject
module GazelleWebServer > DynGazelleWebServer {
  Request newRequest() { ret new Request; }
  
  class Request extends DynGazelleWebServer.Request {
    O serve(S uri, SS params) {
      S domain = serveHttp_domainName();
      if (swicOneOf(domain, "ontology.", "monkey.")) {
        // TODO: only works with text/html
        S answer = (S) callF(dm_get('ontologyWebServer, 'serveFunction), uri, params);
        if (answer != null) ret answer;
      }
      
      if (!swic(domain, "gazelle.")) {
        print("FREAK domain: " + domain);
        try object spamTest();
        ret serveRedirect("https://BotCompany.de");
      }
        
      ret super.serve(uri, params);
    }
  }
}