tinycm annotate index.cgi @ rev 91

Handle @username@ in document and wall to link to user profile
author Christophe Lincoln <pankso@slitaz.org>
date Fri Feb 17 00:46:34 2017 +0100 (2017-02-17)
parents d6f01c5019bb
children 69214a677729
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 &hearts; <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='&lowast;' />"
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|&|\&amp;|g' -e 's|<|\&lt;|g' -e 's|>|\&gt;|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