gistfile1.nim

import asynchttpserver, httpclient, parseurl, asyncdispatch, strtabs, strutils

var server = newAsyncHttpServer()

proc onRequest(req: TRequest) {.async.} =
  var client = newAsyncHttpClient()
  var htmlResp = ""
  try:
    let reqResp = await client.get(req.url.path)

    htmlResp =
      if reqResp.status.startsWith("200"): "It's up!"
      else: "It's down :("

  except EOS:
    htmlResp = "It's down :("
  let headers = {"Content-Type": "text/html"}
  echo("Replying with: ", htmlResp)
  await req.respond(Http200, htmlResp, headers.newStringTable)


server.serve(TPort(8080), onRequest)

runForever()