slitaz-forge diff 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
line diff
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/arm/tools.cgi	Mon Mar 03 01:01:31 2014 +0100
     1.3 @@ -0,0 +1,88 @@
     1.4 +#!/bin/sh
     1.5 +#
     1.6 +# SliTaz ARM CGI Tools.
     1.7 +#
     1.8 +. /usr/lib/slitaz/httphelper.sh
     1.9 +
    1.10 +repos="/home/slitaz/repos"
    1.11 +pkgs="/home/slitaz/cooking/arm/packages"
    1.12 +mirror="http://cook.slitaz.org/cross/arm/packages/"
    1.13 +hgsat="$repos/slitaz-arm"
    1.14 +hgcook="$repos/cookutils"
    1.15 +
    1.16 +#
    1.17 +# Functions
    1.18 +#
    1.19 +
    1.20 +html_header() {
    1.21 +	cat << EOT
    1.22 +<!DOCTYPE html>
    1.23 +<html lang="en">
    1.24 +<head>
    1.25 +	<title>SliTaz ARM $title</title>
    1.26 +	<meta charset="utf-8" />
    1.27 +	<link rel="stylesheet" type="text/css" href="style.css" />
    1.28 +</head>
    1.29 +<body>
    1.30 +
    1.31 +<div id="header">
    1.32 +	<div id="logo"></div>
    1.33 +	<div id="network">
    1.34 +		<a href="http://bugs.slitaz.org/">Bugs</a>
    1.35 +		<a href="http://hg.slitaz.org/slitaz-arm">Hg</a>
    1.36 +		<a href="http://cook.slitaz.org/cross/arm/">Cooker</a>
    1.37 +	</div>
    1.38 +	<h1><a href="./">SliTaz ARM</a></h1>
    1.39 +</div>
    1.40 +
    1.41 +<!-- Content -->
    1.42 +<div id="content">
    1.43 +EOT
    1.44 +}
    1.45 +
    1.46 +html_footer() {
    1.47 +	cat << EOT
    1.48 +</div>
    1.49 +
    1.50 +</body>
    1.51 +</html>
    1.52 +EOT
    1.53 +}
    1.54 +
    1.55 +#
    1.56 +# Handle GET actions
    1.57 +#
    1.58 +
    1.59 +case " $(GET) " in
    1.60 +	*\ doc\ *)
    1.61 +		header "Content-Type: text/plain"
    1.62 +		case "$(GET tool)" in
    1.63 +			cook) cat ${hgcook}/README ;;
    1.64 +			cross) cat ${hgcook}/doc/cross.txt ;;
    1.65 +			sat) cat ${hgsat}/README ;;
    1.66 +			*) echo "No README file for: $(GET tool)" ;;
    1.67 +		esac ;;
    1.68 +	*\ pkgs\ *)
    1.69 +		# TODO: link packages and add link to raw lists
    1.70 +		title="- Packages"
    1.71 +		count="$(cat $pkgs/packages.list | wc -l)"
    1.72 +		html_header
    1.73 +		echo "<h2>Packages: $count</h2>"
    1.74 +		IFS="|"
    1.75 +		cat $pkgs/packages.desc | while read pkg vers desc web deps
    1.76 +		do
    1.77 +			cat << EOT
    1.78 +<div>
    1.79 +	<b>$pkg</b> $vers
    1.80 +	<pre>  $desc</pre>
    1.81 +</div>
    1.82 +EOT
    1.83 +		done
    1.84 +		unset IFS
    1.85 +		html_footer ;;
    1.86 +	*)
    1.87 +		header "Content-Type: text/plain"
    1.88 +		echo "Hello World!" ;;
    1.89 +esac
    1.90 +
    1.91 +exit 0