slitaz-forge view pkgs/search.sh @ rev 605

mirror, pkgs: synchronize current changes
author Aleksej Bobylev <al.bobylev@gmail.com>
date Mon Nov 30 01:03:59 2015 +0200 (2015-11-30)
parents d50b1e11ce39
children 1d250e4f3640
line source
1 #!/bin/sh -v
2 #
3 # Tiny CGI search engine for SliTaz packages on http://pkgs.slitaz.org/
4 # Christophe Lincoln <pankso@slitaz.org>
5 # Aleksej Bobylev <al.bobylev@gmail.com>
6 #
7
8 date_start="$(date -u +%s)"
9
10 renice -n 19 $$
11
12
13 # Parse query string
14
15 . /etc/slitaz/slitaz.conf
16 . /usr/lib/slitaz/httphelper.sh
17 cache='/var/cache/pkgs'
18 mkdir -p "$cache"
19
20 _() { local T="$1"; shift; printf "$(gettext "$T")" "$@"; echo; }
21 _n() { local T="$1"; shift; printf "$(gettext "$T")" "$@"; }
22 _p() { local S="$1" P="$2" N="$3"; shift 3; printf "$(ngettext "$S" "$P" "$N")" "$@"; }
23
24
25 [ -n "$MIRROR_URL" ] || MIRROR_URL="http://mirror.slitaz.org"
26
27
28 # User preferred language
29 # parameter $1 have priority; without parameter $1 - browser language only
30 # if we don't support any of user languages (or only en), then return C locale
31
32 user_lang() {
33 unset LANG
34 IFS=','
35 for lang in $1 $HTTP_ACCEPT_LANGUAGE; do
36 lang=${lang%;*}; lang=${lang# }; lang=${lang%-*}; lang=${lang%_*}
37 case "$lang" in
38 de) LANG='de_DE';;
39 en) LANG='en_US';;
40 es) LANG='es_ES';;
41 fa) LANG='fa_IR';;
42 fr) LANG='fr_FR';;
43 #it) LANG='it_IT';; # We haven't Italian translations
44 pl) LANG='pl_PL';;
45 pt) LANG='pt_BR';;
46 ru) LANG='ru_RU';;
47 sv) LANG='sv_SE';;
48 uk) LANG='uk_UA';;
49 zh) LANG='zh_TW';;
50 esac
51 [ -n "$LANG" ] && break
52 done
53 unset IFS
54 echo "${LANG:-C}"
55 }
56
57
58 # Part of query to indicate current debug mode
59
60 ifdebug() {
61 ifdebug="$(GET debug)"
62 [ -n "$ifdebug" ] && ifdebug="$1$ifdebug"
63 echo "$ifdebug"
64 }
65
66
67 # GET or POST variable
68
69 GETPOST() {
70 echo "$(POST $1)$(GET $1)"
71 }
72
73
74 # Nice URL replacer - to copy URL from address bar
75 # TODO: deal with POST method of form submitting
76
77 nice_url() {
78 # if user submitted a form
79 if [ "$REQUEST_METHOD" == 'POST' -o -n "$(GET submit)" ]; then
80 OBJECT="$(GETPOST object)"
81 SEARCH="$(GETPOST query)"
82 case $OBJECT in
83 Package) NICE="package=$SEARCH";;
84 Desc) NICE="desc=$SEARCH";;
85 Tags) NICE="tags=$SEARCH";;
86 Arch) NICE="arch=$SEARCH";;
87 Bugs) NICE="bugs=$SEARCH";;
88 Receipt) NICE="receipt=$SEARCH";;
89 Depends) NICE="depends=$SEARCH";;
90 BuildDepends) NICE="builddepends=$SEARCH";;
91 File) NICE="file=$SEARCH";;
92 File_list) NICE="filelist=$SEARCH";;
93 FileOverlap) NICE="fileoverlap=$SEARCH";;
94 Category) NICE="category=$SEARCH";;
95 Maintainer) NICE="maintainer=$SEARCH";;
96 License) NICE="license=$SEARCH";;
97 esac
98
99 # version, if needed
100 version="$(GETPOST version)"
101 if [ -n "$version" -a "$version" != 'cooking' -a "$version" != 'c' ]; then
102 NICE="$NICE&version=${version:0:1}"
103 fi
104
105 # lang, if needed
106 query_lang="$(GETPOST lang)"
107 pref_lang="$(user_lang)"
108 browser_lang="${pref_lang%_*}"
109 if [ -n "$query_lang" ]; then
110 COOKIE="lang=$query_lang"
111 else
112 COOKIE=''
113 fi
114
115 # verbose, if needed
116 verboseq="$(GETPOST verbose)"
117 if [ -n "$verboseq" -a "$verboseq" != '0' ]; then
118 NICE="$NICE&verbose=1"
119 fi
120
121 # debug, if needed
122 debugq="$(GET debug)"
123 if [ -n "$debugq" -a "$debugq" == 'debug' ]; then
124 NICE="$NICE&debug"
125 fi
126
127 # redirect
128 if [ -z "$COOKIE" ]; then
129 header "HTTP/1.1 301 Moved Permanently" "Location: ?$NICE"
130 else
131 header "HTTP/1.1 301 Moved Permanently" "Set-Cookie: $COOKIE" "Location: ?$NICE"
132 fi
133 exit 0
134 fi
135 }
136
137
138 nice_url
139
140
141
142
143 # Internationalization
144 . /usr/bin/gettext.sh
145 export TEXTDOMAIN='tazpkg-web'
146 # Translate actions once
147 a_co="$(_ 'Cooker')"
148 a_dl="$(_ 'Download')"
149 a_rc="$(_ 'Receipt')"
150
151
152
153
154 # Cache icons to fast search
155 # Find the latest update in the "icons" folder
156 unset ICONS_CACHE_REBUILDED
157 iconslast="$cache/icons.$(date -u +%s -r /var/www/pkgs/icons/$(ls -t /var/www/pkgs/icons | head -n1))"
158
159 if [ ! -f "$iconslast" ]; then
160 find "$cache" -name 'icons.*' -delete
161
162 (
163 cat icons/packages.icons
164 awk '{printf "%s\tcli\n",$1}' icons/packages-cli.icons
165 awk '{printf "%s\tfont\n",$1}' icons/packages-font.icons
166 awk '{printf "%s\ti18n\n",$1}' icons/packages-i18n.icons
167 awk '{printf "%s\tthm\n",$1}' icons/packages-thm.icons
168 awk '{printf "%s\tlib\n",$1}' icons/packages-lib.icons
169 awk '{printf "%s\tpy\n",$1}' icons/packages-py.icons
170 awk '{printf "%s\tperl\n",$1}' icons/packages-perl.icons
171 ls icons/*.png | awk -F/ '{sub(/\.png/,"",$2);printf "%s\t%s\n", $2, $2}'
172 ) | sort > "$iconslast"
173 ICONS_CACHE_REBUILDED='yes'
174 fi
175
176
177
178 unset SEARCH SLITAZ_VERSION
179 VERBOSE=0
180 s='selected'
181 for i in $(echo $QUERY_STRING | sed 's/[?&]/ /g'); do
182 case "$(echo $i | tr [A-Z] [a-z])" in
183 query=*|search=*) [ ${i#*=} == Search ] || SEARCH=${i#*=};;
184 object=*) OBJECT=${i#*=};;
185 verbose=*) VERBOSE=${i#*=};;
186 lang=*) LANG=${i#*=};;
187 file=*) SEARCH=${i#*=}; OBJECT='File'; sel_file=$s;;
188 desc=*) SEARCH=${i#*=}; OBJECT='Desc'; sel_desc=$s;;
189 tags=*) SEARCH=${i#*=}; OBJECT='Tags'; sel_tags=$s;;
190 arch=*) SEARCH=${i#*=}; OBJECT='Arch'; sel_arch=$s;;
191 bugs=*) SEARCH=${i#*=}; OBJECT='Bugs'; sel_bugs=$s;;
192 receipt=*) SEARCH=${i#*=}; OBJECT='Receipt'; sel_rcpt=$s;;
193 filelist=*) SEARCH=${i#*=}; OBJECT='File_list'; sel_flst=$s;;
194 package=*) SEARCH=${i#*=}; OBJECT='Package';;
195 depends=*) SEARCH=${i#*=}; OBJECT='Depends'; sel_deps=$s;;
196 builddepends=*) SEARCH=${i#*=}; OBJECT='BuildDepends'; sel_bdps=$s;;
197 fileoverlap=*) SEARCH=${i#*=}; OBJECT='FileOverlap'; sel_over=$s;;
198 category=*) SEARCH=${i#*=}; OBJECT='Category'; sel_catg=$s;;
199 maintainer=*) SEARCH=${i#*=}; OBJECT='Maintainer'; sel_mtnr=$s;;
200 license=*) SEARCH=${i#*=}; OBJECT='License'; sel_lcns=$s;;
201 version=1*) SLITAZ_VERSION='1.0'; sel_1=$s;;
202 version=2*) SLITAZ_VERSION='2.0'; sel_2=$s;;
203 version=3*) SLITAZ_VERSION='3.0'; sel_3=$s;;
204 version=s*|version=4*) SLITAZ_VERSION='stable'; sel_s=$s;;
205 version=u*) SLITAZ_VERSION='undigest'; sel_u=$s;;
206 version=b*) SLITAZ_VERSION='backports'; sel_b=$s;;
207 version=t*) SLITAZ_VERSION='tiny'; sel_t=$s;;
208 esac
209 done
210 [ -z "$SLITAZ_VERSION" ] && SLITAZ_VERSION='cooking'
211 addver=''; [ "$SLITAZ_VERSION" != 'cooking' ] && addver="&amp;version=$SLITAZ_VERSION"
212 SEARCH="${SEARCH//%20/ }"
213
214 #
215 # Content negotiation for Gettext
216 #
217
218 LANG=$(user_lang $(COOKIE lang))
219 lang="${LANG%_*}"
220 export LANG LC_ALL=$LANG
221
222
223 #
224 # Unescape query and set vars
225 #
226
227 SEARCH="$(echo $SEARCH | sed 's|%2B|+|g; s|%3A|:|g; s|%2F|/|g')"
228
229 SLITAZ_HOME="/home/slitaz"
230 if [ "$SLITAZ_VERSION" == 'cooking' ]; then
231 WOK="$SLITAZ_HOME/wok"
232 else
233 WOK="$SLITAZ_HOME/wok-$SLITAZ_VERSION"
234 fi
235
236 pkgsrepo="$SLITAZ_HOME/$SLITAZ_VERSION/packages"
237 repoid="$(cat "$pkgsrepo/ID")"
238 filelist="$pkgsrepo/files.list.lzma"
239 pkglist="$pkgsrepo/packages.txt"
240 equiv="$pkgsrepo/packages.equiv"
241 pinfo="$pkgsrepo/packages.info"
242
243 # Date of the last modification (both packages DB or icons DB)
244 if [ -f "$pkgsrepo/ID" ]; then
245 if [ "$iconslast" -nt "$pkgsrepo/ID" ]; then
246 lastmod="$(date -Rur "$iconslast")"
247 else
248 lastmod="$(date -Rur "$pkgsrepo/ID")"
249 fi
250 lastmod="${lastmod/UTC/GMT}"
251 fi
252
253
254
255
256 # Search form
257 # TODO: add hint 'You are can search for depends loop, if textfield is empty'...
258 # add progress ticker while page is not complete
259
260 search_form() {
261 [ -z "$SEARCH$(GET info)" ] && autofocus='autofocus'
262
263 cat <<EOT
264
265 <div class="form">
266 <form id="s_form" name="s_form" method="post" action="$(ifdebug '?')">
267 <span class="small">
268 <select name="object">
269 <option value="Package" class="pkg">$(_ 'Package name')</option>
270 <option $sel_desc value="Desc" class="description">$(_ 'Description')</option>
271 <option $sel_tags value="Tags" class="tag">$(_ 'Tag')</option>
272 <option $sel_arch value="Arch" class="arch">$(_ 'Architecture')</option>
273 <option $sel_bugs value="Bugs" class="bugs">$(_ 'Bugs')</option>
274 <option $sel_rcpt value="Receipt" class="receipt">$(_ 'Receipt')</option>
275 <option $sel_deps value="Depends" class="dep">$(_ 'Dependencies')</option>
276 <option $sel_bdps value="BuildDepends" class="dep">$(_ 'Build dependencies')</option>
277 <option $sel_file value="File" class="file">$(_ 'File')</option>
278 <option $sel_flst value="File_list" class="files-list">$(_ 'File list')</option>
279 <option $sel_over value="FileOverlap" class="common">$(_ 'Common files')</option>
280 <option $sel_catg value="Category" class="category">$(_ 'Category')</option>
281 <option $sel_mtnr value="Maintainer" class="avatar">$(_ 'Maintainer')</option>
282 <option $sel_lcns value="License" class="license">$(_ 'License')</option>
283 </select>
284 </span>
285 <span class="stretch">
286 <input $autofocus type="search" name="query" id="query" value="$SEARCH$(GET info)"
287 autocorrect="off" autocapitalize="off" autocomplete="on" spellcheck="false"
288 results="5" autosave="pkgsearch"/>
289 </span>
290 <span class="small">
291 <select name="version" title="$(_ 'SliTaz version')">
292 <option value="cooking">$( _ 'cooking')</option>
293 <option $sel_s value="stable">4.0</option>
294 <option $sel_3 value="3.0">3.0</option>
295 <option $sel_2 value="2.0">2.0</option>
296 <option $sel_1 value="1.0">1.0</option>
297 <option $sel_t value="tiny">$( _ 'tiny')</option>
298 <option $sel_u value="undigest">$( _ 'undigest')</option>
299 <option $sel_b value="backports">$( _ 'backports')</option>
300 </select>
301 </span>
302 <span class="small">
303 <button type="submit">$(_ 'Search')</button>
304 </span>
305 </form>
306 </div>
307 EOT
308 }
309
310
311 # xHTML5 Header.
312
313 xhtml_header() {
314 . lib/header.sh
315 }
316
317
318 # FIXME: unused function
319
320 cat_files_list() {
321 local tmp="/tmp/files.list.$(basename ${1%/packages})"
322 if [ ! -s "$tmp" -o "$1/files.list.lzma" -nt "$tmp" ]; then
323 unlzma < "$1/files.list.lzma" > "$tmp.$$" && mv "$tmp.$$" "$tmp"
324 fi
325 case "$2" in
326 lines)
327 if [ ! -s "$tmp.lines" -o "$tmp" -nt "$tmp.lines" ]; then
328 wc -l < "$tmp" > "$tmp.lines.$$" &&
329 mv "$tmp.lines.$$" "$tmp.lines"
330 fi
331 cat "$tmp.lines"
332 ;;
333 *)
334 cat "$tmp";;
335 esac
336 }
337
338
339
340
341 # xHTML Footer.
342
343 xhtml_footer() {
344 # Number of packages in the current repo
345 if [ ! -f "$cache/stat.p.$SLITAZ_VERSION.$repoid" ]; then
346 rm $cache/stat.p.$SLITAZ_VERSION.*
347 ls "$WOK/" | wc -l > "$cache/stat.p.$SLITAZ_VERSION.$repoid"
348 fi
349
350 # Number of files in the current repo
351 if [ ! -f "$cache/stat.f.$SLITAZ_VERSION.$repoid" ]; then
352 rm $cache/stat.f.$SLITAZ_VERSION.*
353 unlzma < "$filelist" | wc -l > "$cache/stat.f.$SLITAZ_VERSION.$repoid"
354 fi
355
356 PKGS=$( cat "$cache/stat.p.$SLITAZ_VERSION.$repoid")
357 FILES=$(cat "$cache/stat.f.$SLITAZ_VERSION.$repoid")
358 echo -en '\n<div class="summary">'
359 _p '%s package' '%s packages' "$PKGS" \
360 "$PKGS"
361 _p ' and %s file in %s database' ' and %s files in %s database' "$FILES" \
362 "$FILES" "$SLITAZ_VERSION"
363
364 # Date of the last update...
365 echo -n ' ('
366 if [ -e "$pkgsrepo/IDs" ]; then
367 # ...based on the value inside IDs
368 date +"%c" -d@$(cut -d' ' -f2 "$pkgsrepo/IDs") | tr -d '\n'
369 elif [ -e "$pkgsrepo/ID" ]; then
370 # ...based on the date of ID
371 date +"%c" -r "$pkgsrepo/ID" | tr -d '\n'
372 else
373 # ...based on the date of the newest file
374 date +"%c" -r "$pkgsrepo/$(ls -Lt "$pkgsrepo" | head -n1)" | tr -d '\n'
375 fi
376 echo -n ')'
377
378 cat <<EOT
379 </div>
380 </main>
381
382 EOT
383
384 local lang="${LANG%_*}"
385 if [ -e "lib/footer.$lang.sh" ]; then
386 echo '<footer>'
387 . lib/footer.$lang.sh
388 else
389 echo '<footer dir="ltr">'
390 . lib/footer.sh
391 fi
392
393 echo -n '<div class="summary">'
394 gen_time=$(( $(date -u +%s) - $date_start ))
395 _p 'Page generated in %s second.' 'Page generated in %s seconds.' "$gen_time" \
396 "$gen_time"
397
398 cat <<EOT
399 </div>
400 <img src="style/qr.png" alt="#" onmouseover="this.title = location.href"
401 onclick="this.src = QRCodePNG(location.href, this)"/>
402 </footer>
403
404 <script>
405 function QRCodePNG(str, obj) {
406 try {
407 obj.height = obj.width += 300;
408 return QRCode.generatePNG(str, {ecclevel: 'H'});
409 }
410 catch (any) {
411 var element = document.createElement("script");
412 element.src = "style/qrcode.min.js";
413 element.type ="text/javascript";
414 element.onload = function() {
415 obj.src = QRCode.generatePNG(str, {ecclevel: 'H'});
416 };
417 document.body.appendChild(element);
418 }
419 }
420
421 document.getElementById('ticker').style.visibility='hidden';
422 </script>
423 </body>
424 </html>
425 EOT
426 exit 0
427 }
428
429
430
431
432 # TODO: to remove
433
434 installed_size() {
435 if [ $VERBOSE -gt 0 ]; then
436 inst=$(grep -A 3 "^$1\$" $pkgslist | grep installed)
437 # size=$(echo $inst | cut -d'(' -f2 | cut -d' ' -f1)
438 echo $inst | sed 's/.*(\(.*\).*/(\1)/'
439 # echo $size
440 # | sed 's/.*(\(.*\) installed.*/(\1) /'
441 fi
442 }
443
444
445
446
447 # Package icon
448
449 package_icon() {
450 local icon='pkg'
451
452 case "$1" in
453 *-dev) icon='dev';;
454 linux-*|linux64-*) icon='linux';;
455 xorg-*) icon='xorg';;
456 *) icon=$(awk -F$'\t' -vp="$1" '$1==p{print $2;exit}' "$iconslast");;
457 esac
458 echo "icons$2/${icon:-pkg}.png"
459 }
460
461
462
463
464 package_entry() {
465
466 # Level for packages tree
467 if [ -n "$1" ]; then
468 echo "<tr class=\"l$1\">"
469 else
470 echo '<tr>'
471 fi
472
473 PACKAGE_URL="$MIRROR_URL/packages/$SLITAZ_VERSION/$PACKAGE-$VERSION$EXTRAVERSION.tazpkg"
474
475 case "$SLITAZ_VERSION" in
476 cooking)
477 COOKER="<a href=\"http://cook.slitaz.org/cooker.cgi?pkg=$PACKAGE\" class=\"co\" title=\"$a_co\">$a_co</a>"
478 ;;
479 stable|undigest|backports)
480 COOKER="<a href=\"http://cook.slitaz.org/$SLITAZ_VERSION/cooker.cgi?pkg=$PACKAGE\" class=\"co\" title=\"$a_co\">$a_co</a>"
481 ;;
482 *)
483 COOKER=''
484 ;;
485 esac
486
487 cat <<EOT
488 <td class="first"><a href="?info=$PACKAGE$addver"><img src="$(package_icon $PACKAGE)" alt="$PACKAGE icon"/></a></td>
489 <td><b>$PACKAGE</b><br/>$SHORT_DESC</td>
490 <td class="last">
491 <a class="dl" href="$PACKAGE_URL" title="$a_dl">$a_dl</a>
492 <a class="rc" href="?receipt=$PACKAGE$addver" title="$a_rc">$a_rc</a>
493 $COOKER
494 </td>
495 </tr>
496 EOT
497 }
498
499
500 package_entries() {
501 # Input: $1 = [ desc | category | tags | name ]
502 # $2 = query
503
504 awk -F$'\t' -vtype="$1" -vquery="$2" -vmurl="$MIRROR_URL" -vver="$SLITAZ_VERSION" \
505 -vaco="$a_co" -vadl="$a_dl" -varc="$a_rc" -viconslast="$iconslast" \
506 -vnf="$(_ 'Nothing found')" -vaddver="$addver" '
507 BEGIN {
508 IGNORECASE = 1;
509 print "<table class=\"list\">";
510 notfound = "y";
511 }
512
513 function cooker() {
514 if (ver!="cooking" && ver!="stable" && ver!="undigest" && ver!="backports") return;
515
516 printf "\t<a href=\"http://cook.slitaz.org/";
517 if (ver=="stable" || ver=="undigest" || ver=="backports") printf "%s/", ver;
518 printf "cooker.cgi?pkg=%s\" class=\"co\" title=\"%s\">%s</a>", $1, aco, aco;
519 }
520
521 function icon(pkg) {
522 i="";
523 if (pkg ~ /-dev$/) { return "dev"; }
524 if (pkg ~ /^linux(64)?-/) { return "linux"; }
525 if (pkg ~ /^xorg-/) { return "xorg"; }
526 "awk -vp=\"" pkg "\" \"BEGIN{FS=\\\"\t\\\"}\\\$1==p{print \\\$2;exit}\" " iconslast | getline i;
527 if (i) { return i; }
528 return "pkg";
529 }
530
531 function tabline() {
532 markname = $1; if (type=="name") gsub(query, "<mark>&</mark>", markname);
533 markdesc = $4; if (type=="desc") gsub(query, "<mark>&</mark>", markdesc);
534 printf "<tr>\n\t<td class=\"first\">"
535 printf "<a href=\"?info=%s%s\">", gensub(/\+/, "%2B", "g", $1), addver;
536 printf "<img src=\"icons/%s.png\" alt=\"%s icon\"/></a></td>\n", icon($1), $1;
537 printf "\t<td><b>%s</b><br/>%s</td>\n", markname, markdesc;
538 printf "\t<td class=\"last\">\n";
539 printf "\t<a class=\"dl\" href=\"%s\" ", murl "/packages/" ver "/" $1 "-" $2 ".tazpkg";
540 printf "title=\"%s\">%s</a>\n", adl, adl;
541 printf "\t<a class=\"rc\" href=\"?receipt=%s%s\" ", $1, addver;
542 printf "title=\"%s\">%s</a>\n", arc, arc;
543 cooker();
544 printf "</td>\n</tr>\n"
545 }
546
547
548 {
549 if (type=="name" && match($1, query)) { tabline(); notfound = ""; }
550 if (type=="category" && $3==query) { tabline(); notfound = ""; }
551 if (type=="desc" && match($4, query)) { tabline(); notfound = ""; }
552 if (type=="tags" && match(" "$6" ", " "query" ")) { tabline(); notfound = ""; }
553 }
554
555 END {
556 if (notfound) printf "<tr><td class=\"first\"><img src=\"icons/notfound.png\" alt="Not found"/></td><td><b>%s</b></td></tr>", nf;
557 print "</table>";
558 }
559 ' "$pinfo";
560 }
561
562
563
564
565 package_entry_inline() {
566 # if [ -s "$(dirname $0)/$SLITAZ_VERSION/$CATEGORY.html" ]; then
567 # cat << _EOT_
568 #<a href="$SLITAZ_VERSION/$CATEGORY.html#$PACKAGE">$PACKAGE</a> $(installed_size $PACKAGE) : $SHORT_DESC
569 #_EOT_
570 # else
571 PACKAGE_URL="$MIRROR_URL/packages/$SLITAZ_VERSION/$PACKAGE-$VERSION$EXTRA_VERSION.tazpkg"
572 PACKAGE_HREF="<a href=\"$PACKAGE_URL\">$PACKAGE</a>"
573 case "$SLITAZ_VERSION" in
574 cooking)
575 COOKER="<a href=\"http://cook.slitaz.org/cooker.cgi?pkg=$PACKAGE\">$a_co</a>";;
576 stable|undigest|backports)
577 COOKER="<a href=\"http://cook.slitaz.org/$SLITAZ_VERSION/cooker.cgi?pkg=$PACKAGE\">$a_co</a>";;
578 *)
579 COOKER='';;
580 esac
581 cat <<EOT
582 $PACKAGE_HREF $(installed_size $PACKAGE) : $SHORT_DESC \
583 <a href="?receipt=$PACKAGE&amp;version=$SLITAZ_VERSION">$a_rc</a>&nbsp;$COOKER
584 EOT
585 # fi
586 }
587
588
589 # Show loop in depends/build_depends chains
590
591 show_loops() {
592 awk '
593 function chkloop(pkg, i, n)
594 {
595 if (n < 8)
596 for (i = 1; i <= split(deps[pkg],curdep," "); i++) {
597 if (curdep[i] == base || chkloop(curdep[i], 0, n+1)) {
598 split(deps[pkg],curdep," ")
599 p = curdep[i] " " p
600 return 1
601 }
602 }
603 return 0
604 }
605 {
606 for (i = 2; i <= NF; i++)
607 deps[$1] = deps[$1] " " $i
608 }
609 END {
610 for (pkg in deps) {
611 base = pkg
612 p = ""
613 if (chkloop(pkg, 0, 0))
614 print pkg " " p
615 #print pkg " : " p "..."
616 }
617 }' | while read line; do
618 set -- $line
619 case " $last " in
620 *\ $1\ *) continue
621 esac
622 last="$line"
623 pkg=$1
624 shift
625 echo "<strong>$pkg </strong>: $@ ..."
626 done
627 }
628
629
630 # recursive dependencies scan
631
632 dep_scan() {
633 for i in $1; do
634 case " $ALL_DEPS " in
635 *\ $i\ *)
636 continue;;
637 esac
638 ALL_DEPS="$ALL_DEPS $i"
639 if [ -n "$2" ]; then
640 echo -n "$2"
641 (
642 . $WOK/$i/receipt
643 package_entry_inline
644 )
645 fi
646 [ -f $WOK/$i/receipt ] || continue
647 unset BUILD_DEPENDS DEPENDS WANTED
648 . $WOK/$i/receipt
649 if [ -n "$3" ]; then
650 [ -n "$BUILD_DEPENDS$WANTED" ] &&
651 dep_scan "$WANTED $BUILD_DEPENDS" "$2 " $3
652 else
653 [ -n "$DEPENDS" ] && dep_scan "$DEPENDS" "$2 "
654 fi
655 done
656 }
657
658
659 # recursive reverse dependencies scan
660
661 rdep_scan() {
662 SEARCH=$1
663 case "$SEARCH" in
664 glibc-base|gcc-lib-base)
665 _ '"glibc-base" and "gcc-lib-base" are implicit dependencies, <b>every</b> package is supposed to depend on them.'
666 return;;
667 esac
668 for i in $WOK/* ; do
669 unset BUILD_DEPENDS DEPENDS WANTED
670 . $i/receipt
671 if [ -n "$2" ]; then
672 echo "$(basename $i) $(echo $WANTED $BUILD_DEPENDS)"
673 else
674 echo "$(basename $i) $(echo $DEPENDS)"
675 fi
676 done | awk -v search=$SEARCH '
677 function show_deps(deps, all_deps, pkg, space)
678 {
679 if (all_deps[pkg] == 1) return
680 all_deps[pkg] = 1
681 if (space != "") printf "%s%s\n",space,pkg
682 for (i = 1; i <= split(deps[pkg], mydeps, " "); i++) {
683 show_deps(deps, all_deps, mydeps[i],"////" space)
684 }
685 }
686
687 {
688 all_deps[$1] = 0
689 for (i = 2; i <= NF; i++)
690 deps[$i] = deps[$i] " " $1
691 }
692
693 END {
694 show_deps(deps, all_deps, search, "")
695 }
696 ' | while read pkg; do
697 . $WOK/${pkg##*/}/receipt
698 cat << _EOT_
699 $(echo ${pkg%/*} | sed 's|/| |g') $(package_entry_inline)
700 _EOT_
701 done
702 }
703
704
705
706
707 # Check non-empty argument
708
709 check_n() {
710 if [ -z "$1" ]; then
711 cat <<EOT
712 <div class="err">$(_ 'Please specify name of the package.')</div>
713 <p> <br/> </p>
714 EOT
715 return 1
716 fi
717 }
718
719
720 # Check package existence
721
722 package_exist() {
723 check_n "$1"
724
725 if [ ! -f "$WOK/$1/receipt" ]; then
726 cat <<EOT
727 <div class="err">$(_ 'Package "%s" was not found' "$1")</div>
728 <p> <br/> </p>
729 EOT
730 return 1
731 fi
732
733 return 0
734 }
735
736
737
738
739 # Display < > &
740
741 htmlize() {
742 sed -e 's|&|\&amp;|g; s|<|\&lt;|g; s|>|\&gt;|g'
743 }
744
745
746
747
748 display_packages_and_files() {
749 unset last
750 while read pkg file; do
751 pkg=${pkg%:}
752 if [ "$pkg" != "$last" ]; then
753 . "$WOK/$pkg/receipt"
754
755 package_entry_inline
756 last="$pkg"
757 fi
758 echo " $file"
759 done
760 }
761
762
763 # Syntax highlighting for receipt file - stolen from tazpanel:
764 # '/var/www/tazpanel/lib/libtazpanel' and developed
765
766 syntax_highlighter() {
767 . $1
768 sed -e "s|\&|\&amp;|g; s|<|\&lt;|g; s|>|\&gt;|g; s| | |g" \
769 -e "s|@|\&#64;|g; s|~|\&#126;|g" \
770 -e "#literals" \
771 -e "s|'\([^']*\)'|@l\0~|g" \
772 -e 's|"\([^"]*\)"|@l\0~|g' \
773 -e 's|"\([^"]*\)\\|@l\0~|g' \
774 -e 's|\([^"]*\)\"$|@l\0~|g' \
775 -e "#paths" \
776 -e 's|\([ =]\)\([a-zA-Z0-9/-]*/[\$a-zA-Z0-9/\.-]\+\)\([ )]\)|\1@p\2~\3|g' \
777 -e 's|\([ =]\)\([a-zA-Z0-9/-]*/[\$a-zA-Z0-9/\.-]\+$\)|\1@p\2~|g' \
778 -e 's|\(\$[a-zA-Z0-9_\.-]\+\)\(/[\$a-zA-Z0-9_/\.\*-]\+\)\([ )]*\)|@p\1\2~\3|g' \
779 -e "#functions" \
780 -e 's|^\([^()]*\)\(()\)|@f\0~|g' \
781 -e "#single line comments" \
782 -e 's|^\([ ]*\)#\([^#]*$\)|@c\0~|g' \
783 -e "#parameters" \
784 -e 's|\( \)\(-[a-z0-9]\+\)\( *\)|\1@r\2~\3|g' \
785 -e 's|\( \)\(--[a-z0-9\-]\+\)\([= ]\)|\1@r\2~\3|g' \
786 -e "#variables" \
787 -e "s|^\([^=@#' \-]*\)\(=\)|@v\1~\2|g" \
788 -e 's|\([ ^@-]*\)\([a-zA-Z0-9]\+\)\(=\)|\1@v\2~\3|g' \
789 -e "s#\(\$[a-zA-Z0-9_]\+\)#@v\0~#g" \
790 -e "#urls" \
791 -e s"#\"\(http:[^\"\$ ]*\)\"#\"<a @u href=\0>\1</a>\"#"g \
792 -e s"#\"\(ftp:[^\"\$ ]*\)\"#\"<a @u href=\0>\1</a>\"#"g \
793 -e "#commands" \
794 -e s"#^\( \+\)\([^'= @\-]\+\)#\1@m\2~#"g \
795 -e "#simple commands" \
796 -e s"#\([{}\]$\)#@s\0~#"g \
797 -e s"#\( \)\(\&amp;\&amp;\)\( *\)#\1@s\2~\3#"g \
798 -e s"#\(|\)#@s\0~#"g \
799 -e s"#\(\&lt;\)#@s\0~#"g \
800 -e s"#\(\&gt;\&amp;\)#@s\0~#"g \
801 -e s"#\(\&gt;\)#@s\0~#"g \
802 -e s"#\(\[\)#@s\0~#"g \
803 -e s"#\(\]\)#@s\0~#"g \
804 \
805 -e "s|´|'|g; s|›|</span>|g" \
806 -e "s|@c|<span class='r-comment'>|g" \
807 -e "s|@l|<span class='r-literal'>|g" \
808 -e "s|@v|<span class='r-var'>|g" \
809 -e "s|@f|<span class='r-func'>|g" \
810 -e "s|@u|class='r-url' target='_blank'|g" \
811 -e "s|@m|<span class='r-com'>|g" \
812 -e "s|@s|<span class='r-scom'>|g" \
813 -e "s|@p|<span class='r-path'>|g" \
814 -e "s|@r|<span class='r-param'>|g" \
815 -e "s|~|</span>|g" < "$1" | add_url_links
816 }
817
818
819 # Create some clickable links
820
821 add_url_links() {
822 local tarball_url
823 sedit=''
824 case "$SLITAZ_VERSION" in
825 cooking)
826 [ -n "$VERSION" ] &&
827 sedit="$sedit -e 's|\\(>VERSION<[^\"]*\"\\)\\([^\"]*\\)|\\1<a class='r-url' target='_blank' href=\"http://cook.slitaz.org/cooker.cgi?pkg=$PACKAGE\">\\2</a>|}'"
828 ;;
829 stable|undigest|backports)
830 [ -n "$VERSION" ] &&
831 sedit="$sedit -e 's|\\(>VERSION<[^\"]*\"\\)\\([^\"]*\\)|\\1<a class='r-url' target='_blank' href=\"http://cook.slitaz.org/$SLITAZ_VERSION/cooker.cgi?pkg=$PACKAGE\">\\2</a>|}'"
832 ;;
833 esac
834 #[ -n "$WEB_SITE" ] && sedit="$sedit -e '/WEB_SITE/{s|\\($WEB_SITE\\)|<a class='r-url' target='_blank' href=\"\\1\">\\1</a>|}'"
835
836 [ -n "$WGET_URL" ] &&
837 sedit="$sedit -e 's|\\(>WGET_URL<[^\"]*\"\\)\\([^\"]*\\)|\\1<a class='r-url' target='_blank' href=\"${WGET_URL//|/\\|}\">\\2</a>|}'"
838
839 [ -n "$MAINTAINER" ] &&
840 sedit="$sedit -e '/MAINTAINER/{s|\\(${MAINTAINER/@/&#64;}\\)|<a class='r-url' target='_blank' href=\"?maintainer=\\1\\&amp;version=$SLITAZ_VERSION\">\\1</a>|}'"
841
842 [ -n "$CATEGORY" ] &&
843 sedit="$sedit -e '/CATEGORY/{s|\\($CATEGORY\\)|<a class='r-url' target='_blank' href=\"?category=\\1\\&amp;version=$SLITAZ_VERSION\">\\1</a>|}'"
844
845 [ -f "$WOK/$PACKAGE/description.txt" ] &&
846 sedit="$sedit -e '/SHORT_DESC/{s|\\($SHORT_DESC\\)|<a class='r-url' target='_blank' href=\"?desc=$PACKAGE\\&amp;version=$SLITAZ_VERSION\">\\1</a>|}'"
847
848 tarball_url=sources/packages-$SLITAZ_VERSION/${TARBALL:0:1}/$TARBALL
849 [ -f /var/www/slitaz/mirror/$tarball_url ] || case "$tarball_url" in
850 *.gz) tarball_url=${tarball_url%gz}lzma ;;
851 *.tgz) tarball_url=${tarball_url%tgz}tar.lzma ;;
852 *.bz2) tarball_url=${tarball_url%bz2}lzma ;;
853 esac
854 [ -f /var/www/slitaz/mirror/$tarball_url ] && sedit="$sedit -e 's|\\(>TARBALL<[^\"]*\"\\)\\([^\"]*\\)|\\1<a class='r-url' target='_blank' href=\"http://mirror.slitaz.org/$tarball_url\">\\2</a>|'"
855
856 if [ -n "$EXTRA_SOURCE_FILES" ]; then
857 for i in $(echo $EXTRA_SOURCE_FILES) ; do
858 p="sources/packages-$SLITAZ_VERSION/${i:0:1}/$i"
859 [ -f "/var/www/slitaz/mirror/$p" ] || continue
860 #FIXME
861 sedit="$sedit -e 's|\\([\" >]\\)$i\\([\" <\\]\\)|\\1<a class='r-url' target='_blank' href=\"http://mirror.slitaz.org/$p\">$i</a>\\2|'"
862 sedit="$sedit -e 's|^$i\\([\" <\\]\\)|<a class='r-url' target='_blank' href=\"http://mirror.slitaz.org/$p\">$i</a>\\1|'"
863 done
864 fi
865 if [ -n "$DEPENDS$BUILD_DEPENDS$SUGGESTED$PROVIDE$WANTED" ]; then
866 for i in $(echo $DEPENDS $BUILD_DEPENDS $SUGGESTED $PROVIDE $WANTED) ; do
867 sedit="$sedit -e 's|\\([\" >]\\)$i\\([\" <\\]\\)|\\1<a class='r-url' target='_blank' href=\\\"?receipt=$i\\&amp;version=$SLITAZ_VERSION\\\">$i</a>\\2|'"
868 sedit="$sedit -e 's|^$i\\([\" <\\]\\)|<a class='r-url' target='_blank' href=\\\"?receipt=$i\\&amp;version=$SLITAZ_VERSION\\\">$i</a>\\1|'"
869 done
870 fi
871 if [ -n "$LICENSE" ]; then
872 for i in $LICENSE ; do
873 sedit="$sedit -e '/LICENSE/{s|\\($i\\)|<a class='r-url' target='_blank' href=\"?license=\\1\\&amp;version=$SLITAZ_VERSION\">\\1</a>|}'"
874 done
875 fi
876 if [ -n "$HOST_ARCH" ]; then
877 for i in $HOST_ARCH ; do
878 sedit="$sedit -e '/HOST_ARCH/{s|\\([\" ]\\)$i\\([\" ]\\)|\\1<a class='r-url' target='_blank' href=\\\"?arch=$i\\&amp;version=$SLITAZ_VERSION\\\">$i</a>\\2|}'"
879 done
880 fi
881 if [ -n "$TAGS" ]; then
882 for i in $TAGS ; do
883 sedit="$sedit -e '/TAGS/{s|\\([\" ]\\)$i\\([\" ]\\)|\\1<a class='r-url' target='_blank' href=\\\"?tags=$i\\&amp;version=$SLITAZ_VERSION\\\">$i</a>\\2|}'"
884 done
885 fi
886 eval sed $sedit \
887 -e "'s|genpkg_rules|<a class='r-url' target='_blank' href=\"?filelist=$PACKAGE\\&amp;version=$SLITAZ_VERSION\">&</a>|'"
888 }
889
890
891 display_cloud() {
892 arg=$1
893 awk '
894 {
895 for (i = 1; $i != ""; i++)
896 count[$i]++
897 }
898 END {
899 min=10000
900 max=0
901 cnt=0
902 for (i in count) {
903 if (count[i] < min) min = count[i]
904 if (count[i] > max) max = count[i]
905 cnt++
906 }
907 for (i in count)
908 print count[i] " " min " " max " " i
909 print cnt
910 }' | sed 's/[<>]//g' | sort -k 4 | {
911 while read cnt min max tag ; do
912 if [ -z "$min" ]; then
913 count="$cnt"
914 continue
915 fi
916 pct=$(((($cnt-$min)*100)/($max-$min)))
917 pct=$(((10000 - ((100 - $pct)**2))/100))
918 pct=$(((10000 - ((100 - $pct)**2))/100))
919 cat <<EOT
920 <span class="tagn">$cnt</span><a href="?$arg=$tag$addver" class="tag$(($pct/10))">$tag</a>
921 EOT
922 done
923 echo -n '<hr/><p class="lang">'
924 case $arg in
925 arch) _p '%s architecture' '%s architectures' "$count" "$count";;
926 maintainer) _p '%s maintainer' '%s maintainers' "$count" "$count";;
927 license) _p '%s license' '%s licenses' "$count" "$count";;
928 category) _p '%s category' '%s categories' "$count" "$count";;
929 tags) _p '%s tag' '%s tags' "$count" "$count";;
930 esac
931 echo '</p>'
932 }
933 }
934
935
936 #
937 # page begins
938 #
939
940 if [ -n "$HTTP_IF_MODIFIED_SINCE" -a "$HTTP_IF_MODIFIED_SINCE" == "$lastmod" ]; then
941 # When user agent asks if content modified since last seen and it is not modified
942 header "HTTP/1.1 304 Not Modified"
943 exit 0
944 fi
945 if [ -z "$lastmod" ]; then
946 # We don't know last modification date
947 header "HTTP/1.1 200 OK" "Content-type: text/html; charset=UTF-8"
948 else
949 header "HTTP/1.1 200 OK" "Content-type: text/html; charset=UTF-8" "Last-Modified: $lastmod"
950 fi
951 xhtml_header
952
953
954 #
955 # Language selector
956 #
957
958 cat <<EOT
959 <!-- Languages -->
960 <div class="lang"><a class="locale2" href="http://www.slitaz.org/i18n.php"
961 target="_blank"></a><select form="s_form" name="lang" onchange="this.form.submit();">
962 EOT
963
964 for i in en de es fa fr pl pt ru sv uk zh; do
965 case $i in
966 en) c='us'; l='English';;
967 de) c='de'; l='Deutsch';;
968 es) c='es'; l='Español';;
969 fa) c='ir'; l='فارسی';;
970 fr) c='fr'; l='Français';;
971 it) c='it'; l='Italiano';;
972 pl) c='pl'; l='Polski';;
973 pt) c='br'; l='Português';;
974 ru) c='ru'; l='Русский';;
975 sv) c='se'; l='Svenska';;
976 uk) c='ua'; l='Українська';;
977 zh) c='tw'; l='中文';;
978 esac
979
980 echo -n "<option class=\"$c\" value=\"$i\""
981 [ "$i" == "${LANG%_*}" ] && echo -n " selected"
982 echo ">$l</option>"
983 done
984 echo '</select></div>'
985
986 cat <<EOT
987 <!-- Content -->
988 <main>
989 EOT
990
991
992 #
993 # Handle GET requests
994 #
995
996 case " $(GET) " in
997 *\ debug\ *|*\ debug*)
998 cat <<EOT
999 <h2>Debug info</h2>
1000
1001 <pre>$(httpinfo)</pre>
1002
1003 <pre>$(env)</pre>
1004
1005 <pre>LANG="$LANG"
1006 OBJECT="$OBJECT"
1007 SEARCH="$SEARCH"
1008 SLITAZ_VERSION="$SLITAZ_VERSION"
1009 WOK="$WOK"
1010 GET="$(GET)"
1011
1012 HTTP_IF_MODIFIED_SINCE="$HTTP_IF_MODIFIED_SINCE"
1013 lastmod ="$lastmod"
1014 </pre>
1015 EOT
1016 ;;
1017 esac
1018
1019
1020
1021
1022 # Display search form and result if requested.
1023
1024 cat <<EOT
1025 <div id="ticker"><img src="loader.gif" alt="."/></div>
1026 EOT
1027 search_form
1028
1029
1030
1031
1032 # Show links for "info" page
1033
1034 show_info_links() {
1035 if [ -n "$1" ]; then
1036 echo -n "<tr><td class=\"first\"><b>$2</b></td><td class=\"spkg\">"
1037
1038 echo $1 | tr ' ' $'\n' | awk -vt="$3" -vv="$addver" -viconslast="$iconslast" '
1039 function icon(pkg) {
1040 i="";
1041 if (pkg ~ /-dev$/) { return "dev"; }
1042 if (pkg ~ /^linux(64)?-/) { return "linux"; }
1043 if (pkg ~ /^xorg-/) { return "xorg"; }
1044 "awk -vp=\"" pkg "\" \"BEGIN{FS=\\\"\t\\\"}\\\$1==p{print \\\$2;exit}\" " iconslast | getline i;
1045 if (i) { return i; }
1046 return "pkg";
1047 }
1048 function link(pkg) {
1049 printf "<a href=\"?%s=%s%s\">", t, gensub(/\+/, "%2B", "g", pkg), v;
1050 if (t!="tags") printf "<img src=\"icons-s/%s.png\" alt=\"%s icon\"/>", icon(pkg), pkg;
1051 printf "%s</a>", pkg;
1052 }
1053 {
1054 split($1, line, ":");
1055 link(line[1]);
1056 if (line[2]) { printf ":"; link(line[2]); }
1057 printf "  ";
1058 }'
1059 echo "</td></tr>"
1060 fi
1061 }
1062
1063 # Source for categories names to translate
1064
1065 noop() {
1066 _ 'base-system'; _ 'x-window'; _ 'utilities'; _ 'network'; _ 'graphics';
1067 _ 'multimedia'; _ 'office'; _ 'development'; _ 'system-tools'; _ 'security';
1068 _ 'games'; _ 'misc'; _ 'meta'; _ 'non-free'
1069 }
1070
1071 case " $(GET) " in
1072 *\ info\ *)
1073 package_exist $(GET info) || xhtml_footer
1074 . "$WOK/$(GET info)/receipt"
1075
1076 cat <<EOT
1077 <table class="info">
1078 <tr>
1079 <td class="first"><b>$(gettext 'Name')</b></td>
1080 <td>$PACKAGE
1081 <div class="appImg" style="background: url($(package_icon $PACKAGE 2))"></div>
1082 </td>
1083 </tr>
1084 EOT
1085 [ -n "$VERSION" ] && cat <<EOT
1086 <tr>
1087 <td class="first"><b>$(gettext 'Version')</b></td>
1088 <td>$VERSION</td>
1089 </tr>
1090 EOT
1091 cat <<EOT
1092 <tr>
1093 <td class="first"><b>$(gettext 'Category')</b></td>
1094 <td><a href="?category=$CATEGORY$addver">$(gettext "$CATEGORY")</a></td>
1095 </tr>
1096
1097 <tr>
1098 <td class="first"><b>$(gettext 'Description')</b></td>
1099 <td>$(echo "$SHORT_DESC" | htmlize)</td>
1100 </tr>
1101 EOT
1102 [ -n "$MAINTAINER" ] && cat <<EOT
1103 <tr>
1104 <td class="first"><b>$(gettext 'Maintainer')</b></td>
1105 <td><a href="?maintainer=$MAINTAINER$addver">${MAINTAINER/@/&#8203;@&#8203;}</a></td>
1106 </tr>
1107 EOT
1108 [ -n "$LICENSE" ] && cat <<EOT
1109 <tr>
1110 <td class="first"><b>$(gettext 'License')</b></td>
1111 <td>$(for license in $LICENSE; do
1112 echo "<a href=\"?license=$license$addver\">$license</a> "
1113 done)</td>
1114 </tr>
1115 EOT
1116 web_site="${WEB_SITE#http://}"
1117 cat <<EOT
1118 <tr>
1119 <td class="first"><b>$(gettext 'Website')</b></td>
1120 <td><a href="$WEB_SITE" target="_blank">${web_site%/}</a></td>
1121 </tr>
1122 EOT
1123 show_info_links "$TAGS" "$(_ 'Tags')" 'tags'
1124
1125 if [ -n "$PACKED_SIZE" ]; then
1126 cat <<EOT
1127 <tr>
1128 <td class="first"><b>$(gettext 'Sizes')</b></td>
1129 <td>${PACKED_SIZE/.0/} / ${UNPACKED_SIZE/.0/}</td>
1130 </tr>
1131 EOT
1132 elif [ -f "$pinfo" ]; then
1133 cat <<EOT
1134 <tr>
1135 <td class="first"><b>$(gettext 'Sizes')</b></td>
1136 <td>$(awk -F$'\t' -vp=$PACKAGE '$1==p{print $7}' "$pinfo" | sed 's| | / |')</td>
1137 </tr>
1138 EOT
1139 fi
1140
1141 show_info_links "$DEPENDS" "$(gettext 'Depends on')" 'info'
1142
1143 show_info_links "$PROVIDE" "$(gettext 'Provides')" 'info'
1144
1145 show_info_links "$SUGGESTED" "$(gettext 'Suggested')" 'info'
1146 cat <<EOT
1147 </table>
1148
1149 EOT
1150
1151 # Actions / screenshot
1152 pkg=${PACKAGE//+/%2B}
1153 pkg_url="$MIRROR_URL/packages/$SLITAZ_VERSION/$pkg-$VERSION$EXTRA_VERSION.tazpkg"
1154 case "$SLITAZ_VERSION" in
1155 cooking)
1156 COOKER="<a class=\"cooker\" href=\"http://cook.slitaz.org/cooker.cgi?pkg=$PACKAGE\">$(gettext 'Show cooking log')</a>";;
1157 stable|undigest|backports)
1158 COOKER="<a class=\"cooker\" href=\"http://cook.slitaz.org/$SLITAZ_VERSION/cooker.cgi?pkg=$PACKAGE\">$(gettext 'Show cooking log')</a>";;
1159 *)
1160 COOKER="<span class=\"cooker\">$(gettext 'N/A')</span>";;
1161 esac
1162 cat <<EOT
1163 <div class="sssb desc center">
1164 <a href="http://screenshots.debian.net/package/$pkg" target="_blank"><img
1165 src="http://screenshots.debian.net/thumbnail/$pkg" alt="$PACKAGE screenshot"/></a>
1166 </div>
1167
1168 <table class="info">
1169 <tr><td><span class="download"></span>
1170 <a href="$pkg_url">$(gettext 'Download package')</a>
1171 </td>
1172 <td rowspan="5" class="first hssc">
1173 <a href="http://screenshots.debian.net/package/$pkg" target="_blank"><img
1174 src="http://screenshots.debian.net/thumbnail/$pkg" alt="$PACKAGE screenshot"/></a>
1175 </td>
1176 </tr>
1177 <tr><td><a class="receipt" href="?receipt=$pkg$addver">$(gettext 'Show receipt')</a></td></tr>
1178 <tr><td><a class="files-list" href="?filelist=$pkg$addver">$(gettext 'Show files list')</a></td></tr>
1179 <tr><td>$COOKER</td></tr>
1180 <tr id="tazpanelButtons" class="hidden">
1181 <td>
1182 <span id="tazpaneli" class="hidden">
1183 <a class="pkgi" href="http://127.0.0.1:82/user/pkgs.cgi?do=Install&amp;pkg=$pkg" target="_blank">$(gettext 'Install package')</a>
1184 </span>
1185 <span id="tazpanelr" class="hidden">
1186 <a class="pkgr" href="http://127.0.0.1:82/user/pkgs.cgi?do=Remove&amp;pkg=$pkg" target="_blank">$(gettext 'Remove package')</a>
1187 </span>
1188 </td>
1189 </tr>
1190 </table>
1191
1192 <script>
1193 function ajaxTazPanel(pkg) {
1194 var req = new XMLHttpRequest();
1195 req.onreadystatechange = function() {
1196 if (req.readyState == XMLHttpRequest.DONE) {
1197 if (req.status == 200) {
1198 if (req.responseText == 'i') {
1199 // Package installed, allow to remove
1200 document.getElementById('tazpanelr').className='';
1201 } else {
1202 // Package not installed, allow to install
1203 document.getElementById('tazpaneli').className='';
1204 }
1205 document.getElementById('tazpanelButtons').className='';
1206 }
1207 }
1208 }
1209 req.open('GET', 'http://tazpanel:82/pkgs.cgi?status&web=y&pkg=' + pkg, true);
1210 req.send();
1211 }
1212 ajaxTazPanel('$pkg');
1213 </script>
1214 EOT
1215
1216 # Description
1217 if [ -f "$WOK/$PACKAGE/description.txt" ]; then
1218 cat <<EOT
1219 <h3>$(gettext 'Description')</h3>
1220 <table><tr><td>$(./sundown < "$WOK/$PACKAGE/description.txt")</td></tr></table>
1221 EOT
1222 fi
1223
1224 # Config files
1225 if [ -n "$CONFIG_FILES" ]; then
1226 cat <<EOT
1227 <div class="conf">
1228 <h3>$(gettext 'Configuration files')</h3>
1229 <table><tr><td><ul>
1230 EOT
1231 for file in $CONFIG_FILES; do
1232 cat <<EOT
1233 <li><a href="ftp://cook.slitaz.org/$PACKAGE/taz/$PACKAGE-$VERSION$EXTRAVERSION/fs$file" target="_blank">$file</a></li>
1234 EOT
1235 done
1236 cat <<EOT
1237 </ul></td></tr></table>
1238 </div>
1239 EOT
1240 fi
1241
1242 ;;
1243 esac
1244
1245
1246
1247
1248 case "$OBJECT" in
1249
1250
1251 ### Depends loops; [Reverse] Dependency tree [(SUGGESTED)]
1252 Depends)
1253 if [ -z "$SEARCH" ]; then
1254 cat <<EOT
1255 <h3>$(_ 'Loop dependency')</h3>
1256 <pre class="hard">
1257 EOT
1258 for i in $WOK/*/receipt; do
1259 PACKAGE=
1260 DEPENDS=
1261 . $i
1262 echo "$PACKAGE $(echo $DEPENDS)"
1263 done | show_loops
1264 echo '</pre>'
1265
1266 elif package_exist $SEARCH ; then
1267 cat <<EOT
1268 <h3>$(_ 'Dependency tree for package "%s"' "$SEARCH")</h3>
1269 <pre class="hard">
1270 EOT
1271 unset ALL_DEPS
1272 dep_scan $SEARCH ''
1273 unset SUGGESTED
1274 . $WOK/$SEARCH/receipt
1275 echo '</pre>'
1276
1277 if [ -n "$SUGGESTED" ]; then
1278 cat <<EOT
1279 <h3>$(_ 'Dependency tree for packages suggested by package "%s"' "$SEARCH")</h3>
1280 <pre class="hard">
1281 EOT
1282 unset ALL_DEPS
1283 dep_scan "$SUGGESTED" ' '
1284 echo '</pre>'
1285 fi
1286
1287 cat <<EOT
1288 <h3>$(_ 'Reverse dependency tree for package "%s"' "$SEARCH")</h3>
1289 <pre class="hard">
1290 EOT
1291 unset ALL_DEPS
1292 rdep_scan $SEARCH
1293 echo '</pre>'
1294 fi
1295 ;;
1296
1297
1298
1299
1300 ### Build depends loops; [Reverse] Build dependency tree
1301
1302 BuildDepends)
1303 if [ -z "$SEARCH" ]; then
1304 cat <<EOT
1305 <h3>$(_ 'Loop dependency of build')</h3>
1306 <pre class="hard">
1307 EOT
1308 for i in $WOK/*/receipt; do
1309 PACKAGE=
1310 WANTED=
1311 BUILD_DEPENDS=
1312 . $i
1313 echo "$PACKAGE $WANTED $(echo $BUILD_DEPENDS)"
1314 done | show_loops
1315 echo '</pre>'
1316
1317 elif package_exist $SEARCH ; then
1318 cat <<EOT
1319 <h3>$(_ 'Package "%s" requires next packages to be built' "$SEARCH")</h3>
1320 <pre class="hard">
1321 EOT
1322 unset ALL_DEPS
1323 dep_scan $SEARCH '' build
1324 echo '</pre>'
1325
1326 cat <<EOT
1327 <h3>$(_ 'Next packages require package "%s" to be built' "$SEARCH")</h3>
1328 <pre class="hard">
1329 EOT
1330 unset ALL_DEPS
1331 rdep_scan $SEARCH build
1332 echo '</pre>'
1333 fi
1334 ;;
1335
1336
1337
1338
1339 ### Common files
1340
1341 FileOverlap)
1342 if package_exist $SEARCH; then
1343 cat <<EOT
1344
1345 <h3>$(_ 'Next packages may overwrite files of package "%s"' "$SEARCH")</h3>
1346 <pre class="hard">
1347 EOT
1348 ( unlzma < $filelist | grep ^$SEARCH: ;
1349 unlzma < $filelist | grep -v ^$SEARCH: ) | awk '
1350 BEGIN { pkg=""; last="x" }
1351 {
1352 if ($2 == "") next
1353 if (index($2, last) == 1 && substr($2, 1+length(last), 1) == "/")
1354 delete file[last]
1355 last=$2
1356 if (pkg == "") pkg=$1
1357 if ($1 == pkg) file[$2]=$1
1358 else if (file[$2] == pkg) print
1359 }
1360 ' | display_packages_and_files
1361 echo '</pre>'
1362 fi
1363 ;;
1364
1365
1366
1367
1368 ### File search
1369
1370 File)
1371 if [ -n "$SEARCH" ]; then
1372 cat <<EOT
1373
1374 <h3>$(_ 'File names matching "%s"' "$SEARCH")</h3>
1375 <table class="list">
1376 EOT
1377 unset last
1378 unlzma < $filelist | grep -i "$SEARCH" | \
1379 while read pkg file; do
1380 echo "$file" | grep -qi "$SEARCH" || continue
1381 if [ "$last" != "${pkg%:}" ]; then
1382 [ -n "$last" ] && cat <<EOT
1383 </td></tr>
1384 EOT
1385 last=${pkg%:}
1386 (
1387 . $WOK/$last/receipt
1388 package_entry
1389 cat <<EOT
1390 <tr><td colspan="3" class="pre">
1391 EOT
1392 )
1393 fi
1394 echo -n "$file" | awk -vquery="$SEARCH" 'BEGIN{IGNORECASE=1}gsub(query, "<mark>&</mark>")'
1395 echo "<br/>"
1396 done
1397 cat <<EOT
1398 </td></tr>
1399 </table>
1400 EOT
1401 fi
1402 ;;
1403
1404
1405
1406
1407 ### List of files
1408
1409 File_list)
1410 if package_exist $SEARCH; then
1411 cat <<EOT
1412
1413 <h3>$(_ 'List of files in the package "%s"' "$SEARCH")</h3>
1414 <pre class="hard">
1415 EOT
1416 unset last
1417 unlzma < $filelist \
1418 | grep ^$SEARCH: | sed 's|.*: | |' | sort
1419 cat <<EOT
1420 </pre>
1421 <pre class="hard">
1422 EOT
1423 filenb=$(unlzma < $filelist | grep ^$SEARCH: | wc -l)
1424 _p '%s file' '%s files' "$filenb" "$filenb"
1425 cat <<EOT
1426 \
1427 $(busybox sed -n "/^$SEARCH$/{nnnpq}" $pkglist)
1428 </pre>
1429 EOT
1430 fi
1431 ;;
1432
1433
1434
1435
1436 ### Package description
1437
1438 Desc)
1439 if [ -z "$SEARCH" ]; then
1440 cat <<EOT
1441 <div class="err">$(_ 'Please specify name of the package.')</div>
1442 <p> <br/> </p>
1443 EOT
1444 xhtml_footer
1445 exit 0
1446 fi
1447
1448 cat <<EOT
1449 <h3>$(_ 'Descriptions matching "%s"' "$SEARCH")</h3>
1450 EOT
1451 if [ -f "$pinfo" ]; then
1452 package_entries desc "$SEARCH"
1453 else
1454 echo '<table class="list">'
1455 unset last
1456 # FIXME packages.desc should not be used (at least this way)
1457 grep -i "$SEARCH" "$pkgsrepo/packages.desc" | \
1458 sort | while read pkg extras ; do
1459 . "$WOK/$pkg/receipt"
1460 package_entry
1461 done
1462 echo '</table>'
1463 fi
1464 ;;
1465
1466
1467
1468
1469 Bugs)
1470 cat <<EOT
1471
1472 <h3>$(_ 'Known bugs in the packages')</h3>
1473
1474 <table class="bugs list">
1475 EOT
1476 unset last
1477 grep ^BUGS= $WOK/*/receipt | \
1478 sed "s|$WOK/\(.*\)/receipt:.*|\1|" | sort | while read pkg ; do
1479 unset BUGS
1480 . "$WOK/$pkg/receipt"
1481 package_entry
1482 echo -n '<tr><td> </td><td colspan="2">'
1483 echo -n "$BUGS" | htmlize
1484 echo '</td></tr>'
1485 done
1486 echo '</table>'
1487 ;;
1488
1489
1490
1491
1492 ### Arch
1493
1494 Arch)
1495 if [ -n "$SEARCH" ]; then
1496 cat <<EOT
1497
1498 <h3>$(_ 'The list of packages of architecture "%s"' "$SEARCH")</h3>
1499 <pre class="hard">
1500 EOT
1501 unset last
1502 grep ^HOST_ARCH= $WOK/*/receipt | grep -i "$SEARCH" | \
1503 sed "s|$WOK/\(.*\)/receipt:.*|\1|" | sort | while read pkg ; do
1504 unset HOST_ARCH
1505 . "$WOK/$pkg/receipt"
1506 echo " $HOST_ARCH " | grep -iq " $SEARCH " &&
1507 package_entry_inline
1508 done
1509 cat <<EOT
1510 </pre>
1511 EOT
1512 else
1513 # Display arch cloud
1514 grep -l ^HOST_ARCH= $WOK/*/receipt | while read file; do
1515 HOST_ARCH=
1516 . $file
1517 echo $HOST_ARCH
1518 done | display_cloud arch
1519 fi
1520 ;;
1521
1522
1523
1524
1525 ### Maintainer
1526
1527 Maintainer)
1528 if [ -n "$SEARCH" ]; then
1529 cat <<EOT
1530
1531 <h3>$(_n 'The list of packages that <%s> maintains' "$SEARCH" | htmlize)</h3>
1532 <table class="list">
1533 EOT
1534 unset last
1535 grep ^MAINTAINER= $WOK/*/receipt | grep -i "$SEARCH" | \
1536 sed "s|$WOK/\(.*\)/receipt:.*|\1|" | sort | while read pkg ; do
1537 . "$WOK/$pkg/receipt"
1538 package_entry
1539 done
1540 cat <<EOT
1541 </table>
1542 EOT
1543 else
1544 # Display maintainer cloud
1545 grep -l ^MAINTAINER= $WOK/*/receipt | while read file; do
1546 MAINTAINER=
1547 . $file
1548 echo $MAINTAINER
1549 done | display_cloud maintainer
1550 fi
1551 ;;
1552
1553
1554
1555
1556 ### License
1557
1558 License)
1559 if [ -n "$SEARCH" ]; then
1560 cat <<EOT
1561 <h3>$(_ 'Packages with "%s" license' "$SEARCH")</h3>
1562 <table class="list">
1563 EOT
1564 unset last
1565 grep ^LICENSE= $WOK/*/receipt | grep -i "$SEARCH" | \
1566 sed "s|$WOK/\(.*\)/receipt:.*|\1|" | sort | while read pkg ; do
1567 . "$WOK/$pkg/receipt"
1568 package_entry
1569 done
1570 echo '</table>'
1571 else
1572 # Display license cloud
1573 grep -l ^LICENSE= $WOK/*/receipt | while read file; do
1574 LICENSE=
1575 . $file
1576 echo $LICENSE
1577 done | display_cloud license
1578 fi
1579 ;;
1580
1581
1582
1583
1584 ### Category
1585
1586 Category)
1587 if [ -n "$SEARCH" ]; then
1588 cat <<EOT
1589 <h3>$(_ 'Packages of category "%s"' "$SEARCH")</h3>
1590 EOT
1591 if [ -f "$pinfo" ]; then
1592 package_entries category "$SEARCH"
1593 else
1594 echo '<table class="list">'
1595 unset last
1596 grep ^CATEGORY= $WOK/*/receipt | grep -i "$SEARCH" | \
1597 sed "s|$WOK/\(.*\)/receipt:.*|\1|" | sort | while read pkg ; do
1598 . "$WOK/$pkg/receipt"
1599 package_entry
1600 done
1601 echo '</table>'
1602 fi
1603 else
1604 # Display category cloud
1605 if [ -f "$pinfo" ]; then
1606 tags="$(awk -F$'\t' '{if($3){print $3}}' "$pinfo" | tr ' ' $'\n' | sort | uniq -c)"
1607 max="$(echo "$tags" | awk '{if ($1 > MAX) MAX = $1} END{print MAX}')"
1608 echo "$tags" | awk -vMAX="$max" -vaddver="$addver" '{
1609 printf "<span class=\"tagn\">%s</span>", $1;
1610 printf "<a class=\"tag%s\" ", int($1 * 10 / MAX + 1);
1611 printf "href=\"?category=%s%s\">%s</a> ", $2, addver, $2;
1612 }'
1613 else
1614 grep -l ^CATEGORY= $WOK/*/receipt | \
1615 while read file; do
1616 CATEGORY=
1617 . $file
1618 echo $CATEGORY
1619 done | display_cloud category
1620 fi
1621 fi
1622 ;;
1623
1624
1625
1626
1627 ### Tags
1628
1629 Tags)
1630 if [ -n "$SEARCH" ]; then
1631 cat <<EOT
1632 <h3>$(_ 'The list of packages tagged "%s"' "$SEARCH")</h3>
1633 EOT
1634 if [ -f "$pinfo" ]; then
1635 package_entries tags "$SEARCH"
1636 else
1637 echo '<table class="list">'
1638 unset last
1639 grep ^TAGS= $WOK/*/receipt | grep -i "$SEARCH" | \
1640 sed "s|$WOK/\(.*\)/receipt:.*|\1|" | sort | while read pkg ; do
1641 . "$WOK/$pkg/receipt"
1642 package_entry
1643 done
1644 echo '</table>'
1645 fi
1646 else
1647 # Display tag cloud
1648 if [ -f "$pinfo" ]; then
1649 TAGS="$(awk -F$'\t' '{if($6){print $6}}' "$pinfo" | tr ' ' $'\n' | sort | uniq -c)"
1650 MAX="$(echo "$TAGS" | awk '{if ($1 > MAX) MAX = $1} END{print MAX}')"
1651 echo "$TAGS" | awk -vMAX="$MAX" -vv="$addver" '{
1652 printf "<span class=\"tagn\">%s</span>", $1;
1653 printf "<a class=\"tag%s\" ", int($1 * 10 / MAX + 1);
1654 printf "href=\"?tags=%s%s\">%s</a> ", $2, v, $2;
1655 }'
1656 else
1657 grep -l ^TAGS= $WOK/*/receipt | \
1658 while read file; do
1659 TAGS=
1660 . $file
1661 echo $TAGS
1662 done | display_cloud tags
1663 fi
1664 fi
1665 ;;
1666
1667
1668
1669
1670 ### Package receipt with syntax highlighter
1671
1672 Receipt)
1673 if package_exist "$SEARCH"; then
1674 cat <<EOT
1675
1676 <h3>$(_ 'Receipt for package "%s"' "$SEARCH")</h3>
1677 <pre class="hard">
1678 EOT
1679 if [ -f $WOK/$SEARCH/taz/*/receipt ]; then
1680 syntax_highlighter $WOK/$SEARCH/taz/*/receipt
1681 else
1682 syntax_highlighter $WOK/$SEARCH/receipt
1683 fi
1684 echo '</pre>'
1685 fi
1686 ;;
1687
1688
1689
1690
1691 ### Package
1692
1693 Package)
1694 if check_n "$SEARCH"; then
1695 cat <<EOT
1696 <h3>$(_ 'Package names matching "%s"' "$SEARCH")</h3>
1697 EOT
1698
1699 if [ -f "$pinfo" ]; then
1700 package_entries name "$SEARCH"
1701 else
1702 echo '<table class="list">'
1703 for pkg in $(ls $WOK/ | grep -i "$SEARCH"); do
1704 . "$WOK/$pkg/receipt"
1705 package_entry
1706 done
1707 echo '</table>'
1708 fi
1709
1710 vpkgs="$(cut -d= -f1 < $equiv | grep -i "$SEARCH")"
1711 for vpkg in $vpkgs; do
1712 cat <<EOT
1713
1714 <h3>$(_ 'Packages providing the package "%s"' "$vpkg")</h3>
1715
1716 <table class="list">
1717 EOT
1718 for pkg in $(grep $vpkg= $equiv | sed "s|$vpkg=||"); do
1719 echo " <!-- '$pkg' - '${pkg#*:}' -->"
1720 if [ -e "$WOK/${pkg#*:}/receipt" ]; then
1721 . $WOK/${pkg#*:}/receipt
1722 package_entry
1723 fi
1724 done
1725 echo '</table>'
1726 done
1727 fi
1728 ;;
1729 esac
1730
1731 xhtml_footer
1732
1733 exit 0