Mercurial Hosting > luan

annotate core/src/luan/modules/host/Hosting.luan @ 435:5b36f663a1b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
make members lower case
author Franklin Schmidt <fschmidt@gmail.com>
date Sun, 03 May 2015 21:28:49 -0600
parents e9e445e28f0b
children 92c3d22745b8
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
276
e5a0dd95f3e7 rename Reactionary to Hosting
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 275
diff changeset
1 -- Hosting
144
2e92f0a6fcac add Reactionary.luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
2
321
7f7708e8fdd4 remove import statement
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 282
diff changeset
3 local Io = require "luan:Io"
379
e9e445e28f0b add error checking to Hosting
Franklin Schmidt <fschmidt@gmail.com>
parents: 348
diff changeset
4 local Luan = require "luan:Luan"
e9e445e28f0b add error checking to Hosting
Franklin Schmidt <fschmidt@gmail.com>
parents: 348
diff changeset
5 local error = Luan.error
e9e445e28f0b add error checking to Hosting
Franklin Schmidt <fschmidt@gmail.com>
parents: 348
diff changeset
6
189
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 184
diff changeset
7
144
2e92f0a6fcac add Reactionary.luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
8 port = 9101
2e92f0a6fcac add Reactionary.luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
9
348
6fd016d35ec1 improve Hosting and fix mmake
Franklin Schmidt <fschmidt@gmail.com>
parents: 321
diff changeset
10 function push(domain,password,dir)
435
5b36f663a1b8 make members lower case
Franklin Schmidt <fschmidt@gmail.com>
parents: 379
diff changeset
11 local f = Io.uri("file:"..dir)
379
e9e445e28f0b add error checking to Hosting
Franklin Schmidt <fschmidt@gmail.com>
parents: 348
diff changeset
12 f.exists() or error("directory '"..dir.."' not found")
e9e445e28f0b add error checking to Hosting
Franklin Schmidt <fschmidt@gmail.com>
parents: 348
diff changeset
13 f.is_directory() or error("'"..dir.."' is not a directory")
282
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 276
diff changeset
14 local socket = "socket:" .. domain .. ":" .. port
435
5b36f663a1b8 make members lower case
Franklin Schmidt <fschmidt@gmail.com>
parents: 379
diff changeset
15 local pc = Io.uri(socket).pickle_client()
144
2e92f0a6fcac add Reactionary.luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
16 local pickle = pc.pickle
184
69f1e79a9eb0 fix Reactionary.luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 171
diff changeset
17 pc.call(%>
348
6fd016d35ec1 improve Hosting and fix mmake
Franklin Schmidt <fschmidt@gmail.com>
parents: 321
diff changeset
18 local Hosting = require "luan:host/Hosting"
6fd016d35ec1 improve Hosting and fix mmake
Franklin Schmidt <fschmidt@gmail.com>
parents: 321
diff changeset
19 Hosting.do_push(<%=pickle(domain)%>,<%=pickle(password)%>,<%=pickle(dir)%>)
184
69f1e79a9eb0 fix Reactionary.luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 171
diff changeset
20 <%)
144
2e92f0a6fcac add Reactionary.luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
21 pc.close()
2e92f0a6fcac add Reactionary.luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
22 end
2e92f0a6fcac add Reactionary.luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
23
348
6fd016d35ec1 improve Hosting and fix mmake
Franklin Schmidt <fschmidt@gmail.com>
parents: 321
diff changeset
24 function delete(domain,password)
282
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 276
diff changeset
25 local socket = "socket:" .. domain .. ":" .. port
435
5b36f663a1b8 make members lower case
Franklin Schmidt <fschmidt@gmail.com>
parents: 379
diff changeset
26 local pc = Io.uri(socket).pickle_client()
144
2e92f0a6fcac add Reactionary.luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
27 local pickle = pc.pickle
184
69f1e79a9eb0 fix Reactionary.luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 171
diff changeset
28 pc.call(%>
348
6fd016d35ec1 improve Hosting and fix mmake
Franklin Schmidt <fschmidt@gmail.com>
parents: 321
diff changeset
29 local Hosting = require "luan:host/Hosting"
6fd016d35ec1 improve Hosting and fix mmake
Franklin Schmidt <fschmidt@gmail.com>
parents: 321
diff changeset
30 Hosting.do_delete(<%=pickle(domain)%>,<%=pickle(password)%>)
184
69f1e79a9eb0 fix Reactionary.luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 171
diff changeset
31 <%)
144
2e92f0a6fcac add Reactionary.luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
32 pc.close()
2e92f0a6fcac add Reactionary.luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
33 end