tazpkg annotate tazpanel/pkgs.cgi @ rev 755

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