tazbug annotate web/plugins/packages/packages.cgi @ rev 138

Last fixes and improvemnt before using new tazbug storage on Tank
author Christophe Lincoln <pankso@slitaz.org>
date Wed Feb 22 15:43:58 2017 +0100 (2017-02-22)
parents f07cd117feed
children 3a17904702fc
rev   line source
pankso@80 1 #!/bin/sh
pankso@80 2 #
pankso@106 3 # TazBug Plugin - Buggy packages plugins
pankso@80 4 #
pankso@80 5
pankso@81 6 if [ "$(GET packages)" ] || [ "$(GET pkg)" ]; then
pankso@80 7 d="Skel"
pankso@80 8 header
pankso@80 9 html_header
pankso@80 10 user_box
pankso@80 11 if [ "$(GET pkg)" ]; then
pankso@80 12 pkg=$(GET pkg)
pankso@80 13 echo "<h2>Bugs for: $pkg</h2>"
pankso@80 14 echo "<pre>"
pankso@137 15 for bug in $(fgrep -l "OPEN" $bugdir/open/*/bug.conf)
pankso@80 16 do
pankso@80 17 . ${bug}
pankso@80 18 if echo "$PKGS" | fgrep -q "$pkg"; then
pankso@80 19 dir=$(dirname $bug)
pankso@80 20 id=$(basename $dir)
pankso@138 21 cat << EOT
pankso@138 22 <a href="?user=$USER">$(get_gravatar "$MAIL" 24)</a> \
pankso@138 23 Bug $id: <a href='$script?id=$id'>$BUG</a> - <span class='date'>$DATE</span>
pankso@138 24 EOT
pankso@80 25 fi
pankso@80 26 done
pankso@138 27 cat << EOT
pankso@138 28 </pre>
pankso@138 29 <div id="tools">
pankso@138 30 <a href="$script?packages">Buggy packages</a>
pankso@138 31 </div>
pankso@138 32 EOT
pankso@80 33 else
pankso@80 34 # List all pkgs affected by a bug
pankso@80 35 echo "<h2>Buggy packages</h2>"
pankso@80 36 echo "<pre>"
pankso@137 37 for bug in $(ls $bugdir/open)
pankso@80 38 do
pankso@137 39 . $bugdir/open/${bug}/bug.conf
pankso@137 40 for pkg in ${PKGS}; do
pankso@137 41 if ! echo "$pkgs" | grep -q -w "$pkg"; then
pankso@137 42 pkgs="$pkgs $PKGS"
pankso@137 43 fi
pankso@80 44 unset PKGS
pankso@137 45 done
pankso@80 46 done
pankso@80 47 for pkg in $pkgs; do
pankso@138 48 echo "<img src='images/pkg.png' /> Package: <a href='?pkg=$pkg'>$pkg</a>"
pankso@80 49 done
pankso@80 50 echo "</pre>"
pankso@80 51 fi
pankso@80 52 html_footer
pankso@80 53 exit 0
pankso@80 54 fi