Mercurial Hosting > luan

view examples/blog/src/private/tools/backup.html.luan @ 1803:d1dd61e6dd84

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
backtick fix
author Franklin Schmidt <fschmidt@gmail.com>
date Tue, 07 May 2024 19:45:20 -0600
parents 82415c9c0015
children
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 Db = require "site:/lib/Db.luan"


return function()
	local backup = Io.uri "site:/private/local/backup.zip"
	backup.delete()
	Db.zip(backup)

	Io.stdout = Http.response.text_writer()
%>
<!doctype html>
<html>
	<body>
		backed up to <a href="/private/local/backup.zip">/private/local/backup.zip</a>
	</body>
</html>
<%
end