# XHTML generation
# Copyright (C) 2023 Nguyễn Gia Phong
#
# This file if part of hybring.
#
# Hybring is free software: you can redistribute it and/or modify
# it under the terms of the GNU Affero General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# Hybring is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Affero General Public License for more details.
#
# You should have received a copy of the GNU Affero General Public License
# along with hybring. If not, see .
require "uri"
require "xml"
require "./http"
require "./sqlite"
CSS = "
html {
margin: auto;
max-width: 72ch;
}
body { margin-bottom: 2rem }
h1, h2, h3, h4, h5, h6 { margin: 1ex 0 }
a { text-decoration: none }
a:hover { text-decoration: underline }
form {
display: grid;
grid-template-columns: max-content 1fr 0;
}
form input { margin-bottom: 1ex }
form label { margin-right: 1ch }
form label.error {
color: ActiveText;
margin-top: -1ex;
margin-bottom: 1ex;
}
"
class Page
def initialize(static_dir : Path, static_url : String, api_url : String,
db : Database)
Dir.mkdir_p static_dir
@static_file = static_dir / "index.xhtml"
@static_url = static_url
@static_host = URI.parse(static_url).host
@api_url = api_url
@db = db
end
def heading(xml, level, text)
xml.element "h#{level}", id: text do
xml.element "a", href: "##{text}" do xml.text text end
end
end
def criteria(xml)
heading xml, 2, "criteria"
xml.element "p" do
xml.text "We accept pretty much any site"
xml.text " served under an OpenNIC domain"
xml.text " meeting the following requirements."
end
xml.element "ul" do
xml.element "li" do xml.text "Family-friendly content" end
xml.element "li" do xml.text "No violence incitation or doxing" end
xml.element "li" do xml.text "No user tracking" end
xml.element "li" do
xml.text "ICANN counterpart accessible via HTTPS"
end
xml.element "li" do
xml.text "Both linking to neighboring members"
end
end
xml.element "p" do
xml.text "Note that the two sites needn't be the same, as long as"
xml.text " they represent the same entity, e.g. person or organization."
xml.text " The clear net site is for serving visitors"
xml.text " without OpenNIC access or preferring secure connections."
end
end
def input(xml, type, name, pattern, label, error, value)
xml.element "label", for: name do xml.text label end
xml.element "input", type: type, name: name, pattern: pattern,
value: value, required: "required"
xml.element "br"
if error
xml.element "label", for: name, class: "error" do xml.text "Error:" end
xml.element "label", for: name, class: "error" do xml.text error end
xml.element "br"
end
end
def form(xml, errors = {} of String => String,
params = {} of String => String)
xml.element "p" do xml.text "Then, please fill out the form below." end
nick = params.fetch("nick", nil)
xml.element "form", action: @api_url, method: "POST" do
input xml, "text", "nick", NICK_PATTERN, "Nickname:",
errors.fetch("nick", nil), nick || ""
input xml, "url", "opennic", "https?://.*", "OpenNIC URL:",
errors.fetch("opennic", nil), params.fetch("opennic", "")
input xml, "url", "icann", "https://.*", "ICANN URL:",
errors.fetch("icann", nil), params.fetch("icann", "")
xml.element "input", type: "hidden", name: "host", value: @static_host
xml.element "span" do
xml.element "input", type: "submit", value: "Let me in!"
end
xml.element "br"
end
xml.element "p" do
xml.text "Your application is pending for approval."
xml.text " Please subscribe to this "
xml.element "a", href: "#{@static_url}/#{nick}.atom" do
xml.text "web feed"
end
xml.text " for further instructions."
end if nick && errors.empty?
end
def member(xml, nick, opennic, icann)
heading xml, 3, nick
xml.text "OpenNIC: "
xml.element "a", href: opennic do xml.text opennic end
xml.element "br"
xml.text "ICANN: "
xml.element "a", href: icann do xml.text icann end
xml.element "br"
end
def build(errors = {} of String => String,
params = {} of String => String) : String
XML.build encoding: "UTF-8", indent: " " do |xml|
xml.element "html", xmlns: "http://www.w3.org/1999/xhtml", lang: "en" do
xml.element "head" do
xml.element "meta", name: "viewport",
content: "width=device-width,initial-scale=1.0"
xml.element "meta", name: "color-scheme", content: "light dark"
xml.element "link", rel: "icon", href: "data:,"
xml.element "style" do xml.text CSS end
xml.element "title" do xml.text "le cercle libre" end
end
xml.element "body" do
xml.element "h1" do xml.text "le cercle libre" end
xml.element "p" do
xml.text "The Free Circle is a web ring for sites"
xml.text " with an OpenNIC domain."
end
criteria xml
heading xml, 2, "members"
@db.exec "SELECT nick, opennic, icann
FROM member
WHERE official = 1" do |row|
member xml, row[0].text, row[1].text, row[2].text
end
heading xml, 2, "joining"
xml.element "p" do
xml.text "First, add "
xml.element "a",
href: "https://html.spec.whatwg.org/#the-a-element" do
xml.text "anchors"
end
xml.text " refering to the following neighbors to your sites"
xml.text " on both OpenNIC and ICANN domains."
xml.text " Your neighbors will change as people come and go,"
xml.text " so you will be given an Atom feed with instructions"
xml.text " to keep the hyperlinks up to date."
end
xml.element "ul" do
@db.exec "SELECT neighbor.opennic, member.opennic
FROM member INNER JOIN member AS neighbor
ON member.left = neighbor.nick
WHERE member.official = 1
ORDER BY member.rowid ASC LIMIT 1" do |row|
left, right = row[0].text, row[1].text
xml.element "li" do
xml.text "Left: "
xml.element "a", href: left do xml.text left end
end
xml.element "li" do
xml.text "Right: "
xml.element "a", href: right do xml.text right end
end
end
end
form xml, errors, params
heading xml, 2, "applicants"
@db.exec "SELECT nick, opennic, icann
FROM member
WHERE official = 0" do |row|
member xml, row[0].text, row[1].text, row[2].text
end
end
end
end
end
def write
File.write @static_file, self.build
end
end