tazpkg view tazpanel/pkgs.cgi @ rev 736

pkgs.cgi: unification - single function to list packages by category or name.
author Aleksej Bobylev <al.bobylev@gmail.com>
date Tue Dec 30 04:15:55 2014 +0200 (2014-12-30)
parents 061ee30eaf2d
children 3b6602629dc0
line source
1 #!/bin/sh
2 #
3 # TazPkg CGI interface - Manage packages via a browser
4 #
5 # This CGI interface extensively uses tazpkg to manage packages and have
6 # its own code for some tasks. Please KISS, it is important and keep speed
7 # in mind. Thanks, Pankso.
8 #
9 # (C) 2011-2014 SliTaz GNU/Linux - BSD License
10 #
12 . /lib/libtaz.sh
13 . lib/libtazpanel
15 . /etc/slitaz/slitaz.conf
16 . /etc/slitaz/tazpkg.conf
18 get_config
19 header
22 # xHTML 5 header with special side bar for categories.
23 TITLE=$(TEXTDOMAIN='tazpkg'; _ 'TazPanel - Packages')
24 xhtml_header | sed 's/id="content"/id="content-sidebar"/'
26 export TEXTDOMAIN='tazpkg'
28 pkg_info_link()
29 {
30 echo "<a class=\"$2\" href=\"?info=${1//+/%2B}\">$1</a>" | sed 's| class=""||'
31 }
34 # Display localized short description
36 i18n_desc() {
37 for L in $LANG ${LANG%%_*}; do
38 if [ -e "$PKGS_DB/packages-desc.$L" ]; then
39 LOCDESC=$(awk -F$'\t' -vp=$1 '{if ($1 == p) print $2}' $PKGS_DB/packages-desc.$L)
40 if [ -n "$LOCDESC" ]; then
41 SHORT_DESC="$LOCDESC"
42 break
43 fi
44 fi
45 done
46 }
49 # We need packages information for list and search
51 parse_packages_desc() {
52 IFS="|"
53 cut -f 1,2,3,5 -d "|" | while read PACKAGE VERSION SHORT_DESC WEB_SITE
54 do
55 class=pkg; [ -d $INSTALLED/${PACKAGE% } ] && class=pkgi
56 i18n_desc $PACKAGE
57 cat << EOT
58 <tr>
59 <td><input type="checkbox" name="pkg" value="$PACKAGE">$(pkg_info_link $PACKAGE $class)</td>
60 <td>$VERSION</td>
61 <td>$SHORT_DESC</td>
62 <td><a class="w" href="$WEB_SITE"></a></td>
63 </tr>
64 EOT
65 done
66 unset IFS
67 }
70 parse_packages_info() {
71 IFS=$'\t'
72 while read PACKAGE VERSION CATEGORY SHORT_DESC WEB_SITE TAGS SIZES DEPENDS; do
73 class=pkg; grep -q "^$PACKAGE$'\t'" $PKGS_DB/installed.info && class=pkgi
74 i18n_desc $PACKAGE
75 cat << EOT
76 <tr>
77 <td><input type="checkbox" name="pkg" value="$PACKAGE">$(pkg_info_link $PACKAGE $class)</td>
78 <td>$VERSION</td>
79 <td>$SHORT_DESC</td>
80 <td><a class="w" href="$WEB_SITE"></a></td>
81 </tr>
82 EOT
83 done
84 unset IFS
85 }
88 # Parse mirrors list to be able to have an icon and remove link
90 list_mirrors() {
91 while read line
92 do
93 cat << EOT
94 <li>
95 <a href="?admin=rm-mirror=$line&amp;file=$(httpd -e $1)">
96 <img src="$IMAGES/clear.png" title="$(_ 'Delete')" />
97 </a>
98 <a href="?admin=select-mirror&amp;mirror=$line">
99 <img src="$IMAGES/start.png" title="$(_ 'Use as default')" />
100 </a>
101 <a href="$line">$line</a>
102 </li>
103 EOT
104 done < $1
105 }
108 # Parse repositories list to be able to have an icon and remove link
110 list_repos() {
111 ls $PKGS_DB/undigest 2> /dev/null | while read repo ; do
112 cat <<EOT
113 <li><a href="?admin=rm-repo=$repo">
114 <img src="$IMAGES/clear.png">$repo</a></li>
115 EOT
116 done
117 }
120 # Show button
121 show_button() {
122 case $1 in
123 recharge) img='recharge'; label="$(_ 'Recharge list')" ;;
124 up) img='update'; label="$(_ 'Check upgrades')" ;;
125 list) img='tazpkg'; label="$(_ 'My packages')" ;;
126 tag=) img=''; label="$(_ 'Tags')" ;;
127 linkable) img='tazpkg'; label="$(_ 'Linkable packages')" ;;
128 admin) img='edit'; label="$(_ 'Administration')" ;;
129 *Install*nf*) img=''; label="$(_ 'Install (Non Free)')" ;;
130 *Install*) img=''; label="$(_ 'Install')" ;;
131 *Remove*) img='stop'; label="$(_ 'Remove')" ;;
132 *Block*) img=''; label="$(_ 'Block')" ;;
133 *Unblock*) img=''; label="$(_ 'Unblock')" ;;
134 *Repack*) img=''; label="$(_ 'Repack')" ;;
135 *saveconf*) img='tazpkg'; label="$(_ 'Save configuration')" ;;
136 *listconf*) img='edit'; label="$(_ 'List configuration files')" ;;
137 *quickcheck*) img='recharge'; label="$(_ 'Quick check')" ;;
138 *fullcheck*) img='recharge'; label="$(_ 'Full check')" ;;
139 esac
140 echo -n "<a class=\"button\" href=\"?$1\">"
141 [ -n "$img" ] && echo -n "<img src=\"$IMAGES/$img.png\" />"
142 echo "$label</a>"
143 }
147 #
148 # xHTML functions
149 #
152 # ENTER will search but user may search for a button, so put one.
154 search_form() {
155 [ -z "$repo" ] && repo="$(GET repo)"
156 [ -z "$repo" ] && repo="Any"
157 cat << EOT
158 <div class="search">
159 <form method="get" action="">
160 <p>
161 <input type="text" name="search" size="20">
162 <input type="submit" value="$(gettext 'Search')">
163 <input class="radius" type="submit" name="files"
164 value="$(_n 'Files')">
165 <input type="hidden" name="repo" value="$repo" />
166 </p>
167 </form>
168 </div>
169 EOT
170 }
173 table_head() {
174 cat << EOT
175 <table class="zebra outbox pkglist">
176 <thead>
177 <tr>
178 <td>$(_ 'Name')</td>
179 <td>$(_ 'Version')</td>
180 <td>$(_ 'Description')</td>
181 <td>$(_ 'Web')</td>
182 </tr>
183 </thead>
184 <tbody>
185 EOT
186 }
189 sidebar() {
190 [ -z "$repo" ] && repo=Public
191 cat << EOT
192 <div id="sidebar">
193 <h4><a href="?cat">$(_ 'Categories')</a></h4>
194 <a class="active_base-system" href="?cat=base-system&amp;repo=$repo" >$(_ 'base-system')</a>
195 <a class="active_x-window" href="?cat=x-window&amp;repo=$repo" >$(_ 'x-window')</a>
196 <a class="active_utilities" href="?cat=utilities&amp;repo=$repo" >$(_ 'utilities')</a>
197 <a class="active_network" href="?cat=network&amp;repo=$repo" >$(_ 'network')</a>
198 <a class="active_games" href="?cat=games&amp;repo=$repo" >$(_ 'games')</a>
199 <a class="active_graphics" href="?cat=graphics&amp;repo=$repo" >$(_ 'graphics')</a>
200 <a class="active_office" href="?cat=office&amp;repo=$repo" >$(_ 'office')</a>
201 <a class="active_multimedia" href="?cat=multimedia&amp;repo=$repo" >$(_ 'multimedia')</a>
202 <a class="active_development" href="?cat=development&amp;repo=$repo" >$(_ 'development')</a>
203 <a class="active_system-tools" href="?cat=system-tools&amp;repo=$repo">$(_ 'system-tools')</a>
204 <a class="active_security" href="?cat=security&amp;repo=$repo" >$(_ 'security')</a>
205 <a class="active_misc" href="?cat=misc&amp;repo=$repo" >$(_ 'misc')</a>
206 <a class="active_meta" href="?cat=meta&amp;repo=$repo" >$(_ 'meta')</a>
207 <a class="active_non-free" href="?cat=non-free&amp;repo=$repo" >$(_ 'non-free')</a>
208 <a class="active_all" href="?cat=all&amp;repo=$repo" >$(_ 'all')</a>
209 <a class="active_extra" href="?cat=extra&amp;repo=$repo" >$(_ 'extra')</a>
210 EOT
212 if [ -d $PKGS_DB/undigest ]; then
213 [ -z "$category" ] && category="base-system"
214 cat << EOT
215 <h4>$(_ 'Repositories')</h4>
216 <a class="repo_Public" href="?cat=$category&amp;repo=Public">$(_ 'Public')</a>
217 EOT
219 for i in $(ls $PKGS_DB/undigest); do
220 cat << EOT
221 <a class="repo_$i" href="?cat=$category&amp;repo=$i">$i</a>
222 EOT
223 done
225 cat << EOT
226 <a class="repo_Any" href="?cat=$category&amp;repo=Any">$(_ 'Any')</a>
227 EOT
228 fi
229 echo "</div>"
230 }
233 repo_list() {
234 if [ -n "$(ls $PKGS_DB/undigest/ 2> /dev/null)" ]; then
235 case "$repo" in
236 Public)
237 ;;
238 ""|Any)
239 for i in $PKGS_DB/undigest/* ; do
240 [ -d "$i" ] && echo "$i$1"
241 done ;;
242 *)
243 echo "$PKGS_DB/undigest/$repo$1"
244 return ;;
245 esac
246 fi
247 echo "$PKGS_DB$1"
248 }
251 repo_name() {
252 case "$1" in
253 $PKGS_DB)
254 echo "Public" ;;
255 $PKGS_DB/undigest/*)
256 echo ${1#$PKGS_DB/undigest/} ;;
257 esac
258 }
261 # Print links to the pages
263 pager() {
264 awk -F'"' -vpage="$page" -vnum_lines="$(wc -l < $1)" -vtext="$(_ 'Pages:') " -vurl="?cat=$category&amp;repo=$repo&amp;page=" '
265 BEGIN{
266 num_pages = int(num_lines / 100) + (num_lines % 100 != 0)
267 if (num_pages != 1) printf "<p>%s", text
268 }
269 {
270 if (num_pages == 1) exit
271 r = NR % 100
272 if (r == 1) {
273 p = int(NR / 100) + 1
274 printf "<a class=\"pages%s\" href=\"%s%s\" title=\"%s\n···\n", p==page?" current":"", url, p, $6
275 } else if (r == 0)
276 printf "%s\">%s</a> ", $6, int(NR / 100)
277 }
278 END{
279 if (num_pages == 1) exit
280 if (r != 0) printf "%s\">%s</a>", $6, int(NR / 100) + 1
281 print "</p>"
282 }' $1
283 }
286 # Show packages list by category or tag
288 show_list() {
289 cached=$(mktemp)
290 {
291 for L in $LANG ${LANG%%_*}; do
292 if [ -e "$PKGS_DB/packages-desc.$L" ]; then
293 sed '/^#/d' $PKGS_DB/packages-desc.$L; break
294 fi
295 done
296 [ -e "$i/blocked-packages.list" ] && cat $i/blocked-packages.list
297 sed 's|.*|&\ti|' $i/installed.info
298 [ $1 == 'extra' ] || [ $1 == 'my' ] || cat $i/packages.info
299 [ $1 == 'extra' ] && sed 's|.*|&\t-\textra\t-\thttp://mirror.slitaz.org/packages/get/&\t-\t-\t-|' $PKGS_DB/extra.list
300 } | sort -t$'\t' -k1,1 | sed '/^$/d' | awk -F$'\t' -vc="${category:--}" -vt="${tag:--}" '
301 {
302 if (PKG && PKG != $1) {
303 if (SEL) {
304 if (DSCL) DSC = DSCL
305 printf "<tr><td><input type=\"checkbox\" name=\"pkg\" value=\"%s\"><a class=\"pkg%s%s\" href=\"?info=%s\">%s</a></td><td>%s</td><td>%s</td><td><a href=\"%s\"></a></td></tr>\n", PKG, INS, BLK, gensub(/\+/, "%2B", "g", PKG), PKG, VER, DSC, WEB
306 }
307 VER = DSC = WEB = DSCL = INS = BLK = SEL = ""
308 }
310 PKG = $1
311 if (NF == 1) { BLK = "b"; next }
312 if (NF == 2) { DSCL = $2; next }
313 if (c == "all" || $3 == c || index(" "$6" ", " "t" ")) { SEL = 1 }
314 if (SEL) {
315 if ($9 == "i") { VER = $2; DSC = $4; WEB = $5; INS = "i"; next}
316 if (! INS) { VER = $2; DSC = $4; WEB = $5 }
317 }
318 }' > $cached
319 page=$(GET page); [ -z "$page" ] && page=1
321 pager="$(pager $cached)"
322 echo "$pager"
324 table_head
325 tail -n+$((($page-1)*100+1)) $cached | head -n100
326 echo "</tbody></table>"
328 echo "$pager"
329 rm -f $cached
330 }
333 # Show links for "info" page
335 show_info_links() {
336 if [ -n "$1" ]; then
337 echo -n "<tr><td><b>$2</b></td><td>"
338 echo $1 | tr ' ' $'\n' | awk -vt="$3" '{
339 printf "<a href=\"?%s=%s\">%s</a> ", t, gensub(/\+/, "%2B", "g", $1), $1
340 }'
341 echo "</td></tr>"
342 fi
343 }
347 #
348 # Commands
349 #
352 case " $(GET) " in
353 *\ list\ *)
354 #
355 # List installed packages.
356 #
357 category=$(GET category)
358 search_form
359 sidebar
360 LOADING_MSG="$(_ 'Listing packages...')"
361 loading_msg
362 cat << EOT
363 <h2>$(_ 'My packages')</h2>
365 <form method="get" action="">
366 <input type="hidden" name="do" value="Remove" />
367 <div id="actions">
368 <div class="float-left">
369 $(_ 'Selection:')
370 <input type="submit" value="$(_ 'Remove')" />
371 </div>
372 <div class="float-right">
373 $(show_button recharge)
374 $(show_button up)
375 </div>
376 </div>
377 $(i=$PKGS_DB; category=${category:-all}; show_list my)
378 </form>
379 EOT
380 ;;
383 *\ linkable\ *)
384 #
385 # List linkable packages.
386 #
387 search_form
388 sidebar
389 LOADING_MSG=$(_ 'Listing linkable packages...')
390 loading_msg
391 cat << EOT
392 <h2>$(_ 'Linkable packages')</h2>
394 <form method="get" action="">
395 <input type="hidden" name="do" value="Link" />
396 <div id="actions">
397 <div class="float-left">
398 $(_ 'Selection:')
399 <input type="submit" value="$(_ 'Link')" />
400 </div>
401 <div class="float-right">
402 $(show_button recharge)
403 $(show_button up)
404 </div>
405 </div>
406 EOT
407 table_head
408 target=$(readlink $PKGS_DB/fslink)
409 for pkg in $(ls $target/$INSTALLED); do
410 [ -s $pkg/receipt ] && continue
411 . $target/$INSTALLED/$pkg/receipt
412 i18n_desc $pkg
413 cat << EOT
414 <tr>
415 <td><input type="checkbox" name="pkg" value="$pkg" /><a class="pkg" href="?info=${pkg//+/%2B}">$pkg</a></td>
416 <td>$VERSION</td>
417 <td>$SHORT_DESC</td>
418 <td><a class="w" href="$WEB_SITE"></a></td>
419 </tr>
420 EOT
421 done
422 cat << EOT
423 </tbody>
424 </table>
425 </form>
426 EOT
427 ;;
430 *\ cat\ *)
431 #
432 # List all available packages by category on mirror.
433 #
434 repo=$(GET repo)
435 category=$(GET cat)
436 search_form
437 sidebar | sed "s/active_$category/active/;s/repo_$repo/active/"
438 if [ -z "$category" ] || [ "$category" == 'cat' ]; then
439 cat << EOT
440 <h2>$(_ 'Categories list')</h2>
442 <form method="get" action="">
443 <div id="actions">
444 <div class="float-right">
445 $(show_button tag=)
446 $(show_button list)
447 </div>
448 </div>
450 <table class="zebra outbox">
451 <thead>
452 <tr>
453 <td>$(_ 'Category')</td>
454 <td>$(_ 'Repository')</td>
455 <td>$(_ 'Installed')</td>
456 </tr>
457 </thead>
458 <tbody>
459 EOT
460 {
461 awk -F$'\t' '{print $3}' $PKGS_DB/packages.info | sort | uniq -c
462 awk -F$'\t' '{print $3}' $PKGS_DB/installed.info | sed 's|.*|& i|' | sort | uniq -c
463 } | sort -k2,2 | awk '
464 {
465 c [$2] = "."
466 if ($3) { i[$2] = $1; } else { m[$2] = $1; }
467 }
468 END {
469 for (n in c) print n, m[n], i[n]
470 }' | sort | awk '{
471 printf "<tr><td><a href=\"?cat=%s\">%s</a></td><td>%d</td><td>%d</td></tr>", $1, $1, $2, $3
472 }'
473 echo '</tbody></table>'
474 else
475 LOADING_MSG="$(_ 'Listing packages...')"
476 loading_msg
477 cat << EOT
478 <h2>$(_ 'Category: %s' $category)</h2>
480 <form method="get" action="">
481 <div id="actions">
482 <div class="float-left">
483 $(_ 'Selection:')
484 <input type="submit" name="do" value="Install" />
485 <input type="submit" name="do" value="Remove" />
486 <input type="hidden" name="repo" value="$repo" />
487 </div>
488 <div class="float-right">
489 $(show_button recharge)
490 $(show_button up)
491 $(show_button list)
492 </div>
493 </div>
494 EOT
495 for i in $(repo_list ""); do
496 [ "$repo" != "Public" ] && echo "<h3>$(_ 'Repository: %s' $(repo_name $i))</h3>"
497 show_list $category
498 done
499 echo '</form>'
500 fi
501 ;;
504 *\ search\ *)
505 #
506 # Search for packages. Here default is to search in packages.desc
507 # and so get result including packages names and descriptions
508 #
509 pkg=$(GET search); [ -z "$pkg" ] && xhtml_footer && exit
510 repo=$(GET repo)
511 cd $PKGS_DB
512 search_form
513 sidebar | sed "s/repo_$repo/active/"
514 LOADING_MSG="$(_ 'Searching packages...')"
515 loading_msg
516 cat << EOT
517 <h2>$(_ 'Search packages')</h2>
519 <form method="get" action="">
520 <div id="actions">
521 <div class="float-left">
522 $(_ 'Selection:')
523 <input type="submit" name="do" value="Install" />
524 <input type="submit" name="do" value="Remove" />
525 <a href="$(cat $PANEL/lib/checkbox.js)">$(_ 'Toogle all')</a>
526 </div>
527 <div class="float-right">
528 $(show_button recharge)
529 $(show_button up)
530 $(show_button list)
531 </div>
532 </div>
533 <input type="hidden" name="repo" value="$repo" />
534 EOT
535 if [ -n "$(GET files)" ]; then
536 cat <<EOT
537 <table class="zebra outbox filelist">
538 <thead>
539 <tr>
540 <td>$(_ 'Package')</td>
541 <td>$(_ 'File')</td>
542 </tr>
543 <thead>
544 <tbody>
545 EOT
546 lzcat $(repo_list /files.list.lzma) | grep -Ei ": .*$(GET search)" | \
547 while read PACKAGE FILE; do
548 PACKAGE=${PACKAGE%:}
549 class=pkg; [ -d $INSTALLED/$PACKAGE ] && class=pkgi
550 cat << EOT
551 <tr>
552 <td><input type="checkbox" name="pkg" value="$PACKAGE">$(pkg_info_link $PACKAGE $class)</td>
553 <td>$(echo "$FILE" | sed "s|$pkg|<span class=\"diff-add\">$pkg</span>|g")</td>
554 </tr>
555 EOT
556 done
557 else
558 table_head
559 awk -F$'\t' 'BEGIN{IGNORECASE = 1}
560 $1 $4 ~ /'$pkg'/{print $0}' $(repo_list /packages.info) | parse_packages_info
561 fi
562 cat << EOT
563 </tbody>
564 </table>
565 </form>
566 EOT
567 ;;
570 *\ recharge\ *)
571 #
572 # Lets recharge the packages list
573 #
574 search_form
575 sidebar
576 LOADING_MSG="$(_ 'Recharging lists...')"
577 loading_msg
578 cat << EOT
579 <h2>$(_ 'Recharge')</h2>
581 <form method="get" action="">
582 <div id="actions">
583 <div class="float-left">
584 <p>$(_ 'Recharge checks for new or updated packages')</p>
585 </div>
586 <div class="float-right">
587 $(show_button up)
588 $(show_button list)
589 </div>
590 </div>
591 <div class="wrapper">
592 <pre>
593 EOT
594 echo $(_ 'Recharging packages list') | log
595 tazpkg recharge | filter_taztools_msgs
596 cat << EOT
597 </pre>
598 </div>
599 <p>$(_ 'Packages lists are up-to-date. You should check for upgrades now.')</p>
600 EOT
601 ;;
604 *\ up\ *)
605 #
606 # Upgrade packages
607 #
608 cd $PKGS_DB
609 search_form
610 sidebar
611 LOADING_MSG="$(_ 'Checking for upgrades...')"
612 loading_msg
613 cat << EOT
614 <h2>$(_ 'Up packages')</h2>
616 <form method="get" action="">
617 <div id="actions">
618 <div class="float-left">
619 $(_ 'Selection:')
620 <input type="submit" name="do" value="Install" />
621 <input type="submit" name="do" value="Remove" />
622 <a href="$(cat $PANEL/lib/checkbox.js)">$(_ 'Toogle all')</a>
623 </div>
624 <div class="float-right">
625 $(show_button recharge)
626 $(show_button list)
627 </div>
628 </div>
629 EOT
630 tazpkg up --check >/dev/null
631 table_head
632 for pkg in $(cat packages.up); do
633 grep -hs "^$pkg |" $PKGS_DB/packages.desc $PKGS_DB/undigest/*/packages.desc | \
634 parse_packages_desc
635 done
636 cat << EOT
637 </tbody>
638 </table>
639 </form>
640 EOT
641 ;;
644 *\ do\ *)
645 #
646 # Do an action on one or some packages
647 #
648 opt=""
649 pkgs=""
650 cmdline=$(echo ${QUERY_STRING#do=} | sed s'/&/ /g')
651 cmd=$(echo ${cmdline} | awk '{print $1}')
652 cmdline=${cmdline#*repo=* }
653 pkgs=$(echo $cmdline | sed -e s'/+/ /g' -e s'/pkg=//g' -e s/$cmd//)
654 pkgs="$(httpd -d "$pkgs")"
655 cmd=$(echo $cmd | tr [:upper:] [:lower:])
656 case $cmd in
657 install)
658 cmd=get-install opt=--forced
659 LOADING_MSG="get-installing packages..."
660 ;;
661 link)
662 opt=$(readlink $PKGS_DB/fslink)
663 LOADING_MSG="linking packages..."
664 ;;
665 esac
666 search_form
667 sidebar
668 loading_msg
669 cat << EOT
670 <h2>TazPkg: $cmd</h2>
672 <form method="get" action="">
673 <div id="actions">
674 <div class="float-left">
675 <p>$(_ 'Performing tasks on packages')</p>
676 </div>
677 <div class="float-right">
678 $(show_button list)
679 </div>
680 </div>
681 <div class="box">
682 $(_ 'Executing %s for: %s' $cmd $pkgs)
683 </div>
684 EOT
685 for pkg in $pkgs; do
686 echo '<pre>'
687 echo $(_n 'y') | tazpkg $cmd $pkg $opt 2>/dev/null | filter_taztools_msgs
688 echo '</pre>'
689 done ;;
692 *\ info\ *)
693 #
694 # Packages info
695 #
696 pkg=$(GET info)
697 search_form
698 sidebar
699 if [ -d $INSTALLED/$pkg ]; then
700 . $INSTALLED/$pkg/receipt
701 files=$(wc -l < $INSTALLED/$pkg/files.list)
702 action="Remove"
703 else
704 cd $PKGS_DB
705 LOADING_MSG=$(_ 'Getting package info...')
706 loading_msg
707 eval "$(awk -F$'\t' -vp=$pkg '
708 $1==p{
709 printf "PACKAGE=\"%s\"; VERSION=\"%s\"; CATEGORY=\"%s\"; ", $1, $2, $3
710 printf "SHORT_DESC=\"%s\"; WEB_SITE=\"%s\"; TAGS=\"%s\"; ", $4, $5, $6
711 printf "SIZES=\"%s\"; DEPENDS=\"%s\"", $7, $8
712 }' packages.info undigest/*/packages.info)"
713 PACKED_SIZE=${SIZES% *}
714 UNPACKED_SIZE=${SIZES#* }
716 action="Install"
717 temp="${pkg#get-}"
718 fi
719 cat << EOT
720 <h2>$(_ 'Package %s' $PACKAGE)</h2>
722 <div id="actions">
723 <div class="float-left">
724 <p>
725 EOT
726 if [ "$temp" != "$pkg" -a "$action" == "Install" ]; then
727 show_button "do=Install&amp;$temp&amp;nf"
728 else
729 show_button "do=$action&amp;$pkg"
730 fi
732 if [ -d $INSTALLED/$pkg ]; then
733 if grep -qs "^$pkg$" $PKGS_DB/blocked-packages.list; then
734 show_button "do=Unblock&amp;$pkg"
735 else
736 show_button "do=Block&amp;$pkg"
737 fi
738 show_button "do=Repack&amp;$pkg"
739 fi
740 i18n_desc $pkg
741 cat << EOT
742 </p>
743 </div>
744 <div class="float-right">
745 $(show_button list)
746 </div>
747 </div>
748 <table class="zebra outbox">
749 <tbody>
750 <tr><td><b>$(_ 'Name')</b></td><td>$PACKAGE</td></tr>
751 <tr><td><b>$(_ 'Version')</b></td><td>$VERSION</td></tr>
752 <tr><td><b>$(_ 'Category')</b></td><td><a href="?cat=$CATEGORY">$CATEGORY</a></td></tr>
753 <tr><td><b>$(_ 'Description')</b></td><td>$SHORT_DESC</td></tr>
754 $([ -n "$MAINTAINER" ] && echo "<tr><td><b>$(_ 'Maintainer')</b></td><td>$MAINTAINER</td></tr>")
755 $([ -n "$LICENSE" ] && echo "<tr><td><b>$(_ 'License')</b></td><td><a href=\"?license=$pkg\">$LICENSE</a></td></tr>")
756 <tr><td><b>$(_ 'Website')</b></td><td><a href="$WEB_SITE">$WEB_SITE</a></td></tr>
757 $(show_info_links "$TAGS" "$(_ 'Tags')" 'tag')
758 <tr><td><b>$(_ 'Sizes')</b></td><td>$PACKED_SIZE/$UNPACKED_SIZE</td></tr>
759 $(show_info_links "$DEPENDS" "$(_ 'Depends')" 'info')
760 $(show_info_links "$SUGGESTED" "$(_ 'Suggested')" 'info')
761 </tbody>
762 </table>
763 EOT
764 DESC="$(tazpkg desc $pkg)"
765 [ -n "$DESC" ] && echo "<pre>$DESC</pre>"
767 if [ -d $INSTALLED/$pkg ]; then
768 cat << EOT
769 <p>$(_ 'Installed files: %s' $(wc -l < $INSTALLED/$pkg/files.list))</p>
771 <pre>$(sort $INSTALLED/$pkg/files.list)</pre>
772 EOT
773 else
774 cat << EOT
775 <p>$(_ 'Installed files: %s' ' ')</p>
777 <pre>
778 $(lzcat files.list.lzma undigest/*/files.list.lzma 2> /dev/null | awk -vp="$pkg:" '$1==p{print $2}' | sort)
779 </pre>
780 EOT
781 fi
782 ;;
785 *\ admin\ * )
786 #
787 # TazPkg configuration page
788 #
789 cmd=$(GET admin)
790 case "$cmd" in
791 clean)
792 rm -rf $CACHE_DIR/* ;;
793 add-mirror)
794 # Decode url
795 mirror=$(GET mirror)
796 case "$mirror" in
797 http://*|ftp://*)
798 echo "$mirror" >> $(GET file) ;;
799 esac ;;
800 rm-mirror=http://*|rm-mirror=ftp://*)
801 mirror=${cmd#rm-mirror=}
802 sed -i -e "s@$mirror@@" -e '/^$/d' $(GET file) ;;
803 select-mirror*)
804 release=$(cat /etc/slitaz-release)
805 mirror="$(GET mirror)packages/$release/"
806 tazpkg setup-mirror $mirror | log
807 ;;
808 add-repo)
809 # Decode url
810 mirror=$(GET mirror)
811 repository=$PKGS_DB/undigest/$(GET repository)
812 case "$mirror" in
813 http://*|ftp://*)
814 mkdir -p $repository
815 echo "$mirror" > $repository/mirror
816 echo "$mirror" > $repository/mirrors ;;
817 esac ;;
818 rm-repo=*)
819 repository=${cmd#rm-repo=}
820 rm -rf $PKGS_DB/undigest/$repository ;;
821 esac
822 [ "$cmd" == "$(_n 'Set link')" ] &&
823 [ -d "$(GET link)/$INSTALLED" ] && ln -fs $(GET link) $PKGS_DB/fslink
824 [ "$cmd" == "$(_n 'Remove link')" ] && rm -f $PKGS_DB/fslink
826 cache_files=$(find $CACHE_DIR -name *.tazpkg | wc -l)
827 cache_size=$(du -sh $CACHE_DIR | cut -f1 | sed 's|\.0||')
828 sidebar
829 cat << EOT
830 <h2>$(_ 'Administration')</h2>
831 <div>
832 <p>$(_ 'TazPkg administration and settings')</p>
833 </div>
834 <div id="actions">
835 $(show_button 'admin=&amp;action=saveconf')
836 $(show_button 'admin=&amp;action=listconf')
837 $(show_button 'admin=&amp;action=quickcheck')
838 $(show_button 'admin=&amp;action=fullcheck')
839 </div>
840 EOT
841 case "$(GET action)" in
842 saveconf)
843 LOADING_MSG=$(_ 'Creating the package...')
844 loading_msg
845 echo "<pre>"
846 cd $HOME
847 tazpkg repack-config | filter_taztools_msgs
848 echo -n "$(_ 'Path:') "; ls $HOME/config-*.tazpkg
849 echo "</pre>" ;;
850 listconf)
851 echo "<h4>$(_ 'Configuration files')</h4>"
852 echo "<ul>"
853 tazpkg list-config | while read file; do
854 if [ -e $file ]; then
855 echo "<li><a href=\"index.cgi?file=$file\">$file</a></li>"
856 else
857 echo "<li>$file</li>"
858 fi
859 done
860 echo "</ul>"
861 ;;
862 quickcheck)
863 LOADING_MSG=$(_ 'Checking packages consistency...')
864 loading_msg
865 echo "<pre>"
866 tazpkg check
867 echo "</pre>" ;;
868 fullcheck)
869 LOADING_MSG=$(_ 'Full packages check...')
870 loading_msg
871 echo "<pre>"
872 tazpkg check --full
873 echo "</pre>" ;;
874 esac
875 cat << EOT
876 <h3>$(_ 'Packages cache')</h3>
878 <div>
879 <form method="get" action="">
880 <p>$(_ 'Packages in the cache: %s (%s)' $cache_files $cache_size)
881 <input type="hidden" name="admin" value="clean" />
882 <input type="submit" value="$(_n 'Clean')" />
883 </p>
884 </form>
885 </div>
887 <h3>$(_ 'Default mirror')</h3>
889 <pre>$(cat $PKGS_DB/mirror)</pre>
891 <h3>$(_ 'Current mirror list')</h3>
892 EOT
893 for i in $PKGS_DB/mirrors $PKGS_DB/undigest/*/mirrors; do
894 [ -s $i ] || continue
895 echo '<div class="box">'
896 if [ $i != $PKGS_DB/mirrors ]; then
897 Repo_Name="$(repo_name $(dirname $i))"
898 echo "<h4>$(_ 'Repository: %s' $Repo_Name)</h4>"
899 fi
900 echo "<ul>"
901 list_mirrors $i
902 echo "</ul>"
903 cat << EOT
904 </div>
905 <form method="get" action="">
906 <p>
907 <input type="hidden" name="admin" value="add-mirror" />
908 <input type="hidden" name="file" value="$i" />
909 <input type="text" name="mirror" size="60">
910 <input type="submit" value="$(_n 'Add mirror')" />
911 </p>
912 </form>
913 EOT
914 done
915 echo "<h3>$(_ 'Private repositories')</h3>"
916 [ -n "$(ls $PKGS_DB/undigest 2> /dev/null)" ] && cat << EOT
917 <div class="box">
918 <ul>
919 $(list_repos)
920 </ul>
921 </div>
922 EOT
923 cat << EOT
924 <form method="get" action="">
925 <p>
926 <input type="hidden" name="admin" value="add-repo" />
927 $(_ 'Name') <input type="text" name="repository" size="10">
928 $(_ 'mirror')
929 <input type="text" name="mirror" value="http://" size="50">
930 <input type="submit" value="$(_n 'Add repository')" />
931 </p>
932 </form>
934 <h3>$(_ 'Link to another SliTaz installation')</h3>
936 <p>$(_ "This link points to the root of another SliTaz installation. \
937 You will be able to install packages using soft links to it.")</p>
939 <form method="get" action="">
940 <p>
941 <input type="text" name="link" value="$(readlink $PKGS_DB/fslink 2> /dev/null)" size="50">
942 <input type="submit" name="admin" value="$(_ 'Set link')" />
943 <input type="submit" name="admin" value="$(_ 'Remove link')" />
944 </p>
945 </form>
946 EOT
947 version=$(cat /etc/slitaz-release)
948 cat << EOT
950 <h3 id="dvd">$(_ 'SliTaz packages DVD')</h3>
952 <p>$(_ "A bootable DVD image of all available packages for the %s version is \
953 generated every day. It also contains a copy of the website and can be used \
954 without an internet connection. This image can be installed on a DVD or a USB \
955 key." $version)</p>
957 <div>
958 <form method="post" action='?admin&amp;action=dvdimage#dvd'>
959 <p>
960 <a class="button"
961 href='http://mirror.slitaz.org/iso/$version/packages-$version.iso'>
962 <img src="$IMAGES/tazpkg.png" />$(_ 'Download DVD image')</a>
963 <a class="button" href='?admin&amp;action=dvdusbkey#dvd'>
964 <img src="$IMAGES/tazpkg.png" />$(_ 'Install from DVD/USB key')</a>
965 </p>
966 <div class="box">
967 $(_ 'Install from ISO image:')
968 <input type="text" name="dvdimage" size="40" value="/root/packages-$version.iso">
969 </div>
970 </form>
971 </div>
972 EOT
973 if [ "$(GET action)" == "dvdimage" ]; then
974 dev=$(POST dvdimage)
975 mkdir -p /mnt/packages 2> /dev/null
976 echo "<pre>"
977 mount -t iso9660 -o loop,ro $dev /mnt/packages &&
978 /mnt/packages/install.sh &&
979 _ '%s is installed on /mnt/packages' $dev
980 echo "</pre>"
981 fi
982 if [ "$(GET action)" == "dvdusbkey" ]; then
983 mkdir -p /mnt/packages 2> /dev/null
984 for tag in "LABEL=\"packages-$version\" TYPE=\"iso9660\"" \
985 "LABEL=\"sources-$version\" TYPE=\"iso9660\"" ; do
986 dev=$(blkid | grep "$tag" | cut -d: -f1)
987 [ -n "$dev" ] || continue
988 echo "<pre>"
989 mount -t iso9660 -o ro $dev /mnt/packages &&
990 /mnt/packages/install.sh &&
991 _ '%s is installed on /mnt/packages' $dev
992 echo "</pre>"
993 break
994 done
995 fi
996 ;;
999 *\ license\ *)
1001 # Show licenses for installed packages
1003 search_form
1004 sidebar
1005 pkg=$(GET license)
1006 case $pkg in
1007 /*)
1008 [ -e $pkg ] && {
1009 echo "<h2>${pkg#/usr/share/licenses/}</h2>"
1010 case $pkg in
1011 *.htm*)
1012 cat $pkg ;;
1013 *)
1014 echo "<pre style=\"white-space: pre-wrap\">"
1015 cat $pkg | htmlize | sed 's|\([hf]t*t*ps*://[a-zA-Z0-9./_-]*[a-zA-Z0-9/_-]\)|<a href="\1">\1</a>|'
1016 echo "</pre>"
1017 ;;
1018 esac
1019 } ;;
1020 *)
1021 echo "<h2>$(_ 'Licenses for package %s' $pkg)</h2>"
1022 ONLINE=''; OFFLINE=''
1024 if [ -e "$PKGS_DB/installed/$pkg" ]; then
1025 for license in $(. $PKGS_DB/installed/$pkg/receipt; echo "$LICENSE"); do
1026 OSL=''; GNU=''; USR=''; LIC=''
1027 case $license in
1028 Apache) OSL='Apache-2.0'; URL='http://www.apache.org/licenses/' ;;
1029 Artistic) OSL='Artistic-2.0' ;;
1030 BSD) OSL='BSD-2-Clause' ;;
1031 BSD3) OSL='BSD-3-Clause' ;;
1033 CC-BY-SA*|CC-SA*) CCO='by-sa/4.0/' ;;
1034 CC-BY-ND*) CCO='by-nd/4.0/' ;;
1035 CC-BY-NC-SA*) CCO='by-nc-sa/4.0/' ;;
1036 CC-BY-NC-ND*) CCO='by-nc-nd/4.0/' ;;
1037 CC-BY-NC*) CCO='by-nc/4.0/' ;;
1038 CC-BY*) CCO='by/4.0/' ;;
1040 cc-pd) URL='http://creativecommons.org/publicdomain/' ;;
1041 CCPL) ;;
1042 CDDL*) OSL='CDDL-1.0' ;;
1043 CECILL*) OSL='CECILL-2.1' ;;
1044 Eclipse|EPL*) OSL='EPL-1.0' ;;
1045 FDL) GNU='fdl' ;;
1046 GPL) GNU='gpl'; OSL='gpl-license'; LIC='gpl.txt' ;;
1047 GPL2) GNU='old-licenses/gpl-2.0'; OSL='GPL-2.0' ;;
1048 GPL3) GNU='gpl'; OSL='GPL-3.0'; LIC='gpl.txt' ;;
1049 ISC) OSL='ISC' ;;
1050 LGPL) GNU='lgpl'; OSL='lgpl-license' ;;
1051 LGPL2) GNU='old-licenses/lgpl-2.0' ;;
1052 LGPL2.1) GNU='old-licenses/lgpl-2.1'; OSL='LGPL-2.1'; LIC='lgpl.txt' ;;
1053 LGPL3) GNU='lgpl'; OSL='LGPL-3.0' ;;
1054 LPPL*) OSL='LPPL-1.3c' ;;
1055 MIT) OSL='MIT'; LIC='mit.txt' ;;
1056 MPL) OSL='MPL-2.0'; LIC='mozilla.txt' ;;
1057 MPL2) OSL='MPL-2.0' ;;
1058 FL) OSL='Fair' ;; # ?
1059 PSL) ;;
1060 PublicDomain) ;;
1061 QPL*) OSL='QPL-1.0' ;;
1062 SIL_OFL*) OSL='OFL-1.1' ;;
1063 zlib/libpng) OSL='Zlib' ;;
1064 esac
1066 [ -n "$OSL" ] && ONLINE="$ONLINE <li><a href=\"http://opensource.org/licenses/$OSL\">$(_ '%s license on %s website' "<b>$OSL</b>" "OSL")</a></li>\n"
1067 [ -n "$GNU" ] && ONLINE="$ONLINE <li><a href=\"https://www.gnu.org/licenses/$GNU.html\">$(_ '%s license on %s website' "<b>${GNU#*/}</b>" "GNU")</a></li>\n"
1068 [ -n "$CCO" ] && ONLINE="$ONLINE <li><a href=\"http://creativecommons.org/licenses/$CCO\">$(_ '%s license on %s website' "<b>${CCO%%/*}</b>" "Creative Commons")</a></li>\n"
1069 [ -n "$URL" ] && ONLINE="$ONLINE <li><a href=\"$URL\">$URL</a></li>\n"
1070 [ -n "$LIC" ] && OFFLINE="$OFFLINE <li><a href=\"?license=/usr/share/licenses/$LIC\">licenses/<b>$LIC</b></a></li>\n"
1071 done
1073 for lic in $(grep /usr/share/licenses/ $PKGS_DB/installed/$pkg/files.list); do
1074 OFFLINE="$OFFLINE <li><a href=\"?license=$lic\">licenses/<b>${lic#/usr/share/licenses/}</b></a></li>\n"
1075 done
1076 fi
1077 [ -n "$ONLINE" ] && echo -e "<p>$(_ 'Read online:')</p>\n<ul>\n$ONLINE</ul>\n"
1078 [ -n "$OFFLINE" ] && echo -e "<p>$(_ 'Read local:')</p>\n<ul>\n$OFFLINE</ul>\n"
1079 ;;
1080 esac
1081 ;;
1084 *\ tag\ *)
1086 # Show packages with matching tag; show tag cloud
1088 search_form
1089 sidebar
1090 tag=$(GET tag); repo=$(GET repo)
1091 if [ -n "$tag" ]; then
1092 cat << EOT
1093 <h2>$(_ 'Tag "%s"' $tag)</h2>
1095 <form method="get" action="">
1096 <div id="actions">
1097 <div class="float-left">
1098 $(_ 'Selection:')
1099 <input type="submit" name="do" value="Install" />
1100 <input type="submit" name="do" value="Remove" />
1101 <input type="hidden" name="repo" value="$repo" />
1102 </div>
1103 <div class="float-right">
1104 $(show_button tag=)
1105 $(show_button list)
1106 </div>
1107 </div>
1108 EOT
1109 for i in $(repo_list ""); do
1110 [ "$repo" != "Public" ] && echo "<h3>$(_ 'Repository: %s' $(repo_name $i))</h3>"
1111 show_list all
1112 done
1113 echo '</form>'
1115 else
1116 echo "<h2>$(_ 'Tags list')</h2>"
1117 echo "<p>"
1118 TAGS="$(awk -F$'\t' '{if($6){print $6}}' $PKGS_DB/packages.info | tr ' ' $'\n' | sort | uniq -c)"
1119 MAX="$(echo "$TAGS" | awk '{if ($1 > MAX) MAX = $1} END{print MAX}')"
1120 echo "$TAGS" | awk -vMAX=$MAX '{
1121 printf "<a class=\"tag%s\" href=\"?tag=%s\" title=\"%s\">%s</a> ", int($1 * 7 / MAX + 1), $2, $1, $2
1122 }'
1123 echo "</p>"
1124 fi
1125 ;;
1128 *)
1130 # Default to summary
1132 search_form
1133 sidebar
1134 [ -n "$(GET block)" ] && tazpkg block $(GET block)
1135 [ -n "$(GET unblock)" ] && tazpkg unblock $(GET unblock)
1136 cat << EOT
1137 <h2>$(_ 'Summary')</h2>
1139 <div id="actions">
1140 EOT
1141 show_button list
1142 fslink=$(readlink $PKGS_DB/fslink)
1143 [ -n "$fslink" -a -d "$fslink/$INSTALLED" ] && show_button linkable
1144 show_button recharge
1145 show_button up
1146 show_button admin
1147 cat << EOT
1148 </div>
1150 <table class="zebra outbox">
1151 <tbody>
1152 <tr><td>$(_ 'Last recharge:')</td><td>
1153 EOT
1154 ls -l $PKGS_DB/packages.list | awk '{print $6, $7, $8}'
1155 if [ -n "$(find $PKGS_DB/packages.list -mtime +10)" ]; then
1156 _ '(Older than 10 days)'
1157 else
1158 _ '(Not older than 10 days)'
1159 fi
1160 cat << EOT
1161 </td></tr>
1162 <tr><td>$(_ 'Installed packages:')</td>
1163 <td>$(cat $PKGS_DB/installed.info | wc -l)</td></tr>
1164 <tr><td>$(_ 'Mirrored packages:')</td>
1165 <td>$(cat $PKGS_DB/packages.list | wc -l)</td></tr>
1166 <tr><td>$(_ 'Upgradeable packages:')</td>
1167 <td>$(cat $PKGS_DB/packages.up | wc -l)</td></tr>
1168 <tr><td>$(_ 'Installed files:')</td>
1169 <td>$(cat $INSTALLED/*/files.list | wc -l)</td></tr>
1170 <tr><td>$(_ 'Blocked packages:')</td>
1171 <td>$(cat $PKGS_DB/blocked-packages.list | wc -l)</td></tr>
1172 </tbody>
1173 </table>
1175 <h3>$(_ 'Latest log entries')</h3>
1177 <pre>
1178 $(tail -n 5 $LOG | fgrep "-" | awk '{print $1, $2, $3, $4, $5, $6, $7}')
1179 </pre>
1180 EOT
1181 ;;
1182 esac
1184 # xHTML 5 footer
1185 export TEXTDOMAIN='tazpkg'
1186 xhtml_footer
1187 exit 0