tazpkg: ad921c2aee59 tazpanel/pkgs.cgi

tazpkg view tazpanel/pkgs.cgi @ rev 762

tazpkg: re-make block and unblock, add chblock to change blocking of package; pkgs.cgi: remove website link from packages list, show selected packages count, add '(Un)block' button for bulk operation; pkgs.css: clean old code.

author	Aleksej Bobylev <al.bobylev@gmail.com>
date	Wed Apr 01 04:29:22 2015 +0300 (2015-04-01)
parents	98c62c676216
children	5a6155d9197a

line source

1 #!/bin/sh

2 #

3 # TazPkg CGI interface - Manage packages via a browser

4 #

5 # This CGI interface extensively uses tazpkg to manage packages and have

6 # its own code for some tasks. Please KISS, it is important and keep speed

7 # in mind. Thanks, Pankso.

8 #

10 #

12 . /lib/libtaz.sh

13 . lib/libtazpanel

15 . /etc/slitaz/slitaz.conf

16 . /etc/slitaz/tazpkg.conf

18 get_config

19 header

21 _() { local T="$1"; shift; printf "$(gettext "$T")" "$@"; echo; }

22 _n() { local T="$1"; shift; printf "$(gettext "$T")" "$@"; }

23 _p() {

24 local S="$1" P="$2" N="$3"; shift; shift; shift;

25 printf "$(ngettext "$S" "$P" "$N")" "$@"; }

28 # xHTML 5 header with special side bar for categories.

29 TITLE=$(TEXTDOMAIN='tazpkg'; _ 'TazPanel - Packages')

30 xhtml_header | sed 's/id="content"/id="content-sidebar"/'

32 export TEXTDOMAIN='tazpkg'

34 pkg_info_link() {

35 echo "<a data-icon=\"$2\" href=\"?info=${1//+/%2B}\">$1</a>" | sed 's| data-icon=""||'

36 }

39 # Display localized short description

41 i18n_desc() {

42 for L in $LANG ${LANG%%_*}; do

43 if [ -e "$PKGS_DB/packages-desc.$L" ]; then

44 LOCDESC=$(awk -F$'\t' -vp=$1 '{if ($1 == p) print $2}' $PKGS_DB/packages-desc.$L)

45 if [ -n "$LOCDESC" ]; then

46 SHORT_DESC="$LOCDESC"

47 break

48 fi

49 fi

50 done

51 }

54 # We need packages information for list and search

56 parse_packages_desc() {

57 IFS="|"

58 cut -f 1,2,3 -d "|" | while read PACKAGE VERSION SHORT_DESC

59 do

60 class=pkg; [ -d $INSTALLED/${PACKAGE% } ] && class=pkgi

61 i18n_desc $PACKAGE

62 cat << EOT

63 <tr>

64 <td><input type="checkbox" name="pkg" value="$PACKAGE">$(pkg_info_link $PACKAGE $class)</td>

65 <td>$VERSION</td>

66 <td>$SHORT_DESC</td>

67 </tr>

68 EOT

69 done

70 unset IFS

71 }

74 parse_packages_info() {

75 IFS=$'\t'

76 while read PACKAGE VERSION CATEGORY SHORT_DESC WEB_SITE TAGS SIZES DEPENDS; do

77 class=pkg; grep -q "^$PACKAGE$'\t'" $PKGS_DB/installed.info && class=pkgi

78 i18n_desc $PACKAGE

79 cat << EOT

80 <tr>

81 <td><input type="checkbox" name="pkg" value="$PACKAGE">$(pkg_info_link $PACKAGE $class)</td>

82 <td>$VERSION</td>

83 <td>$SHORT_DESC</td>

84 </tr>

85 EOT

86 done

87 unset IFS

88 }

91 # Show button

92 show_button() {

93 for button in $@; do

94 class=''; img=''

95 case $button in

96 recharge) class='refresh'; label="$(_ 'Recharge list')" ;;

97 up) class='upgrade'; label="$(_ 'Check upgrades')" ;;

98 list) class='list'; label="$(_ 'My packages')" ;;

99 tags) class='tags'; label="$(_ 'Tags')" ;;

100 linkable) class='link'; label="$(_ 'Linkable packages')" ;;

101 admin) class='admin'; label="$(_ 'Administration')" ;;

102 *Install*nf*) class='install'; label="$(_ 'Install (Non Free)')" ;;

103 *Install*) class='install'; label="$(_ 'Install')" ;;

104 *Remove*) class='remove'; label="$(_ 'Remove')" ;;

105 *Link*) class='link'; label="$(_ 'Link')" ;;

106 *Block*) class='lock'; label="$(_ 'Block')" ;;

107 *Unblock*) class='unlock'; label="$(_ 'Unblock')" ;;

108 *Chblock*) class='chlock'; label="$(_ '(Un)block')" ;;

109 *Repack*) class='repack'; label="$(_ 'Repack')" ;;

110 *saveconf*) class='save'; label="$(_ 'Save configuration')" ;;

111 *listconf*) class='list'; label="$(_ 'List configuration files')" ;;

112 *quickcheck*) class='check'; label="$(_ 'Quick check')" ;;

113 *fullcheck*) class='check'; label="$(_ 'Full check')" ;;

114 *clean*) class='remove'; label="$(_ 'Clean')" ;;

115 *setlink*) class='link'; label="$(_ 'Set link')" ;;

116 *removelink*) class='unlink'; label="$(_ 'Remove link')" ;;

117 *add-mirror) class='add'; label="$(_n 'Add mirror')" ;;

118 *add-repo) class='add'; label="$(_n 'Add repository')" ;;

119 toggle) class='toggle'; label="$(_n 'Toggle all')" ;;

120 esac

121 if [ "$button" == 'toggle' ]; then

122 echo -n "<span class=\"float-right\"><button data-icon=\"$class\" onclick=\"checkBoxes()\">$label</button></span>"

123 else

124 echo -n "<button data-icon=\"$class\" name=\"${button%%=*}\" value=\"${button#*=}\">$label</button>"

125 fi

126 done

127 }

128

129

130

131 #

132 # xHTML functions

133 #

134

135

136 # ENTER will search but user may search for a button, so put one.

137

138 search_form() {

139 [ -z "$repo" ] && repo="$(GET repo)"

140 [ -z "$repo" ] && repo="Any"

141 cat << EOT

142 <form class="search"><!--

143 --><input type="search" name="search" results="5" autosave="pkgsearch" autocomplete="on"><!--

144 --><button type="submit">$(_n 'Search')</button><!--

145 --><button name="files" value="yes">$(_n 'Files')</button><!--

146 --></form>

147 EOT

148 }

149

150

151 table_head() {

152 cat << EOT

153 <table class="wide zebra pkglist" id="head1">

154 <thead id="head2">

155 <tr>

156 <td>$(_ 'Name')</td>

157 <td>$(_ 'Version')</td>

158 <td>$(_ 'Description')</td>

159 </tr>

160 </thead>

161 <tbody>

162 EOT

163 }

164

165

166 sidebar() {

167 repo=$(COOKIE repo); repo=${repo:-Public}; [ -n "$(GET repo)" ] && repo=$(GET repo)

168 my=$(COOKIE my); my=${my:-my}; [ -n "$(GET my)" ] && my=$(GET my)

169 cat=$(COOKIE cat); cat=${cat:-all}; [ -n "$(GET cat)" ] && cat=$(GET cat)

170

171 cat << EOT

172 <script type="text/javascript">

173 function setCookie(name) {

174 document.cookie = name+"="+document.getElementById(name).value; }

175 function setValue(name, value) {

176 document.getElementById(name).value=value;

177 setCookie(name); }

178 </script>

179 <form method="post" action="?list">

180

181 <div id="sidebar">

182 <select id="my" value="$my" onchange="setCookie('my'); this.form.submit()">

183 <option value="my">$(_ 'My packages')</option>

184 <option value="no">$(_ 'All packages')</option>

185 </select>

186

187 <h4>$(_ 'Categories')</h4>

188

189 <div class="select_wrap">

190 <select id="cat" size="16" onclick="setCookie('cat'); this.form.submit()">

191 <option value="base-system" >$(_ 'base-system')</option>

192 <option value="x-window" >$(_ 'x-window')</option>

193 <option value="utilities" >$(_ 'utilities')</option>

194 <option value="network" >$(_ 'network')</option>

195 <option value="games" >$(_ 'games')</option>

196 <option value="graphics" >$(_ 'graphics')</option>

197 <option value="office" >$(_ 'office')</option>

198 <option value="multimedia" >$(_ 'multimedia')</option>

199 <option value="development" >$(_ 'development')</option>

200 <option value="system-tools">$(_ 'system-tools')</option>

201 <option value="security" >$(_ 'security')</option>

202 <option value="misc" >$(_ 'misc')</option>

203 <option value="meta" >$(_ 'meta')</option>

204 <option value="non-free" >$(_ 'non-free')</option>

205 <option value="all" >$(_ 'all')</option>

206 <option value="extra" >$(_ 'extra')</option>

207 </select>

208 <script type="text/javascript">

209 setValue('my', "$my")

210 setValue('cat', "$cat")

211 </script>

212 </div>

213 EOT

214

215 if [ -d $PKGS_DB/undigest ]; then

216 cat << EOT

217 <h4>$(_ 'Repository')</h4>

218

219 <select id="repo" onchange="setCookie('repo')">

220 <option value="Public">$(_ 'Public')</option>

221 $(for i in $(ls $PKGS_DB/undigest); do

222 echo "<option value=\"$i\">$i</option>"

223 done)

224 <option value="Any">$(_ 'Any')</option>

225 </select>

226 <script type="text/javascript">setValue('repo', "$repo")</script>

227 EOT

228 fi

229 cat << EOT

230 <a data-icon="tags" href="?tags">$(_ 'All tags...')</a><br/>

231 <a data-icon="list" href="?cats">$(_ 'All categories...')</a>

232 </div>

233 </form>

234 EOT

235 }

236

237

238 repo_list() {

239 if [ -n "$(ls $PKGS_DB/undigest/ 2> /dev/null)" ]; then

240 case "$repo" in

241 Public)

242 ;;

243 ""|Any)

244 for i in $PKGS_DB/undigest/* ; do

245 [ -d "$i" ] && echo "$i$1"

246 done ;;

247 *)

248 echo "$PKGS_DB/undigest/$repo$1"

249 return ;;

250 esac

251 fi

252 echo "$PKGS_DB$1"

253 }

254

255

256 repo_name() {

257 case "$1" in

258 $PKGS_DB)

259 echo "Public" ;;

260 $PKGS_DB/undigest/*)

261 echo ${1#$PKGS_DB/undigest/} ;;

262 esac

263 }

264

265

266 header_repo_name() {

267 [ -d $PKGS_DB/undigest ] && [ "$repo" != "Public" ] && \

268 _ 'Repository: %s' $(repo_name $1)

269 }

270

271

272 # Print links to the pages

273

274 pager() {

275 PAGE_SIZE=${PAGE_SIZE:-100}

276 [ "$PAGE_SIZE" != "0" ] && \

277 awk -F'"' -vpage="$page" -vsize="$PAGE_SIZE" -vnum_lines="$(wc -l < $1)" -vtext="$(_ 'Pages:') " -vurl="?list&page=" '

278 BEGIN{

279 num_pages = int(num_lines / size) + (num_lines % size != 0)

280 if (num_pages != 1) printf "<p>%s", text

281 }

282 {

283 if (num_pages == 1) exit

284 r = NR % size

285 if (r == 1) {

286 p = int(NR / size) + 1

287 printf "<button class=\"pages%s\" name=\"page\" value=\"%s\" title=\"%s\n···\n", p==page?" current":"", p, $6

288 } else if (r == 0)

289 printf "%s\">%s</button> ", $6, int(NR / size)

290 }

291 END{

292 if (num_pages == 1) exit

293 if (r != 0) printf "%s\">%s</button>", $6, int(NR / size) + 1

294 print "</p>"

295 }' $1

296 }

297

298

299 # Show packages list by category or tag

300

301 show_list() {

302 PAGE_SIZE=${PAGE_SIZE:-100}

303 page=$(GET page); page=${page:-1}

304 cached=$(mktemp)

305 [ -n "$tag" ] && cat=''

306 {

307 for L in $LANG ${LANG%%_*}; do

308 if [ -e "$PKGS_DB/packages-desc.$L" ]; then

309 sed '/^#/d' $PKGS_DB/packages-desc.$L; break

310 fi

311 done

312 [ -e "$i/blocked-packages.list" ] && cat $i/blocked-packages.list

313 sed 's|.*|&\ti|' $i/installed.info

314 [ "$cat" == 'extra' ] || [ $1 == 'my' ] || cat $i/packages.info

315 [ "$cat" == 'extra' ] &&

316 sed 's,$[^|]*$|*$[^|]*$.*,\1\t-\textra\t\2\thttp://mirror.slitaz.org/packages/get/\1\t-\t-\t-,' $PKGS_DB/extra.list

317 } | sort -t$'\t' -k1,1 | sed '/^$/d' | awk -F$'\t' -vc="${cat:--}" -vt="${tag:--}" '

318 {

319 if (PKG && PKG != $1) {

320 if (SEL) {

321 if (DSCL) DSC = DSCL

322 printf "<tr><td><input type=\"checkbox\" name=\"pkg\" value=\"%s\" id=\"%s\">", PKG, PKG

323 printf "<a data-icon=\"pkg%s%s\" href=\"?info=%s\">%s</a></td>", INS, BLK, gensub(/\+/, "%2B", "g", PKG), PKG

324 printf "<td>%s</td><td>%s</td><td><a href=\"%s\"></a></td></tr>\n", VER, DSC, WEB

325 }

326 VER = DSC = WEB = DSCL = INS = BLK = SEL = ""

327 }

328

329 PKG = $1

330 if (NF == 1) { BLK = "b"; next }

331 if (NF == 2) { DSCL = $2; next }

332 if (c == "all" || $3 == c || index(" "$6" ", " "t" ")) { SEL = 1 }

333 if (SEL) {

334 if ($9 == "i") { VER = $2; DSC = $4; WEB = $5; INS = "i"; next}

335 if (! INS) { VER = $2; DSC = $4; WEB = $5 }

336 }

337 }' > $cached

338

339 pager="$(pager $cached)"

340 case $PAGE_SIZE in

341 0) list="$(cat $cached)";;

342 *) list="$(tail -n+$((($page-1)*$PAGE_SIZE+1)) $cached | head -n$PAGE_SIZE)";;

343 esac

344

345 if [ "$pager" != "<p>$(_ 'Pages:') </p>" ] && [ -n "${list:1:1}" ]; then

346 cat << EOT

347 <h3>$(header_repo_name $i)</h3>

348 $pager

349 $(table_head)

350 $list

351 </tbody></table>

352 $pager

353 EOT

354 fi

355 rm -f $cached

356

357

358 ### Re-select packages when you return to the page

359

360 # Find the packages list

361 pkgs=$(echo "$QUERY_STRING&" | awk 'BEGIN{RS="&";FS="="}

362 {if ($1=="pkg") printf "\"%s\", ", $2}')

363 pkgs=$(httpd -d "${pkgs%, }")

364 # now pkgs='"pkg1", "pkg2", ... "pkgn"'

365

366 if [ -n "$pkgs" ]; then

367 cat << EOT

368 <script type="text/javascript">

369 var pkgs = [$pkgs];

370 var theForm = document.getElementById('pkglist');

371 for (index = 0; index < pkgs.length; index++) {

372 if (document.getElementById(pkgs[index])) {

373 // check existing

374 document.getElementById(pkgs[index]).checked = 'true';

375 }

376 else {

377 // add other as hidden

378 var hInput = document.createElement('input');

379 hInput.type = 'hidden';

380 hInput.name = 'pkg';

381 hInput.value = pkgs[index];

382 theForm.appendChild(hInput);

383 }

384 }

385 document.getElementById('countSelected').innerText = pkgs.length;

386 </script>

387 EOT

388 fi

389 }

390

391

392 # Show links for "info" page

393

394 show_info_links() {

395 if [ -n "$1" ]; then

396 echo -n "<tr><td><b>$2</b></td><td>"

397 echo $1 | tr ' ' $'\n' | awk -vt="$3" '{

398 printf "<a href=\"?%s=%s\">%s</a> ", t, gensub(/\+/, "%2B", "g", $1), $1

399 }'

400 echo "</td></tr>"

401 fi

402 }

403

404

405

406 #

407 # Commands

408 #

409

410

411 case " $(GET) " in

412

413

414 *\ linkable\ *)

415 #

416 # List linkable packages.

417 #

418 search_form; sidebar

419 LOADING_MSG=$(_ 'Listing linkable packages...'); loading_msg

420

421 cat << EOT

422 <h2>$(_ 'Linkable packages')</h2>

423

424 <form class="wide">

425 $(_ 'Selection:') $(show_button do=Link)

426 EOT

427 table_head

428 target=$(readlink $PKGS_DB/fslink)

429 for pkg in $(ls $target/$INSTALLED); do

430 [ -s $pkg/receipt ] && continue

431 . $target/$INSTALLED/$pkg/receipt

432 i18n_desc $pkg

433 cat << EOT

434 <tr>

435 <td><input type="checkbox" name="pkg" value="$pkg" /><a data-icon="pkg" href="?info=${pkg//+/%2B}">$pkg</a></td>

436 <td>$VERSION</td>

437 <td>$SHORT_DESC</td>

438 <td><a data-img="web" href="$WEB_SITE"></a></td>

439 </tr>

440 EOT

441 done

442 cat << EOT

443 </tbody>

444 </table>

445 </form>

446 EOT

447 ;;

448

449

450 *\ cats\ *)

451 #

452 # List of all categories.

453 #

454 search_form; sidebar

455

456 echo "<h2>$(_ 'Categories list')</h2>"

457

458 for pkgsinfo in $(repo_list /packages.info); do

459 cat << EOT

460 <section>

461 <header>$(header_repo_name $(dirname $pkgsinfo))</header>

462 <table class="wide zebra center">

463 <thead>

464 <tr>

465 <td>$(_ 'Category')</td>

466 <td>$(_ 'Available packages')</td>

467 <td>$(_ 'Installed packages')</td>

468 </tr>

469 </thead>

470 <tbody>

471 EOT

472 {

473 awk -F$'\t' '{print $3}' $pkgsinfo | sort | uniq -c

474 awk -F$'\t' '{print $3}' $PKGS_DB/installed.info | sed 's|.*|& i|' | sort | uniq -c

475 } | sort -k2,2 | awk '

476 {

477 c [$2] = "."

478 if ($3) { i[$2] = $1; } else { m[$2] = $1; }

479 }

480 END {

481 for (n in c) print n, m[n], i[n]

482 }' | sort | awk '{

483 printf "<tr><td><a href=\"?list&cat=%s\">%s</a></td><td>%d</td><td>%d</td></tr>", $1, $1, $2, $3

484 }'

485 cat << EOT

486 </tbody>

487 </table>

488 </section>

489 EOT

490 done

491 ;;

492

493

494 *\ list\ *|*\ page\ *)

495 #

496 # List all packages by category.

497 #

498 search_form; sidebar

499 LOADING_MSG="$(_ 'Listing packages...')"; loading_msg

500

501 bcat="<b>$cat</b>"; brepo="<b>$repo</b>"

502 case $repo in

503 Any)

504 case $my in

505 my) title="$(_ 'Installed packages of category "%s"' "$bcat")" ;;

506 *) title="$(_ 'All packages of category "%s"' "$bcat")" ;;

507 esac ;;

508 *)

509 case $my in

510 my) title="$(_ 'Installed packages of category "%s" in repository "%s"' "$bcat" "$brepo")" ;;

511 *) title="$(_ 'All packages of category "%s" in repository "%s"' "$bcat" "$brepo")" ;;

512 esac ;;

513 esac

514

515 cat << EOT

516 <h2>$(_ 'Packages list')</h2>

517 <p>$title</p>

518

519 <section>

520 <div>$(_ 'Selected packages:') <span id="countSelected"></span></div>

521 <footer>

522 $({

523 [ "$my" != 'my' ] && show_button do=Install

524 show_button do=Chblock do=Remove

525 } | sed 's|button |button form="pkglist" |g')

526 $(show_button toggle)

527 </footer>

528 </section>

529

530 <form id="pkglist" class="wide">

531 EOT

532 for i in $(repo_list ""); do

533 show_list ${my#no}

534 done

535 cat << EOT

536 </form>

537 <script type="text/javascript">window.onscroll = scrollHandler; setCountSelPkgs();</script>

538 EOT

539 ;;

540

541

542 *\ search\ *)

543 #

544 # Search for packages. Here default is to search in packages.desc

545 # and so get result including packages names and descriptions

546 #

547 pkg=$(GET search); [ -z "$pkg" ] && xhtml_footer && exit

548 cd $PKGS_DB

549

550 search_form | sed "s|name=\"search\"|& value=\"$pkg\"|"

551 sidebar

552 LOADING_MSG="$(_ 'Searching packages...')"; loading_msg

553

554 cat << EOT

555 <h2>$(_ 'Search packages')</h2>

556

557 <section>

558 <div>$(_ 'Selected packages:') <span id="countSelected"></span></div>

559 <footer>

560 $(show_button do=Install do=Chblock do=Remove | sed 's|button |button form="pkglist" |g')

561 $(show_button toggle)

562 </footer>

563 </section>

564

565 <form id="pkglist" class="wide">

566 EOT

567 if [ -n "$(GET files)" ]; then

568 cat <<EOT

569 <table class="wide zebra filelist">

570 <thead>

571 <tr>

572 <td>$(_ 'Package')</td>

573 <td>$(_ 'File')</td>

574 </tr>

575 <thead>

576 <tbody>

577 EOT

578 lzcat $(repo_list /files.list.lzma) | grep -Ei ": .*$(GET search)" | \

579 while read PACKAGE FILE; do

580 PACKAGE=${PACKAGE%:}

581 class=pkg; [ -d $INSTALLED/$PACKAGE ] && class=pkgi

582 cat << EOT

583 <tr>

584 <td><input type="checkbox" name="pkg" value="$PACKAGE">$(pkg_info_link $PACKAGE $class)</td>

585 <td>$(echo "$FILE" | sed "s|$pkg|<span class=\"diff-add\">&</span>|gI")</td>

586 </tr>

587 EOT

588 done

589 else

590 table_head

591 awk -F$'\t' 'BEGIN{IGNORECASE = 1}

592 $1 " " $4 ~ /'$pkg'/{print $0}' $(repo_list /packages.info) | parse_packages_info

593 fi

594 cat << EOT

595 </tbody>

596 </table>

597 </form>

598 <script type="text/javascript">window.onscroll = scrollHandler; setCountSelPkgs();</script>

599 EOT

600 ;;

601

602

603 *\ recharge\ *)

604 #

605 # Lets recharge the packages list

606 #

607 search_form; sidebar

608 LOADING_MSG="$(_ 'Recharging lists...')"; loading_msg

609

610 cat << EOT

611 <h2>$(_ 'Recharge')</h2>

612

613 <form>

614 <div id="actions">

615 <p>$(_ 'Recharge checks for new or updated packages')</p>

616 <div class="float-right">$(show_button up)</div>

617 </div>

618

619 <pre>

620 EOT

621 echo $(_ 'Recharging packages list') | log

622 tazpkg recharge | filter_taztools_msgs

623 cat << EOT

624 </pre>

625

626 <p>$(_ 'Packages lists are up-to-date. You should check for upgrades now.')</p>

627 EOT

628 ;;

629

630

631 *\ up\ *)

632 #

633 # Upgrade packages

634 #

635 search_form; sidebar

636 LOADING_MSG="$(_ 'Checking for upgrades...')"; loading_msg

637

638 cat << EOT

639 <h2>$(_ 'Up packages')</h2>

640

641 <section>

642 <div>$(_ 'Selected packages:') <span id="countSelected"></span></div>

643 <footer>

644 $(show_button do=Install do=Chblock do=Remove | sed 's|button |button form="pkglist" |g')

645 $(show_button toggle)

646 </footer>

647 </section>

648

649 <form id="pkglist" class="wide">

650 EOT

651 # Ask tazpkg to make "packages.up" file

652 tazpkg up --check >/dev/null

653 table_head

654

655 for pkg in $(cat $PKGS_DB/packages.up); do

656 grep -hs "^$pkg " $PKGS_DB/packages.info $PKGS_DB/undigest/*/packages.info | parse_packages_info

657 done

658

659 cat << EOT

660 </tbody>

661 </table>

662 </form>

663 <script type="text/javascript">window.onscroll = scrollHandler; setCountSelPkgs();</script>

664 EOT

665 ;;

666

667

668 *\ do\ *)

669 #

670 # Do an action on one or some packages

671 #

672 search_form; sidebar

673 loading_msg

674

675 # Find the command

676 cmd=$(echo $(GET do) | tr [:upper:] [:lower:])

677

678 # Find the packages list

679 pkgs=$(echo $QUERY_STRING | awk 'BEGIN{RS="&";FS="="}{if($1=="pkg")print $2}')

680 pkgs=$(httpd -d "$pkgs")

681

682 # Describe the command

683 bpkgs="<b>$pkgs</b>"; opt=''

684 case $cmd in

685 install) MSG="$(_ 'Installing: %s' "$bpkgs")"; opt=--forced; cmd=get-install ;;

686 remove) MSG="$(_ 'Removing: %s' "$bpkgs")" ;;

687 link) MSG="$(_ 'Linking: %s' "$bpkgs")"; opt=$(readlink $PKGS_DB/fslink) ;;

688 block) MSG="$(_ 'Blocking: %s' "$bpkgs")" ;;

689 unblock) MSG="$(_ 'Unblocking: %s' "$bpkgs")" ;;

690 chblock) MSG="$(_ '(Un)blocking: %s' "$bpkgs")" ;;

691 repack) MSG="$(_ 'Repacking: %s' "$bpkgs")" ;;

692 esac

693

694 cat << EOT

695 <h2>TazPkg: $(GET do)</h2>

696 <p>$MSG</p>

697 EOT

698 # Do the command for all asked packages

699 for pkg in $pkgs; do

700 echo '<pre>'

701 echo $(_n 'y') | tazpkg $cmd $pkg $opt 2>/dev/null | filter_taztools_msgs

702 echo '</pre>'

703 done ;;

704

705

706 *\ info\ *)

707 #

708 # Packages info

709 #

710 pkg=$(GET info)

711 search_form; sidebar

712 LOADING_MSG=$(_ 'Getting package info...'); loading_msg

713

714 cat << EOT

715 <section>

716 <header>

717 $(_ 'Package %s' $pkg)

718 <form>

719 <input type="hidden" name="pkg" value="${pkg#get-}"/>

720 EOT

721

722 # Get receipt variables, show Install/Remove buttons

723 if [ -d $INSTALLED/$pkg ]; then

724 . $INSTALLED/$pkg/receipt

725 files=$(wc -l < $INSTALLED/$pkg/files.list)

726 show_button do=Remove

727 else

728 cd $PKGS_DB

729 eval "$(awk -F$'\t' -vp=$pkg '

730 $1==p{

731 printf "PACKAGE=\"%s\"; VERSION=\"%s\"; CATEGORY=\"%s\"; ", $1, $2, $3

732 printf "SHORT_DESC=\"%s\"; WEB_SITE=\"%s\"; TAGS=\"%s\"; ", $4, $5, $6

733 printf "SIZES=\"%s\"; DEPENDS=\"%s\"", $7, $8

734 }' packages.info undigest/*/packages.info)"

735 PACKED_SIZE=${SIZES% *}

736 UNPACKED_SIZE=${SIZES#* }

737 if [ "${pkg#get-}" != "$pkg" ]; then

738 show_button "do=Install&nf"

739 else

740 show_button do=Install

741 fi

742 fi

743

744 # Show Block/Unblock, and Repack buttons

745 if [ -d $INSTALLED/$pkg ]; then

746 if grep -qs "^$pkg$" $PKGS_DB/blocked-packages.list; then

747 show_button do=Unblock

748 else

749 show_button do=Block

750 fi

751 show_button do=Repack

752 fi

753

754 # Translate short description

755 i18n_desc $pkg

756

757 # Show info table

758 cat << EOT

759 </form>

760 </header>

761

762 <table class="wide zebra summary">

763 <tbody>

764 <tr><td><b>$(_ 'Name')</b></td><td>$PACKAGE</td></tr>

765 <tr><td><b>$(_ 'Version')</b></td><td>$VERSION</td></tr>

766 <tr><td><b>$(_ 'Category')</b></td><td><a href="?list&cat=$CATEGORY">$CATEGORY</a></td></tr>

767 <tr><td><b>$(_ 'Description')</b></td><td>$SHORT_DESC</td></tr>

768 $([ -n "$MAINTAINER" ] && echo "<tr><td><b>$(_ 'Maintainer')</b></td><td>$MAINTAINER</td></tr>")

769 $([ -n "$LICENSE" ] && echo "<tr><td><b>$(_ 'License')</b></td><td><a href=\"?license=$pkg\">$LICENSE</a></td></tr>")

770 <tr><td><b>$(_ 'Website')</b></td><td><a href="$WEB_SITE" target="_blank">$WEB_SITE</a></td></tr>

771 $(show_info_links "$TAGS" "$(_ 'Tags')" 'tag')

772 <tr><td><b>$(_ 'Sizes')</b></td><td>$PACKED_SIZE/$UNPACKED_SIZE</td></tr>

773 $(show_info_links "$DEPENDS" "$(_ 'Depends')" 'info')

774 $(show_info_links "$SUGGESTED" "$(_ 'Suggested')" 'info')

775 </tbody>

776 </table>

777 </section>

778 EOT

779

780 # Show description

781 DESC="$(tazpkg desc $pkg)"

782 [ -n "$DESC" ] && echo "<section><pre>$DESC</pre></section>"

783

784 # Show configuration files list

785 CONFIGS="$(tazpkg list-config $pkg | sed 's|$.*$|\1 \1|')"

786 [ -n "$CONFIGS" ] && cat << EOT

787 <section>

788 <header>$(_ 'Configuration files')</header>

789 <pre>$(printf '<a href="index.cgi?file=%s">%s</a>\n' $CONFIGS)</pre>

790 </section>

791 EOT

792

793 # Show installed files list

794 if [ -d $INSTALLED/$pkg ]; then

795 cat << EOT

796 <section>

797 <header>$(_ 'Installed files: %s' $(wc -l < $INSTALLED/$pkg/files.list))</header>

798 <pre>$(sort $INSTALLED/$pkg/files.list)</pre>

799 </section>

800 EOT

801 else

802 cat << EOT

803 <section>

804 <header>$(_ 'Installed files: %s' ' ')</header>

805 <pre>$(lzcat files.list.lzma undigest/*/files.list.lzma 2> /dev/null | awk -vp="$pkg:" '$1==p{print $2}' | sort)</pre>

806 </section>

807 EOT

808 fi

809 ;;

810

811

812 *\ admin\ * )

813 #

814 # TazPkg configuration page

815 #

816 cmd=$(GET admin)

817 pager="$(GET pager)"; pager=${pager:-$PAGE_SIZE}; pager=${pager:-100}

818 mirror="$(GET mirror)"; mirror="${mirror%/}/"

819 repository="$PKGS_DB/undigest/$(GET repository)"

820 link="$(GET link)"; link=${link%/}

821 search_form; sidebar

822 loading_msg

823

824 case "$cmd" in

825 clean)

826 rm -rf $CACHE_DIR/* ;;

827 add-mirror)

828 echo "$mirror" >> $(GET file) ;;

829 rm-mirror)

830 sed -i "/^"$(echo $mirror | sed 's|/|\\/|g')"$/d" $(GET file) ;;

831 select-mirror)

832 tazpkg setup-mirror "${mirror}packages/$(cat /etc/slitaz-release)/" | log ;;

833 add-repo)

834 mkdir -p $repository

835 echo "$mirror" > $repository/mirror

836 echo "$mirror" > $repository/mirrors ;;

837 rm-repo)

838 rm -rf $repository ;;

839 setlink)

840 [ -d "$link/$INSTALLED" ] && ln -fs $link $PKGS_DB/fslink ;;

841 removelink)

842 rm -f $PKGS_DB/fslink ;;

843 pager)

844 TP_CONF=/etc/slitaz/tazpanel.conf

845 if [ -z "$PAGE_SIZE" ]; then

846 echo -e "\n# Size of packages list page\nPAGE_SIZE=\"$pager\"" >> $TP_CONF

847 else

848 sed -i "s|PAGE_SIZE=.*|PAGE_SIZE=\"$pager\"|" $TP_CONF

849 fi ;;

850 esac

851

852 cat << EOT

853 <h2>$(_ 'Administration')</h2>

854

855 <p>$(_ 'TazPkg administration and settings')</p>

856

857 <form id="actions">

858 <input type="hidden" name="admin"/>

859 $(show_button action=saveconf action=listconf action=quickcheck action=fullcheck)

860 </form>

861 EOT

862 case "$(GET action)" in

863 saveconf)

864 LOADING_MSG=$(_ 'Creating the package...'); loading_msg

865 echo "<pre>"

866 cd /tmp

867 tazpkg repack-config | filter_taztools_msgs

868 echo -n "$(_ 'Path:') "; ls /tmp/config-*.tazpkg

869 echo "</pre>" ;;

870 listconf)

871 echo "<h4>$(_ 'Configuration files')</h4>"

872 echo "<ul>"

873 tazpkg list-config | while read file; do

874 if [ -e $file ]; then

875 echo "<li><a href=\"index.cgi?file=$file\">$file</a></li>"

876 else

877 echo "<li>$file</li>"

878 fi

879 done

880 echo "</ul>" ;;

881 quickcheck)

882 LOADING_MSG=$(_ 'Checking packages consistency...'); loading_msg

883 echo "<pre>"

884 tazpkg check

885 echo "</pre>" ;;

886 fullcheck)

887 LOADING_MSG=$(_ 'Full packages check...'); loading_msg

888 echo "<pre>"

889 tazpkg check --full

890 echo "</pre>" ;;

891 dvdimage)

892 dev=$(POST dvdimage)

893 mkdir -p /mnt/packages 2> /dev/null

894 echo "<pre>"

895 mount -t iso9660 -o loop,ro $dev /mnt/packages &&

896 /mnt/packages/install.sh &&

897 _ '%s is installed on /mnt/packages' $dev

898 echo "</pre>" ;;

899 dvdusbkey)

900 mkdir -p /mnt/packages 2> /dev/null

901 for tag in "LABEL=\"packages-$version\" TYPE=\"iso9660\"" \

902 "LABEL=\"sources-$version\" TYPE=\"iso9660\"" ; do

903 dev=$(blkid | grep "$tag" | cut -d: -f1)

904 [ -n "$dev" ] || continue

905 echo "<pre>"

906 mount -t iso9660 -o ro $dev /mnt/packages &&

907 /mnt/packages/install.sh &&

908 _ '%s is installed on /mnt/packages' $dev

909 echo "</pre>"

910 break

911 done ;;

912 esac

913

914 cache_files=$(find $CACHE_DIR -name '*.tazpkg' | wc -l)

915 cache_size=$(du -sh $CACHE_DIR | cut -f1 | sed 's|\.0||')

916 [ "$cache_files" == 0 ] && cache_size="0K"

917 mirror=$(cat $PKGS_DB/mirror)

918 default_mirror=${mirror%/packages/*}

919 cat << EOT

920 <section>

921 <header>$(_ 'Packages cache')</header>

922 <form class="wide">

923 <div>$(_ 'Packages in the cache: %s (%s)' $cache_files $cache_size)</div>

924 <footer>$(show_button admin=clean)</footer>

925 </form>

926 </section>

927

928

929 <section>

930 <header>$(_ 'Current mirror list')</header>

931 EOT

932

933 # List mirrors

934 version=$(cat /etc/slitaz-release)

935 for i in $PKGS_DB/mirrors $PKGS_DB/undigest/*/mirrors; do

936 [ -s $i ] || continue

937 if [ $i != $PKGS_DB/mirrors ]; then

938 echo "<h4>$(_ 'Repository: %s' "$(repo_name $(dirname $i))")</h4>"

939 fi

940 cat << EOT

941 <form class="wide">

942 <input type="hidden" name="admin" value="select-mirror"/>

943 <table class="wide zebra">

944 EOT

945 while read line; do

946 cat << EOT

947 <tr>

948 <td>

949 <input type="radio" name="mirror" id="$line" value="$line" onchange="this.form.submit()"

950 $([ "$line" == "$default_mirror/" ] && echo -n 'checked="checked"')>

951 <label for="$line"><code>$line</code></label></td>

952 <td><a data-img="web" href="$line" target="_blank"></a></td>

953 <td><a data-img="remove" href="?admin=rm-mirror&mirror=$line&file=$i" title="$(_ 'Delete')"></a></td>

954 </tr>

955 EOT

956 done < $i

957 cat << EOT

958 </table>

959 </form>

960

961 <form class="wide">

962 <footer>

963 <input type="hidden" name="file" value="$i" />

964 <input type="text" name="mirror" size="40" />

965 $(show_button admin=add-mirror)

966 </footer>

967 </form>

968 EOT

969 done

970 cat << EOT

971 </section>

972

973

974 <section>

975 <header>$(_ 'Private repositories')</header>

976 EOT

977 if [ -n "$(ls $PKGS_DB/undigest 2> /dev/null)" ]; then

978 cat << EOT

979 <table class="wide zebra">

980 EOT

981 ls $PKGS_DB/undigest 2> /dev/null | while read repo ; do

982 cat <<EOT

983 <tr>

984 <td><code>$repo</code></td>

985 <td><a data-img="remove" href="?admin=rm-repo&repository=$repo" title="$(_ 'Delete')"></a></td>

986 </tr>

987 EOT

988 done

989 cat << EOT

990 </table>

991 EOT

992 fi

993

994 cat << EOT

995 <form class="wide">

996 <table>

997 <tr><td>$(_ 'Name')</td><td><input type="text" name="repository" size="10"/></td></tr>

998 <tr><td>$(_ 'URL:')</td><td><input type="text" name="mirror" value="http://"></td></tr>

999 </table>

1000 <footer>

1001 $(show_button admin=add-repo)

1002 </footer>

1003 </form>

1004 </section>

1005

1006

1007 <section>

1008 <header>$(_ 'Link to another SliTaz installation')</header>

1009 <form class="wide">

1010 <div>

1011 $(_ "This link points to the root of another SliTaz installation. You will be able to install packages using soft links to it.")

1012 </div>

1013 <input type="text" name="link" value="$(readlink $PKGS_DB/fslink 2> /dev/null)"/>

1014 <footer>

1015 $(show_button admin=setlink admin=removelink)

1016 </footer>

1017 </form>

1018 </section>

1019

1020

1021 <section>

1022 <header id="dvd">$(_ 'SliTaz packages DVD')</header>

1023

1024 <div>

1025 $(_ "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)

1026

1027 <form method="post" action='?admin&action=dvdimage'>

1028 $(_ 'Install from ISO image:')

1029 <input type="text" name="dvdimage" size="40" value="/root/packages-$version.iso" />

1030 </form>

1031 </div>

1032

1033 <footer>

1034 <button data-icon="download" onclick='http://mirror.slitaz.org/iso/$version/packages-$version.iso'>

1035 $(_ 'Download DVD image')</button>

1036 <button data-icon="link" onclick='?admin&action=dvdusbkey'>

1037 $(_ 'Install from DVD/USB key')</button>

1038 </footer>

1039 </section>

1040

1041

1042 <section>

1043 <header>$(_ 'Packages list')</header>

1044 <form class="wide">

1045 <div>

1046 $(_ 'Long list of packages is paginated. Here you can set the page size (default: 100, turning off the pager: 0).')

1047 </div>

1048 <input type="hidden" name="admin" value="pager"/>

1049 <input type="number" name="pager" value="$pager" min="0" step="10" size="4"/>

1050 <footer>

1051 <button data-icon="ok" type="submit">$(_ 'Set')</button>

1052 </footer>

1053 </form>

1054 </section>

1055 EOT

1056 ;;

1057

1058

1059 *\ license\ *)

1060 #

1061 # Show licenses for installed packages

1062 #

1063 search_form; sidebar

1064

1065 pkg=$(GET license)

1066 case $pkg in

1067 /*) [ -e $pkg ] && {

1068 echo "<h2>${pkg#/usr/share/licenses/}</h2>"

1069 case $pkg in

1070 *.htm*) cat $pkg ;;

1071 *) echo "<pre style=\"white-space: pre-wrap\">"

1073 echo "</pre>"

1074 ;;

1075 esac

1076 } ;;

1077 *) echo "<h2>$(_ 'Licenses for package %s' $pkg)</h2>"

1078 OFFLINE=''

1079 if [ -e "$PKGS_DB/installed/$pkg" ]; then

1080 for lic in $(grep /usr/share/licenses/ $PKGS_DB/installed/$pkg/files.list); do

1081 OFFLINE="$OFFLINE <li><a href=\"?license=$lic\">licenses/<b>${lic#/usr/share/licenses/}</b></a></li>\n"

1082 done

1083 echo "\

1084 Apache|Apache-2.0||||http://www.apache.org/licenses/#Artistic|Artistic-2.0||||#\

1085 BSD|BSD-2-Clause||||#BSD3|BSD-3-Clause||||#CC-BY-SA||by-sa/4.0/|||#\

1086 CC-SA||by-sa/4.0/|||#CC-BY-ND||by-nd/4.0/|||#CC-BY-NC-SA||by-nc-sa/4.0/|||#\

1087 CC-BY-NC-ND||by-nc-nd/4.0/|||#CC-BY-NC||by-nc/4.0/|||#CC-BY||by/4.0/|||#\

1088 cc-pd|||||http://creativecommons.org/publicdomain/#CDDL|CDDL-1.0||||#\

1089 CECILL|CECILL-2.1||||#Eclipse|EPL-1.0||||#EPL|EPL-1.0||||#FDL|||fdl||#\

1090 GPL|gpl-license||gpl|gpl.txt|#GPL2|GPL-2.0||old-licenses/gpl-2.0||#\

1091 GPL3|GPL-3.0||gpl|gpl.txt|#ISC|ISC||||#LGPL|lgpl-license||lgpl||#\

1092 LGPL2|||old-licenses/lgpl-2.0||#\

1093 LGPL2.1|LGPL-2.1||old-licenses/lgpl-2.1|lgpl.txt|#LGPL3|LGPL-3.0||lgpl||#\

1094 LPPL|LPPL-1.3c||||#MIT|MIT|||mit.txt|#MPL|MPL-2.0|||mozilla.txt|#\

1095 MPL2|MPL-2.0||||#PublicDomain|||||http://creativecommons.org/publicdomain/#\

1096 QPL|QPL-1.0||||#SIL_OFL|OFL-1.1||||#OFL|OFL-1.1||||#zlib/libpng|Zlib||||" | \

1097 awk -vlicenses="$(. $PKGS_DB/installed/$pkg/receipt; echo "$LICENSE")" \

1098 -vtext="$(_ '%s license on %s website' %s %s)" \

1099 -vro="$(_ 'Read online:')" -vrl="$(_ 'Read local:')" \

1100 -vofflic="$OFFLINE" '

1101 BEGIN{ FS="|"; RS="#"; split(licenses, lic, " "); if (offlic) OFFLINE[0]=offlic }

1102 function link1(u, l, ll, w) {

1103 return sprintf("\t<li><a href=\"%s%s\">" text "</a></li>", u, l, "<b>" ll "</b>", w) }

1104 function link2(u, l, ll) {

1105 return sprintf("\t<li><a href=\"%s%s\">%s</b></a></li>", u, l, ll) }

1106 function link_osl(n) {

1107 return link1("http://opensource.org/licenses/", n, n, "OSL") }

1108 function link_cc(n) {

1109 split(n, ll, "/")

1110 return link1("http://creativecommons.org/licenses/", n, ll[1], "Creative Commons") }

1111 function link_gnu(n) {

1112 split(n, ll, "/")

1113 return link1("https://www.gnu.org/licenses/", n ".html", ll[2] ? ll[2] : ll[1], "GNU") }

1114 function link_loc(n) {

1115 return link2("?license=/usr/share/licenses/", n, "licenses/<b>" n "</b>") }

1116 function link_url(n) {

1117 return link2(n, "", n) }

1118 {

1119 if ($1 == lic[1] || $1 == lic[2] || $1 == lic[3] || $1 == lic[4]) {

1120 if ($2) ONLINE[$2]=link_osl($2)

1121 if ($3) ONLINE[$3]=link_cc($3)

1122 if ($4) ONLINE[$4]=link_gnu($4)

1123 if ($5) OFFLINE[$5]=link_loc($5)

1124 if ($6) OFFLINE[$6]=link_url($6)

1125 }

1126 }

1127 END{

1128 if (length(ONLINE) > 0) { print "<p>" ro "</p>\n<ul>"; for (o in ONLINE) print ONLINE[o]; print "</ul>" }

1129 if (length(OFFLINE) > 0) { print "<p>" rl "</p>\n<ul>"; for (o in OFFLINE) print OFFLINE[o]; print "</ul>" }

1130 }'

1131 fi ;;

1132 esac

1133 ;;

1134

1135

1136 *\ tags\ *)

1137 #

1138 # Show tag cloud

1139 #

1140 search_form; sidebar

1141

1142 echo "<h2>$(_ 'Tags list')</h2>"

1143 brepo="<b>$repo</b>"

1144 case $repo in

1145 Any) title="$(_ 'List of tags in all repositories')" ;;

1146 *) title="$(_ 'List of tags in repository "%s"' "$brepo")" ;;

1147 esac

1148 echo "<p>$title</p><p id=\"tags\">"

1149 to_read=""

1150 for i in $(repo_list ""); do

1151 if [ ! -e $i/packages.info ]; then

1152 list=installed

1153 else

1154 list=packages

1155 fi

1156 to_read="$to_read $i/$list.info"

1157 done

1158 TAGS="$(awk -F$'\t' '{if($6){print $6}}' $to_read | tr ' ' $'\n' | sort | uniq -c)"

1159 MAX="$(echo "$TAGS" | awk '{if ($1 > MAX) MAX = $1} END{print MAX}')"

1160 echo "$TAGS" | awk -vMAX="$MAX" '{

1161 printf "<a class=\"tag%s\" href=\"?tag=%s\" title=\"%s\">%s</a> ", int($1 * 7 / MAX + 1), $2, $1, $2

1162 }'

1163 echo "</p>"

1164 ;;

1165

1166

1167 *\ tag\ *)

1168 #

1169 # Show packages with matching tag

1170 #

1171 search_form; sidebar

1172

1173 tag=$(GET tag)

1174 cat << EOT

1175 <h2 data-icon="tag">$(_ 'Tag "%s"' $tag)</h2>

1176

1177 <section>

1178 <div>$(_ 'Selected packages:') <span id="countSelected"></span></div>

1179 <footer>

1180 $(show_button do=Install do=Chblock do=Remove | sed 's|button |button form="pkglist" |g')

1181 $(show_button toggle)

1182 </footer>

1183 </section>

1184

1185 <form id="pkglist" class="wide">

1186 EOT

1187 for i in $(repo_list ""); do

1188 show_list all

1189 done

1190 cat << EOT

1191 </form>

1192 <script type="text/javascript">window.onscroll = scrollHandler; setCountSelPkgs();</script>

1193 EOT

1194 ;;

1195

1196

1197 *\ blocked\ *)

1198 #

1199 # Show blocked packages list

1200 #

1201 search_form; sidebar

1202

1203 cat << EOT

1204 <h2>$(_ 'Blocked packages list')</h2>

1205

1206 <section>

1207 <div>$(_ 'Selected packages:') <span id="countSelected"></span></div>

1208 <footer>

1209 $(show_button do=Unblock | sed 's|button |button form="pkglist" |g')

1210 $(show_button toggle)

1211 </footer>

1212 </section>

1213

1214 <form id="pkglist" class="wide">

1215 EOT

1216 table_head

1217 for i in $(cat $PKGS_DB/blocked-packages.list); do

1218 awk -F$'\t' -vp="$i" '{

1219 if ($1 == p)

1220 printf "<tr><td><input type=\"checkbox\" name=\"pkg\" value=\"%s\"><a data-icon=\"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

1221 }' $PKGS_DB/installed.info

1222 done

1223 cat << EOT

1224 </tbody>

1225 </table>

1226 </form>

1227 <script type="text/javascript">window.onscroll = scrollHandler; setCountSelPkgs();</script>

1228 EOT

1229 ;;

1230

1231

1232 *)