Mercurial Hosting > freedit
changeset 29:a1db5223ced1
luan changes
author | Franklin Schmidt <fschmidt@gmail.com> |
---|---|
date | Mon, 25 Jul 2022 21:28:10 -0600 |
parents | d9d7aa2a79db |
children | 8ff35379cc89 |
files | src/error_log.js.luan src/lib/Bbcode.luan src/login.html.luan |
diffstat | 3 files changed, 30 insertions(+), 26 deletions(-) [+] |
line wrap: on
line diff
--- a/src/error_log.js.luan Thu Jul 21 23:44:49 2022 -0600 +++ b/src/error_log.js.luan Mon Jul 25 21:28:10 2022 -0600 @@ -1,7 +1,6 @@ local Luan = require "luan:Luan.luan" local error = Luan.error local String = require "luan:String.luan" -local matches = String.matches or error() local trim = String.trim or error() local Table = require "luan:Table.luan" local Http = require "luan:http/Http.luan"
--- a/src/lib/Bbcode.luan Thu Jul 21 23:44:49 2022 -0600 +++ b/src/lib/Bbcode.luan Mon Jul 25 21:28:10 2022 -0600 @@ -15,9 +15,8 @@ local is_list = Table.is_list or error() local concat = Table.concat or error() local String = require "luan:String.luan" -local gsub = String.gsub or error() -local matches = String.matches or error() -local match = String.match or error() +local regex = String.regex or error() +local ends_with = String.ends_with or error() local User = require "site:/lib/User.luan" local Shared = require "site:/lib/Shared.luan" local list_to_set = Shared.list_to_set or error() @@ -28,6 +27,8 @@ local Bbcode = {} +local starting_cr_regex = regex[[^\n]] + local to_html local html = {} @@ -67,7 +68,7 @@ end function html.code(bbcode,options) - local s = gsub(bbcode.contents,[[^\n]],"") + local s = starting_cr_regex.gsub(bbcode.contents,"") %><code><%= html_encode(s) %></code><% options.strip_newline = true end @@ -108,12 +109,12 @@ local video_handlers = {} do - local ptn1 = [[https://youtu.be/([a-zA-Z0-9_-]+)(?:\?t=([0-9]+))?]] - local ptn2 = [[https://www.youtube.com/watch\?v=([a-zA-Z0-9_-]+)(?:&t=([0-9]+)s)?]] + local ptn1 = regex[[https://youtu.be/([a-zA-Z0-9_-]+)(?:\?t=([0-9]+))?]] + local ptn2 = regex[[https://www.youtube.com/watch\?v=([a-zA-Z0-9_-]+)(?:&t=([0-9]+)s)?]] function video_handlers.youtube(url) - local id, start = match(url,ptn1) + local id, start = ptn1.match(url) if id == nil then - id, start = match(url,ptn2) + id, start = ptn2.match(url) end if id == nil then return false @@ -127,9 +128,9 @@ end end do - local ptn = [[https://rumble.com/embed/[a-z0-9]+/\?pub=[a-z0-9]+]] + local ptn = regex[[https://rumble.com/embed/[a-z0-9]+/\?pub=[a-z0-9]+]] function video_handlers.rumble(url) - if not matches(url,ptn) then + if not ptn.matches(url) then return false end video_iframe(url) @@ -137,9 +138,9 @@ end end do - local ptn = [[https://www.bitchute.com/video/([a-zA-Z0-9]+)/]] + local ptn = regex[[https://www.bitchute.com/video/([a-zA-Z0-9]+)/]] function video_handlers.bitchute(url) - local id = match(url,ptn) + local id = ptn.match(url) if id == nil then return false end @@ -149,9 +150,9 @@ end end do - local ptn = [[https://vimeo.com/([0-9]+)]] + local ptn = regex[[https://vimeo.com/([0-9]+)]] function video_handlers.vimeo(url) - local id = match(url,ptn) + local id = ptn.match(url) if id == nil then return false end @@ -161,9 +162,9 @@ end end do - local ptn = [[https://dai.ly/([a-z0-9]+)]] + local ptn = regex[[https://dai.ly/([a-z0-9]+)]] function video_handlers.dailymotion(url) - local id = match(url,ptn) + local id = ptn.match(url) if id == nil then return false end @@ -173,9 +174,9 @@ end end do - local ptn = [[https://www.tiktok.com/[^/]+/video/([0-9]+)]] + local ptn = regex[[https://www.tiktok.com/[^/]+/video/([0-9]+)]] function video_handlers.tiktok(url) - local id = match(url,ptn) + local id = ptn.match(url) if id == nil then return false end @@ -185,9 +186,9 @@ end end do - local ptn = [[\.[a-zA-Z0-9]+$]] + local ptn = regex[[\.[a-zA-Z0-9]+$]] function video_handlers.file(url) - if not matches(url,ptn) then + if not ptn.matches(url) then return false end %><video controls width="560"><source src="<%=html_encode(url)%>"></video><% @@ -229,7 +230,7 @@ function to_html(bbcode,options) if options.strip_newline then if type(bbcode) == "string" then - bbcode = gsub(bbcode,[[^\n]],"") + bbcode = starting_cr_regex.gsub(bbcode,"") end options.strip_newline = false end @@ -263,9 +264,11 @@ "video" } +local url_regex = regex[[(^|\s)(https?://\S+)]] + local function preprocess(bbcode) if type(bbcode) == "string" then - bbcode = gsub( bbcode, [[(^|\s)(https?://\S+)]], "$1[url]$2[/url]" ) + bbcode = url_regex.gsub( bbcode, "$1[url]$2[/url]" ) %><%= bbcode %><% else type(bbcode) == "table" or error() @@ -303,7 +306,7 @@ end function Bbcode.remove_html(text) - local ends_with_newline = matches(text,[[\n$]]) + local ends_with_newline = ends_with(text,"\n") local t = {} local html = html_parse(text) local is_first = true
--- a/src/login.html.luan Thu Jul 21 23:44:49 2022 -0600 +++ b/src/login.html.luan Mon Jul 25 21:28:10 2022 -0600 @@ -2,7 +2,7 @@ local error = Luan.error local String = require "luan:String.luan" local trim = String.trim or error() -local matches = String.matches or error() +local regex = String.regex or error() local Html = require "luan:Html.luan" local url_encode = Html.url_encode or error() local Io = require "luan:Io.luan" @@ -21,6 +21,8 @@ local run_in_transaction = Db.run_in_transaction or error() +local name_regex = regex "^[a-zA-Z0-9_-]+$" + local function get_user(email,password) local user = User.get_by_email(email) user or error "email not found" @@ -116,7 +118,7 @@ end else name = trim(name) - matches( name, "^[a-zA-Z0-9_-]+$" ) or error "invalid name" + name_regex.matches(name) or error "invalid name" local error_message = nil local user run_in_transaction( function()