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&amp;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