Mercurial Hosting > luan

annotate core/src/luan/modules/host/Hosting.luan @ 503:92c3d22745b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
make _ENV optional
author Franklin Schmidt <fschmidt@gmail.com>
date Wed, 20 May 2015 23:24:46 -0600
parents 5b36f663a1b8
children b4f3dbe1c6e3
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
503
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents: 435
diff changeset
7 local M = {}
189
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 184
diff changeset
8
503
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents: 435
diff changeset
9 M.port = 9101
144
2e92f0a6fcac add Reactionary.luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
10
503
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents: 435
diff changeset
11 function M.push(domain,password,dir)
435
5b36f663a1b8 make members lower case
Franklin Schmidt <fschmidt@gmail.com>
parents: 379
diff changeset
12 local f = Io.uri("file:"..dir)
379
e9e445e28f0b add error checking to Hosting
Franklin Schmidt <fschmidt@gmail.com>
parents: 348
diff changeset
13 f.exists() or error("directory '"..dir.."' not found")
e9e445e28f0b add error checking to Hosting
Franklin Schmidt <fschmidt@gmail.com>
parents: 348
diff changeset
14 f.is_directory() or error("'"..dir.."' is not a directory")
503
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents: 435
diff changeset
15 local socket = "socket:" .. domain .. ":" .. M.port
435
5b36f663a1b8 make members lower case
Franklin Schmidt <fschmidt@gmail.com>
parents: 379
diff changeset
16 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
17 local pickle = pc.pickle
184
69f1e79a9eb0 fix Reactionary.luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 171
diff changeset
18 pc.call(%>
348
6fd016d35ec1 improve Hosting and fix mmake
Franklin Schmidt <fschmidt@gmail.com>
parents: 321
diff changeset
19 local Hosting = require "luan:host/Hosting"
6fd016d35ec1 improve Hosting and fix mmake
Franklin Schmidt <fschmidt@gmail.com>
parents: 321
diff changeset
20 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
21 <%)
144
2e92f0a6fcac add Reactionary.luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
22 pc.close()
2e92f0a6fcac add Reactionary.luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
23 end
2e92f0a6fcac add Reactionary.luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
24
503
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents: 435
diff changeset
25 function M.delete(domain,password)
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents: 435
diff changeset
26 local socket = "socket:" .. domain .. ":" .. M.port
435
5b36f663a1b8 make members lower case
Franklin Schmidt <fschmidt@gmail.com>
parents: 379
diff changeset
27 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
28 local pickle = pc.pickle
184
69f1e79a9eb0 fix Reactionary.luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 171
diff changeset
29 pc.call(%>
348
6fd016d35ec1 improve Hosting and fix mmake
Franklin Schmidt <fschmidt@gmail.com>
parents: 321
diff changeset
30 local Hosting = require "luan:host/Hosting"
6fd016d35ec1 improve Hosting and fix mmake
Franklin Schmidt <fschmidt@gmail.com>
parents: 321
diff changeset
31 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
32 <%)
144
2e92f0a6fcac add Reactionary.luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
33 pc.close()
2e92f0a6fcac add Reactionary.luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
34 end
503
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents: 435
diff changeset
35
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents: 435
diff changeset
36 return M