slitaz-forge view pkgs/search.sh @ rev 400
Add new CGI interface for irc.slitaz.org
| author | Christophe Lincoln <pankso@slitaz.org> |
|---|---|
| date | Tue Jan 14 16:12:03 2014 +0100 (2014-01-14) |
| parents | 6e13cc84c072 |
| children | c890b7f0723e |
line source
1 #!/bin/sh
2 # Tiny CGI search engine for SliTaz packages on http://pkgs.slitaz.org/
3 # Christophe Lincoln <pankso@slitaz.org>
4 # Aleksej Bobylev <al.bobylev@gmail.com>
5 #
7 renice -n 19 $$
9 # Parse query string
10 . /etc/slitaz/slitaz.conf
11 . /usr/lib/slitaz/httphelper.sh
12 echo -n "0" > $HOME/ifEven
14 # User preferred language
15 # parameter $1 have priority; without parameter $1 - browser language only
16 # if we don't support any of user languages (or only en), then return C locale
17 user_lang() {
18 LANG="C"
19 IFS=","
20 for lang in $1 $HTTP_ACCEPT_LANGUAGE
21 do
22 lang=${lang%;*} lang=${lang# } lang=${lang%-*} lang=${lang%_*}
23 case "$lang" in
24 de) LANG="de_DE" ;;
25 es) LANG="es_AR" ;;
26 fr) LANG="fr_FR" ;;
27 it) LANG="it_IT" ;;
28 pl) LANG="pl_PL" ;;
29 pt) LANG="pt_BR" ;;
30 ru) LANG="ru_RU" ;;
31 sv) LANG="sv_SE" ;;
32 zh) LANG="zh_TW" ;;
33 esac
34 if echo "de en es fr pl pt ru sv zh" | fgrep -q "$lang"; then
35 break
36 fi
37 done
38 unset IFS
39 echo "$LANG"
40 }
42 # Short 2-letter lang code from ll_CC
43 ll_lang() {
44 ll_CC="$1"
45 echo ${ll_CC%_*}
46 }
48 # Part of query to indicate current debug mode
49 ifdebug() {
50 ifdebug="$(GET debug)"
51 [ ! -z "$ifdebug" ] && ifdebug="$1$ifdebug"
52 echo "$ifdebug"
53 }
55 # GET or POST variable
56 GETPOST() {
57 echo "$(POST $1)$(GET $1)"
58 }
60 # Nice URL replacer - to copy url from address bar
61 # TODO: deal with POST method of form submitting
62 nice_url() {
63 # if user submitted a form
64 if [ "$REQUEST_METHOD" == "POST" -o ! -z $(GET submit) ]; then
65 OBJECT="$(GETPOST object)"
66 SEARCH="$(GETPOST query)"
67 case $OBJECT in
68 Package) NICE="package=$SEARCH";;
69 Desc) NICE="desc=$SEARCH";;
70 Tags) NICE="tags=$SEARCH";;
71 Arch) NICE="arch=$SEARCH";;
72 Bugs) NICE="bugs=$SEARCH";;
73 Receipt) NICE="receipt=$SEARCH";;
74 Depends) NICE="depends=$SEARCH";;
75 BuildDepends) NICE="builddepends=$SEARCH";;
76 File) NICE="file=$SEARCH";;
77 File_list) NICE="filelist=$SEARCH";;
78 FileOverlap) NICE="fileoverlap=$SEARCH";;
79 esac
80 # version, if needed
81 version="$(GETPOST version)"
82 if [ ! -z "$version" -a "$version" != "cooking" ]; then
83 NICE="${NICE}&version=${version:0:1}"
84 fi
85 # lang, if needed
86 query_lang="$(GETPOST lang)"
87 pref_lang="$(user_lang)"
88 browser_lang="$(ll_lang $pref_lang)"
89 if [ ! -z "$query_lang" -a "$query_lang" != "$browser_lang" ]; then
90 NICE="${NICE}&lang=$query_lang"
91 fi
92 # verbose, if needed
93 verboseq="$(GETPOST verbose)"
94 if [ ! -z "$verboseq" -a "$verboseq" != "0" ]; then
95 NICE="${NICE}&verbose=1"
96 fi
97 # debug, if needed
98 debugq="$(GET debug)"
99 if [ ! -z "$debugq" -a "$debugq" == "debug" ]; then
100 NICE="${NICE}&debug"
101 fi
102 # redirect
103 header "HTTP/1.1 301 Moved Permanently" "Location: $SCRIPT_NAME?$NICE"
104 # echo "Location: $SCRIPT_NAME?$NICE"
105 # echo
106 exit 0
107 fi
108 }
110 nice_url
112 OBJECT="$(GET object)"
113 SEARCH="$(GET query)"
114 SLITAZ_VERSION="$(GET version)"
115 VERBOSE="$(GET verbose)"
117 # Internal variables
118 #DATE=$(date +%Y-%m-%d\ %H:%M:%S)
120 # Internationalization
121 . /usr/bin/gettext.sh
122 export TEXTDOMAIN='tazpkg-web'
124 unset SEARCH
125 VERBOSE=0
126 for i in $(echo $QUERY_STRING | sed 's/[?&]/ /g'); do
127 # SLITAZ_VERSION=cooking
128 case "$(echo $i | tr [A-Z] [a-z])" in
129 query=*|search=*) [ ${i#*=} == Search ] || SEARCH=${i#*=};;
130 object=*) OBJECT=${i#*=};;
131 verbose=*) VERBOSE=${i#*=};;
132 lang=*) LANG=${i#*=};;
133 file=*) SEARCH=${i#*=}; OBJECT=File;;
134 desc=*) SEARCH=${i#*=}; OBJECT=Desc;;
135 tags=*) SEARCH=${i#*=}; OBJECT=Tags;;
136 arch=*) SEARCH=${i#*=}; OBJECT=Arch;;
137 bugs=*) SEARCH=${i#*=}; OBJECT=Bugs;;
138 receipt=*) SEARCH=${i#*=}; OBJECT=Receipt;;
139 filelist=*) SEARCH=${i#*=}; OBJECT=File_list;;
140 package=*) SEARCH=${i#*=}; OBJECT=Package;;
141 depends=*) SEARCH=${i#*=}; OBJECT=Depends;;
142 builddepends=*) SEARCH=${i#*=}; OBJECT=BuildDepends;;
143 fileoverlap=*) SEARCH=${i#*=}; OBJECT=FileOverlap;;
144 category=*) SEARCH=${i#*=}; OBJECT=Category;;
145 maintainer=*) SEARCH=${i#*=}; OBJECT=Maintainer;;
146 version=[1-9]*) i=${i%%.*}; SLITAZ_VERSION=${i#*=}.0;;
147 version=s*|version=4*) SLITAZ_VERSION=stable;;
148 version=u*) SLITAZ_VERSION=undigest;;
149 version=t*) SLITAZ_VERSION=tiny;;
150 esac
151 done
152 [ -z "$SLITAZ_VERSION" ] && SLITAZ_VERSION=cooking
154 #
155 # Content negotiation for Gettext
156 #
157 LANG=$(user_lang $(GET lang))
158 lang="$(ll_lang $LANG)"
159 export LANG LC_ALL=$LANG
162 case "$OBJECT" in
163 File) selected_file="selected";;
164 Desc) selected_desc="selected";;
165 Tags) selected_tags="selected";;
166 Arch) selected_arch="selected";;
167 Bugs) selected_bugs="selected";;
168 Receipt) selected_receipt="selected";;
169 File_list) selected_file_list="selected";;
170 Depends) selected_depends="selected";;
171 BuildDepends) selected_build_depends="selected";;
172 FileOverlap) selected_overlap="selected";;
173 esac
175 case "$SLITAZ_VERSION" in
176 tiny) selected_tiny="selected";;
177 1.0) selected_1="selected";;
178 2.0) selected_2="selected";;
179 3.0) selected_3="selected";;
180 stable) selected_stable="selected";;
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=$SLITAZ_HOME/$SLITAZ_VERSION/wok-hg
188 PACKAGES_REPOSITORY=$SLITAZ_HOME/$SLITAZ_VERSION/packages
189 filelist=$PACKAGES_REPOSITORY/files.list.lzma
190 pkglist=$PACKAGES_REPOSITORY/packages.txt
191 equiv=$PACKAGES_REPOSITORY/packages.equiv
193 # Search form
194 # TODO: add hint 'You are can search for depends loop, if textfield is empty'...
195 # add progress ticker while page is not complete
196 search_form()
197 {
198 cat << _EOT_
200 <div class="form">
201 <form id="s_form" method="post" action="$SCRIPT_NAME$(ifdebug '?')">
202 <input type="hidden" name="lang" value="$lang" />
203 <span class="small">
204 <select name="object">
205 <option value="Package">$(gettext "Package")</option>
206 <option $selected_desc value="Desc">$(gettext "Description")</option>
207 <option $selected_tags value="Tags">$(gettext "Tags")</option>
208 <option $selected_arch value="Arch">$(gettext "Arch")</option>
209 <option $selected_bugs value="Bugs">$(gettext "Bugs")</option>
210 <option $selected_receipt value="Receipt">$(gettext "Receipt")</option>
211 <option $selected_depends value="Depends">$(gettext "Depends")</option>
212 <option $selected_build_depends value="BuildDepends">$(gettext "Build depends")</option>
213 <option $selected_file value="File">$(gettext "File")</option>
214 <option $selected_file_list value="File_list">$(gettext "File list")</option>
215 <option $selected_overlap value="FileOverlap">$(gettext "common files")</option>
216 </select>
217 </span>
218 <span class="stretch">
219 <input autofocus type="text" name="query" id="query" value="$SEARCH" />
220 </span>
221 <span class="small">
222 <select name="version">
223 <option value="cooking">$(gettext "cooking")</option>
224 <option $selected_stable value="stable">4.0</option>
225 <option $selected_3 value="3.0">3.0</option>
226 <option $selected_2 value="2.0">2.0</option>
227 <option $selected_1 value="1.0">1.0</option>
228 <option $selected_tiny value="tiny">$(gettext "tiny")</option>
229 <option $selected_undigest value="undigest">$(gettext "undigest")</option>
230 </select>
231 </span>
232 <span class="small">
233 <input type="submit" value="$(gettext 'Search')" />
234 </span>
235 </form>
236 </div>
237 _EOT_
238 }
240 # xHTML5 Header.
241 xhtml_header() {
242 . lib/header.sh
243 }
245 cat_files_list()
246 {
247 local tmp=/tmp/files.list.$(basename ${1%/packages})
248 if [ ! -s $tmp -o $1/files.list.lzma -nt $tmp ]; then
249 unlzma -c $1/files.list.lzma > $tmp.$$ && mv $tmp.$$ $tmp
250 fi
251 case "$2" in
252 lines) if [ ! -s $tmp.lines -o $tmp -nt $tmp.lines ]; then
253 cat $tmp | wc -l > $tmp.lines.$$ &&
254 mv $tmp.lines.$$ $tmp.lines
255 fi
256 cat $tmp.lines ;;
257 *) cat $tmp ;;
258 esac
259 }
261 # xHTML Footer.
262 # TODO: caching the summary for 5 minutes
263 xhtml_footer() {
264 PKGS=$(ls $WOK/ | wc -l)
265 FILES=$(unlzma -c $filelist | wc -l)
266 . lib/footer.sh
267 }
269 installed_size()
270 {
271 if [ $VERBOSE -gt 0 ]; then
272 inst=$(grep -A 3 "^$1\$" $pkgslist | grep installed)
273 # size=$(echo $inst | cut -d'(' -f2 | cut -d' ' -f1)
274 echo $inst | sed 's/.*(\(.*\).*/(\1)/'
275 # echo $size
276 # | sed 's/.*(\(.*\) installed.*/(\1) /'
277 fi
278 }
280 oddeven() {
281 ifEven=$(cat $HOME/ifEven)
282 [ "$1" == "1" ] && ifEven="0"
283 case "$ifEven" in
284 "0") ifEven="1"; echo -n " class=\"even\"";;
285 "1") ifEven="0";;
286 esac
287 echo -n "$ifEven" > $HOME/ifEven
288 }
290 package_entry() {
291 cat << EOT
292 <tr$(oddeven $1)>
293 EOT
294 if [ -s "$(dirname $0)/$SLITAZ_VERSION/$CATEGORY.html" ]; then
295 cat << _EOT_
296 <td class="first"><a href="$SLITAZ_VERSION/$CATEGORY.html#$PACKAGE">$PACKAGE</a></td>
297 <td class="first">$(installed_size $PACKAGE)</td>
298 <td>$SHORT_DESC</td>
299 _EOT_
300 else
301 PACKAGE_HREF="<u>$PACKAGE</u>"
302 PACKAGE_URL="$MIRROR_URL/packages/$SLITAZ_VERSION/$PACKAGE-$VERSION$EXTRA_VERSION.tazpkg"
303 nslookup $(echo $MIRROR_URL | sed 's|http://||g') | grep -q 127.0.0.1 &&
304 PACKAGE_URL="$MIRROR_URL/packages/$SLITAZ_VERSION/$(cd /var/www/slitaz/mirror/packages/$SLITAZ_VERSION ; ls $PACKAGE-$VERSION*.tazpkg)"
305 busybox wget -s $PACKAGE_URL 2> /dev/null &&
306 PACKAGE_HREF="<a href=\"$PACKAGE_URL\">$PACKAGE</a>"
307 cat << _EOT_
308 <td class="first">$PACKAGE_HREF</td>
309 <td class="first">$(installed_size $PACKAGE)</td>
310 <td>$SHORT_DESC</td>
311 _EOT_
312 fi
313 cat << EOT
314 </tr>
315 EOT
316 }
318 package_entry_inline() {
319 if [ -s "$(dirname $0)/$SLITAZ_VERSION/$CATEGORY.html" ]; then
320 cat << _EOT_
321 <a href="$SLITAZ_VERSION/$CATEGORY.html#$PACKAGE">$PACKAGE</a> $(installed_size $PACKAGE) : $SHORT_DESC
322 _EOT_
323 else
324 PACKAGE_HREF="<u>$PACKAGE</u>"
325 PACKAGE_URL="$MIRROR_URL/packages/$SLITAZ_VERSION/$PACKAGE-$VERSION$EXTRA_VERSION.tazpkg"
326 nslookup $(echo $MIRROR_URL | sed 's|http://||g') | grep -q 127.0.0.1 &&
327 PACKAGE_URL="$MIRROR_URL/packages/$SLITAZ_VERSION/$(cd /var/www/slitaz/mirror/packages/$SLITAZ_VERSION ; ls $PACKAGE-$VERSION*.tazpkg)"
328 busybox wget -s $PACKAGE_URL 2> /dev/null &&
329 PACKAGE_HREF="<a href=\"$PACKAGE_URL\">$PACKAGE</a>"
330 cat << _EOT_
331 $PACKAGE_HREF $(installed_size $PACKAGE) : $SHORT_DESC
332 _EOT_
333 fi
334 }
336 # Show loop in depends/build_depends chains
337 show_loops()
338 {
339 awk '
340 function chkloop(pkg, i, n)
341 {
342 if (n < 8)
343 for (i = 1; i <= split(deps[pkg],curdep," "); i++) {
344 if (curdep[i] == base || chkloop(curdep[i], 0, n+1)) {
345 split(deps[pkg],curdep," ")
346 p = curdep[i] " " p
347 return 1
348 }
349 }
350 return 0
351 }
352 {
353 for (i = 2; i <= NF; i++)
354 deps[$1] = deps[$1] " " $i
355 }
356 END {
357 for (pkg in deps) {
358 base = pkg
359 p = ""
360 if (chkloop(pkg, 0, 0))
361 print pkg " " p
362 #print pkg " : " p "..."
363 }
364 }' | while read line; do
365 set -- $line
366 case " $last " in
367 *\ $1\ *) continue
368 esac
369 last="$line"
370 pkg=$1
371 shift
372 echo "<strong>$pkg </strong>: $@ ..."
373 done
374 }
376 # recursive dependencies scan
377 dep_scan()
378 {
379 for i in $1; do
380 case " $ALL_DEPS " in
381 *\ $i\ *) continue;;
382 esac
383 ALL_DEPS="$ALL_DEPS $i"
384 if [ -n "$2" ]; then
385 echo -n "$2"
386 (
387 . $WOK/$i/receipt
388 package_entry_inline
389 )
390 fi
391 [ -f $WOK/$i/receipt ] || continue
392 unset BUILD_DEPENDS DEPENDS WANTED
393 . $WOK/$i/receipt
394 if [ -n "$3" ]; then
395 [ -n "$BUILD_DEPENDS$WANTED" ] &&
396 dep_scan "$WANTED $BUILD_DEPENDS" "$2 " $3
397 else
398 [ -n "$DEPENDS" ] && dep_scan "$DEPENDS" "$2 "
399 fi
400 done
401 }
403 # recursive reverse dependencies scan
404 rdep_scan()
405 {
406 SEARCH=$1
407 case "$SEARCH" in
408 glibc-base|gcc-lib-base)
409 $(gettext " glibc-base and gcc-lib-base are implicit dependencies,
410 <b>every</b> package is supposed to depend on them."); echo
411 return;;
412 esac
413 for i in $WOK/* ; do
414 unset BUILD_DEPENDS DEPENDS WANTED
415 . $i/receipt
416 if [ -n "$2" ]; then
417 echo "$(basename $i) $(echo $WANTED $BUILD_DEPENDS)"
418 else
419 echo "$(basename $i) $(echo $DEPENDS)"
420 fi
421 done | awk -v search=$SEARCH '
422 function show_deps(deps, all_deps, pkg, space)
423 {
424 if (all_deps[pkg] == 1) return
425 all_deps[pkg] = 1
426 if (space != "") printf "%s%s\n",space,pkg
427 for (i = 1; i <= split(deps[pkg], mydeps, " "); i++) {
428 show_deps(deps, all_deps, mydeps[i],"////" space)
429 }
430 }
432 {
433 all_deps[$1] = 0
434 for (i = 2; i <= NF; i++)
435 deps[$i] = deps[$i] " " $1
436 }
438 END {
439 show_deps(deps, all_deps, search, "")
440 }
441 ' | while read pkg; do
442 . $WOK/${pkg##*/}/receipt
443 cat << _EOT_
444 $(echo ${pkg%/*} | sed 's|/| |g') $(package_entry_inline)
445 _EOT_
446 done
447 }
449 # Check package exists
450 package_exist()
451 {
452 [ -f $WOK/$1/receipt ] && return 0
453 cat << _EOT_
455 <h3>$(eval_gettext "No package \$SEARCH")</h3>
456 _EOT_
457 return 1
458 }
460 # Display < > &
461 htmlize() {
462 sed -e 's/&/\&/g' -e 's/</\</g' -e 's/>/\>/g'
463 }
465 display_packages_and_files() {
466 unset last
467 while read pkg file; do
468 pkg=${pkg%:}
469 if [ "$pkg" != "$last" ]; then
470 . $WOK/$pkg/receipt
472 package_entry_inline
473 last=$pkg
474 fi
475 echo " $file"
476 done
477 }
479 # Syntax highlighting for receipt file - stolen from tazpanel:
480 # '/var/www/tazpanel/lib/libtazpanel' and developed
481 syntax_highlighter() {
482 cat "$1" | sed -e "s|\&|\&|g; s|<|\<|g; s|>|\>|g; s| | |g" \
483 -e "s|@|\@|g; s|~|\~|g" \
484 -e "#literals" \
485 -e "s|'\([^']*\)'|@l\0~|g" \
486 -e 's|"\([^"]*\)"|@l\0~|g' \
487 -e 's|"\([^"]*\)\\|@l\0~|g' \
488 -e 's|\([^"]*\)\"$|@l\0~|g' \
489 -e "#paths" \
490 -e 's|\([ =]\)\([a-zA-Z0-9/-]*/[\$a-zA-Z0-9/\.-]\+\)\([ )]\)|\1@p\2~\3|g' \
491 -e 's|\([ =]\)\([a-zA-Z0-9/-]*/[\$a-zA-Z0-9/\.-]\+$\)|\1@p\2~|g' \
492 -e 's|\(\$[a-zA-Z0-9_\.-]\+\)\(/[\$a-zA-Z0-9_/\.\*-]\+\)\([ )]*\)|@p\1\2~\3|g' \
493 -e "#functions" \
494 -e 's|^\([^()]*\)\(()\)|@f\0~|g' \
495 -e "#single line comments" \
496 -e 's|^\([ ]*\)#\([^#]*$\)|@c\0~|g' \
497 -e "#parameters" \
498 -e 's|\( \)\(-[a-z0-9]\+\)\( *\)|\1@r\2~\3|g' \
499 -e 's|\( \)\(--[a-z0-9\-]\+\)\([= ]\)|\1@r\2~\3|g' \
500 -e "#variables" \
501 -e "s|^\([^=@#' \-]*\)\(=\)|@v\1~\2|g" \
502 -e 's|\([ ^@-]*\)\([a-zA-Z0-9]\+\)\(=\)|\1@v\2~\3|g' \
503 -e "s#\(\$[a-zA-Z0-9_]\+\)#@v\0~#g" \
504 -e "#urls" \
505 -e s"#\"\(http:[^\"\$ ]*\)\"#\"<a @u href=\0>\1</a>\"#"g \
506 -e s"#\"\(ftp:[^\"\$ ]*\)\"#\"<a @u href=\0>\1</a>\"#"g \
507 -e "#commands" \
508 -e s"#^\( \+\)\([^'= @\-]\+\)#\1@m\2~#"g \
509 -e "#simple commands" \
510 -e s"#\([{}\]$\)#@s\0~#"g \
511 -e s"#\( \)\(\&\&\)\( *\)#\1@s\2~\3#"g \
512 -e s"#\(|\)#@s\0~#"g \
513 -e s"#\(\<\)#@s\0~#"g \
514 -e s"#\(\>\&\)#@s\0~#"g \
515 -e s"#\(\>\)#@s\0~#"g \
516 -e s"#\(\[\)#@s\0~#"g \
517 -e s"#\(\]\)#@s\0~#"g \
518 \
519 -e "s|´|'|g; s|›|</span>|g" \
520 -e "s|@c|<span class='r-comment'>|g" \
521 -e "s|@l|<span class='r-literal'>|g" \
522 -e "s|@v|<span class='r-var'>|g" \
523 -e "s|@f|<span class='r-func'>|g" \
524 -e "s|@u|class='r-url' target='_blank'|g" \
525 -e "s|@m|<span class='r-com'>|g" \
526 -e "s|@s|<span class='r-scom'>|g" \
527 -e "s|@p|<span class='r-path'>|g" \
528 -e "s|@r|<span class='r-param'>|g" \
529 -e "s|~|</span>|g"
530 }
533 #
534 # page begins
535 #
536 header "HTTP/1.1 200 OK" "Content-type: text/html"
537 xhtml_header
539 #
540 # language selector, if needed
541 #
542 if [ -z "$HTTP_ACCEPT_LANGUAGE" ]; then
543 oldlang=$(GETPOST lang)
544 if [ -z "$oldlang" ]; then
545 oldlang="C"
546 [ -z "$QUERY_STRING" ] && QUERY_STRING="lang=C" || QUERY_STRING="${QUERY_STRING}&lang=C"
547 fi
548 cat << EOT
549 <!-- Languages -->
550 <div id="lang">
551 EOT
552 for i in en de fr pt ru zh; do
553 cat << EOT
554 <a href="$SCRIPT_NAME?$(echo "$QUERY_STRING" | sed s/"lang=$oldlang"/"lang=$i"/)">$(
555 case $i in
556 en) echo -n "English";;
557 de) echo -n "Deutsch";;
558 fr) echo -n "Français";;
559 pt) echo -n "Português";;
560 ru) echo -n "Русский";;
561 zh) echo -n "中文";;
562 esac)</a>
563 EOT
564 done
565 cat << EOT
566 </div>
568 EOT
569 fi
571 cat << EOT
572 <!-- Content -->
573 <div id="content">
574 EOT
576 #
577 # Handle GET requests
578 #
579 case " $(GET) " in
580 *\ debug\ *|*\ debug*)
581 cat << EOT
582 <h2>Debug info</h2>
583 <pre>$(httpinfo)</pre>
584 <pre>LANG=$LANG;
585 OBJECT=$OBJECT;
586 SEARCH=$SEARCH;
587 SLITAZ_VERSION=$SLITAZ_VERSION;
588 WOK=$WOK;
589 GET=$(GET);
590 </pre>
591 EOT
592 #$(xhtml_footer)
593 #EOT
594 # exit 0
595 ;;
596 esac
598 # Display search form and result if requested.
599 #xhtml_header
600 cat << EOT
601 <h2>$(gettext 'Search for packages')</h2>
602 <div id="ticker"><img src="style/images/loader.gif" alt="." /></div>
603 EOT
604 search_form
608 case "$OBJECT" in
611 ### Depends loops; [Reverse] Dependency tree [(SUGGESTED)]
612 Depends)
613 if [ -z "$SEARCH" ]; then
614 cat << _EOT_
616 <h3>$(gettext "Depends loops")</h3>
617 <pre>
618 _EOT_
619 for i in $WOK/*/receipt; do
620 PACKAGE=
621 DEPENDS=
622 . $i
623 echo "$PACKAGE $(echo $DEPENDS)"
624 done | show_loops
625 cat << _EOT_
626 </pre>
627 _EOT_
628 elif package_exist $SEARCH ; then
629 cat << _EOT_
631 <h3>$(eval_gettext "Dependency tree for: \$SEARCH")</h3>
632 <pre>
633 _EOT_
634 unset ALL_DEPS
635 dep_scan $SEARCH ""
636 unset SUGGESTED
637 . $WOK/$SEARCH/receipt
638 if [ -n "$SUGGESTED" ]; then
639 cat << _EOT_
640 </pre>
642 <h3>$(eval_gettext "Dependency tree for: \$SEARCH (SUGGESTED)")</h3>
643 <pre>
644 _EOT_
645 unset ALL_DEPS
646 dep_scan "$SUGGESTED" " "
647 fi
648 cat << _EOT_
649 </pre>
651 <h3>$(eval_gettext "Reverse dependency tree for: \$SEARCH")</h3>
652 <pre>
653 _EOT_
654 unset ALL_DEPS
655 rdep_scan $SEARCH
656 cat << _EOT_
657 </pre>
658 _EOT_
659 fi
660 ;;
663 ### Build depends loops; [Reverse] Build dependency tree
664 BuildDepends)
665 if [ -z "$SEARCH" ]; then
666 cat << _EOT_
668 <h3>$(gettext "Build depends loops")</h3>
669 <pre>
670 _EOT_
671 for i in $WOK/*/receipt; do
672 PACKAGE=
673 WANTED=
674 BUILD_DEPENDS=
675 . $i
676 echo "$PACKAGE $WANTED $(echo $BUILD_DEPENDS)"
677 done | show_loops
678 cat << _EOT_
679 </pre>
680 _EOT_
681 elif package_exist $SEARCH ; then
682 cat << _EOT_
684 <h3>$(eval_gettext "\$SEARCH needs these packages to be built")</h3>
685 <pre>
686 _EOT_
687 unset ALL_DEPS
688 dep_scan $SEARCH "" build
689 cat << _EOT_
690 </pre>
692 <h3>$(eval_gettext "Packages who need \$SEARCH to be built")</h3>
693 <pre>
694 _EOT_
695 unset ALL_DEPS
696 rdep_scan $SEARCH build
697 cat << _EOT_
698 </pre>
699 _EOT_
700 fi
701 ;;
704 ### Common files
705 FileOverlap)
706 if package_exist $SEARCH; then
707 cat << _EOT_
709 <h3>$(eval_gettext "These packages may overload files of \$SEARCH")</h3>
710 <pre>
711 _EOT_
712 ( unlzma -c $filelist | grep ^$SEARCH: ;
713 unlzma -c $filelist | grep -v ^$SEARCH: ) | awk '
714 BEGIN { pkg=""; last="x" }
715 {
716 if ($2 == "") next
717 if (index($2,last) == 1 && substr($2,1+length(last),1) == "/")
718 delete file[last]
719 last=$2
720 if (pkg == "") pkg=$1
721 if ($1 == pkg) file[$2]=$1
722 else if (file[$2] == pkg) print
723 }
724 ' | display_packages_and_files
725 cat << _EOT_
726 </pre>
727 _EOT_
728 fi
729 ;;
732 ### File search
733 File)
734 if [ -n "$SEARCH" ]; then
735 cat << _EOT_
737 <h3>$(eval_gettext "Result for: \$SEARCH")</h3>
738 <table>
739 _EOT_
740 unset last
741 unlzma -c $filelist \
742 | grep "$SEARCH" | while read pkg file; do
743 echo "$file" | grep -q "$SEARCH" || continue
744 if [ "$last" != "${pkg%:}" ]; then
745 last=${pkg%:}
746 (
747 . $WOK/$last/receipt
748 [ -n "$last" ] && cat << EOT
749 </td></tr>
750 EOT
751 cat << _EOT_
753 $(package_entry 1)
754 <tr><td colspan="3" class="pre">
755 _EOT_
756 )
757 fi
758 echo -n "$file" | sed s/"$SEARCH"/"<span class='match'>$SEARCH<\/span>"/g
759 echo "<br />"
760 done
761 cat << _EOT_
762 </td></tr>
763 </table>
764 _EOT_
765 fi
766 ;;
769 ### List of files
770 File_list)
771 if package_exist $SEARCH; then
772 cat << _EOT_
774 <h3>$(eval_gettext "Result for: \$SEARCH")</h3>
775 <pre>
776 _EOT_
777 unset last
778 unlzma -c $filelist \
779 | grep ^$SEARCH: | sed 's/.*: / /' | sort
780 cat << _EOT_
781 </pre>
782 <pre>
783 _EOT_
784 filenb=$(unlzma -c $filelist | grep ^$SEARCH: | wc -l)
785 eval_ngettext "\$filenb file" "\$filenb files" $filenb
786 cat << _EOT_
787 \
788 $(busybox sed -n "/^$SEARCH$/{nnnpq}" $pkglist)
789 </pre>
790 _EOT_
791 fi
792 ;;
795 ### Package description
796 Desc)
797 if [ -f $WOK/$SEARCH/description.txt ]; then
798 cat << _EOT_
800 <h3>$(eval_gettext "Description of package: \$SEARCH")</h3>
801 <table>
802 $(htmlize < $WOK/$SEARCH/description.txt)
803 </table>
804 _EOT_
805 else
806 cat << _EOT_
808 <h3>$(eval_gettext "Result for: \$SEARCH")</h3>
809 <table>
810 _EOT_
811 unset last
812 grep -i "$SEARCH" $PACKAGES_REPOSITORY/packages.desc | \
813 sort | while read pkg extras ; do
814 . $WOK/$pkg/receipt
815 package_entry
816 done
817 cat << _EOT_
818 </table>
819 _EOT_
820 fi
821 ;;
823 Bugs)
824 cat << _EOT_
826 <h3>$(eval_gettext "Result for known bugs")</h3>
827 <pre>
828 _EOT_
829 unset last
830 grep ^BUGS= $WOK/*/receipt | \
831 sed "s|$WOK/\(.*\)/receipt:.*|\1|" | sort | while read pkg ; do
832 unset BUGS
833 . $WOK/$pkg/receipt
834 package_entry_inline
835 echo " $BUGS "
836 done
837 cat << _EOT_
838 </pre>
839 _EOT_
840 ;;
843 ### Arch
844 Arch)
845 cat << _EOT_
847 <h3>$(eval_gettext "Result for: \$SEARCH")</h3>
848 <pre>
849 _EOT_
850 unset last
851 grep ^HOST_ARCH= $WOK/*/receipt | grep -i "$SEARCH" | \
852 sed "s|$WOK/\(.*\)/receipt:.*|\1|" | sort | while read pkg ; do
853 unset HOST_ARCH
854 . $WOK/$pkg/receipt
855 echo " $HOST_ARCH " | grep -iq " $SEARCH " &&
856 package_entry_inline
857 done
858 cat << _EOT_
859 </pre>
860 _EOT_
861 ;;
863 ### Tags
864 Tags)
865 if [ -n "$SEARCH" ]; then
866 cat << _EOT_
868 <h3>$(eval_gettext "Result for: \$SEARCH")</h3>
869 <table>
870 _EOT_
871 unset last
872 grep ^TAGS= $WOK/*/receipt | grep -i "$SEARCH" | \
873 sed "s|$WOK/\(.*\)/receipt:.*|\1|" | sort | while read pkg ; do
874 . $WOK/$pkg/receipt
875 package_entry
876 done
877 cat << _EOT_
878 </table>
879 _EOT_
880 else
881 # Display tag cloud
882 grep -l ^TAGS= $WOK/*/receipt | while read file; do
883 TAGS=
884 . $file
885 echo $TAGS
886 done | awk '
887 {
888 for (i = 1; $i != ""; i++)
889 count[$i]++
890 }
891 END {
892 min=10000
893 max=0
894 for (i in count) {
895 if (count[i] < min) min = count[i]
896 if (count[i] > max) max = count[i]
897 }
898 for (i in count)
899 print count[i] " " min " " max " " i
900 }' | while read cnt min max tag ; do
901 cat <<EOT
902 <span style="color:#99f; font-size:9pt; padding-left:5px; padding-right:2px;">\
903 $cnt</span><a href="?tags=$tag&version=$SLITAZ_VERSION" style="\
904 font-size:$((8+(($cnt-$min)*10)/($max-$min)))pt; font-weight:bold; \
905 color:black; text-decoration:none">$tag</a>
906 EOT
907 done
908 fi
909 ;;
912 ### Package receipt with syntax highlighter
913 Receipt)
914 if package_exist "$SEARCH"; then
915 cat << _EOT_
917 <h3>$(eval_gettext "Result for: \$SEARCH")</h3>
918 <pre>
919 _EOT_
920 if [ -f "$WOK/$SEARCH/taz/*/receipt" ]; then
921 syntax_highlighter "$WOK/$SEARCH/taz/*/receipt"
922 else
923 syntax_highlighter "$WOK/$SEARCH/receipt"
924 fi
925 echo '</pre>'
926 fi
927 ;;
930 ### Package
931 Package)
932 if package_exist $SEARCH; then
933 cat << _EOT_
935 <h3>$(eval_gettext "Result for: \$SEARCH")</h3>
936 <table>
937 _EOT_
938 for pkg in `ls $WOK/ | grep "$SEARCH"`
939 do
940 . $WOK/$pkg/receipt
941 DESC=" <a href=\"?object=Desc&query=$pkg&lang=$lang&version=$SLITAZ_VERSION$(ifdebug '&')&submit=go\">$(gettext description)</a>"
942 [ -f $WOK/$pkg/description.txt ] || unset DESC
943 cat << _EOT_
944 $(package_entry)$DESC
945 _EOT_
946 done
947 vpkgs="$(cat $equiv | cut -d= -f1 | grep $SEARCH)"
948 for vpkg in $vpkgs ; do
949 cat << _EOT_
950 </table>
952 <h3>$(eval_gettext "Result for: \$SEARCH (package providing \$vpkg)")</h3>
953 <table>
954 _EOT_
955 for pkg in $(grep $vpkg= $equiv | sed "s/$vpkg=//"); do
956 . $WOK/${pkg#*:}/receipt
957 package_entry
958 done
959 done
960 cat << _EOT_
961 </table>
962 _EOT_
963 fi
964 ;;
965 esac
967 xhtml_footer
969 exit 0