tazpkg annotate tazpanel/pkgs.cgi @ rev 720

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