Mercurial Hosting > luan
annotate src/luan/modules/host/Hosting.luan @ 1597:cd2a0c41b23f
minor
author | Franklin Schmidt <fschmidt@gmail.com> |
---|---|
date | Fri, 26 Mar 2021 20:20:21 -0600 |
parents | a9ff30fb5d89 |
children | b82767112d8e |
rev | line source |
---|---|
693
ca169567ce07
module URIs must now include ".luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
633
diff
changeset
|
1 local Luan = require "luan:Luan.luan" |
379
e9e445e28f0b
add error checking to Hosting
Franklin Schmidt <fschmidt@gmail.com>
parents:
348
diff
changeset
|
2 local error = Luan.error |
610
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
3 local ipairs = Luan.ipairs or error() |
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
4 local pairs = Luan.pairs or error() |
742 | 5 local set_metatable = Luan.set_metatable or error() |
1596
a9ff30fb5d89
add Hosting.push_file
Franklin Schmidt <fschmidt@gmail.com>
parents:
1558
diff
changeset
|
6 local stringify = Luan.stringify or error() |
693
ca169567ce07
module URIs must now include ".luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
633
diff
changeset
|
7 local Io = require "luan:Io.luan" |
610
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
8 local print = Io.print or error() |
693
ca169567ce07
module URIs must now include ".luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
633
diff
changeset
|
9 local Rpc = require "luan:Rpc.luan" |
ca169567ce07
module URIs must now include ".luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
633
diff
changeset
|
10 local String = require "luan:String.luan" |
633
c5baaa525897
don't push hidden files to luanhost
Franklin Schmidt <fschmidt@gmail.com>
parents:
619
diff
changeset
|
11 local matches = String.matches or error() |
1596
a9ff30fb5d89
add Hosting.push_file
Franklin Schmidt <fschmidt@gmail.com>
parents:
1558
diff
changeset
|
12 local substring = String.sub or error() |
a9ff30fb5d89
add Hosting.push_file
Franklin Schmidt <fschmidt@gmail.com>
parents:
1558
diff
changeset
|
13 local split = String.split or error() |
1381
8d7a39ca2c0c
add Rpc in_backup_read_lock
Franklin Schmidt <fschmidt@gmail.com>
parents:
1366
diff
changeset
|
14 local Logging = require "luan:logging/Logging.luan" |
8d7a39ca2c0c
add Rpc in_backup_read_lock
Franklin Schmidt <fschmidt@gmail.com>
parents:
1366
diff
changeset
|
15 local logger = Logging.logger "Hosting" |
610
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
16 |
379
e9e445e28f0b
add error checking to Hosting
Franklin Schmidt <fschmidt@gmail.com>
parents:
348
diff
changeset
|
17 |
1088
bae2d0c2576c
change module naming convention
Franklin Schmidt <fschmidt@gmail.com>
parents:
1083
diff
changeset
|
18 local Hosting = {} |
189
fb3993431f76
minor
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
184
diff
changeset
|
19 |
1088
bae2d0c2576c
change module naming convention
Franklin Schmidt <fschmidt@gmail.com>
parents:
1083
diff
changeset
|
20 function Hosting.push(domain,password,dir) |
610
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
21 local my_dir = Io.uri("file:"..dir) |
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
22 my_dir.exists() or error("directory '"..dir.."' not found") |
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
23 my_dir.is_directory() or error("'"..dir.."' is not a directory") |
743
2c41f2aec92f
improve Rpc and implement rpc call for local webserver
Franklin Schmidt <fschmidt@gmail.com>
parents:
742
diff
changeset
|
24 local host = Rpc.remote(domain) |
610
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
25 local tree = host.get(domain,password) |
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
26 if tree == nil then |
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
27 print("creating "..domain) |
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
28 tree = host.create(domain,password) |
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
29 end |
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
30 |
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
31 local function process(there_parent,there,here) |
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
32 if here.is_file() then |
1083
e7fb974e0c26
add Io checksum and use it for push
Franklin Schmidt <fschmidt@gmail.com>
parents:
775
diff
changeset
|
33 if there == nil or there.checksum ~= here.checksum() then |
610
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
34 print("copying "..here.to_string()) |
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
35 host.copy_file(domain,password,there_parent.path,here.name(),here.read_binary()) |
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
36 end |
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
37 elseif here.is_directory() then |
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
38 if here.name() == "local" then |
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
39 return |
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
40 end |
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
41 if there == nil then |
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
42 there = host.mkdir(domain,password,there_parent.path,here.name()) |
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
43 end |
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
44 for _, here_child in ipairs(here.children()) do |
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
45 local name = here_child.name() |
633
c5baaa525897
don't push hidden files to luanhost
Franklin Schmidt <fschmidt@gmail.com>
parents:
619
diff
changeset
|
46 if not matches(name,[[^\.]]) then |
c5baaa525897
don't push hidden files to luanhost
Franklin Schmidt <fschmidt@gmail.com>
parents:
619
diff
changeset
|
47 process(there,there.children[name],here_child) |
c5baaa525897
don't push hidden files to luanhost
Franklin Schmidt <fschmidt@gmail.com>
parents:
619
diff
changeset
|
48 there.children[name] = nil |
c5baaa525897
don't push hidden files to luanhost
Franklin Schmidt <fschmidt@gmail.com>
parents:
619
diff
changeset
|
49 end |
610
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
50 end |
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
51 for _, there_child in pairs(there.children) do |
1366
ae2321a09723
improve Thread.schedule
Franklin Schmidt <fschmidt@gmail.com>
parents:
1120
diff
changeset
|
52 if host.delete_unused(domain,password,there_child.path) then |
1558 | 53 print("deleted "..here.to_string().."/"..there_child.name) |
619
cc3a68033179
fix hosting delete logging
Franklin Schmidt <fschmidt@gmail.com>
parents:
615
diff
changeset
|
54 end |
610
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
55 end |
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
56 else |
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
57 error "not file or dir" |
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
58 end |
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
59 end |
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
60 |
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
61 process( nil, tree, my_dir ) |
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
62 |
716 | 63 host.update_handler(domain,password) |
1120
e8fc6712b468
luan Rpc uses luan.lib.rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
1088
diff
changeset
|
64 host.close() |
144
2e92f0a6fcac
add Reactionary.luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff
changeset
|
65 end |
2e92f0a6fcac
add Reactionary.luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff
changeset
|
66 |
1596
a9ff30fb5d89
add Hosting.push_file
Franklin Schmidt <fschmidt@gmail.com>
parents:
1558
diff
changeset
|
67 function Hosting.push_file(domain,password,dir,file) |
a9ff30fb5d89
add Hosting.push_file
Franklin Schmidt <fschmidt@gmail.com>
parents:
1558
diff
changeset
|
68 local my_dir = Io.uri("file:"..dir) |
a9ff30fb5d89
add Hosting.push_file
Franklin Schmidt <fschmidt@gmail.com>
parents:
1558
diff
changeset
|
69 my_dir.exists() or error("directory '"..dir.."' not found") |
a9ff30fb5d89
add Hosting.push_file
Franklin Schmidt <fschmidt@gmail.com>
parents:
1558
diff
changeset
|
70 my_dir.is_directory() or error("'"..dir.."' is not a directory") |
a9ff30fb5d89
add Hosting.push_file
Franklin Schmidt <fschmidt@gmail.com>
parents:
1558
diff
changeset
|
71 local my_file = Io.uri("file:"..file) |
a9ff30fb5d89
add Hosting.push_file
Franklin Schmidt <fschmidt@gmail.com>
parents:
1558
diff
changeset
|
72 my_file.exists() or error("file '"..file.."' not found") |
a9ff30fb5d89
add Hosting.push_file
Franklin Schmidt <fschmidt@gmail.com>
parents:
1558
diff
changeset
|
73 my_file.is_file() or error("'"..file.."' is not a file") |
a9ff30fb5d89
add Hosting.push_file
Franklin Schmidt <fschmidt@gmail.com>
parents:
1558
diff
changeset
|
74 local my_file_string = my_file.to_string() |
a9ff30fb5d89
add Hosting.push_file
Franklin Schmidt <fschmidt@gmail.com>
parents:
1558
diff
changeset
|
75 local my_dir_string = my_dir.to_string().."/" |
a9ff30fb5d89
add Hosting.push_file
Franklin Schmidt <fschmidt@gmail.com>
parents:
1558
diff
changeset
|
76 matches( my_file_string, [[^\Q]]..my_dir_string..[[\E]] ) or error "file must be in dir" |
a9ff30fb5d89
add Hosting.push_file
Franklin Schmidt <fschmidt@gmail.com>
parents:
1558
diff
changeset
|
77 my_file_string = substring(my_file_string,#my_dir_string+1) |
a9ff30fb5d89
add Hosting.push_file
Franklin Schmidt <fschmidt@gmail.com>
parents:
1558
diff
changeset
|
78 local path = {split( my_file_string, "/" )} |
a9ff30fb5d89
add Hosting.push_file
Franklin Schmidt <fschmidt@gmail.com>
parents:
1558
diff
changeset
|
79 path[#path] = nil |
a9ff30fb5d89
add Hosting.push_file
Franklin Schmidt <fschmidt@gmail.com>
parents:
1558
diff
changeset
|
80 local host = Rpc.remote(domain) |
a9ff30fb5d89
add Hosting.push_file
Franklin Schmidt <fschmidt@gmail.com>
parents:
1558
diff
changeset
|
81 local there = host.get(domain,password) |
a9ff30fb5d89
add Hosting.push_file
Franklin Schmidt <fschmidt@gmail.com>
parents:
1558
diff
changeset
|
82 there~=nil or error "site not created" |
a9ff30fb5d89
add Hosting.push_file
Franklin Schmidt <fschmidt@gmail.com>
parents:
1558
diff
changeset
|
83 for _, s in ipairs(path) do |
a9ff30fb5d89
add Hosting.push_file
Franklin Schmidt <fschmidt@gmail.com>
parents:
1558
diff
changeset
|
84 there = there.children[s] or error("'"..s.."' not found on remote") |
a9ff30fb5d89
add Hosting.push_file
Franklin Schmidt <fschmidt@gmail.com>
parents:
1558
diff
changeset
|
85 end |
a9ff30fb5d89
add Hosting.push_file
Franklin Schmidt <fschmidt@gmail.com>
parents:
1558
diff
changeset
|
86 host.copy_file(domain,password,there.path,my_file.name(),my_file.read_binary()) |
1597 | 87 host.update_handler(domain,password) |
88 host.close() | |
1596
a9ff30fb5d89
add Hosting.push_file
Franklin Schmidt <fschmidt@gmail.com>
parents:
1558
diff
changeset
|
89 end |
a9ff30fb5d89
add Hosting.push_file
Franklin Schmidt <fschmidt@gmail.com>
parents:
1558
diff
changeset
|
90 |
1088
bae2d0c2576c
change module naming convention
Franklin Schmidt <fschmidt@gmail.com>
parents:
1083
diff
changeset
|
91 function Hosting.delete(domain,password) |
743
2c41f2aec92f
improve Rpc and implement rpc call for local webserver
Franklin Schmidt <fschmidt@gmail.com>
parents:
742
diff
changeset
|
92 local host = Rpc.remote(domain) |
610
b4f3dbe1c6e3
add Rpc and change Hosting to use Rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
93 host.delete(domain,password) |
1120
e8fc6712b468
luan Rpc uses luan.lib.rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
1088
diff
changeset
|
94 host.close() |
144
2e92f0a6fcac
add Reactionary.luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff
changeset
|
95 end |
503 | 96 |
1088
bae2d0c2576c
change module naming convention
Franklin Schmidt <fschmidt@gmail.com>
parents:
1083
diff
changeset
|
97 function Hosting.exists(domain) |
743
2c41f2aec92f
improve Rpc and implement rpc call for local webserver
Franklin Schmidt <fschmidt@gmail.com>
parents:
742
diff
changeset
|
98 local host = Rpc.remote(domain) |
1120
e8fc6712b468
luan Rpc uses luan.lib.rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
1088
diff
changeset
|
99 local rtn = host.exists(domain) |
e8fc6712b468
luan Rpc uses luan.lib.rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
1088
diff
changeset
|
100 host.close() |
e8fc6712b468
luan Rpc uses luan.lib.rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
1088
diff
changeset
|
101 return rtn |
615
abc3198c86dd
fix tail recursion bug;
Franklin Schmidt <fschmidt@gmail.com>
parents:
610
diff
changeset
|
102 end |
abc3198c86dd
fix tail recursion bug;
Franklin Schmidt <fschmidt@gmail.com>
parents:
610
diff
changeset
|
103 |
1088
bae2d0c2576c
change module naming convention
Franklin Schmidt <fschmidt@gmail.com>
parents:
1083
diff
changeset
|
104 function Hosting.change_domain(old_domain,new_domain,password) |
743
2c41f2aec92f
improve Rpc and implement rpc call for local webserver
Franklin Schmidt <fschmidt@gmail.com>
parents:
742
diff
changeset
|
105 local host = Rpc.remote(new_domain) |
1120
e8fc6712b468
luan Rpc uses luan.lib.rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
1088
diff
changeset
|
106 local rtn = host.change_domain(old_domain,new_domain,password) |
e8fc6712b468
luan Rpc uses luan.lib.rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
1088
diff
changeset
|
107 host.close() |
e8fc6712b468
luan Rpc uses luan.lib.rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
1088
diff
changeset
|
108 return rtn |
724
4f8e30a3ffd0
add Hosting.change_domain()
Franklin Schmidt <fschmidt@gmail.com>
parents:
716
diff
changeset
|
109 end |
4f8e30a3ffd0
add Hosting.change_domain()
Franklin Schmidt <fschmidt@gmail.com>
parents:
716
diff
changeset
|
110 |
1088
bae2d0c2576c
change module naming convention
Franklin Schmidt <fschmidt@gmail.com>
parents:
1083
diff
changeset
|
111 function Hosting.change_password(domain,old_password,new_password) |
743
2c41f2aec92f
improve Rpc and implement rpc call for local webserver
Franklin Schmidt <fschmidt@gmail.com>
parents:
742
diff
changeset
|
112 local host = Rpc.remote(domain) |
1120
e8fc6712b468
luan Rpc uses luan.lib.rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
1088
diff
changeset
|
113 local rtn = host.change_password(domain,old_password,new_password) |
e8fc6712b468
luan Rpc uses luan.lib.rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
1088
diff
changeset
|
114 host.close() |
e8fc6712b468
luan Rpc uses luan.lib.rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
1088
diff
changeset
|
115 return rtn |
740
6871ba08d521
add Hosting.change_password()
Franklin Schmidt <fschmidt@gmail.com>
parents:
724
diff
changeset
|
116 end |
6871ba08d521
add Hosting.change_password()
Franklin Schmidt <fschmidt@gmail.com>
parents:
724
diff
changeset
|
117 |
1088
bae2d0c2576c
change module naming convention
Franklin Schmidt <fschmidt@gmail.com>
parents:
1083
diff
changeset
|
118 function Hosting.caller(domain) |
743
2c41f2aec92f
improve Rpc and implement rpc call for local webserver
Franklin Schmidt <fschmidt@gmail.com>
parents:
742
diff
changeset
|
119 local host = Rpc.remote(domain) |
742 | 120 local mt = {} |
121 function mt.__index(_,key) | |
122 return function(...) | |
1120
e8fc6712b468
luan Rpc uses luan.lib.rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
1088
diff
changeset
|
123 if key == "close" then |
e8fc6712b468
luan Rpc uses luan.lib.rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
1088
diff
changeset
|
124 return host.close() |
e8fc6712b468
luan Rpc uses luan.lib.rpc
Franklin Schmidt <fschmidt@gmail.com>
parents:
1088
diff
changeset
|
125 end |
742 | 126 return host.call(domain,key,...) |
127 end | |
128 end | |
129 local t = {} | |
130 set_metatable(t,mt) | |
131 return t | |
132 end | |
133 | |
1088
bae2d0c2576c
change module naming convention
Franklin Schmidt <fschmidt@gmail.com>
parents:
1083
diff
changeset
|
134 return Hosting |