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