parse ntuh live ER status board

ntuh.ls

require! <[cheerio request fs moment-timezone]>

mapping = do
  等候掛號人數: \pending_register
  等候看診人數: \pending_doctor
  等候住院人數: \pending_ward
  等候ICU人數: \pending_icu
  等候推床人數: \pending_bed

data = {}
err, {body}? <- request 'https://reg.ntuh.gov.tw/EmgInfoBoard/NTUHEmgInfo.aspx'
throw err if err
$ = cheerio.load body
$('form#form1').find 'tr' .each ->
  [key, val] = $(@).find \td .map -> $ @ .text!
  if val
    key -= /：/
    val -= /人/
    if mapping[key]
      data[that] = +val
    else
      throw "unknownkey: #key"

  else if key is /資料擷取時間/
    [_, year, month, day, ampm, hour, minute, second]:al = key.match // (\d+)/(\d+)/(\d+)\s*(上午|下午)\s*(\d+):(\d+):(\d+) //
    hour = +hour + 12 if ampm is \下午
    data.update_time = moment-timezone.tz {year, month: month-1, day, hour, minute, second}, 'Asia/Taipei' .valueOf! /1000ms


console.log JSON.stringify data, null 4