From c9cf025fadfe043f0f2f679e10d1207d8a158bb6 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 7 Apr 2024 17:01:31 +0200 Subject: Adding debian version 2.4.57-2. Signed-off-by: Daniel Baumann --- debian/perl-framework/t/htdocs/modules/lua/201.lua | 3 +++ .../t/htdocs/modules/lua/filters.lua | 16 +++++++++++++ .../perl-framework/t/htdocs/modules/lua/hello.lua | 4 ++++ .../perl-framework/t/htdocs/modules/lua/hello2.lua | 4 ++++ .../perl-framework/t/htdocs/modules/lua/https.lua | 7 ++++++ .../perl-framework/t/htdocs/modules/lua/method.lua | 3 +++ .../t/htdocs/modules/lua/setheaderfromparam.lua | 10 ++++++++ .../t/htdocs/modules/lua/setheaders.lua | 4 ++++ .../t/htdocs/modules/lua/translate.lua | 28 ++++++++++++++++++++++ .../t/htdocs/modules/lua/version.lua | 3 +++ .../t/htdocs/modules/lua/websockets.lua | 13 ++++++++++ 11 files changed, 95 insertions(+) create mode 100644 debian/perl-framework/t/htdocs/modules/lua/201.lua create mode 100644 debian/perl-framework/t/htdocs/modules/lua/filters.lua create mode 100644 debian/perl-framework/t/htdocs/modules/lua/hello.lua create mode 100644 debian/perl-framework/t/htdocs/modules/lua/hello2.lua create mode 100644 debian/perl-framework/t/htdocs/modules/lua/https.lua create mode 100644 debian/perl-framework/t/htdocs/modules/lua/method.lua create mode 100644 debian/perl-framework/t/htdocs/modules/lua/setheaderfromparam.lua create mode 100644 debian/perl-framework/t/htdocs/modules/lua/setheaders.lua create mode 100644 debian/perl-framework/t/htdocs/modules/lua/translate.lua create mode 100644 debian/perl-framework/t/htdocs/modules/lua/version.lua create mode 100644 debian/perl-framework/t/htdocs/modules/lua/websockets.lua (limited to 'debian/perl-framework/t/htdocs/modules/lua') diff --git a/debian/perl-framework/t/htdocs/modules/lua/201.lua b/debian/perl-framework/t/htdocs/modules/lua/201.lua new file mode 100644 index 0000000..f354125 --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/lua/201.lua @@ -0,0 +1,3 @@ +function handle(r) + r.status = 201 +end diff --git a/debian/perl-framework/t/htdocs/modules/lua/filters.lua b/debian/perl-framework/t/htdocs/modules/lua/filters.lua new file mode 100644 index 0000000..4236ecc --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/lua/filters.lua @@ -0,0 +1,16 @@ +--[[ + Example output filter that escapes all HTML entities in the output +]]-- +function output_filter(r) + coroutine.yield("prefix\n") + while bucket do -- For each bucket, do... + if string.len(bucket) > 0 then + local output = "bucket:" .. bucket .. "\n" + coroutine.yield(output) -- Send converted data down the chain + else + coroutine.yield("") -- Send converted data down the chain + end + end + coroutine.yield("suffix\n") + -- No more buckets available. +end diff --git a/debian/perl-framework/t/htdocs/modules/lua/hello.lua b/debian/perl-framework/t/htdocs/modules/lua/hello.lua new file mode 100644 index 0000000..85cd99e --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/lua/hello.lua @@ -0,0 +1,4 @@ +function handle(r) + r.content_type = "text/plain" + r:puts("Hello Lua World!\n") +end diff --git a/debian/perl-framework/t/htdocs/modules/lua/hello2.lua b/debian/perl-framework/t/htdocs/modules/lua/hello2.lua new file mode 100644 index 0000000..2a4b16f --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/lua/hello2.lua @@ -0,0 +1,4 @@ +function handle(r) + r.content_type = "text/plain" + r:puts("other lua handler\n") +end diff --git a/debian/perl-framework/t/htdocs/modules/lua/https.lua b/debian/perl-framework/t/htdocs/modules/lua/https.lua new file mode 100644 index 0000000..9393093 --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/lua/https.lua @@ -0,0 +1,7 @@ +function handle(r) + if r.is_https then + r:puts("yep") + else + r:puts("nope") + end +end diff --git a/debian/perl-framework/t/htdocs/modules/lua/method.lua b/debian/perl-framework/t/htdocs/modules/lua/method.lua new file mode 100644 index 0000000..e5ea3ee --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/lua/method.lua @@ -0,0 +1,3 @@ +function handle(r) + r:puts(r.method) +end diff --git a/debian/perl-framework/t/htdocs/modules/lua/setheaderfromparam.lua b/debian/perl-framework/t/htdocs/modules/lua/setheaderfromparam.lua new file mode 100644 index 0000000..6c8d9c5 --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/lua/setheaderfromparam.lua @@ -0,0 +1,10 @@ +-- Syntax: setheader.lua?HeaderName=foo&HeaderValue=bar +-- +-- This will return a document with 'bar' set in the header 'foo' + +function handle(r) + local GET, GETMULTI = r:parseargs() + + r.headers_out[GET['HeaderName']] = GET['HeaderValue'] + r:puts("Header set") +end diff --git a/debian/perl-framework/t/htdocs/modules/lua/setheaders.lua b/debian/perl-framework/t/htdocs/modules/lua/setheaders.lua new file mode 100644 index 0000000..faa7f68 --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/lua/setheaders.lua @@ -0,0 +1,4 @@ +function handle(r) + r.headers_out["X-Header"] = "yes" + r.headers_out["X-Host"] = r.headers_in["Host"] +end diff --git a/debian/perl-framework/t/htdocs/modules/lua/translate.lua b/debian/perl-framework/t/htdocs/modules/lua/translate.lua new file mode 100644 index 0000000..7d19c9a --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/lua/translate.lua @@ -0,0 +1,28 @@ +require 'apache2' + +function translate_name(r) + r:debug("translate_name: " .. r.uri) + local query = r:parseargs() + if query.translateme then + r:debug("translate_name: translateme was true " .. r.uri) + r.uri = "/modules/lua/hello.lua" + return apache2.DECLINED + end + return apache2.DECLINED +end + +function translate_name2(r) + r:debug("translate_name2: " .. r.uri) + local query = r:parseargs() + if (query.ok) then + r:debug("will return OK") + end + if query.translateme then + r.uri = "/modules/lua/hello2.lua" + if query.ok then + r.filename= r.document_root .. r.uri + return apache2.OK + end + end + return apache2.DECLINED +end diff --git a/debian/perl-framework/t/htdocs/modules/lua/version.lua b/debian/perl-framework/t/htdocs/modules/lua/version.lua new file mode 100644 index 0000000..7853844 --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/lua/version.lua @@ -0,0 +1,3 @@ +function handle(r) + r:puts(apache2.version) +end diff --git a/debian/perl-framework/t/htdocs/modules/lua/websockets.lua b/debian/perl-framework/t/htdocs/modules/lua/websockets.lua new file mode 100644 index 0000000..1acd91b --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/lua/websockets.lua @@ -0,0 +1,13 @@ +function handle(r) +if r:wsupgrade() then -- if we can upgrade: + while true do + local line, isFinal = r:wsread() + r:wswrite(line) + if line == "quit" then + r:wsclose() -- goodbye! + break + end + + end +end +end -- cgit v1.2.3