tazbug annotate web/bugs.cgi @ rev 42
plugins need to be load after header is send.
author | border |
---|---|
date | Tue Jan 08 16:06:59 2013 -0500 (2013-01-08) |
parents | e978d208e75d |
children | 2810068bd082 |
rev | line source |
---|---|
pankso@9 | 1 #!/bin/sh |
pankso@9 | 2 # |
pankso@9 | 3 # TazBug Web interface |
pankso@9 | 4 # |
pankso@9 | 5 # Copyright (C) 2012 SliTaz GNU/Linux - BSD License |
pankso@9 | 6 # |
pankso@9 | 7 . /usr/lib/slitaz/httphelper |
xfred222@32 | 8 [ -f "/etc/slitaz/bugs.conf" ] && . /etc/slitaz/bugs.conf |
xfred222@32 | 9 |
pankso@9 | 10 # Internal variable |
xfred222@34 | 11 bugdir="$TAZBUG/bug" |
pankso@29 | 12 plugins="plugins" |
xfred222@34 | 13 sessions="/tmp/bugs/sessions" |
pankso@30 | 14 po="" |
xfred222@32 | 15 |
pankso@9 | 16 # Content negotiation for Gettext |
pankso@9 | 17 IFS="," |
pankso@9 | 18 for lang in $HTTP_ACCEPT_LANGUAGE |
pankso@9 | 19 do |
pankso@9 | 20 lang=${lang%;*} lang=${lang# } lang=${lang%-*} |
pankso@9 | 21 case "$lang" in |
pankso@30 | 22 en) LANG="C" ;; |
pankso@30 | 23 de) LANG="de_DE" ;; |
pankso@30 | 24 es) LANG="es_ES" ;; |
pankso@30 | 25 fr) LANG="fr_FR" ;; |
pankso@30 | 26 it) LANG="it_IT" ;; |
pankso@30 | 27 pt) LANG="pt_BR" ;; |
pankso@30 | 28 ru) LANG="ru_RU" ;; |
pankso@30 | 29 zh) LANG="zh_TW" ;; |
pankso@9 | 30 esac |
pankso@30 | 31 if echo "$po" | fgrep -q "$lang"; then |
pankso@30 | 32 break |
pankso@30 | 33 fi |
pankso@9 | 34 done |
pankso@9 | 35 unset IFS |
pankso@30 | 36 export LANG LC_ALL=$LANG |
pankso@9 | 37 |
pankso@9 | 38 # Internationalization: $(gettext "") |
pankso@9 | 39 . /usr/bin/gettext.sh |
pankso@9 | 40 TEXTDOMAIN='tazbug' |
pankso@9 | 41 export TEXTDOMAIN |
pankso@9 | 42 |
xfred222@33 | 43 |
xfred222@33 | 44 |
xfred222@33 | 45 |
xfred222@33 | 46 |
xfred222@33 | 47 |
pankso@9 | 48 # |
pankso@9 | 49 # Functions |
pankso@9 | 50 # |
pankso@9 | 51 |
pankso@9 | 52 # HTML 5 header. |
pankso@9 | 53 html_header() { |
pankso@9 | 54 cat lib/header.html |
pankso@9 | 55 } |
pankso@9 | 56 |
pankso@9 | 57 # HTML 5 footer. |
pankso@9 | 58 html_footer() { |
pankso@9 | 59 cat << EOT |
pankso@9 | 60 </div> |
pankso@9 | 61 |
pankso@9 | 62 <div id="footer"> |
xfred222@34 | 63 <a href="$WEB_URL">SliTaz Bugs</a> - |
xfred222@34 | 64 <a href="$WEB_URL?README">README</a> |
pankso@9 | 65 </div> |
pankso@9 | 66 |
pankso@9 | 67 </body> |
pankso@9 | 68 </html> |
pankso@9 | 69 EOT |
pankso@9 | 70 } |
pankso@9 | 71 |
pascal@39 | 72 GETfiltered() |
pascal@39 | 73 { |
pascal@39 | 74 GET $1 | sed -e "s/'/\'/g; s|\n|<br/>|g; s/\t/\	/g;s/\%22/\"/g" |
pascal@39 | 75 } |
xfred222@32 | 76 |
xfred222@34 | 77 js_redirection_to() |
xfred222@34 | 78 { |
xfred222@34 | 79 js_log "Redirecting to $1" |
xfred222@34 | 80 echo "<script type=\"text/javascript\"> document.location = \"$1\"; </script>" |
xfred222@34 | 81 } |
xfred222@34 | 82 |
xfred222@34 | 83 |
xfred222@34 | 84 js_log() |
xfred222@34 | 85 { |
xfred222@34 | 86 echo "<script type=\"text/javascript\">console.log('$1')</script>"; |
xfred222@34 | 87 } |
xfred222@34 | 88 |
xfred222@34 | 89 |
xfred222@34 | 90 js_set_cookie() |
xfred222@34 | 91 { |
xfred222@34 | 92 name=$1 |
xfred222@34 | 93 value=$2 |
xfred222@34 | 94 |
xfred222@34 | 95 js_log 'Setting cookie.' |
xfred222@34 | 96 echo "<script type=\"text/javascript\">" |
xfred222@34 | 97 echo "document.cookie = \"$name=$value; expires=0; path=/\""; |
xfred222@34 | 98 echo "</script>" |
xfred222@34 | 99 } |
xfred222@34 | 100 |
xfred222@34 | 101 |
xfred222@34 | 102 js_unset_cookie() |
xfred222@34 | 103 { |
xfred222@34 | 104 name=$1 |
xfred222@34 | 105 |
xfred222@34 | 106 js_log 'Unsetting cookie.' |
xfred222@34 | 107 echo "<script type=\"text/javascript\">" |
xfred222@34 | 108 echo "document.cookie = \"$1=\"\"; expires=-1; path=/"; |
xfred222@34 | 109 echo "</script>" |
xfred222@34 | 110 } |
xfred222@34 | 111 |
xfred222@34 | 112 |
pankso@9 | 113 # Check if user is auth |
pankso@9 | 114 check_auth() { |
pankso@9 | 115 auth="$(COOKIE auth)" |
pankso@9 | 116 user="$(echo $auth | cut -d ":" -f 1)" |
pankso@9 | 117 md5cookie="$(echo $auth | cut -d ":" -f 2)" |
pankso@9 | 118 [ -f "$sessions/$user" ] && md5session="$(cat $sessions/$user)" |
pankso@9 | 119 if [ "$md5cookie" == "$md5session" ] && [ "$auth" ]; then |
pankso@9 | 120 return 0 |
pankso@9 | 121 else |
pankso@9 | 122 return 1 |
pankso@9 | 123 fi |
pankso@9 | 124 } |
pankso@9 | 125 |
xfred222@34 | 126 |
pankso@9 | 127 # Authentified or not |
pankso@9 | 128 user_box() { |
xfred222@33 | 129 |
xfred222@33 | 130 IDLOC="" |
xfred222@33 | 131 if [[ "$(GET id)" ]] ;then |
xfred222@34 | 132 IDLOC="&id=$(GET id)" |
xfred222@33 | 133 fi |
xfred222@33 | 134 |
pankso@9 | 135 if check_auth; then |
pankso@26 | 136 . $PEOPLE/$user/account.conf |
pankso@9 | 137 cat << EOT |
pankso@9 | 138 <div id="user"> |
pankso@24 | 139 <a href="?user=$user">$(get_gravatar $MAIL 20)</a> |
al@31 | 140 <a href="?logout">$(gettext 'Log out')</a> |
pankso@9 | 141 </div> |
pankso@9 | 142 EOT |
pankso@9 | 143 else |
pankso@9 | 144 cat << EOT |
xfred222@33 | 145 <div id="user"> |
xfred222@33 | 146 <a href="?login$IDLOC"><img src="images/avatar.png" alt="[ User ]" /></a> |
xfred222@33 | 147 <a href="?login$IDLOC">$(gettext 'Log in')</a> |
xfred222@33 | 148 </div> |
pankso@9 | 149 EOT |
pankso@9 | 150 fi |
pankso@9 | 151 cat << EOT |
pankso@9 | 152 |
pankso@24 | 153 <div id="search"> |
xfred222@34 | 154 <form method="get" action="$WEB_URL"> |
al@31 | 155 <input type="text" name="search" placeholder="$(gettext 'Search')" /> |
al@31 | 156 <!-- <input type="submit" value="$(gettext 'Search')" /> --> |
pankso@24 | 157 </form> |
pankso@24 | 158 </div> |
pankso@24 | 159 |
pankso@9 | 160 <!-- Content --> |
pankso@9 | 161 <div id="content"> |
pankso@9 | 162 |
pankso@9 | 163 EOT |
pankso@9 | 164 } |
pankso@9 | 165 |
xfred222@34 | 166 |
pankso@9 | 167 # Login page |
pankso@9 | 168 login_page() { |
xfred222@33 | 169 IDLOC="" |
xfred222@33 | 170 if [[ "$(GET id)" ]] ;then |
xfred222@34 | 171 IDLOC="?id=$(GET id)" |
xfred222@33 | 172 fi |
xfred222@33 | 173 |
pankso@9 | 174 cat << EOT |
al@31 | 175 <h2>$(gettext 'Login')</h2> |
pankso@9 | 176 |
pankso@9 | 177 <div id="account-info"> |
al@31 | 178 <p>$(gettext "No account yet? Please signup using the SliTaz Bugs reporter \ |
al@31 | 179 on your SliTaz system.")</p> |
al@31 | 180 <p>$(gettext "Tip: to attach big files or images, you can use SliTaz Paste \ |
al@31 | 181 services:") <a href="http://paste.slitaz.org/">paste.slitaz.org</a></p> |
pankso@9 | 182 </div> |
pankso@9 | 183 |
pankso@9 | 184 <div id="login"> |
xfred222@34 | 185 <form method="post" action="$SCRIPT_NAME"> |
al@31 | 186 <input type="text" name="auth" placeholder="$(gettext 'User name')" /> |
al@31 | 187 <input type="password" name="pass" placeholder="$(gettext 'Password')" /> |
pankso@21 | 188 <div> |
al@31 | 189 <input type="submit" value="$(gettext 'Log in')" /> |
pankso@21 | 190 $error |
pankso@21 | 191 </div> |
pankso@9 | 192 </form> |
pankso@9 | 193 </div> |
pankso@9 | 194 |
pankso@9 | 195 <div style="clear: both;"></div> |
pankso@9 | 196 EOT |
pankso@9 | 197 } |
pankso@9 | 198 |
xfred222@34 | 199 |
pankso@9 | 200 # Display user public profile. |
pankso@9 | 201 public_people() { |
pankso@9 | 202 cat << EOT |
pankso@9 | 203 <pre> |
al@31 | 204 $(eval_gettext 'Real name : $NAME') |
pankso@9 | 205 </pre> |
pankso@9 | 206 EOT |
pankso@9 | 207 } |
pankso@9 | 208 |
xfred222@34 | 209 |
pankso@9 | 210 # Display authentified user profile. TODO: change password |
pankso@9 | 211 auth_people() { |
pankso@9 | 212 cat << EOT |
pankso@9 | 213 <pre> |
al@31 | 214 $(eval_gettext 'Real name : $NAME') |
al@31 | 215 $(eval_gettext 'Email : $MAIL') |
al@31 | 216 $(eval_gettext 'Secure key : $KEY') |
pankso@9 | 217 </pre> |
pankso@9 | 218 EOT |
pankso@9 | 219 } |
pankso@9 | 220 |
xfred222@34 | 221 |
pankso@9 | 222 # Usage: list_bugs STATUS |
pankso@9 | 223 list_bugs() { |
al@31 | 224 bug="$1" |
al@31 | 225 echo "<h3>$(eval_gettext '$bug Bug')</h3>" |
pankso@9 | 226 for pr in critical standard |
pankso@9 | 227 do |
pankso@9 | 228 for bug in $(fgrep -H "$1" $bugdir/*/bug.conf | cut -d ":" -f 1) |
pankso@9 | 229 do |
pankso@9 | 230 . $bug |
xfred222@34 | 231 id=$(basename $(dirname $bug)) |
pankso@9 | 232 if [ "$PRIORITY" == "$pr" ]; then |
pankso@9 | 233 cat << EOT |
pankso@9 | 234 <pre> |
al@31 | 235 $(gettext 'Bug title :') <strong>$BUG</strong> <a href="?id=$id">$(gettext 'Show')</a> |
al@31 | 236 $(gettext 'ID - Date :') $id - $DATE |
al@31 | 237 $(gettext 'Creator :') <a href="?user=$CREATOR">$CREATOR</a> |
pankso@9 | 238 </pre> |
pankso@9 | 239 EOT |
pankso@9 | 240 fi |
pankso@9 | 241 done |
pankso@9 | 242 done |
pankso@9 | 243 } |
pankso@9 | 244 |
xfred222@34 | 245 |
paul@17 | 246 # Stripped down Wiki parser for bug desc and messages which are simply |
paul@17 | 247 # displayed in <pre> |
pankso@9 | 248 wiki_parser() { |
pankso@9 | 249 sed \ |
pankso@9 | 250 -e s"#http://\([^']*\).png#<img src='\0' alt='[ Image ]' />#"g \ |
pankso@9 | 251 -e s"#http://\([^']*\).*# <a href='\0'>\1</a>#"g |
pankso@9 | 252 } |
pankso@9 | 253 |
xfred222@34 | 254 |
pankso@9 | 255 # Bug page |
pankso@9 | 256 bug_page() { |
pankso@26 | 257 if [ -f "$PEOPLE/$CREATOR/account.conf" ]; then |
pankso@26 | 258 . $PEOPLE/$CREATOR/account.conf |
pankso@9 | 259 else |
pankso@15 | 260 MAIL="default" |
pankso@9 | 261 fi |
pankso@9 | 262 cat << EOT |
al@31 | 263 <h2>$(eval_gettext 'Bug $id')</h2> |
xfred222@34 | 264 <form method="get" action="$WEB_URL"> |
pankso@9 | 265 |
pankso@9 | 266 <p> |
al@31 | 267 $(get_gravatar $MAIL 32) |
al@31 | 268 <strong>$STATUS</strong> |
al@31 | 269 $BUG - $DATE - |
al@31 | 270 $(eval_gettext 'Priority $PRIORITY') - |
al@31 | 271 $(eval_ngettext '$msgs message' '$msgs messages' $msgs) |
pankso@9 | 272 </p> |
pankso@9 | 273 |
pankso@9 | 274 <pre> |
pankso@9 | 275 $(echo "$DESC" | wiki_parser) |
pankso@9 | 276 </pre> |
pankso@9 | 277 |
pankso@9 | 278 <div id="tools"> |
pankso@9 | 279 EOT |
pankso@9 | 280 if check_auth; then |
pankso@9 | 281 if [ "$STATUS" == "OPEN" ]; then |
pankso@30 | 282 cat << EOT |
pankso@9 | 283 <a href="?id=$id&close">$(gettext "Close bug")</a> |
pankso@9 | 284 <a href="?edit=$id">$(gettext "Edit bug")</a> |
pankso@9 | 285 EOT |
pankso@9 | 286 else |
pankso@9 | 287 cat << EOT |
pankso@9 | 288 <a href="?id=$id&open">$(gettext "Re open bug")</a> |
pankso@9 | 289 EOT |
pankso@9 | 290 fi |
pankso@9 | 291 fi |
pankso@9 | 292 cat << EOT |
pankso@9 | 293 </div> |
pankso@9 | 294 |
pankso@9 | 295 <h3>$(gettext "Messages")</h3> |
pankso@9 | 296 EOT |
pankso@9 | 297 [ "$msgs" == "0" ] && gettext "No messages" |
pankso@9 | 298 for msg in $(ls -1tr $bugdir/$id/msg.*) |
pankso@9 | 299 do |
pankso@9 | 300 . $msg |
pankso@9 | 301 if [ "$MSG" ]; then |
pankso@9 | 302 msgid=$(echo $msg | cut -d "." -f 2) |
pankso@9 | 303 del="" |
pankso@9 | 304 # User can delete his post. |
pankso@9 | 305 [ "$user" == "$USER" ] && \ |
pankso@9 | 306 del="<a href=\"?id=$id&delmsg=$msgid\">delete</a>" |
pankso@9 | 307 cat << EOT |
pankso@9 | 308 <p><strong>$USER</strong> $DATE $del</p> |
pankso@9 | 309 <pre> |
pankso@9 | 310 $(echo "$MSG" | wiki_parser) |
pankso@9 | 311 </pre> |
pankso@9 | 312 EOT |
pankso@9 | 313 fi |
pankso@9 | 314 unset NAME DATE MSG |
pankso@9 | 315 done |
pankso@9 | 316 if check_auth; then |
pankso@9 | 317 cat << EOT |
pankso@9 | 318 <div> |
pankso@9 | 319 <h3>$(gettext "New message")</h3> |
pankso@30 | 320 |
pankso@9 | 321 <input type="hidden" name="id" value="$id" /> |
pankso@9 | 322 <textarea name="msg" rows="8"></textarea> |
al@31 | 323 <p><input type="submit" value="$(gettext 'Send message')" /></p> |
pankso@9 | 324 </form> |
pankso@9 | 325 </div> |
pankso@9 | 326 EOT |
pankso@9 | 327 fi |
pankso@9 | 328 } |
pankso@9 | 329 |
xfred222@34 | 330 |
pankso@9 | 331 # Write a new message |
pankso@9 | 332 new_msg() { |
pankso@9 | 333 date=$(date "+%Y-%m-%d %H:%M") |
pankso@9 | 334 msgs=$(ls -1 $bugdir/$id/msg.* | wc -l) |
pankso@9 | 335 count=$(($msgs + 1)) |
pankso@9 | 336 if check_auth; then |
pankso@9 | 337 USER="$user" |
pankso@9 | 338 fi |
xfred222@34 | 339 js_log "Will write message in $bugdir/$id/msg.$count " |
pankso@9 | 340 sed "s/$(echo -en '\r') /\n/g" > $bugdir/$id/msg.$count << EOT |
pascal@39 | 341 USER="$USER" |
pankso@9 | 342 DATE="$date" |
pascal@39 | 343 MSG="$(GETfiltered msg)" |
pankso@9 | 344 EOT |
pankso@9 | 345 } |
pankso@9 | 346 |
xfred222@34 | 347 |
pankso@9 | 348 # Create a new Bug |
pankso@9 | 349 new_bug() { |
pankso@9 | 350 count=$(ls -1 $bugdir | wc -l) |
pankso@9 | 351 date=$(date "+%Y-%m-%d %H:%M") |
pankso@9 | 352 # Sanity check, JS may be disabled. |
pankso@9 | 353 [ ! "$(GET bug)" ] && echo "Missing bug title" && exit 1 |
pankso@9 | 354 [ ! "$(GET desc)" ] && echo "Missing bug description" && exit 1 |
pankso@9 | 355 if check_auth; then |
pankso@9 | 356 USER="$user" |
pankso@9 | 357 fi |
pankso@9 | 358 mkdir -p $bugdir/$count |
pankso@9 | 359 sed "s/$(echo -en '\r') /\n/g" > $bugdir/$count/bug.conf << EOT |
pankso@9 | 360 # SliTaz Bug configuration |
pankso@9 | 361 |
pascal@39 | 362 BUG="$(GETfiltered bug)" |
pankso@9 | 363 STATUS="OPEN" |
pankso@9 | 364 PRIORITY="$(GET priority)" |
pankso@9 | 365 CREATOR="$USER" |
pankso@9 | 366 DATE="$date" |
pascal@39 | 367 PKGS="$(GETfiltered pkgs)" |
pankso@9 | 368 |
pascal@39 | 369 DESC="$(GETfiltered desc)" |
pankso@9 | 370 EOT |
pankso@9 | 371 } |
pankso@9 | 372 |
xfred222@34 | 373 |
pankso@9 | 374 # New bug page for the web interface |
pankso@9 | 375 new_bug_page() { |
pankso@9 | 376 cat << EOT |
pankso@9 | 377 <h2>$(gettext "New Bug")</h2> |
pankso@9 | 378 <div id="newbug"> |
pankso@9 | 379 |
xfred222@34 | 380 <form method="get" action="$WEB_URL" onsubmit="return checkNewBug();"> |
pankso@9 | 381 <input type="hidden" name="addbug" /> |
pankso@9 | 382 <table> |
pankso@9 | 383 <tbody> |
pankso@9 | 384 <tr> |
pankso@9 | 385 <td>$(gettext "Bug title")*</td> |
pankso@9 | 386 <td><input type="text" name="bug" /></td> |
pankso@9 | 387 </tr> |
pankso@9 | 388 <tr> |
pankso@9 | 389 <td>$(gettext "Description")*</td> |
pankso@9 | 390 <td><textarea name="desc"></textarea></td> |
pankso@9 | 391 </tr> |
pankso@9 | 392 <tr> |
pankso@9 | 393 <td>$(gettext "Packages")</td> |
pankso@9 | 394 <td><input type="text" name="pkgs" /></td> |
pankso@9 | 395 </tr> |
pankso@9 | 396 <tr> |
pankso@9 | 397 <td>$(gettext "Priority")</td> |
pankso@9 | 398 <td> |
pankso@9 | 399 <select name="priority"> |
pankso@9 | 400 <option value="standard">$(gettext "Standard")</option> |
pankso@9 | 401 <option value="critical">$(gettext "Critical")</option> |
pankso@9 | 402 </select> |
pankso@9 | 403 <input type="submit" value="$(gettext "Create Bug")" /> |
pankso@9 | 404 </td> |
pankso@9 | 405 </tr> |
pankso@9 | 406 </tbody> |
pankso@9 | 407 </table> |
pankso@9 | 408 </form> |
pankso@9 | 409 |
pankso@9 | 410 <p> |
al@19 | 411 $(gettext "* field is obligatory. You can also specify affected packages.") |
pankso@9 | 412 </p> |
pankso@9 | 413 |
pankso@9 | 414 </div> |
pankso@9 | 415 EOT |
pankso@9 | 416 } |
pankso@9 | 417 |
xfred222@34 | 418 |
pankso@9 | 419 # Edit/Save a bug configuration file |
pankso@9 | 420 edit_bug() { |
pankso@9 | 421 cat << EOT |
al@31 | 422 <h2>$(eval_gettext 'Edit Bug $bug')</h2> |
pankso@9 | 423 <div id="edit"> |
pankso@9 | 424 |
xfred222@34 | 425 <form method="get" action="$WEB_URL"> |
pankso@9 | 426 <textarea name="bugconf">$(cat $bugdir/$bug/bug.conf)</textarea> |
pankso@9 | 427 <input type="hidden" name="bug" value="$bug" /> |
al@31 | 428 <input type="submit" value="$(gettext 'Save configuration')" /> |
pankso@9 | 429 </form> |
pankso@9 | 430 |
pankso@9 | 431 </div> |
pankso@9 | 432 EOT |
pankso@9 | 433 } |
pankso@9 | 434 |
xfred222@34 | 435 |
pankso@9 | 436 save_bug() { |
pankso@9 | 437 bug="$(GET bug)" |
pankso@9 | 438 content="$(GET bugconf)" |
al@31 | 439 sed "s|\"|'|" | sed "s/$(echo -en '\r') /\n/g" > $bugdir/$bug/bug.conf << EOT |
pankso@9 | 440 $content |
pankso@9 | 441 EOT |
pankso@9 | 442 } |
pankso@9 | 443 |
xfred222@34 | 444 |
pankso@9 | 445 # Close a fixed bug |
pankso@9 | 446 close_bug() { |
pankso@9 | 447 sed -i s'/OPEN/CLOSED/' $bugdir/$id/bug.conf |
pankso@9 | 448 } |
pankso@9 | 449 |
xfred222@34 | 450 |
pankso@9 | 451 # Re open an old bug |
pankso@9 | 452 open_bug() { |
pankso@9 | 453 sed -i s'/CLOSED/OPEN/' $bugdir/$id/bug.conf |
pankso@9 | 454 } |
pankso@9 | 455 |
xfred222@34 | 456 |
pankso@9 | 457 # Get and display Gravatar image: get_gravatar email size |
pankso@9 | 458 # Link to profile: <a href="http://www.gravatar.com/$md5">...</a> |
pankso@9 | 459 get_gravatar() { |
pankso@9 | 460 email=$1 |
pankso@9 | 461 size=$2 |
pankso@9 | 462 [ "$size" ] || size=48 |
pankso@9 | 463 url="http://www.gravatar.com/avatar" |
pankso@29 | 464 md5=$(md5crypt $email) |
al@31 | 465 echo "<img src=\"$url/$md5?d=identicon&s=$size\" alt=\"\" />" |
pankso@9 | 466 } |
pankso@9 | 467 |
xfred222@34 | 468 |
pankso@21 | 469 # Create a new user in AUTH_FILE and PEOPLE |
pankso@9 | 470 new_user_config() { |
pankso@9 | 471 mail="$(GET mail)" |
pankso@9 | 472 pass="$(GET pass)" |
pankso@9 | 473 key=$(echo -n "$user:$mail:$pass" | md5sum | awk '{print $1}') |
xfred222@34 | 474 echo "Server Key generated" |
pankso@9 | 475 echo "$user:$pass" >> $AUTH_FILE |
xfred222@34 | 476 mkdir -pm0700 $PEOPLE/$user/ |
pankso@26 | 477 cat > $PEOPLE/$user/account.conf << EOT |
pankso@9 | 478 # SliTaz user configuration |
pankso@9 | 479 # |
pankso@9 | 480 |
pankso@9 | 481 NAME="$(GET name)" |
pankso@9 | 482 USER="$user" |
pankso@9 | 483 MAIL="$mail" |
pankso@9 | 484 KEY="$key" |
pankso@9 | 485 |
pankso@9 | 486 COMMUNITY="$(GET scn)" |
pankso@9 | 487 LOCATION="$(GET location)" |
pankso@9 | 488 RELEASES="$(GET releases)" |
pankso@9 | 489 PACKAGES="$(GET packages)" |
pankso@9 | 490 EOT |
pankso@26 | 491 chmod 0600 $PEOPLE/$user/account.conf |
xfred222@34 | 492 if [ ! -f $PEOPLE/$user/account.conf ]; then |
xfred222@34 | 493 echo "ERROR: User creation failed!" |
xfred222@34 | 494 fi; |
xfred222@32 | 495 } |
pankso@9 | 496 |
xfred222@34 | 497 |
xfred222@34 | 498 |
xfred222@34 | 499 |
xfred222@34 | 500 ################################################### |
pankso@9 | 501 # POST actions |
xfred222@34 | 502 ################################################### |
pankso@9 | 503 |
pankso@9 | 504 case " $(POST) " in |
pankso@9 | 505 *\ auth\ *) |
xfred222@34 | 506 header |
xfred222@34 | 507 html_header |
pankso@9 | 508 # Authenticate user. Create a session file in $sessions to be used |
pankso@9 | 509 # by check_auth. We have the user login name and a peer session |
pankso@9 | 510 # md5 string in the COOKIE. |
pankso@9 | 511 user="$(POST auth)" |
xfred222@34 | 512 pass="$(echo -n "$(POST pass)" | md5sum | awk '{print $1}')" |
xfred222@34 | 513 |
xfred222@34 | 514 IDLOC="" |
xfred222@34 | 515 if [[ "$(GET id)" ]] ;then |
xfred222@34 | 516 IDLOC="&id=$(GET id)" |
xfred222@34 | 517 fi |
xfred222@34 | 518 |
xfred222@34 | 519 if [ ! -f $AUTH_FILE ] ; then |
xfred222@34 | 520 js_log "$AUTH_FILE (defined in \$AUTH_FILE) have not been found." |
xfred222@34 | 521 js_redirection_to "$WEB_URL?login$IDLOC" |
xfred222@34 | 522 fi; |
xfred222@34 | 523 |
pankso@9 | 524 valid=$(fgrep "${user}:" $AUTH_FILE | cut -d ":" -f 2) |
pankso@9 | 525 if [ "$pass" == "$valid" ] && [ "$pass" != "" ]; then |
xfred222@34 | 526 if [[ "$(GET id)" ]] ;then |
xfred222@34 | 527 IDLOC="?id=$(GET id)" |
xfred222@34 | 528 fi |
pankso@9 | 529 md5session=$(echo -n "$$:$user:$pass:$$" | md5sum | awk '{print $1}') |
pankso@9 | 530 mkdir -p $sessions |
pankso@9 | 531 echo "$md5session" > $sessions/$user |
xfred222@34 | 532 js_set_cookie 'auth' "$user:$md5session" |
xfred222@34 | 533 js_log "Login authentification have been executed & accepted :)" |
xfred222@34 | 534 js_redirection_to "$WEB_URL$IDLOC" |
pankso@9 | 535 else |
xfred222@34 | 536 js_log "Login authentification have been executed & refused" |
xfred222@34 | 537 js_redirection_to "$WEB_URL?login&error$IDLOC" |
xfred222@34 | 538 fi |
xfred222@34 | 539 |
xfred222@34 | 540 html_footer |
xfred222@34 | 541 ;; |
pankso@9 | 542 esac |
pankso@9 | 543 |
xfred222@34 | 544 |
xfred222@34 | 545 ################################################### |
pankso@9 | 546 # GET actions |
xfred222@34 | 547 ################################################### |
pankso@9 | 548 |
pankso@9 | 549 case " $(GET) " in |
pankso@9 | 550 *\ README\ *) |
pankso@9 | 551 header |
pankso@9 | 552 html_header |
pankso@9 | 553 user_box |
pankso@9 | 554 echo '<h2>README</h2>' |
pankso@9 | 555 echo '<pre>' |
pankso@9 | 556 cat /usr/share/doc/tazbug/README |
pankso@30 | 557 echo '</pre>' |
pankso@9 | 558 html_footer ;; |
pankso@9 | 559 *\ closed\ *) |
pankso@9 | 560 # Show all closed bugs. |
pankso@9 | 561 header |
pankso@9 | 562 html_header |
pankso@9 | 563 user_box |
pankso@9 | 564 list_bugs CLOSED |
pankso@9 | 565 html_footer ;; |
pankso@9 | 566 *\ login\ *) |
pankso@9 | 567 # The login page |
pankso@9 | 568 [ "$(GET error)" ] && \ |
al@31 | 569 error="<span class='error'>$(gettext 'Bad login or pass')</span>" |
pankso@30 | 570 header |
pankso@9 | 571 html_header |
pankso@21 | 572 user_box |
xfred222@33 | 573 login_page |
pankso@9 | 574 html_footer ;; |
pankso@9 | 575 *\ logout\ *) |
xfred222@34 | 576 header |
xfred222@34 | 577 html_header |
pankso@9 | 578 if check_auth; then |
pankso@9 | 579 rm -f "$sessions/$user" |
xfred222@34 | 580 js_unset_cookie 'auth' |
xfred222@34 | 581 js_redirection_to "$WEB_URL" |
xfred222@34 | 582 |
pankso@9 | 583 fi ;; |
pankso@9 | 584 *\ user\ *) |
pankso@9 | 585 # User profile |
pankso@9 | 586 header |
pankso@9 | 587 html_header |
pankso@9 | 588 user_box |
pankso@26 | 589 . $PEOPLE/"$(GET user)"/account.conf |
pankso@9 | 590 echo "<h2>$(get_gravatar $MAIL) $(GET user)</h2>" |
pankso@9 | 591 if check_auth && [ "$(GET user)" == "$user" ]; then |
pankso@9 | 592 auth_people |
pankso@9 | 593 else |
pankso@9 | 594 public_people |
pankso@9 | 595 fi |
pankso@9 | 596 html_footer ;; |
pankso@9 | 597 *\ newbug\ *) |
pankso@9 | 598 # Add a bug from web interface. |
pankso@9 | 599 header |
pankso@9 | 600 html_header |
pankso@9 | 601 user_box |
pankso@9 | 602 if check_auth; then |
pankso@9 | 603 new_bug_page |
pankso@9 | 604 else |
al@31 | 605 echo "<p>$(gettext 'You must be logged in to post a new bug')</p>" |
pankso@9 | 606 fi |
pankso@9 | 607 html_footer ;; |
pankso@9 | 608 *\ addbug\ *) |
pankso@9 | 609 # Add a bug from web interface. |
xfred222@34 | 610 header |
xfred222@34 | 611 html_header |
pankso@9 | 612 if check_auth; then |
pankso@9 | 613 new_bug |
xfred222@34 | 614 js_redirection_to "$WEB_URL?id=$count" |
pankso@9 | 615 fi ;; |
pankso@9 | 616 *\ edit\ *) |
pankso@9 | 617 bug="$(GET edit)" |
pankso@9 | 618 header |
pankso@9 | 619 html_header |
pankso@9 | 620 user_box |
pankso@9 | 621 edit_bug |
pankso@9 | 622 html_footer ;; |
pankso@9 | 623 *\ bugconf\ *) |
xfred222@34 | 624 header |
xfred222@34 | 625 html_header |
pankso@9 | 626 if check_auth; then |
pankso@9 | 627 save_bug |
xfred222@34 | 628 js_redirection_to "$WEB_URL?id=$bug" |
pankso@9 | 629 fi ;; |
pankso@9 | 630 *\ id\ *) |
pankso@9 | 631 # Empty deleted messages to keep msg count working. |
xfred222@34 | 632 header |
xfred222@34 | 633 html_header |
pankso@9 | 634 id="$(GET id)" |
pankso@9 | 635 [ "$(GET close)" ] && close_bug |
pankso@9 | 636 [ "$(GET open)" ] && open_bug |
pankso@9 | 637 [ "$(GET msg)" ] && new_msg |
pankso@9 | 638 [ "$(GET delmsg)" ] && rm -f $bugdir/$id/msg.$(GET delmsg) && \ |
pankso@9 | 639 touch $bugdir/$id/msg.$(GET delmsg) |
pankso@9 | 640 msgs=$(fgrep MSG= $bugdir/$id/msg.* | wc -l) |
pankso@30 | 641 user_box |
pankso@9 | 642 . $bugdir/$id/bug.conf |
pankso@9 | 643 bug_page |
pankso@9 | 644 html_footer ;; |
pankso@9 | 645 *\ signup\ *) |
pankso@9 | 646 # Signup |
pankso@9 | 647 header "Content-type: text/plain;" |
pankso@9 | 648 user="$(GET signup)" |
pankso@9 | 649 echo "Requested user login : $user" |
pankso@9 | 650 if fgrep -q "$user:" $AUTH_FILE; then |
paul@17 | 651 echo "ERROR: User already exists" && exit 1 |
pankso@9 | 652 else |
xfred222@32 | 653 |
pankso@9 | 654 echo "Creating account for : $(GET name)" |
pankso@30 | 655 new_user_config |
pankso@9 | 656 fi ;; |
pankso@9 | 657 *\ key\ *) |
pankso@9 | 658 # Let user post new bug or message with crypted key (no gettext) |
pankso@9 | 659 # |
pankso@9 | 660 # Testing only and is security acceptable ? |
pankso@9 | 661 # |
pankso@9 | 662 key="$(GET key)" |
pankso@9 | 663 id="$(GET bug)" |
pankso@9 | 664 header "Content-type: text/plain;" |
pankso@30 | 665 echo "Checking secure key..." |
pankso@26 | 666 if fgrep -qH $key $PEOPLE/*/account.conf; then |
pankso@26 | 667 conf=$(fgrep -H $key $PEOPLE/*/account.conf | cut -d ":" -f 1) |
pankso@9 | 668 . $conf |
pankso@9 | 669 echo "Authentified: $NAME ($USER)" |
pankso@9 | 670 case " $(GET) " in |
pankso@9 | 671 *\ msg\ *) |
pankso@9 | 672 [ ! "$id" ] && echo "Missing bug ID" && exit 0 |
pankso@9 | 673 echo "Posting new message to bug: $id" |
pankso@9 | 674 echo "Message: $(GET msg)" |
pankso@9 | 675 new_msg ;; |
pankso@9 | 676 *\ bug\ *) |
pankso@30 | 677 echo "Adding new bug: $(GET bug)" |
pankso@30 | 678 echo "Description: $(GET desc)" |
pankso@9 | 679 new_bug ;; |
pankso@30 | 680 esac |
pankso@9 | 681 else |
pankso@9 | 682 echo "Not a valid SliTaz user key" |
pankso@9 | 683 exit 0 |
pankso@9 | 684 fi ;; |
pankso@9 | 685 *\ search\ *) |
pankso@9 | 686 header |
pankso@9 | 687 html_header |
pankso@9 | 688 user_box |
pankso@9 | 689 cat << EOT |
pankso@9 | 690 <h2>$(gettext "Search")</h2> |
xfred222@34 | 691 <form method="get" action="$WEB_URL"> |
pankso@9 | 692 <input type="text" name="search" /> |
al@31 | 693 <input type="submit" value="$(gettext 'Search')" /> |
pankso@9 | 694 </form> |
pankso@21 | 695 <div> |
pankso@9 | 696 EOT |
pankso@30 | 697 |
pankso@21 | 698 #found=0 JS to notify or write results nb under the search box. |
pankso@21 | 699 for bug in $bugdir/* |
pankso@9 | 700 do |
pankso@21 | 701 result=$(fgrep -i "$(GET search)" $bug/*) |
pankso@21 | 702 if [ "$result" ]; then |
pankso@21 | 703 #found=$(($found + 1)) |
pankso@21 | 704 id=${bug#bug/} |
al@31 | 705 echo "<p><strong>Bug $id</strong> <a href=\"?id=$id\">"$(gettext 'Show')"</a></p>" |
pankso@21 | 706 echo '<pre>' |
pankso@21 | 707 fgrep -i "$(GET search)" $bugdir/$id/* | \ |
pankso@21 | 708 sed s"/$(GET search)/<span class='ok'>$(GET search)<\/span>/"g |
pankso@21 | 709 echo '</pre>' |
pankso@21 | 710 else |
al@31 | 711 get_search=$(GET search) |
al@31 | 712 echo "<p>$(eval_gettext 'No result found for: $get_search')</p>" |
pankso@21 | 713 fi |
pankso@9 | 714 done |
pankso@21 | 715 echo '</div>' |
pankso@9 | 716 html_footer ;; |
pankso@9 | 717 *) |
pankso@9 | 718 # Default page. |
pankso@9 | 719 bugs=$(ls -1 $bugdir | wc -l) |
pankso@9 | 720 close=$(fgrep "CLOSED" $bugdir/*/bug.conf | wc -l) |
pankso@9 | 721 fixme=$(fgrep "OPEN" $bugdir/*/bug.conf | wc -l) |
pankso@9 | 722 msgs=$(find $bugdir -name msg.* ! -size 0 | wc -l) |
pankso@9 | 723 pct=0 |
pankso@9 | 724 [ $bugs -gt 0 ] && pct=$(( ($close * 100) / $bugs )) |
pankso@9 | 725 header |
pankso@9 | 726 html_header |
pankso@9 | 727 user_box |
pankso@9 | 728 cat << EOT |
pankso@9 | 729 |
pankso@9 | 730 <h2>$(gettext "Summary")</h2> |
pankso@9 | 731 |
pankso@9 | 732 <p> |
al@31 | 733 $(eval_ngettext 'Bug: $bugs in total -' 'Bugs: $bugs in total -' $bugs) |
al@31 | 734 $(eval_ngettext '$close fixed -' '$close fixed -' $close) |
al@31 | 735 $(eval_ngettext '$fixme to fix -' '$fixme to fix -' $fixme) |
al@31 | 736 $(eval_ngettext '$msgs message' '$msgs messages' $msgs) |
pankso@9 | 737 </p> |
pankso@9 | 738 |
pankso@9 | 739 <div class="pctbar"> |
pankso@9 | 740 <div class="pct" style="width: ${pct}%;">${pct}%</div> |
pankso@9 | 741 </div> |
pankso@9 | 742 |
al@31 | 743 <p>$(gettext "Please read the <a href=\"?README\">README</a> for help and more \ |
al@31 | 744 information. You may also be interested by the SliTaz \ |
al@31 | 745 <a href=\"http://roadmap.slitaz.org/\">Roadmap</a> and the packages \ |
al@31 | 746 <a href=\"http://cook.slitaz.org/\">Cooker</a>. To perform a search \ |
al@31 | 747 enter your term and press ENTER.") |
pankso@9 | 748 </p> |
pankso@9 | 749 |
pankso@9 | 750 <div id="tools"> |
al@31 | 751 <a href="?closed">$(gettext 'View closed bugs')</a> |
pankso@9 | 752 EOT |
pankso@9 | 753 if check_auth; then |
al@31 | 754 echo "<a href='?newbug'>$(gettext 'Create a new bug')</a>" |
pankso@9 | 755 fi |
pankso@9 | 756 cat << EOT |
pankso@9 | 757 </div> |
pankso@9 | 758 EOT |
pankso@9 | 759 list_bugs OPEN |
pankso@9 | 760 html_footer ;; |
pankso@9 | 761 esac |
pankso@9 | 762 |
border@42 | 763 |
border@42 | 764 ################################################### |
border@42 | 765 # Plugins |
border@42 | 766 ################################################### |
border@42 | 767 |
border@42 | 768 for p in $(ls -1 $plugins) |
border@42 | 769 do |
border@42 | 770 [ -f "$plugins/$p/$p.conf" ] && . $plugins/$p/$p.conf |
border@42 | 771 [ -x "$plugins/$p/$p.cgi" ] && . $plugins/$p/$p.cgi |
border@42 | 772 done |
border@42 | 773 |
border@42 | 774 |
pankso@9 | 775 exit 0 |