tazpkg annotate tazpanel/pkgs.cgi @ rev 743

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