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