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