slitaz-forge view pkgs/mirror-search.sh @ rev 450
pkgs: some tiny fixes
| author | Christophe Lincoln <pankso@slitaz.org> |
|---|---|
| date | Sun Feb 16 18:20:41 2014 +0100 (2014-02-16) |
| parents | f7caab5251c0 |
| children | f14e1d28ce93 |
line source
1 #!/bin/sh
3 # Tiny CGI search engine for SliTaz packages on http://pkgs.slitaz.org/
4 # Christophe Lincoln <pankso@slitaz.org>
5 # Pascal Bellard <pascal.bellard@slitaz.org>
6 # Aleksej Bobylev <al.bobylev@gmail.com>
7 #
9 renice -n 19 $$
11 # Parse query string
12 . /usr/lib/slitaz/httphelper.sh
14 case "$HTTP_USER_AGENT" in
15 */[Bb]ot*|*[Bb]ot/*|*spider/*) exec $PWD/Travaux.sh ;;
16 esac
18 # User preferred language
19 # parameter $1 have priority; without parameter $1 - browser language only
20 # if we don't support any of user languages (or only en), then return C locale
21 user_lang() {
22 LANG="C"
23 IFS=","
24 for lang in $1 $HTTP_ACCEPT_LANGUAGE
25 do
26 lang=${lang%;*} lang=${lang# } lang=${lang%-*} lang=${lang%_*}
27 case "$lang" in
28 de) LANG="de_DE" ;;
29 es) LANG="es_AR" ;;
30 fr) LANG="fr_FR" ;;
31 it) LANG="it_IT" ;;
32 pl) LANG="pl_PL" ;;
33 pt) LANG="pt_BR" ;;
34 ru) LANG="ru_RU" ;;
35 sv) LANG="sv_SE" ;;
36 zh) LANG="zh_TW" ;;
37 esac
38 if echo "de en es fr pl pt ru sv zh" | fgrep -q "$lang"; then
39 break
40 fi
41 done
42 unset IFS
43 echo "$LANG"
44 }
46 # Short 2-letter lang code from ll_CC
47 ll_lang() {
48 ll_CC="$1"
49 echo ${ll_CC%_*}
50 }
52 # Nice URL replacer - to copy url from address bar
53 # TODO: deal with POST method of form submitting
54 nice_url() {
55 # if user submitted a form
56 if [ ! -z $(GET submit) ]; then
57 OBJECT="$(GET object)"
58 SEARCH="$(GET query)"
59 case $OBJECT in
60 Package) NICE="package=$SEARCH";;
61 Desc) NICE="desc=$SEARCH";;
62 Tags) NICE="tags=$SEARCH";;
63 Arch) NICE="arch=$SEARCH";;
64 Bugs) NICE="bugs=$SEARCH";;
65 Receipt) NICE="receipt=$SEARCH";;
66 Depends) NICE="depends=$SEARCH";;
67 BuildDepends) NICE="builddepends=$SEARCH";;
68 File) NICE="file=$SEARCH";;
69 File_list) NICE="filelist=$SEARCH";;
70 FileOverlap) NICE="fileoverlap=$SEARCH";;
71 esac
72 # version, if needed
73 version="$(GET version)"
74 if [ ! -z "$version" -a "$version" != "cooking" ]; then
75 NICE="${NICE}&version=${version:0:1}"
76 fi
77 # lang, if needed
78 query_lang="$(GET lang)"
79 pref_lang="$(user_lang)"
80 browser_lang="$(ll_lang $pref_lang)"
81 if [ ! -z "$query_lang" -a "$query_lang" != "$browser_lang" ]; then
82 NICE="${NICE}&lang=$query_lang"
83 fi
84 # verbose, if needed
85 verboseq="$(GET verbose)"
86 if [ ! -z "$verboseq" -a "$verboseq" != "0" ]; then
87 NICE="${NICE}&verbose=1"
88 fi
89 # redirect
90 # TODO: implement HTTP 301 Redirect
91 cat << EOT
92 Content-type: text/html
94 <!DOCTYPE html>
95 <html><head><meta http-equiv="refresh" content="0;url=$SCRIPT_NAME?$NICE" />
96 <title>Redirect</title></head></html>
97 EOT
98 # echo "Location: $SCRIPT_NAME?$NICE"
99 # echo
100 exit 0
101 fi
102 }
104 nice_url
108 OBJECT="$(GET object)"
109 SEARCH="$(GET query)"
110 SLITAZ_VERSION="$(GET version)"
111 VERBOSE="$(GET verbose)"
113 # Internal variables
114 #DATE=$(date +%Y-%m-%d\ %H:%M:%S)
116 # Internationalization
117 . /usr/bin/gettext.sh
118 export TEXTDOMAIN='tazpkg-web'
120 SEARCH=""
121 VERBOSE=0
122 for i in $(echo $QUERY_STRING | sed 's/[?&]/ /g'); do
123 # SLITAZ_VERSION=cooking
124 case "$(echo $i | tr [A-Z] [a-z])" in
125 query=*|search=*) [ ${i#*=} == Search ] || SEARCH=${i#*=};;
126 object=*) OBJECT=${i#*=};;
127 verbose=*) VERBOSE=${i#*=};;
128 lang=*) LANG=${i#*=};;
129 file=*) SEARCH=${i#*=}; OBJECT=File;;
130 desc=*) SEARCH=${i#*=}; OBJECT=Desc;;
131 tags=*) SEARCH=${i#*=}; OBJECT=Tags;;
132 arch=*) SEARCH=${i#*=}; OBJECT=Arch;;
133 bugs=*) SEARCH=${i#*=}; OBJECT=Bugs;;
134 receipt=*) SEARCH=${i#*=}; OBJECT=Receipt;;
135 filelist=*) SEARCH=${i#*=}; OBJECT=File_list;;
136 package=*) SEARCH=${i#*=}; OBJECT=Package;;
137 depends=*) SEARCH=${i#*=}; OBJECT=Depends;;
138 builddepends=*) SEARCH=${i#*=}; OBJECT=BuildDepends;;
139 fileoverlap=*) SEARCH=${i#*=}; OBJECT=FileOverlap;;
140 category=*) SEARCH=${i#*=}; OBJECT=Category;;
141 maintainer=*) SEARCH=${i#*=}; OBJECT=Maintainer;;
142 license=*) SEARCH=${i#*=}; OBJECT=License;;
143 version=[1-9]*) i=${i%%.*}; SLITAZ_VERSION=${i#*=}.0;;
144 version=s*|version=4*) SLITAZ_VERSION=stable;;
145 version=b*) SLITAZ_VERSION=backports;;
146 version=u*) SLITAZ_VERSION=undigest;;
147 version=t*) SLITAZ_VERSION=tiny;;
148 esac
149 done
150 [ -z "$SLITAZ_VERSION" ] && SLITAZ_VERSION=cooking
151 #[ -n "$SEARCH" ] && REQUEST_METHOD="POST"
152 #[ "$SEARCH" == "." ] && SEARCH=
155 # Content negotiation for Gettext
156 LANG=$(user_lang $(GET lang))
157 lang="$(ll_lang $LANG)"
158 export LANG LC_ALL=$LANG
161 case "$OBJECT" in
162 File) selected_file="selected";;
163 Desc) selected_desc="selected";;
164 Tags) selected_tags="selected";;
165 Arch) selected_arch="selected";;
166 Bugs) selected_bugs="selected";;
167 Receipt) selected_receipt="selected";;
168 File_list) selected_file_list="selected";;
169 Depends) selected_depends="selected";;
170 BuildDepends) selected_build_depends="selected";;
171 FileOverlap) selected_overlap="selected";;
172 esac
174 case "$SLITAZ_VERSION" in
175 tiny) selected_tiny="selected";;
176 1.0) selected_1="selected";;
177 2.0) selected_2="selected";;
178 3.0) selected_3="selected";;
179 stable) selected_stable="selected";;
180 backports) selected_undigest="backports";;
181 undigest) selected_undigest="selected";;
182 esac
184 # unescape query
185 SEARCH="$(echo $SEARCH | sed 's/%2B/+/g; s/%3A/:/g; s|%2F|/|g')"
187 WOK=/home/slitaz/$SLITAZ_VERSION/wok
188 PACKAGES_REPOSITORY=/home/slitaz/$SLITAZ_VERSION/packages
191 # TODO: header function from httphelper
192 echo "Content-type: text/html"
193 echo
195 # Search form
196 # TODO: implement POST method
197 # ... method="post" enctype="multipart/form-data" ...
198 # TODO: add hint 'You are can search for depends loop, if textfield is empty'...
199 # add progress ticker while page is not complete
200 search_form()
201 {
202 cat << _EOT_
204 <form id="s_form" method="get" action="$SCRIPT_NAME">
205 <input type="hidden" name="lang" value="$lang" />
206 <select name="object">
207 <option value="Package">$(gettext "Package")</option>
208 <option $selected_desc value="Desc">$(gettext "Description")</option>
209 <option $selected_tags value="Tags">$(gettext "Tags")</option>
210 <!-- option $selected_arch value="Tags">$(gettext "Arch")</option -->
211 <!-- option $selected_bugs value="Bugs">$(gettext "Bugs")</option -->
212 <option $selected_receipt value="Receipt">$(gettext "Receipt")</option>
213 <option $selected_depends value="Depends">$(gettext "Depends")</option>
214 <option $selected_build_depends value="BuildDepends">$(gettext "Build depends")</option>
215 <option $selected_file value="File">$(gettext "File")</option>
216 <option $selected_file_list value="File_list">$(gettext "File list")</option>
217 <option $selected_overlap value="FileOverlap">$(gettext "common files")</option>
218 </select>
219 <input type="text" name="query" id="query" size="20" value="$SEARCH" />
220 <select name="version">
221 <option value="cooking">$(gettext "cooking")</option>
222 <option $selected_backports value="backports">$(gettext backports")</option>
223 <option $selected_stable value="stable">4.0</option>
224 <option $selected_3 value="3.0">3.0</option>
225 <option $selected_2 value="2.0">2.0</option>
226 <option $selected_1 value="1.0">1.0</option>
227 <option $selected_tiny value="tiny">$(gettext "tiny")</option>
228 <option $selected_undigest value="undigest">$(gettext "undigest")</option>
229 </select>
230 <input type="submit" name="submit" value="$(gettext 'Search')" />
231 </form>
232 _EOT_
233 }
235 # xHTML5 Header.
236 xhtml_header() {
237 . lib/header.sh
238 }
240 cat_files_list()
241 {
242 local tmp=/tmp/files.list.$(basename ${1%/packages})
243 if [ ! -s $tmp -o $1/files.list.lzma -nt $tmp ]; then
244 unlzma -c $1/files.list.lzma > $tmp.$$ && mv $tmp.$$ $tmp
245 fi
246 case "$2" in
247 lines) if [ ! -s $tmp.lines -o $tmp -nt $tmp.lines ]; then
248 cat $tmp | wc -l > $tmp.lines.$$ &&
249 mv $tmp.lines.$$ $tmp.lines
250 fi
251 cat $tmp.lines ;;
252 *) cat $tmp ;;
253 esac
254 }
256 # xHTML Footer.
257 # TODO: caching the summary for 5 minutes
258 xhtml_footer() {
259 file=/tmp/footer-$SLITAZ_VERSION
260 [ ! -e $file -o $PACKAGES_REPOSITORY/packages.txt -nt $file ] &&
261 cat > $file.$$ <<EOT && mv -f $file.$$ $file
262 PKGS=$(ls $WOK/ | wc -l)
263 FILES=$(cat_files_list $PACKAGES_REPOSITORY lines)
264 EOT
265 PKGS=$(sed '/PKGS=/!d;s/PKGS=//' $file)
266 FILES=$(sed '/FILES=/!d;s/FILES=//' $file)
267 . lib/footer.sh
268 }
270 installed_size()
271 {
272 if [ $VERBOSE -gt 0 ]; then
273 inst=$(grep -A 3 "^$1\$" $PACKAGES_REPOSITORY/packages.txt | grep installed)
274 # size=$(echo $inst | cut -d'(' -f2 | cut -d' ' -f1)
275 echo $inst | sed 's/.*(\(.*\).*/(\1)/'
276 # echo $size
277 # | sed 's/.*(\(.*\) installed.*/(\1) /'
278 fi
279 }
281 package_entry()
282 {
283 if [ -s "$(dirname $0)/$SLITAZ_VERSION/$CATEGORY.html" ]; then
284 cat << _EOT_
285 <a href="$SLITAZ_VERSION/$CATEGORY.html#$PACKAGE">$PACKAGE</a> $(installed_size $PACKAGE): $SHORT_DESC
286 _EOT_
287 else
288 PACKAGE_HREF="<u>$PACKAGE</u>"
289 PACKAGE_URL="http://mirror.slitaz.org/packages/$SLITAZ_VERSION/$PACKAGE-$VERSION$EXTRA_VERSION.tazpkg"
290 nslookup mirror.slitaz.org | grep -q 127.0.0.1 &&
291 [ -d /var/www/slitaz/mirror/packages/$SLITAZ_VERSION/$PACKAGE-$VERSION ] &&
292 PACKAGE_URL="http://mirror.slitaz.org/packages/$SLITAZ_VERSION/$PACKAGE-$VERSION" ||
293 PACKAGE_URL="http://mirror.slitaz.org/packages/$SLITAZ_VERSION/$(cd /var/www/slitaz/mirror/packages/$SLITAZ_VERSION ; ls $PACKAGE-$VERSION*.tazpkg)"
294 busybox wget -s $PACKAGE_URL 2> /dev/null &&
295 PACKAGE_HREF="<a href=\"$PACKAGE_URL\">$PACKAGE</a>"
296 COOKER=""
297 [ "$SLITAZ_VERSION" == "cooking" ] &&
298 COOKER="<a href=\"http://cook.slitaz.org/cooker.cgi?pkg=$PACKAGE\">$(gettext "Cooker")</a>"
299 cat << _EOT_
300 $PACKAGE_HREF $(installed_size $PACKAGE): $SHORT_DESC \
301 <a href="?receipt=$PACKAGE&version=$SLITAZ_VERSION">$(gettext "Receipt")</a> $COOKER
302 _EOT_
303 fi
304 [ -n "$(GET debug)" ] && cat << _EOT_
305 <pre>
306 PACKAGE=$PACKAGE
307 VERSION=$VERSION
308 EXTRAVERSION=$EXTRAVERSION
309 SLITAZ_VERSION=$SLITAZ_VERSION
310 PACKAGE_URL=$PACKAGE_URL
311 $(cd /var/www/slitaz/mirror/packages/$SLITAZ_VERSION ; ls -l $PACKAGE*)
312 </pre>
313 _EOT_
314 }
316 # Show loop in depends/build_depends chains
317 show_loops()
318 {
319 awk '
320 function chkloop(pkg, i, n)
321 {
322 if (n < 8)
323 for (i = 1; i <= split(deps[pkg],curdep," "); i++) {
324 if (curdep[i] == base || chkloop(curdep[i], 0, n+1)) {
325 split(deps[pkg],curdep," ")
326 p = curdep[i] " " p
327 return 1
328 }
329 }
330 return 0
331 }
332 {
333 for (i = 2; i <= NF; i++)
334 deps[$1] = deps[$1] " " $i
335 }
336 END {
337 for (pkg in deps) {
338 base = pkg
339 p = ""
340 if (chkloop(pkg, 0, 0))
341 print pkg " " p
342 #print pkg " : " p "..."
343 }
344 }' | while read line; do
345 set -- $line
346 case " $last " in
347 *\ $1\ *) continue
348 esac
349 last="$line"
350 pkg=$1
351 shift
352 echo "<strong>$pkg </strong>: $@ ..."
353 done
354 }
356 # recursive dependencies scan
357 dep_scan()
358 {
359 for i in $1; do
360 case " $ALL_DEPS " in
361 *\ $i\ *) continue;;
362 esac
363 ALL_DEPS="$ALL_DEPS $i"
364 if [ -n "$2" ]; then
365 echo -n "$2"
366 (
367 . $WOK/$i/receipt
368 package_entry
369 )
370 fi
371 [ -f $WOK/$i/receipt ] || continue
372 DEPENDS=""
373 BUILD_DEPENDS=""
374 WANTED=""
375 . $WOK/$i/receipt
376 if [ -n "$3" ]; then
377 [ -n "$BUILD_DEPENDS$WANTED" ] &&
378 dep_scan "$WANTED $BUILD_DEPENDS" "$2 " $3
379 else
380 [ -n "$DEPENDS" ] && dep_scan "$DEPENDS" "$2 "
381 fi
382 done
383 }
385 # recursive reverse dependencies scan
386 rdep_scan()
387 {
388 SEARCH=$1
389 case "$SEARCH" in
390 glibc-base|gcc-lib-base)
391 $(gettext " glibc-base and gcc-lib-base are implicit dependencies,
392 <b>every</b> package is supposed to depend on them."); echo
393 return;;
394 esac
395 for i in $WOK/* ; do
396 DEPENDS=""
397 BUILD_DEPENDS=""
398 WANTED=""
399 . $i/receipt
400 if [ -n "$2" ]; then
401 echo "$(basename $i) $(echo $WANTED $BUILD_DEPENDS)"
402 else
403 echo "$(basename $i) $(echo $DEPENDS)"
404 fi
405 done | awk -v search=$SEARCH '
406 function show_deps(deps, all_deps, pkg, space)
407 {
408 if (all_deps[pkg] == 1) return
409 all_deps[pkg] = 1
410 if (space != "") printf "%s%s\n",space,pkg
411 for (i = 1; i <= split(deps[pkg], mydeps, " "); i++) {
412 show_deps(deps, all_deps, mydeps[i],"////" space)
413 }
414 }
416 {
417 all_deps[$1] = 0
418 for (i = 2; i <= NF; i++)
419 deps[$i] = deps[$i] " " $1
420 }
422 END {
423 show_deps(deps, all_deps, search, "")
424 }
425 ' | while read pkg; do
426 . $WOK/${pkg##*/}/receipt
427 cat << _EOT_
428 $(echo ${pkg%/*} | sed 's|/| |g') $(package_entry)
429 _EOT_
430 done
431 }
433 # Check package exists
434 package_exist()
435 {
436 [ -f $WOK/$1/receipt ] && return 0
437 cat << _EOT_
439 <h3>$(eval_gettext "No package \$SEARCH")</h3>
440 _EOT_
441 return 1
442 }
444 # Display < > &
445 htmlize()
446 {
447 sed -e 's/&/\&/g' -e 's/</\</g' -e 's/>/\>/g'
448 }
450 # Create some clickable links
451 urllink()
452 {
453 local tarball_url
454 sedit=""
455 [ -n "$WEB_SITE" ] && sedit="$sedit -e 's|^WEB_SITE=\"\\(.*\\)\"|WEB_SITE=\"<a href=\"$WEB_SITE\">\\1</a>\"|'"
456 [ -n "$WGET_URL" ] && sedit="$sedit -e 's#^WGET_URL=\"\\(.*\\)\"#WGET_URL=\"<a href=\"${WGET_URL##*|}\">\\1</a>\"#'"
457 [ -n "$CATEGORY" ] && sedit="$sedit -e 's|^CATEGORY=\"\\(.*\\)\"|CATEGORY=\"<a href=\"?category=$CATEGORY\\&version=$SLITAZ_VERSION\">\\1</a>\"|'"
458 [ -n "$WANTED" ] && sedit="$sedit -e 's|^WANTED=\"\\(.*\\)\"|WANTED=\"<a href=\"?receipt=$WANTED\\&version=$SLITAZ_VERSION\">\\1</a>\"|'"
459 [ -n "$BUGS" ] && sedit="$sedit -e 's|^BUGS=\"\\(.*\\)\"|BUGS=\"<a href=\"?bugs=$PACKAGE\\&version=$SLITAZ_VERSION\">\\1</a>\"|'"
460 [ -f $WOK/$PACKAGE/description.txt ] && sedit="$sedit -e 's|^SHORT_DESC=\"\\(.*\\)\"|SHORT_DESC=\"<a href=\"?desc=$PACKAGE\\&version=$SLITAZ_VERSION\">\\1</a>\"|'"
461 tarball_url=sources/packages-$SLITAZ_VERSION/${TARBALL:0:1}/$TARBALL
462 [ -f /var/www/slitaz/mirror/$tarball_url ] || case "$tarball_url" in
463 *.gz) tarball_url=${tarball_url%gz}lzma ;;
464 *.tgz) tarball_url=${tarball_url%tgz}tar.lzma ;;
465 *.bz2) tarball_url=${tarball_url%bz2}lzma ;;
466 esac
467 [ -f /var/www/slitaz/mirror/$tarball_url ] && sedit="$sedit -e 's|^TARBALL=\"\\(.*\\)\"|TARBALL=\"<a href=\"http://mirror.slitaz.org/$tarball_url\">\\1</a>\"|'"
468 if [ -n "$HOST_ARCH" ]; then
469 tmp=""
470 for i in $HOST_ARCH ; do
471 tmp="$tmp <a href=\\\"?arch=$i\\&version=$SLITAZ_VERSION\\\">$i</a>"
472 done
473 sedit="$sedit -e 's|^HOST_ARCH=\".*\"|HOST_ARCH=\"${tmp# }\"|'"
474 fi
475 if [ -n "$TAGS" ]; then
476 tmp=""
477 for i in $TAGS ; do
478 tmp="$tmp <a href=\\\"?tags=$i\\&version=$SLITAZ_VERSION\\\">$i</a>"
479 done
480 sedit="$sedit -e 's|^TAGS=\".*\"|TAGS=\"${tmp# }\"|'"
481 fi
482 if [ -n "$DEPENDS$BUILD_DEPENDS$SUGGESTED" ]; then
483 for i in $(echo $DEPENDS $BUILD_DEPENDS $SUGGESTED) ; do
484 sedit="$sedit -e 's|\\([\" ]\\)$i\\([\" \\]\\)|\\1<a href=\\\"?package=$i\\&version=$SLITAZ_VERSION\\\">$i</a>\\2|'"
485 sedit="$sedit -e 's|\\([\" ]\\)$i\$|\\1<a href=\\\"?package=$i\\&version=$SLITAZ_VERSION\\\">$i</a>|'"
486 sedit="$sedit -e 's|^$i\\([\" \\]\\)|<a href=\\\"?package=$i\\&version=$SLITAZ_VERSION\\\">$i</a>\\1|'"
487 sedit="$sedit -e 's|^$i\$|<a href=\\\"?package=$i\\&version=$SLITAZ_VERSION\\\">$i</a>|'"
488 done
489 fi
490 if [ -n "$CONFIG_FILES" ]; then
491 tmp=""
492 for i in $(echo $CONFIG_FILES) ; do
493 tmp="$tmp <a href=\\\"?file=$i\\&version=$SLITAZ_VERSION\\\">$i</a>"
494 done
495 sedit="$sedit -e 's|^CONFIG_FILES=\".*\"|CONFIG_FILES=\"${tmp# }\"|'"
496 fi
497 if [ -n "$PROVIDE" ]; then
498 tmp=""
499 for i in $(echo $PROVIDE) ; do
500 tmp="$tmp <a href=\\\"?package=${i%:*}\\&version=$SLITAZ_VERSION\\\">$i</a>"
501 done
502 sedit="$sedit -e 's|^PROVIDE=\".*\"|PROVIDE=\"${tmp# }\"|'"
503 fi
504 eval sed $sedit \
505 -e "'s|^MAINTAINER=\".*\"|MAINTAINER=\"<a href=\"?maintainer=$MAINTAINER\">$MAINTAINER</a>\"|'" \
506 -e "'s|^genpkg_rules|<a href=\"?filelist=$PACKAGE\\&version=$SLITAZ_VERSION\">&</a>|'"
507 }
509 display_packages_and_files()
510 {
511 last=""
512 while read pkg file; do
513 pkg=${pkg%:}
514 if [ "$pkg" != "$last" ]; then
515 . $WOK/$pkg/receipt
516 package_entry
517 last=$pkg
518 fi
519 echo " $file"
520 done
521 }
523 build_cloud_cache()
524 {
525 grep -l ^$1= $WOK/*/receipt | while read file; do
526 eval $1=
527 . $file
528 eval echo \$$1
529 done | sed "$2" | awk '
530 {
531 for (i = 1; $i != ""; i++) {
532 count[$i]++
533 }
534 }
535 END {
536 min=10000
537 max=0
538 for (i in count) {
539 if (count[i] < min) min = count[i]
540 if (count[i] > max) max = count[i]
541 }
542 for (i in count)
543 print count[i] " " int((count[i] - min)*100/(max - min)) " " i
544 }' | sort -k 3
545 }
547 display_cloud()
548 {
549 echo "<p>"
550 while read cnt pct item ; do
551 pct=$(((10000 - ((100 - $pct)**2))/100))
552 pct=$(((10000 - ((100 - $pct)**2))/100))
553 cat <<EOT
554 <span style="color:#99f; font-size:9pt; padding-left:5px; padding-right:2px;">\
555 $cnt</span><a href="?$1=$item&version=$SLITAZ_VERSION" style="\
556 font-size:$((8+($pct/10)))pt; font-weight:bold; \
557 color:black; text-decoration:none">$(echo $item | sed 's/-/\−/g')</a>
558 EOT
559 done | tee /dev/stderr | printf "</p><p align=right>$2" $(wc -l)
560 echo "</p>"
561 }
563 xhtml_header
565 #
566 # Handle GET requests
567 #
568 case " $(GET) " in
569 *\ debug\ *|*\ debug*)
570 cat << EOT
571 <h2>Debug info</h2>
572 <pre>$(httpinfo)</pre>
573 <pre>LANG=$LANG;
574 OBJECT=$OBJECT;
575 SEARCH=$SEARCH;
576 SLITAZ_VERSION=$SLITAZ_VERSION;
577 WOK=$WOK;
578 </pre>
579 EOT
580 #$(xhtml_footer)
581 #EOT
582 # exit 0
583 ;;
584 esac
586 # Display search form and result if requested.
587 #xhtml_header
588 echo "<h2>$(gettext 'Search for packages')</h2>"
589 search_form
591 case "$OBJECT" in
594 ### Depends loops; [Reverse] Dependency tree [(SUGGESTED)]
595 Depends)
596 if [ -z "$SEARCH" ]; then
597 cat << _EOT_
599 <h3>$(gettext "Depends loops")</h3>
600 <pre>
601 _EOT_
602 for i in $WOK/*/receipt; do
603 PACKAGE=
604 DEPENDS=
605 . $i
606 echo "$PACKAGE $(echo $DEPENDS)"
607 done | show_loops
608 cat << _EOT_
609 </pre>
610 _EOT_
611 elif package_exist $SEARCH ; then
612 cat << _EOT_
614 <h3>$(eval_gettext "Dependency tree for: \$SEARCH")</h3>
615 <pre>
616 _EOT_
617 ALL_DEPS=""
618 dep_scan $SEARCH ""
619 SUGGESTED=""
620 . $WOK/$SEARCH/receipt
621 if [ -n "$SUGGESTED" ]; then
622 cat << _EOT_
623 </pre>
625 <h3>$(eval_gettext "Dependency tree for: \$SEARCH (SUGGESTED)")</h3>
626 <pre>
627 _EOT_
628 ALL_DEPS=""
629 dep_scan "$SUGGESTED" " "
630 fi
631 cat << _EOT_
632 </pre>
634 <h3>$(eval_gettext "Reverse dependency tree for: \$SEARCH")</h3>
635 <pre>
636 _EOT_
637 ALL_DEPS=""
638 rdep_scan $SEARCH
639 cat << _EOT_
640 </pre>
641 _EOT_
642 fi
643 ;;
646 ### Build depends loops; [Reverse] Build dependency tree
647 BuildDepends)
648 if [ -z "$SEARCH" ]; then
649 cat << _EOT_
651 <h3>$(gettext "Build depends loops")</h3>
652 <pre>
653 _EOT_
654 for i in $WOK/*/receipt; do
655 PACKAGE=
656 WANTED=
657 BUILD_DEPENDS=
658 . $i
659 echo "$PACKAGE $WANTED $(echo $BUILD_DEPENDS)"
660 done | show_loops
661 cat << _EOT_
662 </pre>
663 _EOT_
664 elif package_exist $SEARCH ; then
665 cat << _EOT_
667 <h3>$(eval_gettext "\$SEARCH needs these packages to be built")</h3>
668 <pre>
669 _EOT_
670 ALL_DEPS=""
671 dep_scan $SEARCH "" build
672 cat << _EOT_
673 </pre>
675 <h3>$(eval_gettext "Packages who need \$SEARCH to be built")</h3>
676 <pre>
677 _EOT_
678 ALL_DEPS=""
679 rdep_scan $SEARCH build
680 cat << _EOT_
681 </pre>
682 _EOT_
683 fi
684 ;;
687 ### Common files
688 FileOverlap)
689 if package_exist $SEARCH; then
690 cat << _EOT_
692 <h3>$(eval_gettext "These packages may overload files of \$SEARCH")</h3>
693 <pre>
694 _EOT_
695 ( cat_files_list $PACKAGES_REPOSITORY | grep ^$SEARCH: ;
696 cat_files_list $PACKAGES_REPOSITORY | grep -v ^$SEARCH: ) | awk '
697 BEGIN { pkg=""; last="x" }
698 {
699 if ($2 == "") next
700 if (index($2,last) == 1 && substr($2,1+length(last),1) == "/")
701 delete file[last]
702 last=$2
703 if (pkg == "") pkg=$1
704 if ($1 == pkg) file[$2]=$1
705 else if (file[$2] == pkg) print
706 }
707 ' | display_packages_and_files
708 cat << _EOT_
709 </pre>
710 _EOT_
711 fi
712 ;;
715 ### File search
716 File)
717 if [ -n "$SEARCH" ]; then
718 cat << _EOT_
720 <h3>$(eval_gettext "Result for: \$SEARCH")</h3>
721 <pre>
722 _EOT_
723 last=""
724 cat_files_list $PACKAGES_REPOSITORY \
725 | grep "$SEARCH" | while read pkg file; do
726 echo "$file" | grep -q "$SEARCH" || continue
727 if [ "$last" != "${pkg%:}" ]; then
728 last=${pkg%:}
729 (
730 . $WOK/$last/receipt
731 cat << _EOT_
733 <i>$(package_entry)</i>
734 _EOT_
735 )
736 fi
737 echo " $file"
738 done
739 cat << _EOT_
740 </pre>
741 _EOT_
742 fi
743 ;;
746 ### List of files
747 File_list)
748 if package_exist $SEARCH; then
749 cat << _EOT_
751 <h3>$(eval_gettext "Result for: \$SEARCH")</h3>
752 <pre>
753 _EOT_
754 last=""
755 cat_files_list $PACKAGES_REPOSITORY \
756 | grep ^$SEARCH: | sed 's/.*: / /' | sort
757 cat << _EOT_
758 </pre>
759 <pre>
760 _EOT_
761 filenb=$(cat_files_list $PACKAGES_REPOSITORY | grep ^$SEARCH: | wc -l)
762 eval_ngettext "\$filenb file" "\$filenb files" $filenb
763 cat << _EOT_
764 \
765 $(busybox sed -n "/^$SEARCH$/{nnnpq}" $PACKAGES_REPOSITORY/packages.txt)
766 </pre>
767 _EOT_
768 fi
769 ;;
772 ### Package description
773 Desc)
774 cat << _EOT_
776 <h3>$(eval_gettext "Result for: \$SEARCH")</h3>
777 <pre>
778 _EOT_
779 if [ -f $WOK/$SEARCH/description.txt ]; then
780 htmlize < $WOK/$SEARCH/description.txt
781 else
782 last=""
783 grep -i "$SEARCH" $PACKAGES_REPOSITORY/packages.desc | \
784 sort | while read pkg extras ; do
785 . $WOK/$pkg/receipt
786 package_entry
787 done
788 fi
789 cat << _EOT_
790 </pre>
791 _EOT_
792 ;;
795 ### Bugs
796 Bugs)
797 cat << _EOT_
799 <h3>$(eval_gettext "Result for known bugs")</h3>
800 <pre>
801 _EOT_
802 last=""
803 grep ^BUGS= $WOK/*/receipt | \
804 sed "s|$WOK/\(.*\)/receipt:.*|\1|" | sort | while read pkg ; do
805 BUGS=
806 . $WOK/$pkg/receipt
807 package_entry
808 echo " $BUGS "
809 done
810 cat << _EOT_
811 </pre>
812 _EOT_
813 ;;
816 ### Arch
817 Arch)
818 cat << _EOT_
820 <h3>$(eval_gettext "Result for: \$SEARCH")</h3>
821 <pre>
822 _EOT_
823 last=""
824 grep ^HOST_ARCH= $WOK/*/receipt | grep -i "$SEARCH" | \
825 sed "s|$WOK/\(.*\)/receipt:.*|\1|" | sort | while read pkg ; do
826 HOST_ARCH=
827 . $WOK/$pkg/receipt
828 echo " $HOST_ARCH " | grep -iq " $SEARCH " &&
829 package_entry
830 done
831 cat << _EOT_
832 </pre>
833 _EOT_
834 ;;
837 ### Tags
838 Tags)
839 if [ -n "$SEARCH" ]; then
840 cat << _EOT_
842 <h3>$(eval_gettext "Result for: \$SEARCH")</h3>
843 <pre>
844 _EOT_
845 last=""
846 grep ^TAGS= $WOK/*/receipt | grep -i "$SEARCH" | \
847 sed "s|$WOK/\(.*\)/receipt:.*|\1|" | sort | while read pkg ; do
848 TAGS=
849 . $WOK/$pkg/receipt
850 echo " $TAGS " | grep -iq " $SEARCH " &&
851 package_entry
852 done
853 cat << _EOT_
854 </pre>
855 _EOT_
856 else
857 # Display clouds
858 while read var arg title fmt filter; do
859 file=/tmp/$arg-$SLITAZ_VERSION
860 echo "<a name=\"$arg\"></a>"
861 echo "<h3>$title</h3>"
862 [ ! -e $file -o \
863 $PACKAGES_REPOSITORY/packages.txt -nt $file ] &&
864 build_cloud_cache $var "$filter" > $file.$$ &&
865 mv -f $file.$$ $file
866 display_cloud $arg "$fmt" < $file 2>&1
867 done << EOT
868 TAGS tags Tag\ cloud %d\ tags.
869 CATEGORY category Category\ cloud %d\ categories.
870 LICENSE license License\ cloud %d\ licenses.
871 MAINTAINER maintainer Maintainer\ cloud %d\ maintainers. s/.*<//;s/.*\ //;s/>//
872 EOT
873 fi
874 ;;
877 ### Package receipt
878 # TODO: add style highlighting
879 Receipt)
880 package_exist $SEARCH && cat << _EOT_
882 <h3>$(eval_gettext "Result for: \$SEARCH")</h3>
883 <pre>
884 $(receipt=$WOK/$SEARCH/taz/*/receipt
885 [ -f $receipt ] || receipt=$WOK/$SEARCH/receipt
886 . /home/slitaz/repos/cookutils/cook.conf
887 . $receipt
888 cat $receipt | htmlize | urllink)
889 </pre>
890 _EOT_
891 ;;
894 ### Package
895 Package)
896 #WHY# if package_exist $SEARCH; then
897 cat << _EOT_
899 <h3>$(eval_gettext "Result for: \$SEARCH")</h3>
900 <pre>
901 _EOT_
902 for pkg in `ls $WOK/ | grep "$SEARCH"`
903 do
904 . $WOK/$pkg/receipt
905 DESC=" <a href=\"?object=Desc&query=$pkg&lang=$lang&version=$SLITAZ_VERSION&submit=go\">$(gettext description)</a>"
906 [ -f $WOK/$pkg/description.txt ] || DESC=""
907 cat << _EOT_
908 $(package_entry)$DESC
909 _EOT_
910 done
911 equiv=$PACKAGES_REPOSITORY/packages.equiv
912 vpkgs="$(cat $equiv | cut -d= -f1 | grep $SEARCH)"
913 for vpkg in $vpkgs ; do
914 cat << _EOT_
915 </pre>
917 <h3>$(eval_gettext "Result for: \$SEARCH (package providing \$vpkg)")</h3>
918 <pre>
919 _EOT_
920 for pkg in $(grep $vpkg= $equiv | sed "s/$vpkg=//"); do
921 . $WOK/${pkg#*:}/receipt
922 package_entry
923 done
924 done
925 cat << _EOT_
926 </pre>
927 _EOT_
928 #WHY# fi
929 ;;
931 ### Category
932 Category)
933 cat << _EOT_
935 <h3>$(eval_gettext "Result for: \$SEARCH")</h3>
936 <pre>
937 _EOT_
938 for pkg in `ls $WOK/`
939 do
940 CATEGORY=
941 . $WOK/$pkg/receipt
942 DESC=" <a href=\"?object=Desc&query=$pkg&lang=$lang&version=$SLITAZ_VERSION&submit=go\">$(gettext description)</a>"
943 [ -f $WOK/$pkg/description.txt ] || DESC=""
944 [ "$CATEGORY" == "$SEARCH" ] && cat << _EOT_
945 $(package_entry)$DESC
946 _EOT_
947 done
948 ;;
950 ### Maintainer
951 Maintainer)
952 cat << _EOT_
954 <h3>$(eval_gettext "Result for: \$SEARCH")</h3>
955 <pre>
956 _EOT_
957 for pkg in `ls $WOK/`
958 do
959 MAINTAINER=
960 . $WOK/$pkg/receipt
961 DESC=" <a href=\"?object=Desc&query=$pkg&lang=$lang&version=$SLITAZ_VERSION&submit=go\">$(gettext description)</a>"
962 [ -f $WOK/$pkg/description.txt ] || DESC=""
963 [ "$MAINTAINER" == "$SEARCH" ] && cat << _EOT_
964 $(package_entry)$DESC
965 _EOT_
966 done
967 ;;
969 ### License
970 License)
971 cat << _EOT_
973 <h3>$(eval_gettext "Result for: \$SEARCH")</h3>
974 <pre>
975 _EOT_
976 for pkg in `ls $WOK/`
977 do
978 LICENSE=
979 . $WOK/$pkg/receipt
980 DESC=" <a href=\"?object=Desc&query=$pkg&lang=$lang&version=$SLITAZ_VERSION&submit=go\">$(gettext description)</a>"
981 [ -f $WOK/$pkg/description.txt ] || DESC=""
982 case " $LICENSE " in
983 *\ $SEARCH\ *) cat << _EOT_
984 $(package_entry)$DESC
985 _EOT_
986 esac
987 done
988 ;;
989 esac
991 xhtml_footer
993 exit 0