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

arm: add basic web interface
author Christophe Lincoln <pankso@slitaz.org>
date Mon Mar 03 01:01:31 2014 +0100 (2014-03-03)
parents
children e60fe47200b2
rev   line source
pankso@469 1 #!/bin/sh
pankso@469 2 #
pankso@469 3 # SliTaz ARM CGI Tools.
pankso@469 4 #
pankso@469 5 . /usr/lib/slitaz/httphelper.sh
pankso@469 6
pankso@469 7 repos="/home/slitaz/repos"
pankso@469 8 pkgs="/home/slitaz/cooking/arm/packages"
pankso@469 9 mirror="http://cook.slitaz.org/cross/arm/packages/"
pankso@469 10 hgsat="$repos/slitaz-arm"
pankso@469 11 hgcook="$repos/cookutils"
pankso@469 12
pankso@469 13 #
pankso@469 14 # Functions
pankso@469 15 #
pankso@469 16
pankso@469 17 html_header() {
pankso@469 18 cat << EOT
pankso@469 19 <!DOCTYPE html>
pankso@469 20 <html lang="en">
pankso@469 21 <head>
pankso@469 22 <title>SliTaz ARM $title</title>
pankso@469 23 <meta charset="utf-8" />
pankso@469 24 <link rel="stylesheet" type="text/css" href="style.css" />
pankso@469 25 </head>
pankso@469 26 <body>
pankso@469 27
pankso@469 28 <div id="header">
pankso@469 29 <div id="logo"></div>
pankso@469 30 <div id="network">
pankso@469 31 <a href="http://bugs.slitaz.org/">Bugs</a>
pankso@469 32 <a href="http://hg.slitaz.org/slitaz-arm">Hg</a>
pankso@469 33 <a href="http://cook.slitaz.org/cross/arm/">Cooker</a>
pankso@469 34 </div>
pankso@469 35 <h1><a href="./">SliTaz ARM</a></h1>
pankso@469 36 </div>
pankso@469 37
pankso@469 38 <!-- Content -->
pankso@469 39 <div id="content">
pankso@469 40 EOT
pankso@469 41 }
pankso@469 42
pankso@469 43 html_footer() {
pankso@469 44 cat << EOT
pankso@469 45 </div>
pankso@469 46
pankso@469 47 </body>
pankso@469 48 </html>
pankso@469 49 EOT
pankso@469 50 }
pankso@469 51
pankso@469 52 #
pankso@469 53 # Handle GET actions
pankso@469 54 #
pankso@469 55
pankso@469 56 case " $(GET) " in
pankso@469 57 *\ doc\ *)
pankso@469 58 header "Content-Type: text/plain"
pankso@469 59 case "$(GET tool)" in
pankso@469 60 cook) cat ${hgcook}/README ;;
pankso@469 61 cross) cat ${hgcook}/doc/cross.txt ;;
pankso@469 62 sat) cat ${hgsat}/README ;;
pankso@469 63 *) echo "No README file for: $(GET tool)" ;;
pankso@469 64 esac ;;
pankso@469 65 *\ pkgs\ *)
pankso@469 66 # TODO: link packages and add link to raw lists
pankso@469 67 title="- Packages"
pankso@469 68 count="$(cat $pkgs/packages.list | wc -l)"
pankso@469 69 html_header
pankso@469 70 echo "<h2>Packages: $count</h2>"
pankso@469 71 IFS="|"
pankso@469 72 cat $pkgs/packages.desc | while read pkg vers desc web deps
pankso@469 73 do
pankso@469 74 cat << EOT
pankso@469 75 <div>
pankso@469 76 <b>$pkg</b> $vers
pankso@469 77 <pre> $desc</pre>
pankso@469 78 </div>
pankso@469 79 EOT
pankso@469 80 done
pankso@469 81 unset IFS
pankso@469 82 html_footer ;;
pankso@469 83 *)
pankso@469 84 header "Content-Type: text/plain"
pankso@469 85 echo "Hello World!" ;;
pankso@469 86 esac
pankso@469 87
pankso@469 88 exit 0