rev |
line source |
pankso@3521
|
1 #!/bin/sh
|
pankso@3521
|
2 # Tiny CGI search engine for SliTaz packages on http://pkgs.slitaz.org/
|
pankso@3521
|
3 # Christophe Lincoln <pankso@slitaz.org>
|
pankso@3521
|
4 #
|
pankso@3521
|
5
|
pankso@3521
|
6 read QUERY_STRING
|
pankso@3521
|
7 for i in $(echo $QUERY_STRING | sed 's/&/ /g'); do
|
pankso@3521
|
8 eval $i
|
pankso@3521
|
9 done
|
pankso@3521
|
10 LANG=$lang
|
pankso@3521
|
11 SEARCH=$query
|
pankso@3521
|
12 SLITAZ_VERSION=$version
|
pankso@3521
|
13 OBJECT=$object
|
pankso@3521
|
14 DATE=`date +%Y-%m-%d\ \%H:%M:%S`
|
pankso@3521
|
15 VERSION=cooking
|
pankso@3521
|
16 if [ "$REQUEST_METHOD" = "GET" ]; then
|
pankso@3521
|
17 SEARCH=""
|
pascal@4840
|
18 VERBOSE=0
|
pankso@3521
|
19 for i in $(echo $REQUEST_URI | sed 's/[?&]/ /g'); do
|
pankso@3521
|
20 SLITAZ_VERSION=cooking
|
pankso@3521
|
21 case "$i" in
|
pascal@4840
|
22 verbose=*)
|
pascal@4840
|
23 VERBOSE=${i#*=};;
|
pankso@3521
|
24 lang=*)
|
pankso@3521
|
25 LANG=${i#*=};;
|
pankso@3521
|
26 file=*)
|
pankso@3521
|
27 SEARCH=${i#*=}
|
pankso@3521
|
28 OBJECT=File;;
|
pankso@3521
|
29 desc=*)
|
pankso@3521
|
30 SEARCH=${i#*=}
|
pankso@3521
|
31 OBJECT=Desc;;
|
pankso@3521
|
32 tags=*)
|
pankso@3521
|
33 SEARCH=${i#*=}
|
pankso@3521
|
34 OBJECT=Tags;;
|
pankso@3521
|
35 receipt=*)
|
pankso@3521
|
36 SEARCH=${i#*=}
|
pankso@3521
|
37 OBJECT=Receipt;;
|
pankso@3521
|
38 filelist=*)
|
pankso@3521
|
39 SEARCH=${i#*=}
|
pankso@3521
|
40 OBJECT=File_list;;
|
pankso@3521
|
41 package=*)
|
pankso@3521
|
42 SEARCH=${i#*=}
|
pankso@3521
|
43 OBJECT=Package;;
|
pankso@3521
|
44 depends=*)
|
pankso@3521
|
45 SEARCH=${i#*=}
|
pankso@3521
|
46 OBJECT=Depends;;
|
pascal@4840
|
47 BuildDepends=*)
|
pascal@4840
|
48 SEARCH=${i#*=}
|
pascal@4840
|
49 OBJECT=BuildDepends;;
|
pascal@4840
|
50 FileOverlap=*)
|
pascal@4840
|
51 SEARCH=${i#*=}
|
pascal@4840
|
52 OBJECT=FileOverlap;;
|
pankso@3521
|
53 version=s*|version=2*)
|
pankso@3521
|
54 SLITAZ_VERSION=stable;;
|
pankso@3521
|
55 version=1*)
|
pankso@3521
|
56 SLITAZ_VERSION=1.0;;
|
pankso@3521
|
57 esac
|
pankso@3521
|
58 done
|
pankso@3521
|
59 [ -n "$SEARCH" ] && REQUEST_METHOD="POST"
|
pankso@3521
|
60 fi
|
pankso@3521
|
61
|
pankso@3521
|
62 case "$OBJECT" in
|
pankso@3521
|
63 File) selected_file="selected";;
|
pankso@3521
|
64 Desc) selected_desc="selected";;
|
pankso@3521
|
65 Tags) selected_tags="selected";;
|
pankso@3521
|
66 Receipt) selected_receipt="selected";;
|
pankso@3521
|
67 File_list) selected_file_list="selected";;
|
pankso@3521
|
68 Depends) selected_depends="selected";;
|
pascal@4840
|
69 BuildDepends) selected_build_depends="selected";;
|
pascal@4840
|
70 FileOverlap) selected_overlap="selected";;
|
pankso@3521
|
71 esac
|
pankso@3521
|
72
|
pankso@3521
|
73 case "$SLITAZ_VERSION" in
|
pankso@3521
|
74 1.0) selected_1="selected";;
|
pankso@3521
|
75 stable) selected_stable="selected";;
|
pankso@3521
|
76 esac
|
pankso@3521
|
77
|
pankso@3521
|
78 # unescape query
|
pankso@3521
|
79 SEARCH="$(echo $SEARCH | sed 's/%2B/+/g' | sed 's/%3A/:/g' | sed 's|%2F|/|g')"
|
pankso@3521
|
80
|
pankso@3521
|
81 if [ -z "$LANG" ]; then
|
pankso@3521
|
82 for i in $(echo $HTTP_ACCEPT_LANGUAGE | sed 's/[,;]/ /g'); do
|
pankso@3521
|
83 case "$i" in
|
pankso@3521
|
84 fr|de|pt|cn)
|
pankso@3521
|
85 LANG=$i
|
pankso@3521
|
86 break;;
|
pankso@3521
|
87 esac
|
pankso@3521
|
88 done
|
pankso@3521
|
89 fi
|
pankso@3521
|
90
|
pankso@3521
|
91 package="Package"
|
pankso@3521
|
92 file="File"
|
pankso@3521
|
93 desc="Description"
|
pankso@3521
|
94 tags="Tags"
|
pankso@3521
|
95 receipt="Receipt"
|
pankso@3521
|
96 file_list="File list"
|
pankso@3521
|
97 depends="Depends"
|
pascal@4840
|
98 bdepends="Build depends"
|
pankso@3521
|
99 search="Search"
|
pankso@3521
|
100 cooking="cooking"
|
pankso@3521
|
101 stable="stable"
|
pankso@3521
|
102 result="Result for : $SEARCH"
|
pankso@3521
|
103 noresult="No package $SEARCH"
|
pankso@3521
|
104 deptree="Dependency tree for : $SEARCH"
|
pankso@3521
|
105 rdeptree="Reverse dependency tree for : $SEARCH"
|
pascal@4840
|
106 bdeplist="$SEARCH needs these packages to be built"
|
pascal@4840
|
107 rbdeplist="Packages who need $SEARCH to be built"
|
pascal@4840
|
108 overloading="Theses packages may overload files of "
|
pascal@4840
|
109 overlap="common files"
|
pankso@3521
|
110 charset="ISO-8859-1"
|
pankso@3521
|
111
|
pankso@3521
|
112 case "$LANG" in
|
pankso@3521
|
113
|
pankso@3521
|
114 fr) package="Paquet"
|
pankso@3521
|
115 receipt="Recette"
|
pankso@3521
|
116 depends="Dépendances"
|
pascal@4840
|
117 bdepends="Fabrication"
|
pankso@3521
|
118 search="Recherche"
|
pankso@3521
|
119 result="Recherche de : $SEARCH"
|
pankso@3521
|
120 noresult="Paquet $SEARCH introuvable"
|
pankso@3521
|
121 deptree="Arbre des dépendances de $SEARCH"
|
pankso@3521
|
122 rdeptree="Arbre inversé des dépendances de $SEARCH"
|
pascal@4840
|
123 bdeplist="$SEARCH a besion de ces paquets pour être fabriqué"
|
pascal@4840
|
124 rbdeplist="Paquets ayant besion de $SEARCH pour être fabriqués"
|
pascal@4840
|
125 overloading="Paquets pouvant écraser des fichiers de "
|
pascal@4840
|
126 overlap="Fichiers communs"
|
pankso@3521
|
127 file_list="Liste des fichiers"
|
pankso@3521
|
128 file="Fichier";;
|
pankso@3521
|
129
|
pankso@3521
|
130 de) package="Paket"
|
pankso@3521
|
131 depends="Abhängigkeiten"
|
pankso@3521
|
132 desc="Beschreibung"
|
pankso@3521
|
133 search="Suche"
|
pankso@3521
|
134 cooking="Cooking"
|
pankso@3521
|
135 stable="Stable"
|
pankso@3521
|
136 result="Resultate für : $SEARCH"
|
pankso@3521
|
137 noresult="Kein Paket für $SEARCH"
|
pankso@3521
|
138 deptree="Abhängigkeiten von: $SEARCH"
|
pankso@3521
|
139 rdeptree="Abhängigkeit für: $SEARCH"
|
pankso@3521
|
140 file_list="Datei liste"
|
pankso@3521
|
141 file="Datei";;
|
pankso@3521
|
142
|
pankso@3521
|
143 pt) package="Pacote"
|
pankso@3521
|
144 search="Buscar"
|
pankso@3521
|
145 cooking="cooking"
|
pankso@3521
|
146 stable="stable"
|
pankso@3521
|
147 result="Resultado para : $SEARCH"
|
pankso@3521
|
148 noresult="Sem resultado: $SEARCH"
|
pankso@3521
|
149 deptree="Árvore de dependências para: $SEARCH"
|
pankso@3521
|
150 rdeptree="Árvore de dependências reversa para: $SEARCH"
|
pankso@3521
|
151 depends="Dependências"
|
pankso@3521
|
152 desc="Descrição"
|
pankso@3521
|
153 file_list="Arquivo lista"
|
pankso@3521
|
154 file="Arquivo";;
|
pankso@3521
|
155
|
pankso@3521
|
156 cn) package="软件包:"
|
pankso@3521
|
157 cooking="å¼€å‘版"
|
pankso@3521
|
158 stable="稳定版"
|
pankso@3521
|
159 desc="æè¿°"
|
pankso@3521
|
160 tags="æ ‡ç¾"
|
pankso@3521
|
161 depends="ä¾èµ–"
|
pankso@3521
|
162 file="文件"
|
pankso@3521
|
163 file_list="文件列表"
|
pankso@3521
|
164 search="Search"
|
pankso@3521
|
165 result="Result for : $SEARCH"
|
pankso@3521
|
166 noresult="No package $SEARCH"
|
pankso@3521
|
167 deptree="Dependency tree for : $SEARCH"
|
pankso@3521
|
168 rdeptree="Reverse dependency tree for : $SEARCH"
|
pankso@3521
|
169 charset="UTF-8";;
|
pankso@3521
|
170
|
pankso@3521
|
171 *) LANG="en";;
|
pankso@3521
|
172
|
pankso@3521
|
173 esac
|
pankso@3521
|
174
|
pankso@3521
|
175 WOK=/home/slitaz/$SLITAZ_VERSION/wok
|
pascal@3551
|
176 PACKAGES_REPOSITORY=/home/slitaz/$SLITAZ_VERSION/packages
|
pankso@3521
|
177
|
pankso@3521
|
178 echo Content-type: text/html
|
pankso@3521
|
179 echo
|
pankso@3521
|
180
|
pankso@3521
|
181 # Search form
|
pankso@3521
|
182 search_form()
|
pankso@3521
|
183 {
|
pankso@3521
|
184 cat << _EOT_
|
pankso@3521
|
185
|
pankso@3521
|
186 <div style="text-align: center; padding: 20px;">
|
pankso@3521
|
187 <form method="post" action="search.cgi">
|
pankso@3521
|
188 <input type="hidden" name="lang" value="$LANG" />
|
pankso@3521
|
189 <select name="object">
|
pankso@3521
|
190 <option value="Package">$package</option>
|
pankso@3521
|
191 <option $selected_desc value="Desc">$desc</option>
|
pankso@3521
|
192 <option $selected_tags value="Tags">$tags</option>
|
pankso@3521
|
193 <option $selected_receipt value="Receipt">$receipt</option>
|
pankso@3521
|
194 <option $selected_depends value="Depends">$depends</option>
|
pascal@4840
|
195 <option $selected_build_depends value="BuildDepends">$bdepends</option>
|
pankso@3521
|
196 <option $selected_file value="File">$file</option>
|
pankso@3521
|
197 <option $selected_file_list value="File_list">$file_list</option>
|
pascal@4840
|
198 <option $selected_overlap value="FileOverlap">$overlap</option>
|
pankso@3521
|
199 </select>
|
pankso@3521
|
200 <strong>:</strong>
|
pascal@4840
|
201 <input type="text" name="query" size="20" value="$SEARCH" />
|
pankso@3521
|
202 <select name="version">
|
pankso@3521
|
203 <option value="cooking">$cooking</option>
|
pankso@3521
|
204 <option $selected_stable value="stable">$stable</option>
|
pankso@3521
|
205 <option $selected_1 value="1.0">1.0</option>
|
pankso@3521
|
206 </select>
|
pankso@3521
|
207 <input type="submit" name="search" value="$search" />
|
pankso@3521
|
208 </form>
|
pankso@3521
|
209 </div>
|
pankso@3521
|
210 _EOT_
|
pankso@3521
|
211 }
|
pankso@3521
|
212
|
pankso@3521
|
213 # xHTML Header.
|
pankso@3521
|
214 xhtml_header()
|
pankso@3521
|
215 {
|
pankso@3521
|
216 cat << _EOF_
|
pankso@3521
|
217 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
|
pankso@3521
|
218 "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
pankso@3521
|
219 <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="$LANG" lang="$LANG">
|
pankso@3521
|
220 <head>
|
pankso@3521
|
221 <title>SliTaz Packages - Search $SEARCH</title>
|
pankso@3521
|
222 <meta http-equiv="content-type" content="text/html; charset=$charset" />
|
pankso@3521
|
223 <meta name="description" content="Au sujet de SliTaz GNU/Linux mini système d'exploitation" />
|
pankso@3521
|
224 <meta name="keywords" lang="fr" content="Système, libre, gnu, linux, opensource, livecd" />
|
pankso@3521
|
225 <meta name="robots" content="index, follow, all" />
|
pankso@3521
|
226 <meta name="revisit-after" content="7 days" />
|
pankso@3521
|
227 <meta name="expires" content="never" />
|
pankso@3521
|
228 <meta name="modified" content="$DATE" />
|
pankso@3521
|
229 <meta name="author" content="ash, awk, grep, sed and cat"/>
|
pankso@3521
|
230 <meta name="publisher" content="www.slitaz.org" />
|
pankso@3521
|
231 <link rel="shortcut icon" href="http://pkgs.slitaz.org/favicon.ico" />
|
pankso@3521
|
232 <link rel="stylesheet" type="text/css" href="http://pkgs.slitaz.org/slitaz.css" />
|
pankso@3521
|
233 </head>
|
pankso@3521
|
234 <body bgcolor="#ffffff">
|
pankso@3521
|
235
|
pankso@3521
|
236 <!-- Header -->
|
pankso@3521
|
237 <div id="header">
|
pankso@3521
|
238 <a name="top"></a>
|
pankso@3521
|
239 <!-- Access -->
|
pankso@3521
|
240 <div id="access">
|
pankso@3521
|
241 <a href="http://www.slitaz.org/" title="SliTaz Web site">Website</a> |
|
pankso@3521
|
242 <a href="http://wiki.slitaz.org/" title="SliTaz Community Wiki">Wiki</a> |
|
pankso@3521
|
243 <a href="http://labs.slitaz.org/" title="SliTaz laboratories">Labs</a>
|
pankso@3521
|
244 </div>
|
pankso@3521
|
245 <a href="http://pkgs.slitaz.org/"><img id="logo"
|
pankso@3521
|
246 src="http://pkgs.slitaz.org/pics/website/logo.png" title="pkgs.slitaz.org" alt="pkgs.slitaz.org"
|
pankso@3521
|
247 style="border: 0px solid ; width: 200px; height: 74px;" /></a>
|
pankso@3521
|
248 <p id="titre">#!/tazpkg/packages</p>
|
pankso@3521
|
249 </div>
|
pankso@3521
|
250 _EOF_
|
pankso@3521
|
251 }
|
pankso@3521
|
252
|
pankso@3521
|
253 # xHTML Footer.
|
pankso@3521
|
254 xhtml_footer()
|
pankso@3521
|
255 {
|
pankso@3521
|
256 cat << _EOT_
|
pankso@3521
|
257 <center>
|
pascal@3551
|
258 <i>$(ls $WOK/ | wc -l) packages and $(unlzma -c $PACKAGES_REPOSITORY/files.list.lzma | wc -l) files in $SLITAZ_VERSION database</i>
|
pankso@3521
|
259 </center>
|
pankso@3521
|
260
|
pankso@3521
|
261 <!-- End of content with round corner -->
|
pankso@3521
|
262 </div>
|
pankso@3521
|
263 <div id="content_bottom">
|
pankso@3521
|
264 <div class="bottom_left"></div>
|
pankso@3521
|
265 <div class="bottom_right"></div>
|
pankso@3521
|
266 </div>
|
pankso@3521
|
267
|
pankso@3521
|
268 <!-- Start of footer and copy notice -->
|
pankso@3521
|
269 <div id="copy">
|
pankso@3521
|
270 <p>
|
pankso@3521
|
271 Dernière modification : $DATE -
|
pankso@3521
|
272 <a href="#top">Top of the page</a>
|
pankso@3521
|
273 </p>
|
pankso@3521
|
274 <p>
|
pankso@3521
|
275 Copyright © 2009 <a href="http://www.slitaz.org/">SliTaz</a> -
|
pankso@3521
|
276 <a href="http://www.gnu.org/licenses/gpl.html">GNU General Public License</a>
|
pankso@3521
|
277 </p>
|
pankso@3521
|
278 <!-- End of copy -->
|
pankso@3521
|
279 </div>
|
pankso@3521
|
280
|
pankso@3521
|
281 <!-- Bottom and logo's -->
|
pankso@3521
|
282 <div id="bottom">
|
pankso@3521
|
283 <p>
|
pankso@3521
|
284 <a href="http://validator.w3.org/check?uri=referer"><img
|
pankso@3521
|
285 src="http://pkgs.slitaz.org/pics/website/xhtml10.png" alt="Valid XHTML 1.0"
|
pankso@3521
|
286 title="Code validé XHTML 1.0"
|
pankso@3521
|
287 style="width: 80px; height: 15px;" /></a>
|
pankso@3521
|
288 </p>
|
pankso@3521
|
289 </div>
|
pankso@3521
|
290
|
pankso@3521
|
291 </body>
|
pankso@3521
|
292 </html>
|
pankso@3521
|
293 _EOT_
|
pankso@3521
|
294 }
|
pankso@3521
|
295
|
pascal@4840
|
296 installed_size()
|
pascal@4840
|
297 {
|
pascal@4840
|
298 [ $VERBOSE -gt 0 ] &&
|
pascal@4840
|
299 grep -A 3 "^$1\$" /home/slitaz/$SLITAZ_VERSION/packages/packages.txt | \
|
pascal@4840
|
300 grep installed | sed 's/.*(\(.*\) installed.*/(\1) /'
|
pascal@4840
|
301 }
|
pascal@4840
|
302
|
pascal@3780
|
303 # recursive dependencies scan
|
pascal@3780
|
304 dep_scan()
|
pascal@3780
|
305 {
|
pankso@3521
|
306 for i in $1; do
|
pankso@3521
|
307 case " $ALL_DEPS " in
|
pankso@3521
|
308 *\ $i\ *) continue;;
|
pankso@3521
|
309 esac
|
pankso@3521
|
310 ALL_DEPS="$ALL_DEPS $i"
|
pankso@3521
|
311 if [ -n "$2" ]; then
|
pankso@3521
|
312 echo -n "$2"
|
pankso@3521
|
313 (
|
pankso@3521
|
314 . $WOK/$i/receipt
|
pankso@3521
|
315 cat << _EOT_
|
pascal@4840
|
316 <a href="$SLITAZ_VERSION/$CATEGORY.html#$PACKAGE">$PACKAGE</a> $(installed_size $PACKAGE): $SHORT_DESC
|
pankso@3521
|
317 _EOT_
|
pankso@3521
|
318 )
|
pankso@3521
|
319 fi
|
pankso@3521
|
320 [ -f $WOK/$i/receipt ] || continue
|
pankso@3521
|
321 DEPENDS=""
|
pankso@3521
|
322 . $WOK/$i/receipt
|
pankso@3521
|
323 [ -n "$DEPENDS" ] && dep_scan "$DEPENDS" "$2 "
|
pankso@3521
|
324 done
|
pankso@3521
|
325 }
|
pankso@3521
|
326
|
pascal@3780
|
327 # recursive reverse dependencies scan
|
pascal@3780
|
328 rdep_scan()
|
pascal@3780
|
329 {
|
pankso@3521
|
330 SEARCH=$1
|
pankso@3521
|
331 case "$SEARCH" in
|
pankso@3521
|
332 glibc-base|gcc-lib-base) cat <<EOT
|
paul@3528
|
333 glibc-base and gcc-lib-base are implicit dependencies,
|
paul@3528
|
334 <b>every</b> package is supposed to depend on them.
|
pankso@3521
|
335 EOT
|
pankso@3521
|
336 return;;
|
pankso@3521
|
337 esac
|
pankso@3521
|
338 for i in $WOK/* ; do
|
pankso@3521
|
339 DEPENDS=""
|
pankso@3521
|
340 . $i/receipt
|
pankso@3521
|
341 echo "$(basename $i) $(echo $DEPENDS)"
|
pankso@3521
|
342 done | awk -v search=$SEARCH '
|
pankso@3521
|
343 function show_deps(deps, all_deps, pkg, space)
|
pankso@3521
|
344 {
|
pankso@3521
|
345 if (all_deps[pkg] == 1) return
|
pankso@3521
|
346 all_deps[pkg] = 1
|
pankso@3521
|
347 if (space != "") printf "%s%s\n",space,pkg
|
pankso@3521
|
348 for (i = 1; i <= split(deps[pkg], mydeps, " "); i++) {
|
pankso@3521
|
349 show_deps(deps, all_deps, mydeps[i],"////" space)
|
pankso@3521
|
350 }
|
pankso@3521
|
351 }
|
pankso@3521
|
352
|
pankso@3521
|
353 {
|
pankso@3521
|
354 all_deps[$1] = 0
|
pankso@3521
|
355 for (i = 2; i <= NF; i++)
|
pankso@3521
|
356 deps[$i] = deps[$i] " " $1
|
pankso@3521
|
357 }
|
pankso@3521
|
358
|
pankso@3521
|
359 END {
|
pankso@3521
|
360 show_deps(deps, all_deps, search, "")
|
pankso@3521
|
361 }
|
pankso@3521
|
362 ' | while read pkg; do
|
pankso@3521
|
363 . $WOK/${pkg##*/}/receipt
|
pankso@3521
|
364 cat << _EOT_
|
pascal@4840
|
365 $(echo ${pkg%/*} | sed 's|/| |g') <a href="$SLITAZ_VERSION/$CATEGORY.html#$PACKAGE">$PACKAGE</a> $(installed_size $PACKAGE): $SHORT_DESC
|
pankso@3521
|
366 _EOT_
|
pankso@3521
|
367 done
|
pankso@3521
|
368 }
|
pankso@3521
|
369
|
pankso@3521
|
370 # Check package exists
|
pankso@3521
|
371 package_exist()
|
pankso@3521
|
372 {
|
pankso@3521
|
373 [ -f $WOK/$1/receipt ] && return 0
|
pankso@3521
|
374 cat << _EOT_
|
pankso@3521
|
375
|
pankso@3521
|
376 <h3>$noresult</h3>
|
pankso@3521
|
377 <pre class="package">
|
pankso@3521
|
378 _EOT_
|
pankso@3521
|
379 return 1
|
pankso@3521
|
380 }
|
pankso@3521
|
381
|
pascal@3780
|
382 # Display < > &
|
pascal@3780
|
383 htmlize()
|
pascal@3780
|
384 {
|
pascal@3780
|
385 sed -e 's/&/\&/g' -e 's/</\</g' -e 's/>/\>/g'
|
pascal@3780
|
386 }
|
pascal@3780
|
387
|
pascal@4840
|
388 display_packages_and_files()
|
pascal@4840
|
389 {
|
pascal@4840
|
390 last=""
|
pascal@4840
|
391 while read pkg file; do
|
pascal@4840
|
392 pkg=${pkg%:}
|
pascal@4840
|
393 if [ "$pkg" != "$last" ]; then
|
pascal@4840
|
394 . $WOK/$pkg/receipt
|
pascal@4840
|
395 cat << _EOT_
|
pascal@4840
|
396
|
pascal@4840
|
397 <a href="$SLITAZ_VERSION/$CATEGORY.html#$PACKAGE">$PACKAGE</a> $(installed_size $PACKAGE): $SHORT_DESC
|
pascal@4840
|
398 _EOT_
|
pascal@4840
|
399 last=$pkg
|
pascal@4840
|
400 fi
|
pascal@4840
|
401 echo " $file"
|
pascal@4840
|
402 done
|
pascal@4840
|
403 }
|
pascal@4840
|
404
|
pankso@3521
|
405 # Display search form and result if requested.
|
pankso@3521
|
406 if [ "$REQUEST_METHOD" != "POST" ]; then
|
pankso@3521
|
407 xhtml_header
|
pankso@3521
|
408 cat << _EOT_
|
pankso@3521
|
409
|
pankso@3521
|
410 <!-- Content top. -->
|
pankso@3521
|
411 <div id="content_top">
|
pankso@3521
|
412 <div class="top_left"></div>
|
pankso@3521
|
413 <div class="top_right"></div>
|
pankso@3521
|
414 </div>
|
pankso@3521
|
415
|
pankso@3521
|
416 <!-- Content -->
|
pankso@3521
|
417 <div id="content">
|
pankso@3521
|
418 <a name="content"></a>
|
pankso@3521
|
419
|
pankso@3521
|
420 <h1><font color="#3E1220">$package</font></h1>
|
pankso@3521
|
421 <h2><font color="#DF8F06">$search</font></h2>
|
pankso@3521
|
422 _EOT_
|
pankso@3521
|
423 search_form
|
pankso@3521
|
424 xhtml_footer
|
pankso@3521
|
425 else
|
pankso@3521
|
426 xhtml_header
|
pankso@3521
|
427 cat << _EOT_
|
pankso@3521
|
428
|
pankso@3521
|
429 <!-- Content top. -->
|
pankso@3521
|
430 <div id="content_top">
|
pankso@3521
|
431 <div class="top_left"></div>
|
pankso@3521
|
432 <div class="top_right"></div>
|
pankso@3521
|
433 </div>
|
pankso@3521
|
434
|
pankso@3521
|
435 <!-- Content -->
|
pankso@3521
|
436 <div id="content">
|
pankso@3521
|
437 <a name="content"></a>
|
pankso@3521
|
438
|
pankso@3521
|
439 <h1><font color="#3E1220">$package</font></h1>
|
pankso@3521
|
440 <h2><font color="#DF8F06">$search</font></h2>
|
pankso@3521
|
441 _EOT_
|
pankso@3521
|
442 search_form
|
pankso@3521
|
443 if [ "$OBJECT" = "Depends" ]; then
|
pankso@3521
|
444 if package_exist $SEARCH ; then
|
pankso@3521
|
445 cat << _EOT_
|
pankso@3521
|
446
|
pankso@3521
|
447 <h3>$deptree</h3>
|
pankso@3521
|
448 <pre class="package">
|
pankso@3521
|
449 _EOT_
|
pankso@3521
|
450 ALL_DEPS=""
|
pankso@3521
|
451 dep_scan $SEARCH ""
|
pankso@3521
|
452 SUGGESTED=""
|
pankso@3521
|
453 . $WOK/$SEARCH/receipt
|
pankso@3521
|
454 if [ -n "$SUGGESTED" ]; then
|
pankso@3521
|
455 cat << _EOT_
|
pankso@3521
|
456 </pre>
|
pankso@3521
|
457
|
pankso@3521
|
458 <h3>$deptree (SUGGESTED)</h3>
|
pankso@3521
|
459 <pre class="package">
|
pankso@3521
|
460 _EOT_
|
pankso@3521
|
461 ALL_DEPS=""
|
pankso@3521
|
462 dep_scan "$SUGGESTED" " "
|
pankso@3521
|
463 fi
|
pankso@3521
|
464 cat << _EOT_
|
pankso@3521
|
465 </pre>
|
pankso@3521
|
466
|
pankso@3521
|
467 <h3>$rdeptree</h3>
|
pankso@3521
|
468 <pre class="package">
|
pankso@3521
|
469 _EOT_
|
pankso@3521
|
470 ALL_DEPS=""
|
pankso@3521
|
471 rdep_scan $SEARCH
|
pascal@4840
|
472 cat << _EOT_
|
pascal@4840
|
473 </pre>
|
pascal@4840
|
474 _EOT_
|
pascal@4840
|
475 fi
|
pascal@4840
|
476 elif [ "$OBJECT" = "BuildDepends" ]; then
|
pascal@4840
|
477 if package_exist $SEARCH ; then
|
pascal@4840
|
478 cat << _EOT_
|
pascal@4840
|
479
|
pascal@4840
|
480 <h3>$bdeplist</h3>
|
pascal@4840
|
481 <pre class="package">
|
pascal@4840
|
482 _EOT_
|
pascal@4840
|
483 BUILD_DEPENDS=""
|
pascal@4840
|
484 . $WOK/$SEARCH/receipt
|
pascal@4840
|
485 [ -n "$BUILD_DEPENDS" ] && for dep in $BUILD_DEPENDS ; do
|
pascal@4840
|
486 if [ ! -s $WOK/$dep/receipt ]; then
|
pascal@4840
|
487 cat << _EOT_
|
pascal@4840
|
488 $dep: not found !
|
pascal@4840
|
489 _EOT_
|
pascal@4840
|
490 continue
|
pascal@4840
|
491 fi
|
pascal@4840
|
492 . $WOK/$dep/receipt
|
pascal@4840
|
493 cat << _EOT_
|
pascal@4840
|
494 <a href="$SLITAZ_VERSION/$CATEGORY.html#$PACKAGE">$PACKAGE</a> $(installed_size $PACKAGE): $SHORT_DESC
|
pascal@4840
|
495 _EOT_
|
pascal@4840
|
496 done
|
pascal@4840
|
497 cat << _EOT_
|
pascal@4840
|
498 </pre>
|
pascal@4840
|
499
|
pascal@4840
|
500 <h3>$rbdeplist</h3>
|
pascal@4840
|
501 <pre class="package">
|
pascal@4840
|
502 _EOT_
|
pascal@4840
|
503 for dep in $(grep -l $SEARCH $WOK/*/receipt); do
|
pascal@4840
|
504 BUILD_DEPENDS=""
|
pascal@4840
|
505 . $dep
|
pascal@4840
|
506 echo " $BUILD_DEPENDS " | grep -q " $SEARCH " &&
|
pascal@4840
|
507 cat << _EOT_
|
pascal@4840
|
508 <a href="$SLITAZ_VERSION/$CATEGORY.html#$PACKAGE">$PACKAGE</a> $(installed_size $PACKAGE): $SHORT_DESC
|
pascal@4840
|
509 _EOT_
|
pascal@4840
|
510 done
|
pascal@4840
|
511 cat << _EOT_
|
pascal@4840
|
512 </pre>
|
pascal@4840
|
513 _EOT_
|
pascal@4840
|
514 fi
|
pascal@4840
|
515 elif [ "$OBJECT" = "FileOverlap" ]; then
|
pascal@4840
|
516 if package_exist $SEARCH ; then
|
pascal@4840
|
517 cat << _EOT_
|
pascal@4840
|
518
|
pascal@4840
|
519 <h3>$overloading $SEARCH</h3>
|
pascal@4840
|
520 <pre class="package">
|
pascal@4840
|
521 _EOT_
|
pascal@4840
|
522 ( unlzma -c $PACKAGES_REPOSITORY/files.list.lzma | grep ^$SEARCH: ;
|
pascal@4840
|
523 unlzma -c $PACKAGES_REPOSITORY/files.list.lzma | grep -v ^$SEARCH: ) | awk '
|
pascal@4840
|
524 BEGIN { pkg="" }
|
pascal@4840
|
525 {
|
pascal@4840
|
526 if (pkg == "") pkg=$1
|
pascal@4840
|
527 if ($1 == pkg) file[$2]=$1
|
pascal@4840
|
528 else if (file[$2] == pkg) print
|
pascal@4840
|
529 }
|
pascal@4840
|
530 ' | display_packages_and_files
|
pascal@4840
|
531 cat << _EOT_
|
pascal@4840
|
532 </pre>
|
pascal@4840
|
533 _EOT_
|
pankso@3521
|
534 fi
|
pankso@3521
|
535 elif [ "$OBJECT" = "File" ]; then
|
pankso@3521
|
536 cat << _EOT_
|
pankso@3521
|
537
|
pankso@3521
|
538 <h3>$result</h3>
|
pankso@3521
|
539 <pre class="package">
|
pankso@3521
|
540 _EOT_
|
pankso@3521
|
541 last=""
|
pascal@3551
|
542 unlzma -c $PACKAGES_REPOSITORY/files.list.lzma \
|
pankso@3521
|
543 | grep $SEARCH | while read pkg file; do
|
pankso@3521
|
544 echo "$file" | grep -q $SEARCH || continue
|
pankso@3521
|
545 if [ "$last" != "${pkg%:}" ]; then
|
pankso@3521
|
546 last=${pkg%:}
|
pankso@3521
|
547 (
|
pankso@3521
|
548 . $WOK/$last/receipt
|
pankso@3521
|
549 cat << _EOT_
|
pankso@3521
|
550
|
pankso@3521
|
551 <i><b><a href="$SLITAZ_VERSION/$CATEGORY.html#$PACKAGE">$PACKAGE</a></b> $SHORT_DESC</i>
|
pankso@3521
|
552 _EOT_
|
pankso@3521
|
553 )
|
pankso@3521
|
554 fi
|
pankso@3521
|
555 echo " $file"
|
pankso@3521
|
556 done
|
pankso@3521
|
557 elif [ "$OBJECT" = "File_list" ]; then
|
pankso@3521
|
558 package_exist $SEARCH && cat << _EOT_
|
pankso@3521
|
559
|
pankso@3521
|
560 <h3>$result</h3>
|
pankso@3521
|
561 <pre class="package">
|
pankso@3521
|
562 _EOT_
|
pankso@3521
|
563 last=""
|
pascal@3551
|
564 unlzma -c $PACKAGES_REPOSITORY/files.list.lzma \
|
pankso@3521
|
565 | grep ^$SEARCH: | sed 's/.*: / /' | sort
|
pankso@3521
|
566 elif [ "$OBJECT" = "Desc" ]; then
|
pascal@3780
|
567 if [ -f $WOK/$SEARCH/description.txt ]; then
|
pascal@3780
|
568 cat << _EOT_
|
pascal@3780
|
569
|
pascal@3780
|
570 <h3>$result</h3>
|
pascal@3780
|
571 <pre class="package">
|
pascal@3780
|
572 <pre>
|
pascal@3780
|
573 $(htmlize < $WOK/$SEARCH/description.txt)
|
pascal@3780
|
574 </pre>
|
pascal@3780
|
575 _EOT_
|
pascal@3780
|
576 else
|
pascal@3780
|
577 cat << _EOT_
|
pankso@3521
|
578
|
pankso@3521
|
579 <h3>$result</h3>
|
pankso@3521
|
580 <pre class="package">
|
pankso@3521
|
581 _EOT_
|
pascal@3780
|
582 last=""
|
pascal@3780
|
583 grep -i $SEARCH $PACKAGES_REPOSITORY/packages.desc | \
|
pascal@3780
|
584 sort | while read pkg extras ; do
|
pankso@3521
|
585 . $WOK/$pkg/receipt
|
pankso@3521
|
586 cat << _EOT_
|
pascal@4840
|
587 <a href="$SLITAZ_VERSION/$CATEGORY.html#$PACKAGE">$PACKAGE</a> $(installed_size $PACKAGE): $SHORT_DESC
|
pankso@3521
|
588 _EOT_
|
pankso@3521
|
589 done
|
pascal@3780
|
590 fi
|
pankso@3521
|
591 elif [ "$OBJECT" = "Tags" ]; then
|
pankso@3521
|
592 cat << _EOT_
|
pankso@3521
|
593
|
pankso@3521
|
594 <h3>$result</h3>
|
pankso@3521
|
595 <pre class="package">
|
pankso@3521
|
596 _EOT_
|
pankso@3521
|
597 last=""
|
pankso@3521
|
598 grep ^TAGS= $WOK/*/receipt | grep -i $SEARCH | \
|
pankso@3521
|
599 sed "s|$WOK/\(.*\)/receipt:.*|\1|" | sort | while read pkg ; do
|
pankso@3521
|
600 . $WOK/$pkg/receipt
|
pankso@3521
|
601 cat << _EOT_
|
pascal@4840
|
602 <a href="$SLITAZ_VERSION/$CATEGORY.html#$PACKAGE">$PACKAGE</a> $(installed_size $PACKAGE): $SHORT_DESC
|
pankso@3521
|
603 _EOT_
|
pankso@3521
|
604 done
|
pankso@3521
|
605 elif [ "$OBJECT" = "Receipt" ]; then
|
pankso@3521
|
606 package_exist $SEARCH && cat << _EOT_
|
pankso@3521
|
607
|
pankso@3521
|
608 <h3>$result</h3>
|
pankso@3521
|
609 <pre class="package">
|
pankso@3521
|
610 <pre>
|
pankso@3521
|
611 $(if [ -f $WOK/$SEARCH/taz/*/receipt ]; then
|
pankso@3521
|
612 cat $WOK/$SEARCH/taz/*/receipt
|
pankso@3521
|
613 else
|
pascal@3780
|
614 cat $WOK/$SEARCH/receipt
|
pascal@3780
|
615 fi | htmlize)
|
pankso@3521
|
616 </pre>
|
pankso@3521
|
617 _EOT_
|
pankso@3521
|
618 else
|
pankso@3521
|
619 cat << _EOT_
|
pankso@3521
|
620
|
pankso@3521
|
621 <h3>$result</h3>
|
pankso@3521
|
622 <pre class="package">
|
pankso@3521
|
623 _EOT_
|
pascal@4840
|
624 for pkg in `ls $WOK/ | grep $SEARCH`
|
pankso@3521
|
625 do
|
pankso@3521
|
626 . $WOK/$pkg/receipt
|
pascal@3780
|
627 DESC=" <a href=\"?desc=$pkg\">description</a>"
|
pascal@3780
|
628 [ -f $WOK/$pkg/description.txt ] || DESC=""
|
pankso@3521
|
629 cat << _EOT_
|
pascal@4840
|
630 <a href="$SLITAZ_VERSION/$CATEGORY.html#$PACKAGE">$PACKAGE</a> $(installed_size $PACKAGE): $SHORT_DESC$DESC
|
pankso@3521
|
631 _EOT_
|
pankso@3521
|
632 done
|
pascal@3551
|
633 equiv=$PACKAGES_REPOSITORY/packages.equiv
|
pankso@3521
|
634 vpkgs="$(cat $equiv | cut -d= -f1 | grep $SEARCH)"
|
pankso@3521
|
635 for vpkg in $vpkgs ; do
|
pankso@3521
|
636 cat << _EOT_
|
pankso@3521
|
637 </pre>
|
pankso@3521
|
638
|
pankso@3521
|
639 <h3>$result (package providing $vpkg)</h3>
|
pankso@3521
|
640 <pre class="package">
|
pankso@3521
|
641 _EOT_
|
pankso@3521
|
642 for pkg in $(grep $vpkg= $equiv | sed "s/$vpkg=//"); do
|
pankso@3521
|
643 . $WOK/${pkg#*:}/receipt
|
pankso@3521
|
644 cat << _EOT_
|
pascal@4840
|
645 <a href="$SLITAZ_VERSION/$CATEGORY.html#$PACKAGE">$PACKAGE</a> $(installed_size $PACKAGE): $SHORT_DESC
|
pankso@3521
|
646 _EOT_
|
pankso@3521
|
647 done
|
pankso@3521
|
648 done
|
pankso@3521
|
649 fi
|
pankso@3521
|
650 cat << _EOT_
|
pankso@3521
|
651 </pre>
|
pankso@3521
|
652 _EOT_
|
pankso@3521
|
653 xhtml_footer
|
pankso@3521
|
654 fi
|
pankso@3521
|
655
|
pankso@3521
|
656 exit 0
|