tazpkg annotate tazpanel/pkgs.cgi @ rev 744

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