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 |