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

Small fix to dashboard
author Christophe Lincoln <pankso@slitaz.org>
date Thu Feb 23 02:50:40 2017 +0100 (2017-02-23)
parents 35354740250d
children 3b1e2a5f6d85
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@109 21 [ -f "$plugins/$p/$p.conf" ] && . $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@100 40 Users account : $(ls $PEOPLE | wc -l)
pankso@81 41 Mercurial : $hg
pankso@59 42 </pre>
pankso@59 43 EOT
pankso@60 44
pankso@60 45 # Only for admins
pankso@100 46 if admin_user; then
pankso@60 47 # List all plugins
pankso@59 48 cat << EOT
pankso@100 49 <h3>$(gettext "Plugins:") $(ls $plugins | wc -l)</h3>
pankso@101 50 <div id="plugins">
pankso@81 51 <table>
pankso@81 52 <thead>
pankso@81 53 <td>$(gettext "Name")</td>
pankso@81 54 <td>$(gettext "Description")</td>
pankso@81 55 <td>$(gettext "Action")</td>
pankso@81 56 </thead>
pankso@59 57 EOT
pankso@59 58 for p in $(ls -1 $plugins)
pankso@59 59 do
pankso@59 60 . $plugins/$p/$p.conf
pankso@81 61 cat << EOT
pankso@81 62 <tr>
pankso@81 63 <td><a href='?$p'>$PLUGIN</a></td>
pankso@81 64 <td>$SHORT_DESC</td>
pankso@82 65 <td>TODO</td>
pankso@81 66 </tr>
pankso@81 67 EOT
pankso@59 68 done
pankso@101 69 echo "</table></div>"
pankso@60 70 fi
pankso@60 71 else
pankso@82 72 gettext "You must be logged in to view the dashboard"
pankso@60 73 fi
pankso@60 74 html_footer && exit 0
pankso@59 75 fi