tazpkg annotate tazpanel/pkgs.cgi @ rev 730

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