Mercurial Hosting > chat

annotate src/delete_user.js.luan @ 6:e22a1ba4b2ed

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
misc
author Franklin Schmidt <fschmidt@gmail.com>
date Tue, 29 Oct 2024 16:47:11 -0600
parents
children 7230c821c368
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
6
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
1 local Luan = require "luan:Luan.luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
2 local error = Luan.error
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
3 local Io = require "luan:Io.luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
4 local Http = require "luan:http/Http.luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
5 local User = require "site:/lib/User.luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
6 local current_user = User.current or error()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
7
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
8
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
9 return function()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
10 local user = current_user()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
11 if user ~= nil then
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
12 user.delete()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
13 end
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
14 Io.stdout = Http.response.text_writer()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
15 %>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
16 logout();
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
17 <%
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
18 end