tinycm annotate plugins/dashboard/dashboard.cgi @ rev 59
Bunch of change, mv dashboard to plugins
author | Christophe Lincoln <pankso@slitaz.org> |
---|---|
date | Fri Jan 31 00:48:32 2014 +0100 (2014-01-31) |
parents | |
children | 854c4a8f0972 |
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 . /usr/lib/slitaz/httphelper |
pankso@59 | 6 |
pankso@59 | 7 if [ "$(GET dashboard)" ]; then |
pankso@59 | 8 d="Dashboard" |
pankso@59 | 9 header |
pankso@59 | 10 html_header |
pankso@59 | 11 user_box |
pankso@59 | 12 users=$(ls -1 $PEOPLE | wc -l) |
pankso@59 | 13 docs=$(find $wiki -type f | wc -l) |
pankso@59 | 14 wikisize="$(du -sh $wiki | awk '{print $1}')" |
pankso@59 | 15 cachesize="$(du -sh $cache | awk '{print $1}')" |
pankso@59 | 16 [ "$HG" != "yes" ] && hg=$(gettext "disabled") |
pankso@59 | 17 [ "$HG" == "yes" ] && hg=$(gettext "enabled") |
pankso@59 | 18 # Source all plugins.conf to get DASHBOARD_TOOLS and ADMIN_TOOLS |
pankso@59 | 19 ADMIN_TOOLS="" |
pankso@59 | 20 DASHBOARD_TOOLS="" |
pankso@59 | 21 for p in $(ls $plugins) |
pankso@59 | 22 do |
pankso@59 | 23 . $plugins/$p/$p.conf |
pankso@59 | 24 done |
pankso@59 | 25 if check_auth && ! admin_user; then |
pankso@59 | 26 ADMIN_TOOLS="" |
pankso@59 | 27 fi |
pankso@59 | 28 if check_auth; then |
pankso@59 | 29 cat << EOT |
pankso@59 | 30 <div id="tools"> |
pankso@59 | 31 <a href='$script?log'>Activity log</a> |
pankso@59 | 32 <a href='$script?ls'>Pages list</a> |
pankso@59 | 33 $DASHBOARD_TOOLS |
pankso@59 | 34 $ADMIN_TOOLS |
pankso@59 | 35 </div> |
pankso@59 | 36 |
pankso@59 | 37 <h2>$d</h2> |
pankso@59 | 38 |
pankso@59 | 39 <pre> |
pankso@59 | 40 Users : $users |
pankso@59 | 41 Wiki : $docs ($wikisize) |
pankso@59 | 42 Cache : $cachesize |
pankso@59 | 43 Mercurial : $hg |
pankso@59 | 44 </pre> |
pankso@59 | 45 |
pankso@59 | 46 <h3>Admin users</h3> |
pankso@59 | 47 EOT |
pankso@59 | 48 # Get the list of administrators |
pankso@59 | 49 for u in $(ls $PEOPLE) |
pankso@59 | 50 do |
pankso@59 | 51 user=${u} |
pankso@59 | 52 if admin_user; then |
pankso@59 | 53 echo "<a href='?user=$u'>$u</a>" |
pankso@59 | 54 fi |
pankso@59 | 55 done |
pankso@59 | 56 cat << EOT |
pankso@59 | 57 <h3>$(gettext "Plugins")</h3> |
pankso@59 | 58 <pre> |
pankso@59 | 59 EOT |
pankso@59 | 60 for p in $(ls -1 $plugins) |
pankso@59 | 61 do |
pankso@59 | 62 . $plugins/$p/$p.conf |
pankso@59 | 63 echo "<a href='?$p'>$PLUGIN</a> - $SHORT_DESC" |
pankso@59 | 64 done |
pankso@59 | 65 echo '</pre>' |
pankso@59 | 66 else |
pankso@59 | 67 gettext "You must be logged in to view the dashboard." |
pankso@59 | 68 fi |
pankso@59 | 69 html_footer |
pankso@59 | 70 exit 0 |
pankso@59 | 71 fi |