ponyapi/ponyapi.nim

128 lines
2.7 KiB
Nim

import asyncdispatch
import episode
import future
import jester
import json
import random
import strutils
import times
var
episodes: seq[Episode]
for line in lines "./fim.list":
var
ep: Episode
splitLine = line.split " "
timestr = splitLine[1]
seasonstr = splitLine[2]
episodestr = splitLine[3]
is_movie = seasonstr == "99"
name = splitLine[4 .. ^1].join " "
ep = Episode(name: name,
air_date: timestr.parseInt,
season: seasonstr.parseInt,
episode: episodestr.parseInt,
is_movie: is_movie)
episodes = episodes & ep
proc `%%`(ep: Episode): JsonNode =
## Pack an episode for PonyAPI clients.
%*
{
"episode": ep,
}
proc `%%`(eps: seq[Episode]): JsonNode =
## Pack a sequence of episodes to a JsonNode for PonyAPI clients.
%*
{
"episodes": eps,
}
proc `%!`(why: string): JsonNode =
## Make an error object
%*
{
"error": why
}
let myHeaders = {
"Content-Type": "application/json",
"X-Powered-By": "Nim and Jester",
}
settings:
port = 5000.Port
bindAddr = "0.0.0.0"
routes:
get "/":
"http://github.com/Xe/PonyAPI".uri.redirect
get "/all":
resp Http200, myHeaders, pretty(%%episodes, 4)
get "/newest":
var
now = getTime()
ep: Episode
for episode in episodes:
var then = times.fromSeconds(episode.air_date)
if now < then:
ep = episode
break
resp Http200, myHeaders, pretty(%%ep, 4)
get "/random":
resp Http200, myHeaders, pretty(%%episodes.randomChoice(), 4)
get "/season/@snumber":
var
season: int = @"snumber".parseInt
eps: seq[Episode] = lc[x | (x <- episodes, x.season == season), Episode]
if eps.len == 0:
resp Http404, myHeaders, pretty(%!"No episodes found", 4)
else:
resp Http200, myHeaders, pretty(%%eps, 4)
get "/season/@snumber/episode/@epnumber":
var
season: int = @"snumber".parseInt
enumber: int = @"epnumber".parseInt
ep: Episode
for episode in episodes:
if episode.season == season:
if episode.episode == enumber:
ep = episode
if ep.air_date == 0:
resp Http404, myHeaders, pretty(%!"Not found", 4)
else:
resp Http200, myHeaders, pretty(%%ep, 4)
get "/search":
var
query = @"q".toLower
if query == "":
halt Http406, myHeaders, pretty(%!"Need to specify a query", 4)
var
eps: seq[Episode] =
lc[x | (x <- episodes, x.name.toLower.contains query), Episode]
if eps.len == 0:
resp Http404, myHeaders, pretty(%!"No episodes found", 4)
else:
resp Http200, myHeaders, pretty(%%eps, 4)
runForever()