tazpkg view tazpanel/pkgs.cgi @ rev 732
pkgs.cgi: full featured "tag".
| author | Aleksej Bobylev <al.bobylev@gmail.com> |
|---|---|
| date | Mon Dec 29 05:05:36 2014 +0200 (2014-12-29) |
| parents | 853142b48010 |
| children | 061ee30eaf2d |
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&file=$(httpd -e $1)">
96 <img src="$IMAGES/clear.png" title="$(_ 'Delete')" />
97 </a>
98 <a href="?admin=select-mirror&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="$SCRIPT_NAME">
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 <thead>
176 <tr>
177 <td>$(_ 'Name')</td>
178 <td>$(_ 'Version')</td>
179 <td>$(_ 'Description')</td>
180 <td>$(_ 'Web')</td>
181 </tr>
182 </thead>
183 EOT
184 }
187 sidebar() {
188 [ -z "$repo" ] && repo=Public
189 cat << EOT
190 <div id="sidebar">
191 <h4><a href="?cat">$(_ 'Categories')</a></h4>
192 <a class="active_base-system" href="?cat=base-system&repo=$repo" >$(_ 'base-system')</a>
193 <a class="active_x-window" href="?cat=x-window&repo=$repo" >$(_ 'x-window')</a>
194 <a class="active_utilities" href="?cat=utilities&repo=$repo" >$(_ 'utilities')</a>
195 <a class="active_network" href="?cat=network&repo=$repo" >$(_ 'network')</a>
196 <a class="active_games" href="?cat=games&repo=$repo" >$(_ 'games')</a>
197 <a class="active_graphics" href="?cat=graphics&repo=$repo" >$(_ 'graphics')</a>
198 <a class="active_office" href="?cat=office&repo=$repo" >$(_ 'office')</a>
199 <a class="active_multimedia" href="?cat=multimedia&repo=$repo" >$(_ 'multimedia')</a>
200 <a class="active_development" href="?cat=development&repo=$repo" >$(_ 'development')</a>
201 <a class="active_system-tools" href="?cat=system-tools&repo=$repo">$(_ 'system-tools')</a>
202 <a class="active_security" href="?cat=security&repo=$repo" >$(_ 'security')</a>
203 <a class="active_misc" href="?cat=misc&repo=$repo" >$(_ 'misc')</a>
204 <a class="active_meta" href="?cat=meta&repo=$repo" >$(_ 'meta')</a>
205 <a class="active_non-free" href="?cat=non-free&repo=$repo" >$(_ 'non-free')</a>
206 <a class="active_all" href="?cat=all&repo=$repo" >$(_ 'all')</a>
207 <a class="active_extra" href="?cat=extra&repo=$repo" >$(_ 'extra')</a>
208 EOT
210 if [ -d $PKGS_DB/undigest ]; then
211 [ -z "$category" ] && category="base-system"
212 cat << EOT
213 <h4>$(_ 'Repositories')</h4>
214 <a class="repo_Public" href="?cat=$category&repo=Public">$(_ 'Public')</a>
215 EOT
217 for i in $(ls $PKGS_DB/undigest); do
218 cat << EOT
219 <a class="repo_$i" href="?cat=$category&repo=$i">$i</a>
220 EOT
221 done
223 cat << EOT
224 <a class="repo_Any" href="?cat=$category&repo=Any">$(_ 'Any')</a>
225 EOT
226 fi
227 echo "</div>"
228 }
231 repo_list() {
232 if [ -n "$(ls $PKGS_DB/undigest/ 2> /dev/null)" ]; then
233 case "$repo" in
234 Public)
235 ;;
236 ""|Any)
237 for i in $PKGS_DB/undigest/* ; do
238 [ -d "$i" ] && echo "$i$1"
239 done ;;
240 *)
241 echo "$PKGS_DB/undigest/$repo$1"
242 return ;;
243 esac
244 fi
245 echo "$PKGS_DB$1"
246 }
249 repo_name() {
250 case "$1" in
251 $PKGS_DB)
252 echo "Public" ;;
253 $PKGS_DB/undigest/*)
254 echo ${1#$PKGS_DB/undigest/} ;;
255 esac
256 }
259 make_mixed_list() {
260 for L in $LANG ${LANG%%_*}; do
261 if [ -e "$PKGS_DB/packages-desc.$L" ]; then
262 sed '/^#/d' $PKGS_DB/packages-desc.$L
263 break
264 fi
265 done
267 [ -e "$i/blocked-packages.list" ] && cat $i/blocked-packages.list
269 sed 's|.*|&\ti|' $i/installed.info
271 cat $i/packages.info
272 }
275 # Print links to the pages
277 pager() {
278 awk -F'"' -vpage="$page" -vnum_lines="$(wc -l < $1)" -vtext="$(_ 'Pages:') " -vurl="?cat=$category&repo=$repo&page=" '
279 BEGIN{
280 num_pages = int(num_lines / 100) + (num_lines % 100 != 0)
281 if (num_pages != 1) printf "<p>%s", text
282 }
283 {
284 if (num_pages == 1) exit
285 r = NR % 100
286 if (r == 1) {
287 p = int(NR / 100) + 1
288 printf "<a class=\"pages%s\" href=\"%s%s\" title=\"%s\n···\n", p==page?" current":"", url, p, $6
289 } else if (r == 0)
290 printf "%s\">%s</a> ", $6, int(NR / 100)
291 }
292 END{
293 if (num_pages == 1) exit
294 if (r != 0) printf "%s\">%s</a>", $6, int(NR / 100) + 1
295 print "</p>"
296 }' $1
297 }
300 # Show links for "info" page
302 show_info_links() {
303 if [ -n "$1" ]; then
304 echo -n "<tr><td><b>$2</b></td><td>"
305 echo $1 | tr ' ' $'\n' | awk -vt="$3" '{
306 printf "<a href=\"?%s=%s\">%s</a> ", t, gensub(/\+/, "%2B", "g", $1), $1
307 }'
308 echo "</td></tr>"
309 fi
310 }
314 #
315 # Commands
316 #
319 case " $(GET) " in
320 *\ list\ *)
321 #
322 # List installed packages. This is the default because parsing
323 # the full packages.desc can be long and take up some resources
324 #
325 cd $INSTALLED
326 search_form
327 sidebar
328 LOADING_MSG="$(_ 'Listing packages...')"
329 loading_msg
330 cat << EOT
331 <h2>$(_ 'My packages')</h2>
332 <form method='get' action='$SCRIPT_NAME'>
333 <input type="hidden" name="do" value="Remove" />
334 <div id="actions">
335 <div class="float-left">
336 $(_ 'Selection:')
337 <input type="submit" value="$(_ 'Remove')" />
338 </div>
339 <div class="float-right">
340 $(show_button recharge)
341 $(show_button up)
342 </div>
343 </div>
345 <table class="zebra outbox pkglist">
346 $(table_head)
347 <tbody>
348 EOT
349 for pkg in *; do
350 . $pkg/receipt
351 echo '<tr>'
352 # Use default tazpkg icon since all packages displayed are
353 # installed
354 blocked=
355 grep -qs "^$pkg$" $PKGS_DB/blocked-packages.list && blocked="b"
356 i18n_desc $pkg
357 cat << EOT
358 <td><input type="checkbox" name="pkg" value="$pkg" />$(pkg_info_link $pkg pkgi$blocked)</td>
359 <td>$VERSION</td>
360 <td>$SHORT_DESC</td>
361 <td><a class="w" href="$WEB_SITE"></a></td>
362 </tr>
363 EOT
364 done
365 cat << EOT
366 </tbody>
367 </table>
368 </form>
369 EOT
370 ;;
373 *\ linkable\ *)
374 #
375 # List linkable packages.
376 #
377 cd $INSTALLED
378 search_form
379 sidebar
380 LOADING_MSG=$(_ 'Listing linkable packages...')
381 loading_msg
382 cat << EOT
383 <h2>$(_ 'Linkable packages')</h2>
385 <form method='get' action='$SCRIPT_NAME'>
386 <input type="hidden" name="do" value="Link" />
387 <div id="actions">
388 <div class="float-left">
389 $(_ 'Selection:')
390 <input type="submit" value="$(_ 'Link')" />
391 </div>
392 <div class="float-right">
393 $(show_button recharge)
394 $(show_button up)
395 </div>
396 </div>
397 EOT
398 cat << EOT
399 <table class="zebra outbox pkglist">
400 $(table_head)
401 <tbody>
402 EOT
403 target=$(readlink $PKGS_DB/fslink)
404 for pkg in $(ls $target/$INSTALLED); do
405 [ -s $pkg/receipt ] && continue
406 . $target/$INSTALLED/$pkg/receipt
407 i18n_desc $pkg
408 cat << EOT
409 <tr>
410 <td><input type="checkbox" name="pkg" value="$pkg" />$(pkg_info_link $pkg pkg)</td>
411 <td>$VERSION</td>
412 <td>$SHORT_DESC</td>
413 <td><a class="w" href="$WEB_SITE"></a></td>
414 </tr>
415 EOT
416 done
417 cat << EOT
418 </tbody>
419 </table>
420 </form>
421 EOT
422 ;;
425 *\ cat\ *)
426 #
427 # List all available packages by category on mirror.
428 #
429 cd $PKGS_DB
430 repo=$(GET repo)
431 category=$(GET cat)
432 search_form
433 sidebar | sed "s/active_$category/active/;s/repo_$repo/active/"
434 if [ -z "$category" ] || [ "$category" == 'cat' ]; then
435 cat << EOT
436 <h2>$(_ 'Categories list')</h2>
437 <table class="zebra outbox">
438 <thead>
439 <tr><td>$(_ 'Category')</td><td>$(_ 'Repository')</td><td>$(_ 'Installed')</td></tr>
440 </thead><tbody>
441 EOT
442 {
443 awk -F$'\t' '{print $3}' $PKGS_DB/packages.info | sort | uniq -c
444 awk -F$'\t' '{print $3}' $PKGS_DB/installed.info | sed 's|.*|& i|' | sort | uniq -c
445 } | sort -k2,2 | awk '
446 {
447 c [$2] = "."
448 if ($3) { i[$2] = $1; } else { m[$2] = $1; }
449 }
450 END {
451 for (n in c) print n, m[n], i[n]
452 }' | sort | awk '{
453 printf "<tr><td><a href=\"?cat=%s\">%s</a></td><td>%d</td><td>%d</td></tr>", $1, $1, $2, $3
454 }'
455 echo '</tbody></table>'
456 else
457 LOADING_MSG="$(_ 'Listing packages...')"
458 loading_msg
459 cat << EOT
460 <h2>$(_ 'Category: %s' $category)</h2>
462 <form method='get' action='$SCRIPT_NAME'>
463 <div id="actions">
464 <div class="float-left">
465 $(_ 'Selection:')
466 <input type="submit" name="do" value="Install" />
467 <input type="submit" name="do" value="Remove" />
468 <input type="hidden" name="repo" value="$repo" />
469 </div>
470 <div class="float-right">
471 $(show_button recharge)
472 $(show_button up)
473 $(show_button list)
474 </div>
475 </div>
476 EOT
477 for i in $(repo_list ""); do
478 [ "$repo" != "Public" ] && echo "<h3>$(_ 'Repository: %s' $(repo_name $i))</h3>"
480 case $category in
481 extra)
482 echo '<table class="zebra outbox pkglist">'
483 table_head
484 echo '<tbody>'
485 NA="$(_n 'n/a')"
486 for pkg in $(cat $i/extra.list); do
487 PKG="$(grep ^$pkg$'\t' $i/installed.info)"
488 if [ -n "$PKG" ]; then
489 echo "$PKG"
490 else
491 echo "$pkg $NA - $NA http://mirror.slitaz.org/packages/get/$pkg - - -"
492 fi
493 done | parse_packages_info
494 echo "</tbody></table>"
495 ;;
496 *)
497 cached="$CACHE_DIR/$repo-$category"
498 make_mixed_list | sort -t$'\t' -k1,1 | awk -F$'\t' -vc="$category" '
499 {
500 if (PKG && PKG != $1) {
501 if (CAT) {
502 if (DSCL) DSC = DSCL
503 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
504 }
505 VER = DSC = WEB = DSCL = INS = BLK = CAT = ""
506 }
508 PKG = $1
509 if (NF == 1) { BLK = "b"; next }
510 if (NF == 2) { DSCL = $2; next }
511 if (c == "all" || $3 == c) {
512 CAT = c
513 if ($9 == "i") { PKG = $1; VER = $2; DSC = $4; WEB = $5; INS = "i"; next}
514 if (! INS) { PKG = $1; VER = $2; DSC = $4; WEB = $5 }
515 }
516 }' > $cached
517 page=$(GET page); [ -z "$page" ] && page=1
518 pager="$(pager $cached)"
520 echo "$pager"
521 echo '<table class="zebra outbox pkglist">'
522 table_head
523 echo '<tbody>'
524 tail -n+$((($page-1)*100+1)) $cached | head -n100
525 echo "</tbody></table>"
526 echo "$pager"
527 rm -f $cached
528 ;;
529 esac
530 done
531 echo '</form>'
532 fi
533 ;;
536 *\ search\ *)
537 #
538 # Search for packages. Here default is to search in packages.desc
539 # and so get result including packages names and descriptions
540 #
541 pkg=$(GET search); [ -z "$pkg" ] && xhtml_footer && exit
542 repo=$(GET repo)
543 cd $PKGS_DB
544 search_form
545 sidebar | sed "s/repo_$repo/active/"
546 LOADING_MSG="$(_ 'Searching packages...')"
547 loading_msg
548 cat << EOT
549 <h2>$(_ 'Search packages')</h2>
550 <form method="get" action="$SCRIPT_NAME">
551 <div id="actions">
552 <div class="float-left">
553 $(_ 'Selection:')
554 <input type="submit" name="do" value="Install" />
555 <input type="submit" name="do" value="Remove" />
556 <a href="$(cat $PANEL/lib/checkbox.js)">$(_ 'Toogle all')</a>
557 </div>
558 <div class="float-right">
559 $(show_button recharge)
560 $(show_button up)
561 $(show_button list)
562 </div>
563 </div>
564 <input type="hidden" name="repo" value="$repo" />
565 EOT
566 if [ -n "$(GET files)" ]; then
567 cat <<EOT
568 <table class="zebra outbox filelist">
569 <thead>
570 <tr>
571 <td>$(_ 'Package')</td>
572 <td>$(_ 'File')</td>
573 </tr>
574 <thead>
575 <tbody>
576 EOT
577 lzcat $(repo_list /files.list.lzma) | grep -Ei ": .*$(GET search)" | \
578 while read PACKAGE FILE; do
579 PACKAGE=${PACKAGE%:}
580 class=pkg; [ -d $INSTALLED/$PACKAGE ] && class=pkgi
581 cat << EOT
582 <tr>
583 <td><input type="checkbox" name="pkg" value="$PACKAGE">$(pkg_info_link $PACKAGE $class)</td>
584 <td>$(echo "$FILE" | sed "s|$pkg|<span class=\"diff-add\">$pkg</span>|g")</td>
585 </tr>
586 EOT
587 done
588 else
589 echo ' <table class="zebra outbox pkglist">'
590 table_head
591 echo " <tbody>"
592 awk -F$'\t' 'BEGIN{IGNORECASE = 1}
593 $1 $4 ~ /'$pkg'/{print $0}' $(repo_list /packages.info) | parse_packages_info
594 fi
595 cat << EOT
596 </tbody>
597 </table>
598 </form>
599 EOT
600 ;;
603 *\ recharge\ *)
604 #
605 # Lets recharge the packages list
606 #
607 search_form
608 sidebar
609 LOADING_MSG="$(_ 'Recharging lists...')"
610 loading_msg
611 cat << EOT
612 <h2>$(_ 'Recharge')</h2>
614 <form method='get' action='$SCRIPT_NAME'>
615 <div id="actions">
616 <div class="float-left">
617 <p>$(_ 'Recharge checks for new or updated packages')</p>
618 </div>
619 <div class="float-right">
620 $(show_button up)
621 $(show_button list)
622 </div>
623 </div>
624 <div class="wrapper">
625 <pre>
626 EOT
627 echo $(_ 'Recharging packages list') | log
628 tazpkg recharge | filter_taztools_msgs
629 cat << EOT
630 </pre>
631 </div>
632 <p>$(_ 'Packages lists are up-to-date. You should check for upgrades now.')</p>
633 EOT
634 ;;
637 *\ up\ *)
638 #
639 # Upgrade packages
640 #
641 cd $PKGS_DB
642 search_form
643 sidebar
644 LOADING_MSG="$(_ 'Checking for upgrades...')"
645 loading_msg
646 cat << EOT
647 <h2>$(_ 'Up packages')</h2>
649 <form method="get" action="$SCRIPT_NAME">
650 <div id="actions">
651 <div class="float-left">
652 $(_ 'Selection:')
653 <input type="submit" name="do" value="Install" />
654 <input type="submit" name="do" value="Remove" />
655 <a href="$(cat $PANEL/lib/checkbox.js)">$(_ 'Toogle all')</a>
656 </div>
657 <div class="float-right">
658 $(show_button recharge)
659 $(show_button list)
660 </div>
661 </div>
662 EOT
663 tazpkg up --check >/dev/null
664 cat << EOT
665 <table class="zebra outbox">
666 $(table_head)
667 <tbody>
668 EOT
669 for pkg in $(cat packages.up); do
670 grep -hs "^$pkg |" $PKGS_DB/packages.desc $PKGS_DB/undigest/*/packages.desc | \
671 parse_packages_desc
672 done
673 cat << EOT
674 </tbody>
675 </table>
676 </form>
677 EOT
678 ;;
681 *\ do\ *)
682 #
683 # Do an action on one or some packages
684 #
685 opt=""
686 pkgs=""
687 cmdline=$(echo ${QUERY_STRING#do=} | sed s'/&/ /g')
688 cmd=$(echo ${cmdline} | awk '{print $1}')
689 cmdline=${cmdline#*repo=* }
690 pkgs=$(echo $cmdline | sed -e s'/+/ /g' -e s'/pkg=//g' -e s/$cmd//)
691 pkgs="$(httpd -d "$pkgs")"
692 cmd=$(echo $cmd | tr [:upper:] [:lower:])
693 case $cmd in
694 install)
695 cmd=get-install opt=--forced
696 LOADING_MSG="get-installing packages..."
697 ;;
698 link)
699 opt=$(readlink $PKGS_DB/fslink)
700 LOADING_MSG="linking packages..."
701 ;;
702 esac
703 search_form
704 sidebar
705 loading_msg
706 cat << EOT
707 <h2>TazPkg: $cmd</h2>
709 <form method="get" action="$SCRIPT_NAME">
710 <div id="actions">
711 <div class="float-left">
712 <p>$(_ 'Performing tasks on packages')</p>
713 </div>
714 <div class="float-right">
715 $(show_button list)
716 </div>
717 </div>
718 <div class="box">
719 $(_ 'Executing %s for: %s' $cmd $pkgs)
720 </div>
721 EOT
722 for pkg in $pkgs; do
723 echo '<pre>'
724 echo $(_n 'y') | tazpkg $cmd $pkg $opt 2>/dev/null | filter_taztools_msgs
725 echo '</pre>'
726 done ;;
729 *\ info\ *)
730 #
731 # Packages info
732 #
733 pkg=$(GET info)
734 search_form
735 sidebar
736 if [ -d $INSTALLED/$pkg ]; then
737 . $INSTALLED/$pkg/receipt
738 files=$(wc -l < $INSTALLED/$pkg/files.list)
739 action="Remove"
740 else
741 cd $PKGS_DB
742 LOADING_MSG=$(_ 'Getting package info...')
743 loading_msg
744 eval "$(awk -F$'\t' -vp=$pkg '
745 $1==p{
746 printf "PACKAGE=\"%s\"; VERSION=\"%s\"; CATEGORY=\"%s\"; ", $1, $2, $3
747 printf "SHORT_DESC=\"%s\"; WEB_SITE=\"%s\"; TAGS=\"%s\"; ", $4, $5, $6
748 printf "SIZES=\"%s\"; DEPENDS=\"%s\"", $7, $8
749 }' packages.info undigest/*/packages.info)"
750 PACKED_SIZE=${SIZES% *}
751 UNPACKED_SIZE=${SIZES#* }
753 action="Install"
754 temp="${pkg#get-}"
755 fi
756 cat << EOT
757 <h2>$(_ 'Package %s' $PACKAGE)</h2>
759 <div id="actions">
760 <div class="float-left">
761 <p>
762 EOT
763 if [ "$temp" != "$pkg" -a "$action" == "Install" ]; then
764 show_button "do=Install&$temp&nf"
765 else
766 show_button "do=$action&$pkg"
767 fi
769 if [ -d $INSTALLED/$pkg ]; then
770 if grep -qs "^$pkg$" $PKGS_DB/blocked-packages.list; then
771 show_button "do=Unblock&$pkg"
772 else
773 show_button "do=Block&$pkg"
774 fi
775 show_button "do=Repack&$pkg"
776 fi
777 i18n_desc $pkg
778 cat << EOT
779 </p>
780 </div>
781 <div class="float-right">
782 $(show_button list)
783 </div>
784 </div>
785 <table class="zebra outbox">
786 <tbody>
787 <tr><td><b>$(_ 'Name')</b></td><td>$PACKAGE</td></tr>
788 <tr><td><b>$(_ 'Version')</b></td><td>$VERSION</td></tr>
789 <tr><td><b>$(_ 'Category')</b></td><td><a href="?cat=$CATEGORY">$CATEGORY</a></td></tr>
790 <tr><td><b>$(_ 'Description')</b></td><td>$SHORT_DESC</td></tr>
791 $([ -n "$MAINTAINER" ] && echo "<tr><td><b>$(_ 'Maintainer')</b></td><td>$MAINTAINER</td></tr>")
792 $([ -n "$LICENSE" ] && echo "<tr><td><b>$(_ 'License')</b></td><td><a href=\"?license=$pkg\">$LICENSE</a></td></tr>")
793 <tr><td><b>$(_ 'Website')</b></td><td><a href="$WEB_SITE">$WEB_SITE</a></td></tr>
794 $(show_info_links "$TAGS" "$(_ 'Tags')" 'tag')
795 <tr><td><b>$(_ 'Sizes')</b></td><td>$PACKED_SIZE/$UNPACKED_SIZE</td></tr>
796 $(show_info_links "$DEPENDS" "$(_ 'Depends')" 'info')
797 $(show_info_links "$SUGGESTED" "$(_ 'Suggested')" 'info')
798 </tbody>
799 </table>
800 EOT
801 DESC="$(tazpkg desc $pkg)"
802 [ -n "$DESC" ] && echo "<pre>$DESC</pre>"
804 if [ -d $INSTALLED/$pkg ]; then
805 cat << EOT
806 <p>$(_ 'Installed files: %s' $(wc -l < $INSTALLED/$pkg/files.list))</p>
808 <pre>$(sort $INSTALLED/$pkg/files.list)</pre>
809 EOT
810 else
811 cat << EOT
812 <p>$(_ 'Installed files: %s' ' ')</p>
814 <pre>
815 $(lzcat files.list.lzma undigest/*/files.list.lzma 2> /dev/null | awk -vp="$pkg:" '$1==p{print $2}' | sort)
816 </pre>
817 EOT
818 fi
819 ;;
822 *\ admin\ * )
823 #
824 # TazPkg configuration page
825 #
826 cmd=$(GET admin)
827 case "$cmd" in
828 clean)
829 rm -rf $CACHE_DIR/* ;;
830 add-mirror)
831 # Decode url
832 mirror=$(GET mirror)
833 case "$mirror" in
834 http://*|ftp://*)
835 echo "$mirror" >> $(GET file) ;;
836 esac ;;
837 rm-mirror=http://*|rm-mirror=ftp://*)
838 mirror=${cmd#rm-mirror=}
839 sed -i -e "s@$mirror@@" -e '/^$/d' $(GET file) ;;
840 select-mirror*)
841 release=$(cat /etc/slitaz-release)
842 mirror="$(GET mirror)packages/$release/"
843 tazpkg setup-mirror $mirror | log
844 ;;
845 add-repo)
846 # Decode url
847 mirror=$(GET mirror)
848 repository=$PKGS_DB/undigest/$(GET repository)
849 case "$mirror" in
850 http://*|ftp://*)
851 mkdir -p $repository
852 echo "$mirror" > $repository/mirror
853 echo "$mirror" > $repository/mirrors ;;
854 esac ;;
855 rm-repo=*)
856 repository=${cmd#rm-repo=}
857 rm -rf $PKGS_DB/undigest/$repository ;;
858 esac
859 [ "$cmd" == "$(_n 'Set link')" ] &&
860 [ -d "$(GET link)/$INSTALLED" ] && ln -fs $(GET link) $PKGS_DB/fslink
861 [ "$cmd" == "$(_n 'Remove link')" ] && rm -f $PKGS_DB/fslink
862 cache_files=$(find $CACHE_DIR -name *.tazpkg | wc -l)
863 cache_size=$(du -sh $CACHE_DIR | cut -f1 | sed 's|\.0||')
864 sidebar
865 cat << EOT
866 <h2>$(_ 'Administration')</h2>
867 <div>
868 <p>$(_ 'TazPkg administration and settings')</p>
869 </div>
870 <div id="actions">
871 $(show_button 'admin=&action=saveconf')
872 $(show_button 'admin=&action=listconf')
873 $(show_button 'admin=&action=quickcheck')
874 $(show_button 'admin=&action=fullcheck')
875 </div>
876 EOT
877 case "$(GET action)" in
878 saveconf)
879 LOADING_MSG=$(_ 'Creating the package...')
880 loading_msg
881 echo "<pre>"
882 cd $HOME
883 tazpkg repack-config | filter_taztools_msgs
884 echo -n "$(_ 'Path:') "; ls $HOME/config-*.tazpkg
885 echo "</pre>" ;;
886 listconf)
887 echo "<h4>$(_ 'Configuration files')</h4>"
888 echo "<ul>"
889 tazpkg list-config | while read file; do
890 if [ -e $file ]; then
891 echo "<li><a href=\"index.cgi?file=$file\">$file</a></li>"
892 else
893 echo "<li>$file</li>"
894 fi
895 done
896 echo "</ul>"
897 ;;
898 quickcheck)
899 LOADING_MSG=$(_ 'Checking packages consistency...')
900 loading_msg
901 echo "<pre>"
902 tazpkg check
903 echo "</pre>" ;;
904 fullcheck)
905 LOADING_MSG=$(_ 'Full packages check...')
906 loading_msg
907 echo "<pre>"
908 tazpkg check --full
909 echo "</pre>" ;;
910 esac
911 cat << EOT
912 <h3>$(_ 'Packages cache')</h3>
914 <div>
915 <form method="get" action="$SCRIPT_NAME">
916 <p>
917 $(_ 'Packages in the cache: %s (%s)' $cache_files $cache_size)
918 <input type="hidden" name="admin" value="clean" />
919 <input type="submit" value="Clean" />
920 </p>
921 </form>
922 </div>
924 <h3>$(_ 'Default mirror')</h3>
926 <pre>$(cat $PKGS_DB/mirror)</pre>
928 <h3>$(_ 'Current mirror list')</h3>
929 EOT
930 for i in $PKGS_DB/mirrors $PKGS_DB/undigest/*/mirrors; do
931 [ -s $i ] || continue
932 echo '<div class="box">'
933 if [ $i != $PKGS_DB/mirrors ]; then
934 Repo_Name="$(repo_name $(dirname $i))"
935 echo "<h4>$(_ 'Repository: %s' $Repo_Name)</h4>"
936 fi
937 echo "<ul>"
938 list_mirrors $i
939 echo "</ul>"
940 cat << EOT
941 </div>
942 <form method="get" action="$SCRIPT_NAME">
943 <p>
944 <input type="hidden" name="admin" value="add-mirror" />
945 <input type="hidden" name="file" value="$i" />
946 <input type="text" name="mirror" size="60">
947 <input type="submit" value="Add mirror" />
948 </p>
949 </form>
950 EOT
951 done
952 echo "<h3>$(_ 'Private repositories')</h3>"
953 [ -n "$(ls $PKGS_DB/undigest 2> /dev/null)" ] && cat << EOT
954 <div class="box">
955 <ul>
956 $(list_repos)
957 </ul>
958 </div>
959 EOT
960 cat << EOT
961 <form method="get" action="$SCRIPT_NAME">
962 <p>
963 <input type="hidden" name="admin" value="add-repo" />
964 $(_ 'Name') <input type="text" name="repository" size="10">
965 $(_ 'mirror')
966 <input type="text" name="mirror" value="http://" size="50">
967 <input type="submit" value="Add repository" />
968 </p>
969 </form>
971 <h3>$(_ 'Link to another SliTaz installation')</h3>
973 <p>$(_ "This link points to the root of another SliTaz installation. \
974 You will be able to install packages using soft links to it.")</p>
976 <form method="get" action="$SCRIPT_NAME">
977 <p>
978 <input type="hidden" name="admin" value="add-link" />
979 <input type="text" name="link"
980 value="$(readlink $PKGS_DB/fslink 2> /dev/null)" size="50">
981 <input type="submit" name="admin" value="$(_ 'Set link')" />
982 <input type="submit" name="admin" value="$(_ 'Remove link')" />
983 </p>
984 </form>
985 EOT
986 version=$(cat /etc/slitaz-release)
987 cat << EOT
989 <h3 id="dvd">$(_ 'SliTaz packages DVD')</h3>
991 <p>$(_ "A bootable DVD image of all available packages for the %s version is \
992 generated every day. It also contains a copy of the website and can be used \
993 without an internet connection. This image can be installed on a DVD or a USB \
994 key." $version)</p>
996 <div>
997 <form method="post" action='?admin&action=dvdimage#dvd'>
998 <p>
999 <a class="button"
1000 href='http://mirror.slitaz.org/iso/$version/packages-$version.iso'>
1001 <img src="$IMAGES/tazpkg.png" />$(_ 'Download DVD image')</a>
1002 <a class="button" href='?admin&action=dvdusbkey#dvd'>
1003 <img src="$IMAGES/tazpkg.png" />$(_ 'Install from DVD/USB key')</a>
1004 </p>
1005 <div class="box">
1006 $(_ 'Install from ISO image:')
1007 <input type="text" name="dvdimage" size="40" value="/root/packages-$version.iso">
1008 </div>
1009 </form>
1010 </div>
1011 EOT
1012 if [ "$(GET action)" == "dvdimage" ]; then
1013 dev=$(POST dvdimage)
1014 mkdir -p /mnt/packages 2> /dev/null
1015 echo "<pre>"
1016 mount -t iso9660 -o loop,ro $dev /mnt/packages &&
1017 /mnt/packages/install.sh &&
1018 _ '%s is installed on /mnt/packages' $dev
1019 echo "</pre>"
1020 fi
1021 if [ "$(GET action)" == "dvdusbkey" ]; then
1022 mkdir -p /mnt/packages 2> /dev/null
1023 for tag in "LABEL=\"packages-$version\" TYPE=\"iso9660\"" \
1024 "LABEL=\"sources-$version\" TYPE=\"iso9660\"" ; do
1025 dev=$(blkid | grep "$tag" | cut -d: -f1)
1026 [ -n "$dev" ] || continue
1027 echo "<pre>"
1028 mount -t iso9660 -o ro $dev /mnt/packages &&
1029 /mnt/packages/install.sh &&
1030 _ '%s is installed on /mnt/packages' $dev
1031 echo "</pre>"
1032 break
1033 done
1034 fi
1035 ;;
1038 *\ license\ *)
1039 #
1040 # Show licenses for installed packages
1041 #
1042 search_form
1043 sidebar
1044 pkg=$(GET license)
1045 case $pkg in
1046 /*)
1047 [ -e $pkg ] && {
1048 echo "<h2>${pkg#/usr/share/licenses/}</h2>"
1049 case $pkg in
1050 *.htm*)
1051 cat $pkg ;;
1052 *)
1053 echo "<pre style=\"white-space: pre-wrap\">"
1054 cat $pkg | htmlize | sed 's|\([hf]t*t*ps*://[a-zA-Z0-9./_-]*[a-zA-Z0-9/_-]\)|<a href="\1">\1</a>|'
1055 echo "</pre>"
1056 ;;
1057 esac
1058 } ;;
1059 *)
1060 echo "<h2>$(_ 'Licenses for package %s' $pkg)</h2>"
1061 ONLINE=''; OFFLINE=''
1063 if [ -e "$PKGS_DB/installed/$pkg" ]; then
1064 for license in $(. $PKGS_DB/installed/$pkg/receipt; echo "$LICENSE"); do
1065 OSL=''; GNU=''; USR=''; LIC=''
1066 case $license in
1067 Apache) OSL='Apache-2.0'; URL='http://www.apache.org/licenses/' ;;
1068 Artistic) OSL='Artistic-2.0' ;;
1069 BSD) OSL='BSD-2-Clause' ;;
1070 BSD3) OSL='BSD-3-Clause' ;;
1072 CC-BY-SA*|CC-SA*) CCO='by-sa/4.0/' ;;
1073 CC-BY-ND*) CCO='by-nd/4.0/' ;;
1074 CC-BY-NC-SA*) CCO='by-nc-sa/4.0/' ;;
1075 CC-BY-NC-ND*) CCO='by-nc-nd/4.0/' ;;
1076 CC-BY-NC*) CCO='by-nc/4.0/' ;;
1077 CC-BY*) CCO='by/4.0/' ;;
1079 cc-pd) URL='http://creativecommons.org/publicdomain/' ;;
1080 CCPL) ;;
1081 CDDL*) OSL='CDDL-1.0' ;;
1082 CECILL*) OSL='CECILL-2.1' ;;
1083 Eclipse|EPL*) OSL='EPL-1.0' ;;
1084 FDL) GNU='fdl' ;;
1085 GPL) GNU='gpl'; OSL='gpl-license'; LIC='gpl.txt' ;;
1086 GPL2) GNU='old-licenses/gpl-2.0'; OSL='GPL-2.0' ;;
1087 GPL3) GNU='gpl'; OSL='GPL-3.0'; LIC='gpl.txt' ;;
1088 ISC) OSL='ISC' ;;
1089 LGPL) GNU='lgpl'; OSL='lgpl-license' ;;
1090 LGPL2) GNU='old-licenses/lgpl-2.0' ;;
1091 LGPL2.1) GNU='old-licenses/lgpl-2.1'; OSL='LGPL-2.1'; LIC='lgpl.txt' ;;
1092 LGPL3) GNU='lgpl'; OSL='LGPL-3.0' ;;
1093 LPPL*) OSL='LPPL-1.3c' ;;
1094 MIT) OSL='MIT'; LIC='mit.txt' ;;
1095 MPL) OSL='MPL-2.0'; LIC='mozilla.txt' ;;
1096 MPL2) OSL='MPL-2.0' ;;
1097 FL) OSL='Fair' ;; # ?
1098 PSL) ;;
1099 PublicDomain) ;;
1100 QPL*) OSL='QPL-1.0' ;;
1101 SIL_OFL*) OSL='OFL-1.1' ;;
1102 zlib/libpng) OSL='Zlib' ;;
1103 esac
1105 [ -n "$OSL" ] && ONLINE="$ONLINE <li><a href=\"http://opensource.org/licenses/$OSL\">$(_ '%s license on %s website' "<b>$OSL</b>" "OSL")</a></li>\n"
1106 [ -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"
1107 [ -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"
1108 [ -n "$URL" ] && ONLINE="$ONLINE <li><a href=\"$URL\">$URL</a></li>\n"
1109 [ -n "$LIC" ] && OFFLINE="$OFFLINE <li><a href=\"?license=/usr/share/licenses/$LIC\">licenses/<b>$LIC</b></a></li>\n"
1110 done
1112 for lic in $(grep /usr/share/licenses/ $PKGS_DB/installed/$pkg/files.list); do
1113 OFFLINE="$OFFLINE <li><a href=\"?license=$lic\">licenses/<b>${lic#/usr/share/licenses/}</b></a></li>\n"
1114 done
1115 fi
1116 [ -n "$ONLINE" ] && echo -e "<p>$(_ 'Read online:')</p>\n<ul>\n$ONLINE</ul>\n"
1117 [ -n "$OFFLINE" ] && echo -e "<p>$(_ 'Read local:')</p>\n<ul>\n$OFFLINE</ul>\n"
1118 ;;
1119 esac
1120 ;;
1123 *\ tag\ *)
1124 #
1125 # Show packages with matching tag; show tag cloud
1126 #
1127 search_form
1128 sidebar
1129 tag=$(GET tag); repo=$(GET repo)
1130 if [ -n "$tag" ]; then
1131 cat << EOT
1132 <h2>$(_ 'Tag "%s"' $tag)</h2>
1134 <form method='get' action='$SCRIPT_NAME'>
1135 <div id="actions">
1136 <div class="float-left">
1137 $(_ 'Selection:')
1138 <input type="submit" name="do" value="Install" />
1139 <input type="submit" name="do" value="Remove" />
1140 <input type="hidden" name="repo" value="$repo" />
1141 </div>
1142 <div class="float-right">
1143 $(show_button tag=)
1144 $(show_button list)
1145 </div>
1146 </div>
1147 EOT
1148 for i in $(repo_list ""); do
1149 [ "$repo" != "Public" ] && echo "<h3>$(_ 'Repository: %s' $(repo_name $i))</h3>"
1151 echo '<table class="zebra outbox pkglist">'
1152 table_head
1153 echo '<tbody>'
1154 make_mixed_list | sort -t$'\t' -k1,1 | awk -F$'\t' -vt="$tag" '
1155 {
1156 if (PKG && PKG != $1) {
1157 if (TAG) {
1158 if (DSCL) DSC = DSCL
1159 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
1160 }
1161 VER = DSC = WEB = DSCL = INS = BLK = TAG = ""
1162 }
1164 PKG = $1
1165 if (NF == 1) { BLK = "b"; next }
1166 if (NF == 2) { DSCL = $2; next }
1167 if (index(" "$6" ", " "t" ")) {
1168 TAG = t
1169 if ($9 == "i") { VER = $2; DSC = $4; WEB = $5; INS = "i"; next}
1170 if (! INS) { VER = $2; DSC = $4; WEB = $5 }
1171 }
1172 }'
1173 echo "</tbody></table>"
1174 done
1175 echo '</form>'
1177 else
1178 echo "<h2>$(_ 'Tags list')</h2>"
1179 echo "<p>"
1180 TAGS="$(awk -F$'\t' '{if($6){print $6}}' $PKGS_DB/packages.info | tr ' ' $'\n' | sort | uniq -c)"
1181 MAX="$(echo "$TAGS" | awk '{if ($1 > MAX) MAX = $1} END{print MAX}')"
1182 echo "$TAGS" | awk -vMAX=$MAX '{
1183 printf "<a class=\"tag%s\" href=\"?tag=%s\" title=\"%s\">%s</a> ", int($1 * 7 / MAX + 1), $2, $1, $2
1184 }'
1185 echo "</p>"
1186 fi
1187 ;;
1190 *)
1191 #
1192 # Default to summary
1193 #
1194 search_form
1195 sidebar
1196 [ -n "$(GET block)" ] && tazpkg block $(GET block)
1197 [ -n "$(GET unblock)" ] && tazpkg unblock $(GET unblock)
1198 cat << EOT
1199 <h2>$(_ 'Summary')</h2>
1201 <div id="actions">
1202 EOT
1203 show_button list
1204 fslink=$(readlink $PKGS_DB/fslink)
1205 [ -n "$fslink" -a -d "$fslink/$INSTALLED" ] && show_button linkable
1206 show_button recharge
1207 show_button up
1208 show_button admin
1209 cat << EOT
1210 </div>
1212 <table class="zebra outbox">
1213 <tbody>
1214 <tr><td>$(_ 'Last recharge:')</td><td>
1215 EOT
1216 ls -l $PKGS_DB/packages.list | awk '{print $6, $7, $8}'
1217 if [ -n "$(find $PKGS_DB/packages.list -mtime +10)" ]; then
1218 _ '(Older than 10 days)'
1219 else
1220 _ '(Not older than 10 days)'
1221 fi
1222 cat << EOT
1223 </td></tr>
1224 <tr><td>$(_ 'Installed packages:')</td>
1225 <td>$(cat $PKGS_DB/installed.info | wc -l)</td></tr>
1226 <tr><td>$(_ 'Mirrored packages:')</td>
1227 <td>$(cat $PKGS_DB/packages.list | wc -l)</td></tr>
1228 <tr><td>$(_ 'Upgradeable packages:')</td>
1229 <td>$(cat $PKGS_DB/packages.up | wc -l)</td></tr>
1230 <tr><td>$(_ 'Installed files:')</td>
1231 <td>$(cat $INSTALLED/*/files.list | wc -l)</td></tr>
1232 <tr><td>$(_ 'Blocked packages:')</td>
1233 <td>$(cat $PKGS_DB/blocked-packages.list | wc -l)</td></tr>
1234 </tbody>
1235 </table>
1237 <h3>$(_ 'Latest log entries')</h3>
1239 <pre>
1240 $(tail -n 5 $LOG | fgrep "-" | awk '{print $1, $2, $3, $4, $5, $6, $7}')
1241 </pre>
1242 EOT
1243 ;;
1244 esac
1246 # xHTML 5 footer
1247 export TEXTDOMAIN='tazpkg'
1248 xhtml_footer
1249 exit 0