tinycm annotate plugins/dashboard/dashboard.cgi @ rev 100
Improve users plugin (list last active users)
| author | Christophe Lincoln <pankso@slitaz.org> |
|---|---|
| date | Mon Feb 20 13:33:04 2017 +0100 (2017-02-20) |
| parents | 345ecf7eee37 |
| children | 35354740250d |
| 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@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@81 | 50 <table> |
| pankso@81 | 51 <thead> |
| pankso@81 | 52 <td>$(gettext "Name")</td> |
| pankso@81 | 53 <td>$(gettext "Description")</td> |
| pankso@81 | 54 <td>$(gettext "Action")</td> |
| pankso@81 | 55 </thead> |
| pankso@59 | 56 EOT |
| pankso@59 | 57 for p in $(ls -1 $plugins) |
| pankso@59 | 58 do |
| pankso@59 | 59 . $plugins/$p/$p.conf |
| pankso@81 | 60 cat << EOT |
| pankso@81 | 61 <tr> |
| pankso@81 | 62 <td><a href='?$p'>$PLUGIN</a></td> |
| pankso@81 | 63 <td>$SHORT_DESC</td> |
| pankso@82 | 64 <td>TODO</td> |
| pankso@81 | 65 </tr> |
| pankso@81 | 66 EOT |
| pankso@59 | 67 done |
| pankso@81 | 68 echo "</table>" |
| pankso@60 | 69 fi |
| pankso@60 | 70 else |
| pankso@82 | 71 gettext "You must be logged in to view the dashboard" |
| pankso@60 | 72 fi |
| pankso@60 | 73 html_footer && exit 0 |
| pankso@59 | 74 fi |