#! stdtmpl # #template `%`(idx: expr): expr {.immediate.} = # row[idx] #end template # # #proc genThreadsList(c: var TForumData, count: var int): string = # const query = sql"select id, name, views, modified from thread order by modified desc limit ?, ?" # const threadId = 0 # const name = 1 # const views = 2 # # result = "" # count = 0

Topic

Users

Details

Activity

# for row in rows(db, query, $((c.pageNum-1) * ThreadsPerPage), $ThreadsPerPage): # inc(count)

${xmlEncode(%name)} ${genPagenumLocalNav(c, (%threadid).parseInt)}

#let users = getAllRows(db, # sql("select distinct name, email from person where id in " & # "(select author from post where thread = ?)"), %threadId)

#for i in 0 .. min(6, users.len-1): ${users[i][0]}

#end for

#let latestReplyAuthor = getValue(db, sql("select name from person where id = " & # "(select author from post where id = " & # "(select max(id) from post where thread = ?))"), %threadId) #let replyProfileUrl = c.req.makeUri("profile/", false) & # xmlEncode(latestReplyAuthor) # let posts = getValue(db, sql"select count(*) from post where thread = ?", %threadId)

${xmlEncode(%views)}

$posts

#let latestReplyDate = getValue(db, sql("SELECT strftime('%s', " & # "(select creation from post where id = (select max(id) from post where thread = ?)))"), %threadId) #let timeStr = formatTimestamp(latestReplyDate.parseInt())

$latestReplyAuthor replied $timeStr

# end for

#end proc # # #proc genPostPreview(c: var TForumData, # title, content, author, date: string): string = # result = ""

#let profileUrl = c.req.makeUri("profile/", false) & xmlEncode(author) ${xmlEncode(author)}

#try: ${content.rstToHtml} #except EParseError: # c.errorMsg = getCurrentExceptionMsg() #end ${xmlEncode(date)}

#end proc # # #proc genPostsList(c: var TForumData, threadId: string, count: var int): string = # const query = sql"""select p.id, u.name, p.header, p.content, p.creation, p.author, u.email from post p, # person u where u.id = p.author and p.thread = ? order by p.id limit ?, ?""" # const postId = 0 # const userName = 1 # const postHeader = 2 # const postContent = 3 # const postCreation = 4 # const postAuthor = 5 # const userEmail = 6 # result = "" # count = 0 # let posts = getAllRows(db, query, threadId, $((c.pageNum-1) * PostsPerPage), $PostsPerPage)

forum index > ${posts[0][postHeader]}

# for row in posts: # inc(count)

#let profileUrl = c.req.makeUri("profile/", false) & xmlEncode(%userName)

${genGravatar(%userEmail)}

${xmlEncode(%userName)} #if c.userId == %postAuthor and c.currentPost.subject.len == 0:

Edit post #elif c.isAdmin and c.currentPost.subject.len == 0:

Edit post #end if

#try: ${(%postContent).rstToHtml} #except EParseError: # c.errorMsg = getCurrentExceptionMsg() #end ${xmlEncode(%postCreation)}

# end for

#end proc # # #proc genFormPost(c: var TForumData, action: string, # topText, title, content: string, isEdit: bool): string = # result = ""

forum index > $topText

#end proc # # #proc genFormRegister(c: var TForumData): string = # result = ""

forum index > Register

#end proc # #proc genFormLogin(c: var TForumData): string = # result = "" # if not c.loggedIn: $c.loginErrorMsg # else: You're already logged in! # end if #end proc # # #proc genListOnline(c: var TForumData, stats: TForumStats): string = # result = "" # var active: seq[string] = @[] # for i in stats.activeUsers: # active.add(i.nick) # end for # let profileUrl = c.req.makeUri("profile/", false) & # xmlEncode(stats.newestMember.nick) ${stats.activeUsers.len} of ${stats.totalUsers} users online | ${stats.totalThreads} threads | ${stats.totalPosts} posts | newest member: ${stats.newestMember.nick} #end proc # # # # #proc genSearchResults(c: var TForumData, # results: iterator: db_sqlite.TRow {.closure, tags: [FReadDB].}, # count: var int): string = # const threadId = 0 # const threadName = 1 # const postId = 2 # const postHeader = 3 # const postContent = 4 # const userName = 5 # const postCreation = 6 # const postAuthor = 7 # const userEmail = 8 # const what = 9 # result = "" # count = 0 # var whCount: array[bool, int]

Search results for: ${xmlEncode(c.search.replace(""","\""))}.

# for row in results(): # inc(count) # let isThread = %what == "0" # inc(whCount[isThread]) # let postUrl = c.genThreadUrl(%postId,"",%threadId,"") # let threadUrl = c.genThreadUrl("","",%threadId) # var headersDiffer = false

#let profileUrl = c.req.makeUri("profile/", false) & xmlEncode(%userName)

${genGravatar(%userEmail, 40)}

${xmlEncode(%userName)}

#if c.userId == %postAuthor and c.currentPost.subject.len == 0:

Edit post #elif c.isAdmin and c.currentPost.subject.len == 0:

Edit post #end if

#if %postHeader != "":

Post: ${%postHeader}

#end if #if not isThread: #try: ${(%postContent).rstToHtml} #except EParseError: # c.errorMsg = getCurrentExceptionMsg() ${xmlEncode(%postContent)} #end #end if ${xmlEncode(%postCreation)}

# end for

# if c.pageNum > 1: # end if # if whCount[true] == ThreadsPerPage or whCount[false] == ThreadsPerPage: # end if #end proc #

${FieldValid(c, "name", "Username:")}	${TextWidget(c, "name", reuseText, maxlength=20)}
${FieldValid(c, "new_password", "Password:")}
${FieldValid(c, "email", "E-Mail:")}	${TextWidget(c, "email", reuseText, maxlength=30)}
${FieldValid(c, "antibot", "What is " & antibot(c) & "?")}	${TextWidget(c, "antibot", "", maxlength=4)}

Username:
Password: