MOD french -> english (3)
[euphorik.git] / tools / tools.erl
1 #!/usr/bin/env escript
2 % coding: utf-8
3 % Copyright 2008 Grégory Burri
4 %
5 % This file is part of Euphorik.
6 %
7 % Euphorik is free software: you can redistribute it and/or modify
8 % it under the terms of the GNU General Public License as published by
9 % the Free Software Foundation, either version 3 of the License, or
10 % (at your option) any later version.
11 %
12 % Euphorik is distributed in the hope that it will be useful,
13 % but WITHOUT ANY WARRANTY; without even the implied warranty of
14 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 % GNU General Public License for more details.
16 %
17 % You should have received a copy of the GNU General Public License
18 % along with Euphorik. If not, see <http://www.gnu.org/licenses/>.
19
20 % This file replace the old one 'tools.rb' written in a crapy language ;)
21 % TODO :
22 % - création de unit tests (voir eunit) et validation avant la mise en prod
23
24
25 main(Args) ->
26 file:set_cwd(".."),
27 case Args of
28 ["prod"] -> in_prod("gburri@euphorik.ch:/var/www/euphorik");
29 ["pre"] -> in_preprod("gburri@euphorik.ch:/var/www/euphorik_preprod", "var/www/euphorik");
30 ["js"] -> verif_js();
31 ["version"] -> update_version();
32 _ ->
33 io:format(
34 "Usage : ~s (prod | pre | js | version)~n"
35 " prod : in production~n"
36 " pre : in preproduction, data are copied from production~n"
37 " js : check the JavaScript files~n"
38 " version : update the version into somes files from the VERSION file",
39 [escript:script_name()]
40 )
41 end.
42
43
44 % A simple fonction to log message.
45 log(Str) ->
46 io:format("===== ~s =====~n", [Str]).
47
48
49 % Execute an OS commande and print the result to stdout.
50 cmd(Commande_str) ->
51 cmd(Commande_str, []).
52 cmd(Commande_str, Params) ->
53 io:format("~s~n", [os:cmd(lists:flatten(io_lib:format(Commande_str, Params)))]).
54
55
56 -record(uri, {
57 host,
58 path % in absolute
59 }).
60
61
62 % Create an uri record from an uri string.
63 create_uri(Uri_str) ->
64 [Host, Path] = string:tokens(Uri_str, ":"),
65 #uri{host = Host, path = Path}.
66
67
68 % Update the version into somes files from the VERSION file.
69 update_version() ->
70 log("Update the version tag"),
71 todo.
72
73
74 % Check the JavaScript files.
75 verif_js() ->
76 todo.
77
78
79 % Start the production processus.
80 in_prod(Uri) ->
81 compile_server_part(Uri),
82 make_var_directory(Uri),
83 copy_files(Uri),
84 define_files_rights(Uri),
85 update_server().
86
87
88 % Start the pre-production processus.
89 in_preprod(Uri, data_path) ->
90 compile_server_part(Uri),
91 make_var_directory(Uri),
92 copy_files(Uri),
93 define_files_rights(Uri),
94 start_server(),
95 update_server().
96
97
98 % Compile the Erlang modules.
99 compile_server_part(Uri) ->
100 todo.
101
102
103 % Create the 'var' folder if it doesn't exist.
104 make_var_directory(Uri) ->
105 todo.
106
107
108 % Copy files from developpement env to production server.
109 copy_files(Uri) ->
110 copy_static_part(Uri),
111 copy_packed_js(Uri).
112
113
114 % Copy all static files like modules, styles, pages, etc.
115 copy_static_part(Uri) ->
116 %~ creer_rep('modules')
117 %~ system("rsync -r --exclude 'euphorik_test.beam' modules/ebin #{@uri}:#{@rep}/modules")
118 %~ system("rsync -r modules/include #{@uri}:#{@rep}/modules")
119 todo.
120
121
122 % Minify and pack JavaScript in one file then copy it to ther server.
123 copy_packed_js(Uri) ->
124 todo.
125
126
127 % Define the rights for the copied folder et files.
128 define_files_rights(Uri) ->
129 todo.
130
131
132 % Start the server if it not already started (in preproduction case only).
133 start_server() ->
134 todo.
135
136
137 % Run a erlang script to
138 update_server() ->
139 todo.
140