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