tazbug view web/plugins/dashboard/dashboard.cgi @ rev 65
Small cosmetic change
| author | Christophe Lincoln <pankso@slitaz.org> |
|---|---|
| date | Tue Jan 07 22:41:49 2014 +0100 (2014-01-07) |
| parents | 41de444b2aa3 |
| children | d88736defba5 |
line source
1 #!/bin/sh
2 #
3 # TinyCM/TazBug Plugin - Dashboard
4 #
5 . /usr/lib/slitaz/httphelper
7 case " $(GET) " in
8 *\ users\ *)
9 d="Users"
10 header
11 html_header
12 user_box
13 if check_auth && ! admin_user; then
14 gettext "You must be admin to manage users."
15 exit 0
16 fi
17 users=$(ls -1 $PEOPLE | wc -l)
18 cat << EOT
19 <h2>Users: $users</h2>
20 <div id="tools">
21 <a href="$script?dashboard">Dashboard</a>
22 </div>
23 <pre>
24 EOT
25 for u in $(ls $PEOPLE)
26 do
27 . "${PEOPLE}/${u}/account.conf"
28 cat << EOT
29 $(get_gravatar $MAIL 24) <a href="?user=$USER">$USER</a> | $NAME | $MAIL
30 EOT
31 # deluser link
32 #: <a href="?users&deluser=$USER">$(gettext "delete")</a>
33 unset NAME USER
34 done
35 echo "</pre>" && exit 0 ;;
37 *\ online\ *)
38 # Show online users based on sessions files.
39 d="Online users"
40 header
41 html_header
42 user_box
43 if ! check_auth; then
44 gettext "You must be logged in to view online user"
45 exit 0
46 fi
47 cat << EOT
48 <h2>Online users</h2>
49 <div id="tools">
50 <a href="$script?dashboard">Dashboard</a>
51 </div>
52 <pre>
53 EOT
54 for u in $(ls $sessions)
55 do
56 . "${PEOPLE}/${u}/account.conf"
57 cat << EOT
58 $(get_gravatar $MAIL 24) <a href="?user=$USER">$USER</a> | $NAME
59 EOT
60 done
61 echo "</pre>"
62 html_footer && exit 0 ;;
64 *\ dashboard\ *)
65 d="Dashboard"
66 users=$(ls -1 $PEOPLE | wc -l)
67 bugs=$(ls -1 $bugdir | wc -l)
68 bugsize=$(du -sh $bugdir | awk '{print $1}')
69 header
70 html_header
71 user_box
72 if ! check_auth; then
73 gettext "You must be logged in to view the dashboard"
74 exit 0
75 fi
76 if check_auth && admin_user; then
77 admintools="<a href='?users'>List users</a>"
78 fi
79 cat << EOT
80 <h2>Dashboard</h2>
82 <div id="tools">
83 <a href='?online'>Online users</a>
84 $admintools
85 </div>
87 <pre>
88 Users : $users
89 Bugs : $bugs
90 Bugsize : $bugsize
91 </pre>
93 <h3>Admin users</h3>
94 EOT
95 # Get the list of administrators
96 for u in $(ls $PEOPLE)
97 do
98 user=${u}
99 if admin_user; then
100 echo "<a href='?user=$u'>$u</a>"
101 fi
102 done
103 cat << EOT
104 <h3>$(gettext "Plugins")</h3>
105 <pre>
106 EOT
107 for p in $(ls -1 $plugins)
108 do
109 . $plugins/$p/$p.conf
110 echo "<a href='?$p'>$PLUGIN</a> - $SHORT_DESC"
111 done
112 echo '</pre>'
113 html_footer
114 exit 0 ;;
115 esac