tinycm annotate plugins/dashboard/dashboard.cgi @ rev 82

Some small fixes and improvments
author Christophe Lincoln <pankso@slitaz.org>
date Sat Feb 11 17:04:56 2017 +0100 (2017-02-11)
parents b07b36203b8d
children 345ecf7eee37
rev   line source
pankso@59 1 #!/bin/sh
pankso@59 2 #
pankso@59 3 # TinyCM Plugin - Users and admin Dashboard.
pankso@59 4 #
pankso@59 5
pankso@59 6 if [ "$(GET dashboard)" ]; then
pankso@60 7 d="Dashboard"
pankso@60 8 header
pankso@60 9 html_header
pankso@60 10 user_box
pankso@60 11 docs=$(find $wiki -type f | wc -l)
pankso@60 12 wikisize="$(du -sh $wiki | awk '{print $1}')"
pankso@60 13 cachesize="$(du -sh $cache | awk '{print $1}')"
pankso@60 14 [ "$HG" != "yes" ] && hg=$(gettext "disabled")
pankso@60 15 [ "$HG" == "yes" ] && hg=$(gettext "enabled")
pankso@60 16 # Source all plugins.conf to get DASHBOARD_TOOLS and ADMIN_TOOLS
pankso@60 17 ADMIN_TOOLS=""
pankso@60 18 DASHBOARD_TOOLS=""
pankso@60 19 for p in $(ls $plugins)
pankso@60 20 do
pankso@60 21 . $plugins/$p/$p.conf
pankso@60 22 done
pankso@60 23 if check_auth && ! admin_user; then
pankso@59 24 ADMIN_TOOLS=""
pankso@60 25 fi
pankso@60 26 if check_auth; then
pankso@60 27 cat << EOT
pankso@59 28 <div id="tools">
pankso@59 29 <a href='$script?log'>Activity log</a>
pankso@59 30 <a href='$script?ls'>Pages list</a>
pankso@59 31 $DASHBOARD_TOOLS
pankso@59 32 $ADMIN_TOOLS
pankso@59 33 </div>
pankso@59 34
pankso@59 35 <h2>$d</h2>
pankso@59 36
pankso@59 37 <pre>
pankso@81 38 Wiki docs : $docs ($wikisize)
pankso@81 39 Cache size : $cachesize
pankso@81 40 Mercurial : $hg
pankso@81 41 Server uptime : $(uptime | cut -d " " -f 4 | sed s"/:/h /" | sed s"/,/min/")
pankso@59 42 </pre>
pankso@59 43
pankso@59 44 <h3>Admin users</h3>
pankso@59 45 EOT
pankso@60 46 # Get the list of administrators
pankso@81 47 fgrep -l "ADMIN_USER=" $PEOPLE/*/account.conf | while read file;
pankso@60 48 do
pankso@81 49 . ${file}
pankso@81 50 echo "<a href='?user=$USER'>$USER</a>"
pankso@81 51 unset NAME USER
pankso@60 52 done
pankso@60 53
pankso@60 54 # Only for admins
pankso@60 55 if check_auth && admin_user; then
pankso@60 56 # List all plugins
pankso@59 57 cat << EOT
pankso@59 58 <h3>$(gettext "Plugins")</h3>
pankso@81 59 <table>
pankso@81 60 <thead>
pankso@81 61 <td>$(gettext "Name")</td>
pankso@81 62 <td>$(gettext "Description")</td>
pankso@81 63 <td>$(gettext "Action")</td>
pankso@81 64 </thead>
pankso@59 65 EOT
pankso@59 66 for p in $(ls -1 $plugins)
pankso@59 67 do
pankso@59 68 . $plugins/$p/$p.conf
pankso@81 69 cat << EOT
pankso@81 70 <tr>
pankso@81 71 <td><a href='?$p'>$PLUGIN</a></td>
pankso@81 72 <td>$SHORT_DESC</td>
pankso@82 73 <td>TODO</td>
pankso@81 74 </tr>
pankso@81 75 EOT
pankso@59 76 done
pankso@81 77 echo "</table>"
pankso@60 78 fi
pankso@60 79 else
pankso@82 80 gettext "You must be logged in to view the dashboard"
pankso@60 81 fi
pankso@60 82 html_footer && exit 0
pankso@59 83 fi