tazbug annotate web/plugins/dashboard/dashboard.cgi @ rev 49
Add a small dashboard plugin and misc fixes
| author | Christophe Lincoln <pankso@slitaz.org> |
|---|---|
| date | Sun Jan 05 00:01:34 2014 +0100 (2014-01-05) |
| parents | |
| children | 02a11d8d636e |
| rev | line source |
|---|---|
| pankso@49 | 1 #!/bin/sh |
| pankso@49 | 2 # |
| pankso@49 | 3 # TinyCM/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 *\ users\ *) |
| pankso@49 | 9 d="Dashboard" |
| pankso@49 | 10 header |
| pankso@49 | 11 html_header |
| pankso@49 | 12 user_box |
| pankso@49 | 13 if ! admin_user; then |
| pankso@49 | 14 gettext "You must be admin in to manage users." |
| pankso@49 | 15 exit 0 |
| pankso@49 | 16 fi |
| pankso@49 | 17 users=$(ls -1 $PEOPLE | wc -l) |
| pankso@49 | 18 cat << EOT |
| pankso@49 | 19 <h2>Users: $users</h2> |
| pankso@49 | 20 <pre> |
| pankso@49 | 21 EOT |
| pankso@49 | 22 for u in $(ls $PEOPLE) |
| pankso@49 | 23 do |
| pankso@49 | 24 #. ${PEOPLE}/${u}/account.conf |
| pankso@49 | 25 . "${PEOPLE}/${u}/account.conf" |
| pankso@49 | 26 cat << EOT |
| pankso@49 | 27 <img src="images/avatar.png" /> <a href="?user=$USER">$USER</a> | $NAME |
| pankso@49 | 28 EOT |
| pankso@49 | 29 # deluser link |
| pankso@49 | 30 #: <a href="?users&deluser=$USER">$(gettext "delete")</a> |
| pankso@49 | 31 unset NAME USER |
| pankso@49 | 32 done |
| pankso@49 | 33 echo "</pre>" && exit 0 ;; |
| pankso@49 | 34 |
| pankso@49 | 35 *\ dashboard\ *) |
| pankso@49 | 36 d="Dashboard" |
| pankso@49 | 37 header |
| pankso@49 | 38 html_header |
| pankso@49 | 39 user_box |
| pankso@49 | 40 if ! check_auth; then |
| pankso@49 | 41 gettext "You must be logged in to view the dashboard." |
| pankso@49 | 42 exit 0 |
| pankso@49 | 43 fi |
| pankso@49 | 44 if admin_user; then |
| pankso@49 | 45 admintools="<a href='?users'>Users</a>" |
| pankso@49 | 46 fi |
| pankso@49 | 47 users=$(ls -1 $PEOPLE | wc -l) |
| pankso@49 | 48 bugsize=$(du -sh $bugdir | awk '{print $1}') |
| pankso@49 | 49 cat << EOT |
| pankso@49 | 50 <h2>Dashboard</h2> |
| pankso@49 | 51 <pre> |
| pankso@49 | 52 Users : $users |
| pankso@49 | 53 Bugsize : $bugsize |
| pankso@49 | 54 </pre> |
| pankso@49 | 55 <div id="tools"> |
| pankso@49 | 56 $admintools |
| pankso@49 | 57 </div> |
| pankso@49 | 58 <h3>Admin users</h3> |
| pankso@49 | 59 EOT |
| pankso@49 | 60 # Get the list of administrators |
| pankso@49 | 61 for u in $(ls $PEOPLE) |
| pankso@49 | 62 do |
| pankso@49 | 63 user=${u} |
| pankso@49 | 64 if admin_user; then |
| pankso@49 | 65 echo "<a href='?user=$u'>$u</a>" |
| pankso@49 | 66 fi |
| pankso@49 | 67 done |
| pankso@49 | 68 cat << EOT |
| pankso@49 | 69 <h3>$(gettext "Plugins")</h3> |
| pankso@49 | 70 <pre> |
| pankso@49 | 71 EOT |
| pankso@49 | 72 for p in $(ls -1 $plugins) |
| pankso@49 | 73 do |
| pankso@49 | 74 . $plugins/$p/$p.conf |
| pankso@49 | 75 echo "<a href='?$p'>$PLUGIN</a> - $SHORT_DESC" |
| pankso@49 | 76 done |
| pankso@49 | 77 echo '</pre>' |
| pankso@49 | 78 html_footer |
| pankso@49 | 79 exit 0 ;; |
| pankso@49 | 80 esac |