annotate src/index.html.luan @ 1:bd2abcd7190a

mostly done
author Franklin Schmidt <fschmidt@gmail.com>
date Tue, 20 Sep 2022 19:40:39 -0600
parents
children 81c73ce6541c
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
1 local Luan = require "luan:Luan.luan"
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
2 local error = Luan.error
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
3 local ipairs = Luan.ipairs or error()
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
4 local pairs = Luan.pairs or error()
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
5 local Table = require "luan:Table.luan"
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
6 local concat = Table.concat or error()
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
7 local Html = require "luan:Html.luan"
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
8 local html_encode = Html.encode or error()
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
9 local Io = require "luan:Io.luan"
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
10 local Http = require "luan:http/Http.luan"
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
11 local Db = require "site:/lib/Db.luan"
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
12 local Shared = require "site:/lib/Shared.luan"
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
13 local to_list = Shared.to_list or error()
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
14 local Logging = require "luan:logging/Logging.luan"
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
15 local logger = Logging.logger "index.html"
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
16
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
17
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
18 return function()
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
19 local query = Http.request.parameters.query or ""
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
20 local results, n = Db.search(query,1,100)
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
21 --logger.info("#results = "..#results)
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
22 Io.stdout = Http.response.text_writer()
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
23 %>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
24 <!doctype html>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
25 <html>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
26 <head>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
27 <meta name="viewport" content="width=device-width, initial-scale=1">
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
28 <style>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
29 @import "/site.css";
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
30
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
31 input {
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
32 display: block;
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
33 width: 100%;
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
34 }
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
35 td {
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
36 vertical-align: top;
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
37 padding-right: 8px;
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
38 }
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
39 td:first-child {
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
40 padding-right: 8px;
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
41 }
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
42 </style>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
43 <title>Search ShareASale Affiliates</title>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
44 </head>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
45 <body>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
46 <h2>Search ShareASale Affiliates</h2>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
47 <form>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
48 <input name=query value="<%= query %>" autofocus>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
49 </form>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
50 <p><a href="https://lucene.apache.org/core/4_9_0/queryparser/org/apache/lucene/queryparser/classic/package-summary.html#package_description">search syntax</a></p>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
51 <p><%= #results %> of <%= n %></p>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
52 <hr>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
53 <%
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
54 for _, doc in ipairs(results) do
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
55 %>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
56 <table>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
57 <tr>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
58 <td>user_id:</td>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
59 <td><a href="https://account.shareasale.com/m-recruiting.cfm?mode=affiliate&userid=<%= doc.user_id %>"><%= doc.user_id %></a></td>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
60 </tr>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
61 <tr>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
62 <td>user_name:</td>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
63 <td><%= doc.user_name %></td>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
64 </tr>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
65 <tr>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
66 <td>category:</td>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
67 <td><%= concat( to_list(doc.category), ", " ) %></td>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
68 </tr>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
69 <tr>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
70 <td>description:</td>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
71 <td><%= html_encode(doc.description or "") %></td>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
72 </tr>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
73 <tr>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
74 <td>websites:</td>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
75 <td>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
76 <% for _, s in ipairs(to_list(doc.websites)) do %>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
77 <a href="<%=s%>"><%=s%></a><br>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
78 <% end %>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
79 </td>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
80 </tr>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
81 </table>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
82 <hr>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
83 <%
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
84 end
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
85 %>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
86 </body>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
87 </html>
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
88 <%
bd2abcd7190a mostly done
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
89 end