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