tazbug annotate web/bugs.cgi @ rev 49
Add a small dashboard plugin and misc fixes
author | Christophe Lincoln <pankso@slitaz.org> |
---|---|
date | Sun Jan 05 00:01:34 2014 +0100 (2014-01-05) |
parents | a8652095c93f |
children | 02a11d8d636e |
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@9 | 250 for pr in critical standard |
pankso@9 | 251 do |
pankso@9 | 252 for bug in $(fgrep -H "$1" $bugdir/*/bug.conf | cut -d ":" -f 1) |
pankso@9 | 253 do |
pankso@9 | 254 . $bug |
xfred222@34 | 255 id=$(basename $(dirname $bug)) |
pankso@9 | 256 if [ "$PRIORITY" == "$pr" ]; then |
pankso@9 | 257 cat << EOT |
pankso@9 | 258 <pre> |
al@31 | 259 $(gettext 'Bug title :') <strong>$BUG</strong> <a href="?id=$id">$(gettext 'Show')</a> |
al@31 | 260 $(gettext 'ID - Date :') $id - $DATE |
al@31 | 261 $(gettext 'Creator :') <a href="?user=$CREATOR">$CREATOR</a> |
pankso@9 | 262 </pre> |
pankso@9 | 263 EOT |
pankso@9 | 264 fi |
pankso@9 | 265 done |
pankso@9 | 266 done |
pankso@9 | 267 } |
pankso@9 | 268 |
paul@17 | 269 # Stripped down Wiki parser for bug desc and messages which are simply |
paul@17 | 270 # displayed in <pre> |
pankso@9 | 271 wiki_parser() { |
pankso@9 | 272 sed \ |
pankso@9 | 273 -e s"#http://\([^']*\).png#<img src='\0' alt='[ Image ]' />#"g \ |
pascal@44 | 274 -e s"#http://\([^']*\).*# <a href='\0'>\1</a>#"g \ |
pascal@45 | 275 -e 's#\\\\n#\n#g;s#%22#"#g;s#%21#!#g' |
pankso@9 | 276 } |
pankso@9 | 277 |
pankso@9 | 278 # Bug page |
pankso@9 | 279 bug_page() { |
pankso@26 | 280 if [ -f "$PEOPLE/$CREATOR/account.conf" ]; then |
pankso@26 | 281 . $PEOPLE/$CREATOR/account.conf |
pankso@9 | 282 else |
pankso@15 | 283 MAIL="default" |
pankso@9 | 284 fi |
pankso@9 | 285 cat << EOT |
al@31 | 286 <h2>$(eval_gettext 'Bug $id')</h2> |
xfred222@34 | 287 <form method="get" action="$WEB_URL"> |
pankso@9 | 288 |
pankso@9 | 289 <p> |
al@31 | 290 $(get_gravatar $MAIL 32) |
al@31 | 291 <strong>$STATUS</strong> |
al@31 | 292 $BUG - $DATE - |
al@31 | 293 $(eval_gettext 'Priority $PRIORITY') - |
al@31 | 294 $(eval_ngettext '$msgs message' '$msgs messages' $msgs) |
pankso@9 | 295 </p> |
pankso@9 | 296 |
pankso@9 | 297 <pre> |
pankso@9 | 298 $(echo "$DESC" | wiki_parser) |
pankso@9 | 299 </pre> |
pankso@9 | 300 |
pankso@9 | 301 <div id="tools"> |
pankso@9 | 302 EOT |
pankso@9 | 303 if check_auth; then |
pankso@9 | 304 if [ "$STATUS" == "OPEN" ]; then |
pankso@30 | 305 cat << EOT |
pankso@9 | 306 <a href="?id=$id&close">$(gettext "Close bug")</a> |
pankso@9 | 307 <a href="?edit=$id">$(gettext "Edit bug")</a> |
pankso@9 | 308 EOT |
pankso@9 | 309 else |
pankso@9 | 310 cat << EOT |
pankso@9 | 311 <a href="?id=$id&open">$(gettext "Re open bug")</a> |
pankso@9 | 312 EOT |
pankso@9 | 313 fi |
pankso@9 | 314 fi |
pankso@9 | 315 cat << EOT |
pankso@9 | 316 </div> |
pankso@9 | 317 |
pankso@9 | 318 <h3>$(gettext "Messages")</h3> |
pankso@9 | 319 EOT |
pankso@9 | 320 [ "$msgs" == "0" ] && gettext "No messages" |
pankso@9 | 321 for msg in $(ls -1tr $bugdir/$id/msg.*) |
pankso@9 | 322 do |
pankso@9 | 323 . $msg |
pankso@9 | 324 if [ "$MSG" ]; then |
pankso@9 | 325 msgid=$(echo $msg | cut -d "." -f 2) |
pankso@9 | 326 del="" |
pankso@9 | 327 # User can delete his post. |
pankso@9 | 328 [ "$user" == "$USER" ] && \ |
pankso@9 | 329 del="<a href=\"?id=$id&delmsg=$msgid\">delete</a>" |
pankso@9 | 330 cat << EOT |
pankso@9 | 331 <p><strong>$USER</strong> $DATE $del</p> |
pankso@9 | 332 <pre> |
pankso@9 | 333 $(echo "$MSG" | wiki_parser) |
pankso@9 | 334 </pre> |
pankso@9 | 335 EOT |
pankso@9 | 336 fi |
pankso@9 | 337 unset NAME DATE MSG |
pankso@9 | 338 done |
pankso@9 | 339 if check_auth; then |
pankso@9 | 340 cat << EOT |
pankso@9 | 341 <div> |
pankso@9 | 342 <h3>$(gettext "New message")</h3> |
pankso@30 | 343 |
pankso@9 | 344 <input type="hidden" name="id" value="$id" /> |
pankso@9 | 345 <textarea name="msg" rows="8"></textarea> |
al@31 | 346 <p><input type="submit" value="$(gettext 'Send message')" /></p> |
pankso@9 | 347 </form> |
pankso@9 | 348 </div> |
pankso@9 | 349 EOT |
pankso@9 | 350 fi |
pankso@9 | 351 } |
pankso@9 | 352 |
pankso@9 | 353 # Write a new message |
pankso@9 | 354 new_msg() { |
pankso@9 | 355 date=$(date "+%Y-%m-%d %H:%M") |
pankso@9 | 356 msgs=$(ls -1 $bugdir/$id/msg.* | wc -l) |
pankso@9 | 357 count=$(($msgs + 1)) |
pankso@9 | 358 if check_auth; then |
pankso@9 | 359 USER="$user" |
pankso@9 | 360 fi |
xfred222@34 | 361 js_log "Will write message in $bugdir/$id/msg.$count " |
pankso@9 | 362 sed "s/$(echo -en '\r') /\n/g" > $bugdir/$id/msg.$count << EOT |
pascal@39 | 363 USER="$USER" |
pankso@9 | 364 DATE="$date" |
pascal@39 | 365 MSG="$(GETfiltered msg)" |
pankso@9 | 366 EOT |
pankso@9 | 367 } |
pankso@9 | 368 |
pankso@9 | 369 # Create a new Bug |
pankso@9 | 370 new_bug() { |
pankso@9 | 371 count=$(ls -1 $bugdir | wc -l) |
pankso@9 | 372 date=$(date "+%Y-%m-%d %H:%M") |
pankso@9 | 373 # Sanity check, JS may be disabled. |
pankso@9 | 374 [ ! "$(GET bug)" ] && echo "Missing bug title" && exit 1 |
pankso@9 | 375 [ ! "$(GET desc)" ] && echo "Missing bug description" && exit 1 |
pankso@9 | 376 if check_auth; then |
pankso@9 | 377 USER="$user" |
pankso@9 | 378 fi |
pankso@9 | 379 mkdir -p $bugdir/$count |
pankso@9 | 380 sed "s/$(echo -en '\r') /\n/g" > $bugdir/$count/bug.conf << EOT |
pankso@9 | 381 # SliTaz Bug configuration |
pankso@9 | 382 |
pascal@39 | 383 BUG="$(GETfiltered bug)" |
pankso@9 | 384 STATUS="OPEN" |
pankso@9 | 385 PRIORITY="$(GET priority)" |
pankso@9 | 386 CREATOR="$USER" |
pankso@9 | 387 DATE="$date" |
pascal@39 | 388 PKGS="$(GETfiltered pkgs)" |
pankso@9 | 389 |
pascal@39 | 390 DESC="$(GETfiltered desc)" |
pankso@9 | 391 EOT |
pankso@9 | 392 } |
pankso@9 | 393 |
pankso@9 | 394 # New bug page for the web interface |
pankso@9 | 395 new_bug_page() { |
pankso@9 | 396 cat << EOT |
pankso@9 | 397 <h2>$(gettext "New Bug")</h2> |
pankso@9 | 398 <div id="newbug"> |
pankso@9 | 399 |
xfred222@34 | 400 <form method="get" action="$WEB_URL" onsubmit="return checkNewBug();"> |
pankso@9 | 401 <input type="hidden" name="addbug" /> |
pankso@9 | 402 <table> |
pankso@9 | 403 <tbody> |
pankso@9 | 404 <tr> |
pankso@9 | 405 <td>$(gettext "Bug title")*</td> |
pankso@9 | 406 <td><input type="text" name="bug" /></td> |
pankso@9 | 407 </tr> |
pankso@9 | 408 <tr> |
pankso@9 | 409 <td>$(gettext "Description")*</td> |
pankso@9 | 410 <td><textarea name="desc"></textarea></td> |
pankso@9 | 411 </tr> |
pankso@9 | 412 <tr> |
pankso@9 | 413 <td>$(gettext "Packages")</td> |
pankso@9 | 414 <td><input type="text" name="pkgs" /></td> |
pankso@9 | 415 </tr> |
pankso@9 | 416 <tr> |
pankso@9 | 417 <td>$(gettext "Priority")</td> |
pankso@9 | 418 <td> |
pankso@9 | 419 <select name="priority"> |
pankso@9 | 420 <option value="standard">$(gettext "Standard")</option> |
pankso@9 | 421 <option value="critical">$(gettext "Critical")</option> |
pankso@9 | 422 </select> |
pankso@9 | 423 <input type="submit" value="$(gettext "Create Bug")" /> |
pankso@9 | 424 </td> |
pankso@9 | 425 </tr> |
pankso@9 | 426 </tbody> |
pankso@9 | 427 </table> |
pankso@9 | 428 </form> |
pankso@9 | 429 |
pankso@9 | 430 <p> |
al@19 | 431 $(gettext "* field is obligatory. You can also specify affected packages.") |
pankso@9 | 432 </p> |
pankso@9 | 433 |
pankso@9 | 434 </div> |
pankso@9 | 435 EOT |
pankso@9 | 436 } |
pankso@9 | 437 |
xfred222@34 | 438 |
pankso@9 | 439 # Edit/Save a bug configuration file |
pankso@9 | 440 edit_bug() { |
pankso@9 | 441 cat << EOT |
al@31 | 442 <h2>$(eval_gettext 'Edit Bug $bug')</h2> |
pankso@9 | 443 <div id="edit"> |
pankso@9 | 444 |
xfred222@34 | 445 <form method="get" action="$WEB_URL"> |
pankso@9 | 446 <textarea name="bugconf">$(cat $bugdir/$bug/bug.conf)</textarea> |
pankso@9 | 447 <input type="hidden" name="bug" value="$bug" /> |
al@31 | 448 <input type="submit" value="$(gettext 'Save configuration')" /> |
pankso@9 | 449 </form> |
pankso@9 | 450 |
pankso@9 | 451 </div> |
pankso@9 | 452 EOT |
pankso@9 | 453 } |
pankso@9 | 454 |
xfred222@34 | 455 |
pankso@9 | 456 save_bug() { |
pankso@9 | 457 bug="$(GET bug)" |
pankso@9 | 458 content="$(GET bugconf)" |
al@31 | 459 sed "s|\"|'|" | sed "s/$(echo -en '\r') /\n/g" > $bugdir/$bug/bug.conf << EOT |
pankso@9 | 460 $content |
pankso@9 | 461 EOT |
pankso@9 | 462 } |
pankso@9 | 463 |
xfred222@34 | 464 |
pankso@9 | 465 # Close a fixed bug |
pankso@9 | 466 close_bug() { |
pankso@9 | 467 sed -i s'/OPEN/CLOSED/' $bugdir/$id/bug.conf |
pankso@9 | 468 } |
pankso@9 | 469 |
xfred222@34 | 470 |
pankso@9 | 471 # Re open an old bug |
pankso@9 | 472 open_bug() { |
pankso@9 | 473 sed -i s'/CLOSED/OPEN/' $bugdir/$id/bug.conf |
pankso@9 | 474 } |
pankso@9 | 475 |
xfred222@34 | 476 |
pankso@9 | 477 # Get and display Gravatar image: get_gravatar email size |
pankso@9 | 478 # Link to profile: <a href="http://www.gravatar.com/$md5">...</a> |
pankso@9 | 479 get_gravatar() { |
pankso@9 | 480 email=$1 |
pankso@9 | 481 size=$2 |
pankso@9 | 482 [ "$size" ] || size=48 |
pankso@9 | 483 url="http://www.gravatar.com/avatar" |
pankso@29 | 484 md5=$(md5crypt $email) |
al@31 | 485 echo "<img src=\"$url/$md5?d=identicon&s=$size\" alt=\"\" />" |
pankso@9 | 486 } |
pankso@9 | 487 |
pankso@21 | 488 # Create a new user in AUTH_FILE and PEOPLE |
pankso@9 | 489 new_user_config() { |
pankso@48 | 490 if [ ! "$online" ]; then |
pankso@48 | 491 name="$(GET name)" |
pankso@48 | 492 mail="$(GET mail)" |
pankso@48 | 493 pass="$(GET pass)" |
pankso@48 | 494 echo "Creating Server Key..." |
pankso@48 | 495 fi |
pankso@9 | 496 key=$(echo -n "$user:$mail:$pass" | md5sum | awk '{print $1}') |
pankso@9 | 497 echo "$user:$pass" >> $AUTH_FILE |
xfred222@34 | 498 mkdir -pm0700 $PEOPLE/$user/ |
pankso@26 | 499 cat > $PEOPLE/$user/account.conf << EOT |
pankso@9 | 500 # SliTaz user configuration |
pankso@9 | 501 # |
pankso@9 | 502 |
pankso@48 | 503 NAME="$name" |
pankso@9 | 504 USER="$user" |
pankso@9 | 505 MAIL="$mail" |
pankso@9 | 506 KEY="$key" |
pankso@9 | 507 |
pankso@9 | 508 COMMUNITY="$(GET scn)" |
pankso@9 | 509 LOCATION="$(GET location)" |
pankso@9 | 510 RELEASES="$(GET releases)" |
pankso@9 | 511 PACKAGES="$(GET packages)" |
pankso@9 | 512 EOT |
pankso@26 | 513 chmod 0600 $PEOPLE/$user/account.conf |
xfred222@34 | 514 if [ ! -f $PEOPLE/$user/account.conf ]; then |
xfred222@34 | 515 echo "ERROR: User creation failed!" |
pankso@48 | 516 fi |
pankso@48 | 517 } |
pankso@9 | 518 |
pankso@48 | 519 ######################################################################## |
pankso@48 | 520 # POST actions # |
pankso@48 | 521 ######################################################################## |
pankso@9 | 522 |
pankso@9 | 523 case " $(POST) " in |
pankso@9 | 524 *\ auth\ *) |
xfred222@34 | 525 header |
xfred222@34 | 526 html_header |
pankso@9 | 527 # Authenticate user. Create a session file in $sessions to be used |
pankso@9 | 528 # by check_auth. We have the user login name and a peer session |
pankso@9 | 529 # md5 string in the COOKIE. |
pankso@9 | 530 user="$(POST auth)" |
xfred222@34 | 531 pass="$(echo -n "$(POST pass)" | md5sum | awk '{print $1}')" |
xfred222@34 | 532 |
xfred222@34 | 533 IDLOC="" |
pankso@48 | 534 if [[ "$(GET id)" ]] ;then |
pankso@48 | 535 IDLOC="&id=$(GET id)" |
pankso@48 | 536 fi |
xfred222@34 | 537 |
xfred222@34 | 538 if [ ! -f $AUTH_FILE ] ; then |
xfred222@34 | 539 js_log "$AUTH_FILE (defined in \$AUTH_FILE) have not been found." |
xfred222@34 | 540 js_redirection_to "$WEB_URL?login$IDLOC" |
xfred222@34 | 541 fi; |
xfred222@34 | 542 |
pankso@9 | 543 valid=$(fgrep "${user}:" $AUTH_FILE | cut -d ":" -f 2) |
pankso@9 | 544 if [ "$pass" == "$valid" ] && [ "$pass" != "" ]; then |
xfred222@34 | 545 if [[ "$(GET id)" ]] ;then |
xfred222@34 | 546 IDLOC="?id=$(GET id)" |
xfred222@34 | 547 fi |
pankso@9 | 548 md5session=$(echo -n "$$:$user:$pass:$$" | md5sum | awk '{print $1}') |
pankso@9 | 549 mkdir -p $sessions |
pankso@9 | 550 echo "$md5session" > $sessions/$user |
xfred222@34 | 551 js_set_cookie 'auth' "$user:$md5session" |
xfred222@34 | 552 js_log "Login authentification have been executed & accepted :)" |
xfred222@34 | 553 js_redirection_to "$WEB_URL$IDLOC" |
pankso@9 | 554 else |
xfred222@34 | 555 js_log "Login authentification have been executed & refused" |
xfred222@34 | 556 js_redirection_to "$WEB_URL?login&error$IDLOC" |
xfred222@34 | 557 fi |
pankso@48 | 558 html_footer ;; |
pankso@48 | 559 *\ signup\ *) |
pankso@48 | 560 # POST action for online signup |
pankso@48 | 561 name="$(POST name)" |
pankso@48 | 562 user="$(POST user)" |
pankso@48 | 563 mail="$(POST mail)" |
pankso@48 | 564 pass="$(md5crypt "$(POST pass)")" |
pankso@48 | 565 if ! grep "^${user}:" $AUTH_FILE; then |
pankso@48 | 566 online="yes" |
pankso@48 | 567 new_user_config |
pankso@48 | 568 header "Location: $SCRIPT_NAME?login" |
pankso@48 | 569 else |
pankso@48 | 570 header |
pankso@48 | 571 html_header |
pankso@48 | 572 user_box |
pankso@49 | 573 echo "<h2>$(gettext "User already exists:") $user</h2>" |
pankso@48 | 574 html_footer && exit 0 |
pankso@48 | 575 fi ;; |
pankso@9 | 576 esac |
pankso@9 | 577 |
pankso@49 | 578 # |
pankso@49 | 579 # Plugins Now! |
pankso@49 | 580 # |
pankso@49 | 581 for p in $(ls -1 $plugins) |
pankso@49 | 582 do |
pankso@49 | 583 [ -f "$plugins/$p/$p.conf" ] && . $plugins/$p/$p.conf |
pankso@49 | 584 [ -x "$plugins/$p/$p.cgi" ] && . $plugins/$p/$p.cgi |
pankso@49 | 585 done |
xfred222@34 | 586 |
pankso@48 | 587 ######################################################################## |
pankso@48 | 588 # GET actions # |
pankso@48 | 589 ######################################################################## |
pankso@9 | 590 |
pankso@9 | 591 case " $(GET) " in |
pankso@9 | 592 *\ README\ *) |
pankso@9 | 593 header |
pankso@9 | 594 html_header |
pankso@9 | 595 user_box |
pankso@9 | 596 echo '<h2>README</h2>' |
pankso@9 | 597 echo '<pre>' |
pankso@9 | 598 cat /usr/share/doc/tazbug/README |
pankso@30 | 599 echo '</pre>' |
pankso@9 | 600 html_footer ;; |
pankso@9 | 601 *\ closed\ *) |
pankso@9 | 602 # Show all closed bugs. |
pankso@9 | 603 header |
pankso@9 | 604 html_header |
pankso@9 | 605 user_box |
pankso@9 | 606 list_bugs CLOSED |
pankso@9 | 607 html_footer ;; |
pankso@9 | 608 *\ login\ *) |
pankso@9 | 609 # The login page |
pankso@9 | 610 [ "$(GET error)" ] && \ |
al@31 | 611 error="<span class='error'>$(gettext 'Bad login or pass')</span>" |
pankso@30 | 612 header |
pankso@9 | 613 html_header |
pankso@21 | 614 user_box |
xfred222@33 | 615 login_page |
pankso@9 | 616 html_footer ;; |
pankso@9 | 617 *\ logout\ *) |
xfred222@34 | 618 header |
xfred222@34 | 619 html_header |
pankso@9 | 620 if check_auth; then |
pankso@9 | 621 rm -f "$sessions/$user" |
xfred222@34 | 622 js_unset_cookie 'auth' |
xfred222@34 | 623 js_redirection_to "$WEB_URL" |
xfred222@34 | 624 |
pankso@9 | 625 fi ;; |
pankso@9 | 626 *\ user\ *) |
pankso@9 | 627 # User profile |
pankso@9 | 628 header |
pankso@9 | 629 html_header |
pankso@9 | 630 user_box |
pankso@26 | 631 . $PEOPLE/"$(GET user)"/account.conf |
pankso@9 | 632 echo "<h2>$(get_gravatar $MAIL) $(GET user)</h2>" |
pankso@9 | 633 if check_auth && [ "$(GET user)" == "$user" ]; then |
pankso@9 | 634 auth_people |
pankso@9 | 635 else |
pankso@9 | 636 public_people |
pankso@9 | 637 fi |
pankso@9 | 638 html_footer ;; |
pankso@9 | 639 *\ newbug\ *) |
pankso@9 | 640 # Add a bug from web interface. |
pankso@9 | 641 header |
pankso@9 | 642 html_header |
pankso@9 | 643 user_box |
pankso@9 | 644 if check_auth; then |
pankso@9 | 645 new_bug_page |
pankso@9 | 646 else |
al@31 | 647 echo "<p>$(gettext 'You must be logged in to post a new bug')</p>" |
pankso@9 | 648 fi |
pankso@9 | 649 html_footer ;; |
pankso@9 | 650 *\ addbug\ *) |
pankso@9 | 651 # Add a bug from web interface. |
xfred222@34 | 652 header |
xfred222@34 | 653 html_header |
pankso@9 | 654 if check_auth; then |
pankso@9 | 655 new_bug |
xfred222@34 | 656 js_redirection_to "$WEB_URL?id=$count" |
pankso@9 | 657 fi ;; |
pankso@9 | 658 *\ edit\ *) |
pankso@9 | 659 bug="$(GET edit)" |
pankso@9 | 660 header |
pankso@9 | 661 html_header |
pankso@9 | 662 user_box |
pankso@9 | 663 edit_bug |
pankso@9 | 664 html_footer ;; |
pankso@9 | 665 *\ bugconf\ *) |
xfred222@34 | 666 header |
xfred222@34 | 667 html_header |
pankso@9 | 668 if check_auth; then |
pankso@9 | 669 save_bug |
xfred222@34 | 670 js_redirection_to "$WEB_URL?id=$bug" |
pankso@9 | 671 fi ;; |
pankso@9 | 672 *\ id\ *) |
pankso@9 | 673 # Empty deleted messages to keep msg count working. |
xfred222@34 | 674 header |
xfred222@34 | 675 html_header |
pankso@9 | 676 id="$(GET id)" |
pankso@9 | 677 [ "$(GET close)" ] && close_bug |
pankso@9 | 678 [ "$(GET open)" ] && open_bug |
pankso@9 | 679 [ "$(GET msg)" ] && new_msg |
pankso@9 | 680 [ "$(GET delmsg)" ] && rm -f $bugdir/$id/msg.$(GET delmsg) && \ |
pankso@9 | 681 touch $bugdir/$id/msg.$(GET delmsg) |
pankso@9 | 682 msgs=$(fgrep MSG= $bugdir/$id/msg.* | wc -l) |
pankso@30 | 683 user_box |
pankso@9 | 684 . $bugdir/$id/bug.conf |
pankso@9 | 685 bug_page |
pankso@9 | 686 html_footer ;; |
pankso@9 | 687 *\ signup\ *) |
pankso@9 | 688 # Signup |
pankso@48 | 689 if [ "$(GET online)" ];then |
pankso@48 | 690 header |
pankso@48 | 691 html_header |
pankso@48 | 692 user_box |
pankso@48 | 693 echo "<h2>$(gettext "Sign Up")</h2>" |
pankso@48 | 694 if [ "$ONLINE_SIGNUP" == "yes" ]; then |
pankso@48 | 695 signup_page |
pankso@48 | 696 else |
pankso@48 | 697 gettext "Online registration is disabled" |
pankso@48 | 698 fi |
pankso@48 | 699 html_footer && exit 0 |
pankso@9 | 700 else |
pankso@48 | 701 header "Content-type: text/plain;" |
pankso@48 | 702 user="$(GET signup)" |
pankso@48 | 703 echo "Requested user login : $user" |
pankso@48 | 704 if fgrep -q "$user:" $AUTH_FILE; then |
pankso@48 | 705 echo "ERROR: User already exists" && exit 1 |
pankso@48 | 706 else |
pankso@48 | 707 echo "Creating account for : $(GET name)" |
pankso@48 | 708 new_user_config |
pankso@48 | 709 fi |
pankso@9 | 710 fi ;; |
pankso@9 | 711 *\ key\ *) |
pankso@9 | 712 # Let user post new bug or message with crypted key (no gettext) |
pankso@9 | 713 # |
pankso@9 | 714 # Testing only and is security acceptable ? |
pankso@9 | 715 # |
pankso@9 | 716 key="$(GET key)" |
pankso@9 | 717 id="$(GET bug)" |
pankso@9 | 718 header "Content-type: text/plain;" |
pankso@30 | 719 echo "Checking secure key..." |
pankso@26 | 720 if fgrep -qH $key $PEOPLE/*/account.conf; then |
pankso@26 | 721 conf=$(fgrep -H $key $PEOPLE/*/account.conf | cut -d ":" -f 1) |
pankso@9 | 722 . $conf |
pankso@9 | 723 echo "Authentified: $NAME ($USER)" |
pankso@9 | 724 case " $(GET) " in |
pankso@9 | 725 *\ msg\ *) |
pankso@9 | 726 [ ! "$id" ] && echo "Missing bug ID" && exit 0 |
pankso@9 | 727 echo "Posting new message to bug: $id" |
pankso@9 | 728 echo "Message: $(GET msg)" |
pankso@9 | 729 new_msg ;; |
pankso@9 | 730 *\ bug\ *) |
pankso@30 | 731 echo "Adding new bug: $(GET bug)" |
pankso@30 | 732 echo "Description: $(GET desc)" |
pankso@9 | 733 new_bug ;; |
pankso@30 | 734 esac |
pankso@9 | 735 else |
pankso@9 | 736 echo "Not a valid SliTaz user key" |
pankso@9 | 737 exit 0 |
pankso@9 | 738 fi ;; |
pankso@9 | 739 *\ search\ *) |
pankso@9 | 740 header |
pankso@9 | 741 html_header |
pankso@9 | 742 user_box |
pankso@9 | 743 cat << EOT |
pankso@9 | 744 <h2>$(gettext "Search")</h2> |
xfred222@34 | 745 <form method="get" action="$WEB_URL"> |
pankso@9 | 746 <input type="text" name="search" /> |
al@31 | 747 <input type="submit" value="$(gettext 'Search')" /> |
pankso@9 | 748 </form> |
pankso@21 | 749 <div> |
pankso@9 | 750 EOT |
pankso@30 | 751 |
pankso@21 | 752 #found=0 JS to notify or write results nb under the search box. |
pankso@21 | 753 for bug in $bugdir/* |
pankso@9 | 754 do |
pankso@21 | 755 result=$(fgrep -i "$(GET search)" $bug/*) |
pankso@21 | 756 if [ "$result" ]; then |
pankso@21 | 757 #found=$(($found + 1)) |
pankso@21 | 758 id=${bug#bug/} |
al@31 | 759 echo "<p><strong>Bug $id</strong> <a href=\"?id=$id\">"$(gettext 'Show')"</a></p>" |
pankso@21 | 760 echo '<pre>' |
pankso@21 | 761 fgrep -i "$(GET search)" $bugdir/$id/* | \ |
pankso@21 | 762 sed s"/$(GET search)/<span class='ok'>$(GET search)<\/span>/"g |
pankso@21 | 763 echo '</pre>' |
pankso@21 | 764 else |
al@31 | 765 get_search=$(GET search) |
al@31 | 766 echo "<p>$(eval_gettext 'No result found for: $get_search')</p>" |
pankso@21 | 767 fi |
pankso@9 | 768 done |
pankso@21 | 769 echo '</div>' |
pankso@9 | 770 html_footer ;; |
pankso@9 | 771 *) |
pankso@9 | 772 # Default page. |
pankso@9 | 773 bugs=$(ls -1 $bugdir | wc -l) |
pankso@9 | 774 close=$(fgrep "CLOSED" $bugdir/*/bug.conf | wc -l) |
pankso@9 | 775 fixme=$(fgrep "OPEN" $bugdir/*/bug.conf | wc -l) |
pankso@9 | 776 msgs=$(find $bugdir -name msg.* ! -size 0 | wc -l) |
pankso@9 | 777 pct=0 |
pankso@9 | 778 [ $bugs -gt 0 ] && pct=$(( ($close * 100) / $bugs )) |
pankso@9 | 779 header |
pankso@9 | 780 html_header |
pankso@9 | 781 user_box |
pankso@9 | 782 cat << EOT |
pankso@9 | 783 |
pankso@9 | 784 <h2>$(gettext "Summary")</h2> |
pankso@9 | 785 |
pankso@9 | 786 <p> |
al@31 | 787 $(eval_ngettext 'Bug: $bugs in total -' 'Bugs: $bugs in total -' $bugs) |
al@31 | 788 $(eval_ngettext '$close fixed -' '$close fixed -' $close) |
al@31 | 789 $(eval_ngettext '$fixme to fix -' '$fixme to fix -' $fixme) |
al@31 | 790 $(eval_ngettext '$msgs message' '$msgs messages' $msgs) |
pankso@9 | 791 </p> |
pankso@9 | 792 |
pankso@9 | 793 <div class="pctbar"> |
pankso@9 | 794 <div class="pct" style="width: ${pct}%;">${pct}%</div> |
pankso@9 | 795 </div> |
pankso@9 | 796 |
pankso@49 | 797 <p>$(gettext "Please read the <a href=\"?README\">README</a> for help and \ |
pankso@49 | 798 more information. You may also be interested by the SliTaz \ |
al@31 | 799 <a href=\"http://roadmap.slitaz.org/\">Roadmap</a> and the packages \ |
al@31 | 800 <a href=\"http://cook.slitaz.org/\">Cooker</a>. To perform a search \ |
al@31 | 801 enter your term and press ENTER.") |
pankso@9 | 802 </p> |
pankso@9 | 803 |
pankso@9 | 804 <div id="tools"> |
al@31 | 805 <a href="?closed">$(gettext 'View closed bugs')</a> |
pankso@9 | 806 EOT |
pankso@9 | 807 if check_auth; then |
al@31 | 808 echo "<a href='?newbug'>$(gettext 'Create a new bug')</a>" |
pankso@49 | 809 echo "$PLUGINS_TOOLS" |
pankso@9 | 810 fi |
pankso@9 | 811 cat << EOT |
pankso@9 | 812 </div> |
pankso@9 | 813 EOT |
pankso@9 | 814 list_bugs OPEN |
pankso@9 | 815 html_footer ;; |
pankso@9 | 816 esac |
pankso@9 | 817 |
pankso@9 | 818 exit 0 |