Mercurial Hosting > luan

view examples/blog/src/new.html.luan @ 1648:224af797b1f9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Mainly small install script improvements - Consistent usage of `$LUANHOME`, removed reliance on current directory. - Made Luan build and install fine (on Linux) without requiring launching it via sudo. Only asks to elevate privileges if installation failed. - Minor spelling mistake fix.
author Fox
date Mon, 28 Mar 2022 18:00:12 +0200
parents 4c2972f4d862
children ad5647031343
line wrap: on
line source

local Luan = require "luan:Luan.luan"
local error = Luan.error
local Io = require "luan:Io.luan"
local Http = require "luan:http/Http.luan"
local Post = require "site:/lib/Post.luan"


return function()
	local subject = Http.request.parameters.subject
	local content = Http.request.parameters.content
	if Http.request.parameters.save ~= nil then
		local post = Post.new{ subject=subject, content=content }
		post.save()
		Http.response.send_redirect("/")
		return
	end

	Io.stdout = Http.response.text_writer()
%>
<!doctype html>
<html>
	<head>
		<style>
			@import "/site.css";
		</style>
	</head>
	<body>
		<h1>Make New Post</h1>

		<form method=post>
			<p>Subject: <input name=subject size=50 type=text></p>
			<p><textarea name=content rows=20 cols=90></textarea><br>bbcode works</p>
			<p>
				<input type=submit name=save value=Submit>
			</p>
		</form>

	</body>
</html>
<%
end