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