Mercurial Hosting > luan

comparison blog/src/new.luan @ 596:6bb0c83116e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add blog sample app
author Franklin Schmidt <fschmidt@gmail.com>
date Tue, 15 Sep 2015 21:30:33 -0600
parents
children ca169567ce07
comparison
equal deleted inserted replaced
595:8370c4009cce 596:6bb0c83116e9
1 local Luan = require "luan:Luan"
2 local error = Luan.error
3 local Io = require "luan:Io"
4 local Http = require "luan:http/Http"
5 local Post = require "site:/lib/Post"
6
7
8 return function()
9 local subject = Http.request.parameter.subject
10 local content = Http.request.parameter.content
11 if Http.request.parameter.save ~= nil then
12 local post = Post.new{ subject=subject, content=content }
13 post.save()
14 Http.response.send_redirect("/")
15 return
16 end
17
18 Io.stdout = Http.response.text_writer()
19 %>
20 <html>
21 <head>
22 <style>
23 @import "/site.css";
24 </style>
25 </head>
26 <body>
27 <h1>Make New Post</h1>
28
29 <form method=post>
30 <p>Subject: <input name=subject size=50 type=text></p>
31 <p><textarea name=content rows=20 cols=90></textarea></p>
32 <p>
33 <input type=submit name=save value=Submit>
34 </p>
35 </form>
36
37 </body>
38 </html>
39 <%
40 end