rev |
line source |
pankso@5
|
1 #!/bin/sh
|
pankso@5
|
2 #
|
paul@64
|
3 # TinyCM - Small, fast and elegant CGI/SHell Content Manager
|
pankso@5
|
4 #
|
pankso@76
|
5 # Copyright (C) 2012-2017 SliTaz GNU/Linux - BSD License
|
pankso@5
|
6 #
|
pankso@84
|
7 . /usr/lib/slitaz/httphelper.sh
|
pankso@5
|
8
|
paul@8
|
9 # Let's have a peer site config file with a .cgi extension so content
|
pankso@5
|
10 # is secure even if left in a web server directory.
|
pankso@57
|
11 . ./config.cgi
|
pankso@5
|
12
|
pankso@5
|
13 tiny="$PWD"
|
pankso@5
|
14 content="content"
|
pankso@5
|
15 wiki="$content/wiki"
|
pankso@5
|
16 index="index"
|
pankso@5
|
17 cache="cache"
|
pankso@5
|
18 plugins="plugins"
|
pankso@5
|
19 tmp="/tmp/tinycm"
|
pankso@5
|
20 sessions="$tmp/sessions"
|
pankso@15
|
21 script="$SCRIPT_NAME"
|
pankso@28
|
22 activity="$cache/log/activity.log"
|
pankso@5
|
23
|
pankso@5
|
24 # Content negotiation for Gettext
|
pankso@5
|
25 IFS=","
|
pankso@5
|
26 for lang in $HTTP_ACCEPT_LANGUAGE
|
pankso@5
|
27 do
|
pankso@5
|
28 lang=${lang%;*} lang=${lang# } lang=${lang%-*}
|
pankso@5
|
29 case "$lang" in
|
pankso@57
|
30 en) lang="C" && break ;;
|
pankso@57
|
31 fr) lang="fr_FR" && break ;;
|
pankso@57
|
32 pt) lang="pt_BR" && break ;;
|
pankso@57
|
33 ru) lang="ru_RU" && break ;;
|
pankso@5
|
34 esac
|
pankso@5
|
35 done
|
pankso@5
|
36 unset IFS
|
pankso@5
|
37 export LANG=$lang LC_ALL=$lang
|
pankso@5
|
38
|
pankso@55
|
39 # Internationalization
|
pankso@55
|
40 . /usr/bin/gettext.sh
|
pankso@55
|
41 TEXTDOMAIN='tinycm'
|
pankso@55
|
42 export TEXTDOMAIN
|
pankso@55
|
43
|
pankso@5
|
44 #
|
pankso@5
|
45 # Functions
|
pankso@5
|
46 #
|
pankso@5
|
47
|
paul@8
|
48 # Used by edit to display language name and the language box. This is
|
pankso@5
|
49 # for CM content not gettext support.
|
pankso@5
|
50 get_lang() {
|
pankso@57
|
51 dlang=$(echo $d | cut -d "/" -f 1)
|
pankso@57
|
52 doc=${d#$dlang/}
|
pankso@5
|
53 echo '<div id="lang">'
|
pankso@5
|
54 for l in $LANGUAGES
|
pankso@5
|
55 do
|
pankso@57
|
56 case $dlang in
|
pankso@5
|
57 en) i18n="English" ;;
|
pankso@5
|
58 fr) i18n="Français" ;;
|
pankso@5
|
59 pt) i18n="Português" ;;
|
pankso@5
|
60 ru) i18n="Русский" ;;
|
pankso@5
|
61 *) i18n="*" ;;
|
pankso@5
|
62 esac
|
pankso@5
|
63 echo "<a href='?d=$l/$doc'>$l</a>"
|
pankso@5
|
64 done
|
pankso@5
|
65 echo '</div>'
|
pankso@5
|
66 }
|
pankso@5
|
67
|
pankso@5
|
68 # HTML 5 header.
|
pankso@5
|
69 html_header() {
|
pankso@5
|
70 if [ -f "$tiny/lib/header.html" ]; then
|
pankso@5
|
71 cat $tiny/lib/header.html | sed -e s!'%TITLE%'!"$TITLE - $d"!g
|
pankso@5
|
72 else
|
pankso@5
|
73 cat << EOT
|
pankso@5
|
74 <!DOCTYPE html>
|
pankso@5
|
75 <html xmlns="http://www.w3.org/1999/xhtml">
|
pankso@5
|
76 <head>
|
pankso@5
|
77 <title>$TITLE</title>
|
pankso@5
|
78 <meta charset="utf-8" />
|
pankso@5
|
79 <style type="text/css">body { margin: 40px 120px; }</style>
|
pankso@5
|
80 </head>
|
pankso@5
|
81 <body>
|
pankso@5
|
82 <!-- Content -->
|
pankso@5
|
83 <div id="content">
|
pankso@5
|
84 EOT
|
pankso@5
|
85 fi
|
pankso@5
|
86 }
|
pankso@5
|
87
|
pankso@5
|
88 # HTML 5 footer.
|
pankso@5
|
89 html_footer() {
|
pankso@5
|
90 if [ -f "$tiny/lib/footer.html" ]; then
|
pankso@5
|
91 cat $tiny/lib/footer.html
|
pankso@5
|
92 else
|
pankso@5
|
93 cat << EOT
|
pankso@5
|
94
|
pankso@5
|
95 <!-- End content -->
|
pankso@5
|
96 </div>
|
pankso@5
|
97
|
pankso@63
|
98 <div id="footer">
|
pankso@63
|
99 I ♥ <a href="http://tinycm.slitaz.org/">TinyCM</a>
|
pankso@63
|
100 </div>
|
pankso@5
|
101
|
pankso@5
|
102 </body>
|
pankso@5
|
103 </html>
|
pankso@5
|
104 EOT
|
pankso@5
|
105 fi
|
pankso@5
|
106 }
|
pankso@5
|
107
|
pankso@5
|
108 # Default index if missing
|
pankso@5
|
109 default_index() {
|
pankso@11
|
110 mkdir -p "$wiki"
|
pankso@5
|
111 cat > $wiki/$index.txt << EOT
|
pankso@5
|
112 ==== Welcome ====
|
pankso@5
|
113
|
pankso@36
|
114 <p>
|
pankso@32
|
115 This is the default index page of your TinyCM, you can login then start to
|
paul@80
|
116 edit and add some content. You can read the help about text formating
|
pankso@48
|
117 and functions: [Help page|en/help]
|
pankso@36
|
118 </p>
|
pankso@5
|
119
|
pankso@5
|
120 EOT
|
pankso@5
|
121 }
|
pankso@5
|
122
|
pankso@28
|
123 # Log main activity.
|
pankso@28
|
124 log_activity() {
|
pankso@28
|
125 [ -d "$cache/log" ] || mkdir -p ${cache}/log
|
pankso@28
|
126 #gravatar="$(get_gravatar $MAIL 24)"
|
pankso@28
|
127 grep ^[A-Z] | \
|
pankso@28
|
128 sed s"#^[A-Z]\([^']*\)#$user|$(date '+%Y-%m-%d')|\0#" \
|
pankso@28
|
129 >> $cache/log/activity.log
|
pankso@28
|
130 }
|
pankso@28
|
131
|
pankso@5
|
132 # Log documents activity.
|
pankso@5
|
133 log() {
|
pankso@5
|
134 grep ^[A-Z] | \
|
pankso@5
|
135 sed s"#^[A-Z]\([^']*\)#$(date '+%Y-%m-%d %H:%M') : \0#" \
|
pankso@5
|
136 >> $cache/$d/activity.log
|
pankso@5
|
137 }
|
pankso@5
|
138
|
pankso@5
|
139 # Check if user is auth
|
pankso@5
|
140 check_auth() {
|
pankso@5
|
141 auth="$(COOKIE auth)"
|
pankso@5
|
142 user="$(echo $auth | cut -d ":" -f 1)"
|
pankso@5
|
143 md5cookie="$(echo $auth | cut -d ":" -f 2)"
|
pankso@5
|
144 [ -f "$sessions/$user" ] && md5session="$(cat $sessions/$user)"
|
pankso@5
|
145 if [ "$md5cookie" == "$md5session" ] && [ "$auth" ]; then
|
pankso@5
|
146 . $PEOPLE/$user/account.conf
|
pankso@5
|
147 return 0
|
pankso@5
|
148 else
|
pankso@5
|
149 return 1
|
pankso@5
|
150 fi
|
pankso@5
|
151 }
|
pankso@5
|
152
|
pankso@28
|
153 # Check if user is admin
|
pankso@28
|
154 admin_user() {
|
pankso@28
|
155 fgrep -q 'ADMIN_USER="yes"' ${PEOPLE}/${user}/account.conf
|
pankso@28
|
156 }
|
pankso@28
|
157
|
paul@64
|
158 # Authenticated or not
|
pankso@5
|
159 user_box() {
|
pankso@5
|
160 if check_auth; then
|
pankso@5
|
161 cat << EOT
|
pankso@5
|
162
|
pankso@5
|
163 <div id="user">
|
pankso@5
|
164 <a href="$script?user=$user">$(get_gravatar $MAIL 20)</a>
|
pankso@5
|
165 <a href="$script?logout">Logout</a>
|
pankso@5
|
166 </div>
|
pankso@5
|
167
|
pankso@5
|
168 EOT
|
pankso@5
|
169 else
|
pankso@5
|
170 cat << EOT
|
pankso@5
|
171
|
pankso@5
|
172 <div id="user">
|
pankso@5
|
173 <a href="$script?login"><img src="images/avatar.png" alt="[ User ]" /></a>
|
pankso@5
|
174 <a href="$script?login">Login</a>
|
pankso@5
|
175 </div>
|
pankso@5
|
176
|
pankso@5
|
177 EOT
|
pankso@5
|
178 fi
|
pankso@5
|
179 cat << EOT
|
pankso@5
|
180 <!--
|
pankso@5
|
181 <div id="search">
|
pankso@5
|
182 <form method="get" action="$script">
|
pankso@5
|
183 <input type="text" name="search" placeholder="$(gettext "Search")" />
|
pankso@5
|
184 </form>
|
pankso@5
|
185 </div>
|
pankso@5
|
186 -->
|
pankso@5
|
187 EOT
|
pankso@5
|
188 }
|
pankso@5
|
189
|
pankso@5
|
190 # Link for online signup if enabled.
|
pankso@5
|
191 online_signup() {
|
pankso@5
|
192 if [ "$ONLINE_SIGNUP" == "yes" ]; then
|
pankso@5
|
193 echo -n "<p><a href='$script?signup'>"
|
pankso@5
|
194 gettext "Create a new account"
|
pankso@5
|
195 echo '</a></p>'
|
pankso@5
|
196 fi
|
pankso@5
|
197 }
|
pankso@5
|
198
|
pankso@5
|
199 # Login page
|
pankso@5
|
200 login_page() {
|
pankso@5
|
201 cat << EOT
|
pankso@5
|
202 <h2>$(gettext "Login")</h2>
|
pankso@5
|
203
|
pankso@5
|
204 <div id="account-info">
|
paul@61
|
205 $(gettext "No account yet or trouble with your account? Please send
|
pankso@5
|
206 a request to $ADMIN_MAIL with your real name, user name, mail and password.")
|
pankso@5
|
207 $(online_signup)
|
pankso@5
|
208 </div>
|
pankso@5
|
209
|
pankso@5
|
210 <div id="login">
|
pankso@5
|
211 <form method="post" action="$script">
|
pankso@5
|
212 <input type="text" name="auth" placeholder="$(gettext "User name")" />
|
pankso@5
|
213 <input type="password" name="pass" placeholder="$(gettext "Password")" />
|
pankso@5
|
214 <div>
|
pankso@5
|
215 <input type="submit" value="Login" /> $error
|
pankso@5
|
216 </div>
|
pankso@5
|
217 </form>
|
pankso@5
|
218 </div>
|
pankso@5
|
219
|
pankso@5
|
220 <div style="clear: both;"></div>
|
pankso@5
|
221 EOT
|
pankso@5
|
222 }
|
pankso@5
|
223
|
pankso@5
|
224 # Signup page
|
pankso@5
|
225 signup_page() {
|
pankso@5
|
226 cat << EOT
|
pankso@5
|
227
|
pankso@5
|
228 <div id="signup">
|
pankso@5
|
229 <form method="post" name="signup" action="$script" onsubmit="return checkSignup();">
|
pankso@5
|
230 <input type="hidden" name="signup" value="new" />
|
pankso@5
|
231 <input type="text" name="name" placeholder="$(gettext "Real name")" />
|
pankso@5
|
232 <input type="text" name="user" placeholder="$(gettext "User name")" />
|
pankso@5
|
233 <input type="text" name="mail" placeholder="$(gettext "Email")" />
|
pankso@5
|
234 <input type="password" name="pass" placeholder="$(gettext "Password")" />
|
pankso@5
|
235 <div>
|
pankso@5
|
236 <input type="submit" value="$(gettext "Create new account")" />
|
pankso@5
|
237 </div>
|
pankso@5
|
238 </form>
|
pankso@5
|
239 </div>
|
pankso@5
|
240
|
pankso@5
|
241 EOT
|
pankso@5
|
242 }
|
pankso@5
|
243
|
pankso@5
|
244 # Create a new user in AUTH_FILE and PEOPLE
|
pankso@5
|
245 new_user_config() {
|
pankso@20
|
246 if [ ! -f "$AUTH_FILE" ];then
|
pankso@63
|
247 touch $AUTH_FILE
|
pankso@63
|
248 chmod 0600 $AUTH_FILE
|
pankso@20
|
249 fi
|
pankso@5
|
250 key=$(echo -n "$user:$mail:$pass" | md5sum | awk '{print $1}')
|
pankso@5
|
251 echo "$user:$pass" >> $AUTH_FILE
|
pankso@5
|
252 mkdir -p $PEOPLE/$user/
|
pankso@5
|
253 cat > $PEOPLE/$user/account.conf << EOT
|
pankso@5
|
254 # SliTaz user configuration
|
pankso@5
|
255 #
|
pankso@5
|
256
|
pankso@5
|
257 NAME="$name"
|
pankso@5
|
258 USER="$user"
|
pankso@5
|
259 MAIL="$mail"
|
pankso@5
|
260 KEY="$key"
|
pankso@5
|
261
|
pankso@5
|
262 EOT
|
pankso@5
|
263 chmod 0600 $PEOPLE/$user/account.conf
|
pankso@28
|
264 # First created user is admin
|
pankso@28
|
265 if [ $(ls ${PEOPLE} | wc -l) == "1" ]; then
|
pankso@28
|
266 echo 'ADMIN_USER="yes"' >> $PEOPLE/$user/account.conf
|
pankso@28
|
267 fi
|
pankso@5
|
268 }
|
pankso@5
|
269
|
paul@64
|
270 # The CM style parser. Just a title, simple text formatting and internal
|
paul@8
|
271 # links, as well as images and use HTML for other stuff. Keep it fast!
|
pankso@5
|
272 # To make TinyCM as easy as possible we have a small HTML editor/helper
|
pankso@5
|
273 # written in Javascript
|
pankso@5
|
274 wiki_parser() {
|
pankso@5
|
275 doc="[0-9a-zA-Z\.\#/~\_%=\?\&,\+\:@;!\(\)\*\$'\-]*"
|
pankso@5
|
276 sed \
|
pankso@5
|
277 -e s"#====\([^']*\)====#<h2>\1</h2>#"g \
|
pankso@5
|
278 -e s"#===\([^']*\)===#<h3>\1</h3>#"g \
|
pankso@5
|
279 -e s"#==\([^']*\)==#<h4>\1</h4>#"g \
|
pankso@13
|
280 -e s"#\*\*\([^']*\)\*\*#<b>\1</b>#"g \
|
pankso@5
|
281 -e s"#''\([^']*\)''#<em>\1</em>#"g \
|
pankso@5
|
282 -e s"#__\([^']*\)__#<u>\1</u>#"g \
|
pankso@5
|
283 -e s"#\[\([^]]*\)|\($doc\)\]#<a href='$script?d=\2'>\1</a>#"g \
|
pankso@17
|
284 -e s"#\[\([^]]*\)!\($doc\)\]#<a href='\2'>\1</a>#"g \
|
pankso@17
|
285 -e s"#\[\(http://*[^]]*.png\)\]#<img src='\1' />#"g \
|
pankso@91
|
286 -e s"#\[\([^]]*.png\)\]#<img src='content/cloud/\1' />#"g \
|
pankso@91
|
287 -e s"#@\([^']*\)@#<a href='$script?user=\1'>\1</a>#"g
|
pankso@5
|
288 }
|
pankso@5
|
289
|
pankso@5
|
290 link_user() {
|
pankso@15
|
291 echo "<a href='$(basename $script)?user=$user'>$user</a>"
|
pankso@5
|
292 }
|
pankso@5
|
293
|
pankso@5
|
294 # Save a document. Do we need more than 1 backup and diff ?
|
pankso@5
|
295 save_document() {
|
pankso@5
|
296 mkdir -p $cache/$d $(dirname $wiki/$d)
|
pankso@5
|
297 # May be a new page.
|
pankso@5
|
298 if [ ! -f "$wiki/$d.txt" ]; then
|
pankso@5
|
299 new=0
|
pankso@5
|
300 touch $wiki/$d.txt
|
pankso@5
|
301 fi
|
pankso@5
|
302 cp $wiki/$d.txt $cache/$d/last.bak
|
pankso@5
|
303 sed "s/$(echo -en '\r') /\n/g" > $wiki/$d.txt << EOT
|
pankso@5
|
304 $(GET content)
|
pankso@5
|
305 EOT
|
pankso@5
|
306 diff $cache/$d/last.bak $wiki/$d.txt > $cache/$d/last.diff
|
pankso@5
|
307 # Log
|
pankso@5
|
308 if [ "$new" ]; then
|
pankso@5
|
309 echo "Page created by: $(link_user)" | log
|
pankso@31
|
310 echo "New document: <a href='$script?d=$d'>$d</a>" | log_activity
|
pankso@5
|
311 if [ "$HG" == "yes" ]; then
|
pankso@5
|
312 cd $content && hg -q add
|
pankso@5
|
313 hg commit -q -u "$NAME <$MAIL>" -m "Created new document: $d"
|
pankso@5
|
314 cd $tiny
|
pankso@5
|
315 fi
|
pankso@5
|
316 else
|
pankso@28
|
317 # Here we may clean log: cat && tail -n 40
|
pankso@5
|
318 echo "Page edited by: $(link_user)" | log
|
pankso@5
|
319 if [ "$HG" == "yes" ]; then
|
pankso@5
|
320 cd $content && hg commit -q -u "$NAME <$MAIL>" \
|
pankso@5
|
321 -m "Edited document: $d"
|
pankso@5
|
322 cd $tiny
|
pankso@5
|
323 fi
|
pankso@5
|
324 fi
|
pankso@5
|
325 }
|
pankso@5
|
326
|
pankso@52
|
327 # CM tools (edit, diff, etc) for auth users
|
pankso@5
|
328 wiki_tools() {
|
pankso@52
|
329 if check_auth; then
|
pankso@52
|
330 cat << EOT
|
pankso@5
|
331 <div id="tools">
|
pankso@5
|
332 <a href="$script?edit=$d">$(gettext "Edit document")</a>
|
pankso@59
|
333 <a href="$script?log=$d">$(gettext "File log")</a>
|
pankso@5
|
334 <a href="$script?diff=$d">$(gettext "Last diff")</a>
|
pankso@59
|
335 $PLUGINS_TOOLS
|
pankso@52
|
336 EOT
|
pankso@52
|
337 [ "$HG" == "yes" ] && echo "<a href='$script?hg'>Hg Log</a>"
|
pankso@52
|
338 echo "</div>"
|
pankso@52
|
339 fi
|
pankso@52
|
340 }
|
pankso@52
|
341
|
pankso@59
|
342 # Built-in tools such as log/ls and PLUGINS_TOOLS
|
pankso@59
|
343 tiny_tools() {
|
pankso@52
|
344 if check_auth; then
|
pankso@52
|
345 cat << EOT
|
pankso@52
|
346 <div id='tools'>
|
pankso@52
|
347 <a href='$script?log'>Activity log</a>
|
pankso@52
|
348 <a href='$script?ls'>Pages list</a>
|
pankso@59
|
349 $PLUGINS_TOOLS
|
pankso@5
|
350 </div>
|
pankso@5
|
351 EOT
|
pankso@52
|
352 fi
|
pankso@5
|
353 }
|
pankso@5
|
354
|
pankso@5
|
355 # Get and display Gravatar image: get_gravatar email size
|
pankso@5
|
356 # Link to profile: <a href="http://www.gravatar.com/$md5">...</a>
|
pankso@5
|
357 get_gravatar() {
|
pankso@5
|
358 email=$1
|
pankso@5
|
359 size=$2
|
pankso@5
|
360 [ "$size" ] || size=48
|
pankso@5
|
361 url="http://www.gravatar.com/avatar"
|
pankso@5
|
362 md5=$(md5crypt $email)
|
pankso@5
|
363 echo "<img src='$url/$md5?d=identicon&s=$size' alt='∗' />"
|
pankso@5
|
364 }
|
pankso@5
|
365
|
pankso@5
|
366 # List hg logs
|
pankso@5
|
367 hg_log() {
|
pankso@5
|
368 cd $content
|
pankso@5
|
369 cat << EOT
|
pankso@5
|
370 <table>
|
pankso@5
|
371 <thead>
|
pankso@5
|
372 <td>$(gettext "User")</td>
|
pankso@5
|
373 <td>$(gettext "Description")</td>
|
pankso@5
|
374 <td>$(gettext "Revision")</td>
|
pankso@5
|
375 </thead>
|
pankso@5
|
376 EOT
|
pankso@5
|
377 hg log --template "<tr><td>{author}</td><td>{desc}</td><td>{rev}</td></tr>\n"
|
pankso@5
|
378 echo '</table>'
|
pankso@5
|
379 }
|
pankso@5
|
380
|
pankso@5
|
381 #
|
pankso@5
|
382 # POST actions
|
pankso@5
|
383 #
|
pankso@5
|
384
|
pankso@5
|
385 case " $(POST) " in
|
pankso@5
|
386 *\ auth\ *)
|
pankso@5
|
387 # Authenticate user. Create a session file in $sessions to be used
|
pankso@5
|
388 # by check_auth. We have the user login name and a peer session
|
pankso@5
|
389 # md5 string in the COOKIE.
|
pankso@5
|
390 user="$(POST auth)"
|
pankso@5
|
391 pass="$(md5crypt "$(POST pass)")"
|
pankso@5
|
392 valid=$(fgrep "${user}:" $AUTH_FILE | cut -d ":" -f 2)
|
pankso@5
|
393 if [ "$pass" == "$valid" ] && [ "$pass" != "" ]; then
|
pankso@5
|
394 md5session=$(echo -n "$$:$user:$pass:$$" | md5sum | awk '{print $1}')
|
pankso@5
|
395 [ -d $sessions ] || mkdir -p $sessions
|
pankso@36
|
396 date '+%Y-%m-%d' > ${PEOPLE}/${user}/last
|
pankso@5
|
397 echo "$md5session" > $sessions/$user
|
pankso@5
|
398 header "Location: $script" \
|
pankso@5
|
399 "Set-Cookie: auth=$user:$md5session; HttpOnly"
|
pankso@5
|
400 else
|
pankso@5
|
401 header "Location: $script?login&error"
|
pankso@5
|
402 fi ;;
|
pankso@5
|
403 *\ signup\ *)
|
pankso@5
|
404 # POST action for signup
|
pankso@5
|
405 name="$(POST name)"
|
pankso@5
|
406 user="$(POST user)"
|
pankso@5
|
407 mail="$(POST mail)"
|
pankso@5
|
408 pass="$(md5crypt "$(POST pass)")"
|
pankso@5
|
409 if ! grep "^${user}:" $AUTH_FILE; then
|
pankso@5
|
410 new_user_config
|
pankso@5
|
411 header "Location: $script?login"
|
pankso@5
|
412 else
|
pankso@5
|
413 header
|
pankso@5
|
414 html_header
|
pankso@5
|
415 user_box
|
pankso@44
|
416 echo "<h2>$(gettext 'User already exists:') $user</h2>"
|
pankso@5
|
417 html_footer
|
pankso@5
|
418 fi ;;
|
pankso@5
|
419 esac
|
pankso@5
|
420
|
pankso@5
|
421 #
|
pankso@5
|
422 # Plugins
|
pankso@5
|
423 #
|
pankso@5
|
424 for p in $(ls -1 $plugins)
|
pankso@5
|
425 do
|
pankso@5
|
426 [ -f "$plugins/$p/$p.conf" ] && . $plugins/$p/$p.conf
|
pankso@5
|
427 [ -x "$plugins/$p/$p.cgi" ] && . $plugins/$p/$p.cgi
|
pankso@5
|
428 done
|
pankso@5
|
429
|
pankso@5
|
430 #
|
pankso@5
|
431 # GET actions
|
pankso@5
|
432 #
|
pankso@5
|
433
|
pankso@5
|
434 case " $(GET) " in
|
pankso@5
|
435 *\ edit\ *)
|
pankso@5
|
436 d="$(GET edit)"
|
pankso@5
|
437 header
|
pankso@5
|
438 html_header
|
pankso@5
|
439 user_box
|
pankso@5
|
440 get_lang
|
pankso@59
|
441 wiki_tools
|
pankso@5
|
442 if check_auth; then
|
pankso@5
|
443 cat << EOT
|
pankso@5
|
444 <h2>$(gettext "Edit $doc [ $i18n ]")</h2>
|
pankso@5
|
445
|
pankso@5
|
446 <div id="edit">
|
pankso@5
|
447
|
pankso@5
|
448 <form method="get" action="$script" name="editor">
|
pankso@5
|
449 <input type="hidden" name="save" value="$d" />
|
pankso@5
|
450 <textarea name="content">$(cat "$wiki/$d.txt")</textarea>
|
pankso@5
|
451 <input type="submit" value="$(gettext "Save document")" />
|
pankso@5
|
452 $(gettext "Code Helper:")
|
pankso@5
|
453 $(cat lib/jseditor.html)
|
pankso@5
|
454 </form>
|
pankso@5
|
455
|
pankso@5
|
456 </div>
|
pankso@5
|
457 EOT
|
pankso@5
|
458 else
|
paul@8
|
459 gettext "You must be logged in to edit pages"
|
pankso@5
|
460 fi
|
pankso@5
|
461 html_footer ;;
|
pankso@15
|
462
|
pankso@5
|
463 *\ save\ *)
|
pankso@5
|
464 d="$(GET save)"
|
pankso@5
|
465 if check_auth; then
|
pankso@76
|
466 save_document
|
pankso@5
|
467 fi
|
pankso@5
|
468 header "Location: $script?d=$d" ;;
|
pankso@15
|
469
|
pankso@5
|
470 *\ log\ *)
|
pankso@5
|
471 d="$(GET log)"
|
pankso@5
|
472 header
|
pankso@5
|
473 html_header
|
pankso@5
|
474 user_box
|
pankso@28
|
475 # Main activity
|
pankso@28
|
476 if [ "$d" == "log" ]; then
|
pankso@59
|
477 tiny_tools
|
pankso@52
|
478 echo "<h2>$(gettext "Activity log")</h2>"
|
pankso@28
|
479 echo '<pre>'
|
pankso@28
|
480 if [ -f "$cache/log/activity.log" ]; then
|
pankso@28
|
481 IFS="|"
|
pankso@28
|
482 tac $cache/log/activity.log | while read USER DATE LOG
|
pankso@28
|
483 do
|
pankso@28
|
484 . ${PEOPLE}/${USER}/account.conf
|
pankso@28
|
485 cat << EOT
|
pankso@28
|
486 <a href='$script?user=$USER'>$(get_gravatar $MAIL 24)</a>\
|
pankso@28
|
487 <span class='date'>$DATE -</span> $LOG
|
pankso@28
|
488 EOT
|
pankso@28
|
489 done
|
pankso@28
|
490 unset IFS
|
pankso@28
|
491 else
|
pankso@28
|
492 gettext "No activity log yet"; echo
|
pankso@28
|
493 fi
|
pankso@28
|
494 echo '</pre>'
|
pankso@28
|
495 html_footer && exit 0
|
pankso@28
|
496 fi
|
pankso@52
|
497 # Document activity
|
pankso@5
|
498 get_lang
|
pankso@52
|
499 wiki_tools
|
pankso@5
|
500 echo "<h2>$(gettext "Activity for:") <a href='$script?d=$d'>$d</a></h2>"
|
pankso@5
|
501 echo '<pre>'
|
pankso@5
|
502 if [ -f "$cache/$d/activity.log" ]; then
|
pankso@5
|
503 tac $cache/$d/activity.log
|
pankso@5
|
504 else
|
pankso@5
|
505 gettext "No log for: $d"; echo
|
pankso@5
|
506 fi
|
pankso@5
|
507 echo '</pre>'
|
pankso@5
|
508 html_footer ;;
|
pankso@28
|
509
|
pankso@28
|
510 *\ ls\ *)
|
pankso@28
|
511 d="Document list"
|
pankso@28
|
512 header
|
pankso@28
|
513 html_header
|
pankso@28
|
514 user_box
|
pankso@59
|
515 tiny_tools
|
pankso@59
|
516 [ ! check_auth ] && auth=0
|
pankso@48
|
517 echo "<h2>$(gettext "Pages list")</h2>"
|
pankso@28
|
518 echo '<pre>'
|
pankso@28
|
519 cd ${wiki}
|
pankso@28
|
520 for d in $(find . -type f | sed s'/.\///')
|
pankso@28
|
521 do
|
pankso@65
|
522 echo -n "<a href='$script?d=${d%.txt}'>${d%.txt}</a>"
|
pankso@65
|
523 if [ "$auth" ]; then
|
pankso@65
|
524 cat << EOT
|
pankso@65
|
525 : <a href="$script?edit=$d">$(gettext "Edit")</a> || \
|
pankso@65
|
526 <a href="$script?rm=$d">$(gettext "Remove")</a>
|
pankso@48
|
527 EOT
|
pankso@65
|
528 else
|
pankso@65
|
529 echo ""
|
pankso@65
|
530 fi
|
pankso@59
|
531 done && unset auth
|
pankso@28
|
532 echo '</pre>'
|
pankso@28
|
533 html_footer ;;
|
pankso@48
|
534
|
pankso@48
|
535 *\ rm\ *)
|
pankso@59
|
536 [ ! check_auth ] && exit 1
|
pankso@48
|
537 d="$(GET rm)"
|
pankso@48
|
538 rm ${wiki}/"${d}"
|
pankso@48
|
539 rm -rf ${cache}/"${d%.txt}"
|
pankso@48
|
540 header "Location: $script?ls" ;;
|
pankso@15
|
541
|
pankso@5
|
542 *\ diff\ *)
|
pankso@5
|
543 d="$(GET diff)"
|
pankso@5
|
544 date="last"
|
pankso@5
|
545 header
|
pankso@5
|
546 html_header
|
pankso@5
|
547 user_box
|
pankso@5
|
548 get_lang
|
pankso@52
|
549 wiki_tools
|
pankso@5
|
550 echo "<h2>$(gettext "Diff for:") <a href='$script?d=$d'>$d</a></h2>"
|
pankso@5
|
551 echo '<pre>'
|
pankso@5
|
552 if [ -f "$cache/$d/$date.diff" ]; then
|
pankso@5
|
553 cat $cache/$d/$date.diff | sed \
|
pankso@5
|
554 -e 's|&|\&|g' -e 's|<|\<|g' -e 's|>|\>|g' \
|
pankso@5
|
555 -e s"#^-\([^']*\).#<span style='color: red;'>\0</span>#"g \
|
pankso@5
|
556 -e s"#^+\([^']*\).#<span style='color: green;'>\0</span>#"g \
|
pankso@5
|
557 -e s"#@@\([^']*\)@@#<span style='color: blue;'>@@\1@@</span>#"g
|
pankso@5
|
558 else
|
pankso@59
|
559 gettext "No diff for:"; echo " $d"
|
pankso@5
|
560 fi
|
pankso@5
|
561 echo '</pre>'
|
pankso@5
|
562 html_footer ;;
|
pankso@15
|
563
|
pankso@5
|
564 *\ login\ *)
|
pankso@5
|
565 # The login page
|
pankso@5
|
566 d="Login"
|
pankso@5
|
567 [ "$(GET error)" ] && \
|
pankso@5
|
568 error="<p class="error">$(gettext "Bad login or pass")</p>"
|
pankso@5
|
569 header
|
pankso@5
|
570 html_header
|
pankso@5
|
571 user_box
|
pankso@5
|
572 login_page
|
pankso@5
|
573 html_footer ;;
|
pankso@15
|
574
|
pankso@5
|
575 *\ signup\ *)
|
pankso@5
|
576 # The login page
|
pankso@5
|
577 d="$(gettext "Sign Up")"
|
pankso@5
|
578 header
|
pankso@5
|
579 html_header
|
pankso@5
|
580 user_box
|
pankso@5
|
581 echo "<h2>$d</h2>"
|
pankso@5
|
582 if [ "$ONLINE_SIGNUP" == "yes" ]; then
|
pankso@5
|
583 signup_page
|
pankso@5
|
584 else
|
paul@8
|
585 gettext "Online registration is disabled"
|
pankso@5
|
586 fi
|
pankso@5
|
587 html_footer ;;
|
pankso@15
|
588
|
pankso@5
|
589 *\ logout\ *)
|
pankso@5
|
590 # Set a Cookie in the past to logout.
|
pankso@5
|
591 expires="Expires=Wed, 01-Jan-1980 00:00:00 GMT"
|
pankso@5
|
592 if check_auth; then
|
pankso@5
|
593 rm -f "$sessions/$user"
|
pankso@5
|
594 header "Location: $script" "Set-Cookie: auth=none; $expires; HttpOnly"
|
pankso@5
|
595 fi ;;
|
pankso@15
|
596
|
pankso@5
|
597 *\ user\ *)
|
pankso@76
|
598 # Basic user profile. Use the users plugin for more functions
|
pankso@15
|
599 d="$(GET user)"
|
pankso@36
|
600 last="$(cat $PEOPLE/"$(GET user)"/last)"
|
pankso@5
|
601 header
|
pankso@5
|
602 html_header
|
pankso@5
|
603 user_box
|
pankso@5
|
604 . $PEOPLE/"$(GET user)"/account.conf
|
pankso@36
|
605 cat << EOT
|
pankso@36
|
606 <h2>$(get_gravatar $MAIL) $NAME</h2>
|
pankso@36
|
607
|
pankso@36
|
608 <pre>
|
pankso@36
|
609 $(gettext "User name :") $USER
|
pankso@36
|
610 $(gettext "Last login :") $last
|
pankso@76
|
611 </pre>
|
pankso@36
|
612 EOT
|
pankso@5
|
613 html_footer ;;
|
pankso@15
|
614
|
pankso@59
|
615 *\ hg\ *)
|
pankso@59
|
616 d="Hg Log"
|
pankso@5
|
617 header
|
pankso@5
|
618 html_header
|
pankso@5
|
619 user_box
|
pankso@5
|
620 [ "$HG" != "yes" ] && gettext "Hg is disabled" && exit 0
|
pankso@5
|
621 [ ! -x /usr/bin/hg ] && gettext "Hg is not installed" && exit 0
|
pankso@5
|
622 echo "<h2>$d</h2>"
|
pankso@5
|
623 case " $(GET hg) " in
|
pankso@5
|
624 *\ init\ *)
|
pankso@5
|
625 if check_auth; then
|
pankso@5
|
626 [ -d "$content/.hg" ] && exit 0
|
pankso@5
|
627 echo '<pre>'
|
pankso@5
|
628 gettext "Executing: hg init"; echo
|
pankso@5
|
629 cd $content/ && hg init
|
pankso@5
|
630 echo '[hooks]' > .hg/hgrc
|
pankso@5
|
631 echo 'incoming = hg update' >> .hg/hgrc
|
paul@8
|
632 gettext "Adding current content and committing"; echo
|
pankso@59
|
633 [ ! -f "$wiki/index.txt" ] && default_index
|
pankso@5
|
634 hg add && hg commit -u "$NAME <$MAIL>" \
|
paul@22
|
635 -m "Initial commit with current content"
|
pankso@5
|
636 echo '</pre>' && cd ..
|
pankso@5
|
637 fi ;;
|
pankso@5
|
638 esac
|
pankso@5
|
639 hg_log
|
pankso@5
|
640 html_footer ;;
|
pankso@15
|
641
|
pankso@5
|
642 *)
|
pankso@5
|
643 # Display requested page
|
pankso@5
|
644 d="$(GET d)"
|
pankso@5
|
645 [ "$d" ] || d=$index
|
pankso@5
|
646 header
|
pankso@5
|
647 html_header
|
pankso@5
|
648 user_box
|
pankso@5
|
649 get_lang
|
pankso@52
|
650
|
pankso@34
|
651 # Generate a default index on first run
|
pankso@11
|
652 if [ ! -f "$wiki/$index.txt" ]; then
|
pankso@34
|
653 if ! default_index; then
|
paul@64
|
654 echo "<pre class='error'>Directory : content/ is not writeable</pre>"
|
pankso@32
|
655 html_footer && exit 0
|
pankso@32
|
656 fi
|
pankso@11
|
657 fi
|
pankso@52
|
658
|
pankso@34
|
659 # Check cache dir
|
pankso@34
|
660 if [ ! -w "$cache" ]; then
|
paul@64
|
661 echo "<pre class='error'>Directory : cache/ is not writeable"
|
pankso@34
|
662 echo "Command : install -m 0777 -d $tiny/cache</pre>"
|
pankso@34
|
663 html_footer && exit 0
|
pankso@34
|
664 fi
|
pankso@52
|
665
|
pankso@59
|
666 # Hg warning if enabled but not initiated
|
pankso@52
|
667 if [ "$HG" == "yes" ] && [ ! -d "$content/.hg" ]; then
|
pankso@52
|
668 echo '<p class="error box">'
|
pankso@52
|
669 gettext "Mercurial is enabled but no repository found"
|
pankso@59
|
670 echo ": <a href='$script?hg=init'>Hg init</a>"
|
pankso@52
|
671 echo '</p>'
|
pankso@52
|
672 fi
|
pankso@52
|
673
|
pankso@52
|
674 # Wiki tools
|
pankso@52
|
675 wiki_tools
|
pankso@52
|
676
|
pankso@34
|
677 # Wiki document
|
pankso@5
|
678 if [ ! -f "$wiki/$d.txt" ]; then
|
pankso@5
|
679 echo "<h2>$d</h2>"
|
pankso@5
|
680 gettext "The document does not exist. You can create it or read the"
|
pankso@59
|
681 echo " <a href='$script?d=en/help'>help</a>"
|
pankso@5
|
682 else
|
pankso@26
|
683 if fgrep -q [NOWIKI] $wiki/$d.txt; then
|
pankso@35
|
684 cat $wiki/$d.txt | sed '/\[NOWIKI\]/'d
|
pankso@5
|
685 else
|
pankso@5
|
686 cat $wiki/$d.txt | wiki_parser
|
pankso@5
|
687 fi
|
pankso@5
|
688 fi
|
pankso@5
|
689 html_footer ;;
|
pankso@5
|
690 esac
|
pankso@5
|
691
|
pankso@5
|
692 exit 0
|