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