tazbug annotate web/plugins/dashboard/dashboard.cgi @ rev 67
Small fix to dashboard.cgi
author | Christophe Lincoln <pankso@slitaz.org> |
---|---|
date | Tue Jan 07 23:41:29 2014 +0100 (2014-01-07) |
parents | d88736defba5 |
children | 2808fc73ac9f |
rev | line source |
---|---|
pankso@49 | 1 #!/bin/sh |
pankso@49 | 2 # |
pankso@66 | 3 # TazBug Plugin - Dashboard |
pankso@49 | 4 # |
pankso@49 | 5 . /usr/lib/slitaz/httphelper |
pankso@49 | 6 |
pankso@49 | 7 case " $(GET) " in |
pankso@49 | 8 *\ dashboard\ *) |
pankso@49 | 9 d="Dashboard" |
pankso@54 | 10 users=$(ls -1 $PEOPLE | wc -l) |
pankso@54 | 11 bugs=$(ls -1 $bugdir | wc -l) |
pankso@54 | 12 bugsize=$(du -sh $bugdir | awk '{print $1}') |
pankso@49 | 13 header |
pankso@49 | 14 html_header |
pankso@49 | 15 user_box |
pankso@49 | 16 if ! check_auth; then |
pankso@64 | 17 gettext "You must be logged in to view the dashboard" |
pankso@49 | 18 exit 0 |
pankso@49 | 19 fi |
pankso@67 | 20 # Source all plugins.conf to get DASHBOARD_TOOLS and ADMIN_TOOLS |
pankso@67 | 21 ADMIN_TOOLS="" |
pankso@67 | 22 DASHBOARD_TOOLS="" |
pankso@66 | 23 for p in $(ls $plugins) |
pankso@66 | 24 do |
pankso@66 | 25 . $plugins/$p/$p.conf |
pankso@66 | 26 done |
pankso@66 | 27 if check_auth && ! admin_user; then |
pankso@66 | 28 ADMIN_TOOLS="" |
pankso@49 | 29 fi |
pankso@49 | 30 cat << EOT |
pankso@49 | 31 <h2>Dashboard</h2> |
pankso@65 | 32 |
pankso@65 | 33 <div id="tools"> |
pankso@66 | 34 $DASHBOARD_TOOLS $ADMIN_TOOLS |
pankso@65 | 35 </div> |
pankso@65 | 36 |
pankso@49 | 37 <pre> |
pankso@49 | 38 Users : $users |
pankso@54 | 39 Bugs : $bugs |
pankso@49 | 40 Bugsize : $bugsize |
pankso@49 | 41 </pre> |
pankso@65 | 42 |
pankso@49 | 43 <h3>Admin users</h3> |
pankso@49 | 44 EOT |
pankso@49 | 45 # Get the list of administrators |
pankso@49 | 46 for u in $(ls $PEOPLE) |
pankso@49 | 47 do |
pankso@49 | 48 user=${u} |
pankso@49 | 49 if admin_user; then |
pankso@49 | 50 echo "<a href='?user=$u'>$u</a>" |
pankso@49 | 51 fi |
pankso@49 | 52 done |
pankso@49 | 53 cat << EOT |
pankso@49 | 54 <h3>$(gettext "Plugins")</h3> |
pankso@49 | 55 <pre> |
pankso@49 | 56 EOT |
pankso@66 | 57 # List all plugins |
pankso@49 | 58 for p in $(ls -1 $plugins) |
pankso@49 | 59 do |
pankso@49 | 60 . $plugins/$p/$p.conf |
pankso@49 | 61 echo "<a href='?$p'>$PLUGIN</a> - $SHORT_DESC" |
pankso@49 | 62 done |
pankso@49 | 63 echo '</pre>' |
pankso@66 | 64 html_footer && exit 0 ;; |
pankso@49 | 65 esac |