slitaz-forge annotate arm/tools.cgi @ rev 718

pangolin/web/index.php: add games.slitaz.org
author Pascal Bellard <pascal.bellard@slitaz.org>
date Mon Oct 25 17:27:46 2021 +0000 (2021-10-25)
parents 762b4433c38f
children
rev   line source
pankso@469 1 #!/bin/sh
pankso@469 2 #
pankso@469 3 # SliTaz ARM CGI Tools.
pankso@469 4 #
pankso@470 5 # Copyright (C) 2014 SliTaz ARM - BSD License
pankso@470 6 # Author: Christophe Lincoln <pankso@slitaz.org>
pankso@470 7 #
pankso@469 8 . /usr/lib/slitaz/httphelper.sh
pankso@469 9
pankso@469 10 repos="/home/slitaz/repos"
pankso@469 11 pkgs="/home/slitaz/cooking/arm/packages"
pankso@469 12 mirror="http://cook.slitaz.org/cross/arm/packages/"
pankso@469 13 hgsat="$repos/slitaz-arm"
pankso@469 14 hgcook="$repos/cookutils"
pankso@469 15
pankso@469 16 #
pankso@469 17 # Functions
pankso@469 18 #
pankso@469 19
pankso@478 20 # Usage: html_header "title"
pankso@469 21 html_header() {
pankso@478 22 cat header.html | sed s"/_TITLE_/$1/"
pankso@469 23 }
pankso@469 24
pankso@469 25 html_footer() {
pankso@469 26 cat << EOT
pankso@478 27 <!-- Close content -->
pankso@478 28 </div>
pankso@478 29
pankso@478 30 <div id="footer">
pankso@478 31 &copy; $(date +%Y) - <a href="http://www.slitaz.org/">SliTaz GNU/Linux</a>
pankso@469 32 </div>
pankso@469 33
pankso@469 34 </body>
pankso@469 35 </html>
pankso@469 36 EOT
pankso@469 37 }
pankso@469 38
pankso@469 39 #
pankso@469 40 # Handle GET actions
pankso@469 41 #
pankso@469 42
pankso@469 43 case " $(GET) " in
pankso@469 44 *\ doc\ *)
pankso@478 45 header
pankso@478 46 html_header "$(GET tool)"
pankso@478 47 echo '<pre>'
pankso@469 48 case "$(GET tool)" in
pankso@469 49 cook) cat ${hgcook}/README ;;
pankso@469 50 cross) cat ${hgcook}/doc/cross.txt ;;
pankso@469 51 sat) cat ${hgsat}/README ;;
pankso@483 52 sat-rpi) cat ${hgsat}/rpi/README ;;
pankso@469 53 *) echo "No README file for: $(GET tool)" ;;
pankso@478 54 esac
pankso@478 55 echo '</pre>'
pankso@478 56 html_footer ;;
pankso@537 57
pankso@537 58 *\ micronews\ *)
pankso@537 59 header
pankso@537 60 html_header "microNews"
pankso@537 61 cat << EOT
pankso@537 62 <h2>SliTaz ARM &micro;News</h2>
pankso@537 63 <p>
pankso@537 64 Development activity can be seen on:
pankso@537 65 <a href="http://hg.slitaz.org/slitaz-arm">SliTaz ARM Hg repo</a>
pankso@537 66 </p>
pankso@537 67 <pre style="line-height: 1.6em;">
pankso@537 68 $(tac news.txt)
pankso@537 69 </pre>
pankso@537 70 EOT
pankso@537 71 html_footer ;;
pankso@537 72
pankso@469 73 *\ pkgs\ *)
pankso@469 74 # TODO: link packages and add link to raw lists
pankso@469 75 title="- Packages"
pankso@469 76 count="$(cat $pkgs/packages.list | wc -l)"
pankso@537 77 header
pankso@478 78 html_header "Packages"
pankso@487 79 cat << EOT
pankso@487 80 <h2>Packages: $count</h2>
pankso@487 81
pankso@487 82 <pre>
pankso@487 83 Packages lists : <a href="${mirror%/}/packages.list">packages.list</a> \
pankso@487 84 - <a href="${mirror%/}/packages.md5">packages.md5</a>
pankso@487 85 Mirror URL : <a href="${mirror}">${mirror}</a>
pankso@487 86 </pre>
pankso@487 87
pankso@487 88 <h2>Packages list</h2>
pankso@487 89 EOT
pankso@469 90 IFS="|"
pankso@487 91 cat $pkgs/packages.desc| while read pkg vers desc web deps
pankso@469 92 do
pankso@478 93 vers=${vers# }
pankso@469 94 cat << EOT
pankso@478 95 <p>
pankso@478 96 <a href="${mirror%/}/${pkg% }-${vers% }-arm.tazpkg">${pkg% }</a> $vers - $desc
pankso@478 97 </p>
pankso@469 98 EOT
pankso@469 99 done
pankso@469 100 unset IFS
pankso@469 101 html_footer ;;
pankso@469 102 *)
pankso@469 103 header "Content-Type: text/plain"
pankso@469 104 echo "Hello World!" ;;
pankso@469 105 esac
pankso@469 106
pankso@469 107 exit 0