tazpanel view pkgs.cgi @ rev 271
Added ability to set default mirror
| author | Christian Mesh meshca@clarkson.edu |
|---|---|
| date | Fri Mar 09 02:35:06 2012 +0000 (2012-03-09) |
| parents | 2a623c351fc2 |
| children | 2a85bf1e316f |
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 #
9 # (C) 2011 SliTaz GNU/Linux - BSD License
10 #
12 . lib/libtazpanel
13 get_config
14 header
16 # xHTML 5 header with special side bar for categories.
17 TITLE="- Packages"
18 xhtml_header | sed 's/id="content"/id="content-sidebar"/'
21 # We need packages information for list and search
22 parse_packages_desc() {
23 IFS="|"
24 cut -f 1,2,3,5 -d "|" | while read PACKAGE VERSION SHORT_DESC WEB_SITE
25 do
26 echo '<tr>'
27 if [ -d $INSTALLED/${PACKAGE% } ]; then
28 echo -e "<td><input type='checkbox' name='pkg' value='$PACKAGE'>\n
29 <a href='$SCRIPT_NAME?info=$PACKAGE'>
30 <img src='$IMAGES/tazpkg-installed.png'/>$PACKAGE</a></td>"
31 else
32 echo -e "<td><input type='checkbox' name='pkg' value='$PACKAGE'>\n
33 <a href='$SCRIPT_NAME?info=$PACKAGE'>
34 <img src='$IMAGES/tazpkg.png'/>$PACKAGE</a></td>"
35 fi
36 echo "<td>$VERSION</td>"
37 echo "<td class='desc'>$SHORT_DESC</td>"
38 echo "<td><a href='$WEB_SITE'><img src='$IMAGES/browser.png'/></a></td>"
39 echo '</tr>'
40 done
41 unset IFS
42 }
44 # Display a full summary of packages stats
45 packages_summary() {
46 gettext "Last recharge : "
47 stat=`stat -c %y $LOCALSTATE/packages.list | \
48 sed 's/\(:..\):.*/\1/' | awk '{print $1}'`
49 mtime=`find $LOCALSTATE/packages.list -mtime +10`
50 echo -n "$stat "
51 if [ "$mtime" ]; then
52 echo "(Older than 10 days)"
53 else
54 echo "(Not older than 10 days)"
55 fi
56 gettext "Installed packages : "
57 ls $INSTALLED | wc -l
58 gettext "Mirrored packages : "
59 cat $LOCALSTATE/packages.list | wc -l
60 gettext "Upgradeable packages : "
61 cat $LOCALSTATE/packages.up | wc -l
62 #gettext "Installed files : "
63 #cat $INSTALLED/*/files.list | wc -l
64 gettext "Blocked packages : "
65 cat $LOCALSTATE/blocked-packages.list | wc -l
66 }
68 # Parse mirrors list to be able to have an icon and remove link
69 list_mirrors() {
70 while read line
71 do
72 cat << EOT
73 <li>
74 <a href="$SCRIPT_NAME?admin=rm-mirror=$line&file=$(httpd -e $1)">
75 <img src="$IMAGES/clear.png" />
76 </a>
77 <a href="$SCRIPT_NAME?admin=select-mirror&mirror=$line">
78 <img src="$IMAGES/start.png" />
79 </a>
80 <a href="$line">$line</a>
81 </li>
82 EOT
83 done < $1
84 }
86 # Parse repositories list to be able to have an icon and remove link
87 list_repos() {
88 ls $LOCALSTATE/undigest 2> /dev/null | while read repo ; do
89 cat <<EOT
90 <li><a href="$SCRIPT_NAME?admin=rm-repo=$repo">
91 <img src="$IMAGES/clear.png">$repo</a></li>
92 EOT
93 done
94 }
96 #
97 # xHTML functions
98 #
100 # ENTER will search but user may search for a button, so put one.
101 search_form() {
102 [ -n "$repo" ] || repo="$(GET repo)"
103 [ -n "$repo" ] || repo=Any
104 cat << EOT
105 <div class="search">
106 <form method="get" action="$SCRIPT_NAME">
107 <p>
108 <input type="text" name="search" size="20">
109 <input type="submit" value="`gettext "Search"`">
110 <input class="radius" type="submit" name="files"
111 value="`gettext "Files"`">
112 <input type="hidden" name="repo" value="$repo" />
113 </p>
114 </form>
115 </div>
116 EOT
117 }
119 table_head() {
120 cat << EOT
121 <tr id="thead">
122 <td>`gettext "Name"`</td>
123 <td>`gettext "Version"`</td>
124 <td>`gettext "Description"`</td>
125 <td>`gettext "Web"`</td>
126 </tr>
127 EOT
128 }
130 sidebar() {
131 [ -n "$repo" ] || repo=Public
132 cat << EOT
133 <div id="sidebar">
134 <h4>Categories</h4>
135 <a class="active_base-system" href="$SCRIPT_NAME?cat=base-system&repo=$repo">Base-system</a>
136 <a class="active_x-window" href="$SCRIPT_NAME?cat=x-window&repo=$repo">X window</a>
137 <a class="active_utilities" href="$SCRIPT_NAME?cat=utilities&repo=$repo">Utilities</a>
138 <a class="active_network" href="$SCRIPT_NAME?cat=network&repo=$repo">Network</a>
139 <a class="active_games" href="$SCRIPT_NAME?cat=games&repo=$repo">Games</a>
140 <a class="active_graphics" href="$SCRIPT_NAME?cat=graphics&repo=$repo">Graphics</a>
141 <a class="active_office" href="$SCRIPT_NAME?cat=office&repo=$repo">Office</a>
142 <a class="active_multimedia" href="$SCRIPT_NAME?cat=multimedia&repo=$repo">Multimedia</a>
143 <a class="active_development" href="$SCRIPT_NAME?cat=development&repo=$repo">Development</a>
144 <a class="active_system-tools" href="$SCRIPT_NAME?cat=system-tools&repo=$repo">System tools</a>
145 <a class="active_security" href="$SCRIPT_NAME?cat=security&repo=$repo">Security</a>
146 <a class="active_misc" href="$SCRIPT_NAME?cat=misc&repo=$repo">Misc</a>
147 <a class="active_meta" href="$SCRIPT_NAME?cat=meta&repo=$repo">Meta</a>
148 <a class="active_non-free" href="$SCRIPT_NAME?cat=non-free&repo=$repo">Non free</a>
149 <a class="active_all" href="$SCRIPT_NAME?cat=all&repo=$repo">All</a>
150 EOT
152 if [ -d $LOCALSTATE/undigest ]; then
153 [ -n "$category" ] || category="base-system"
154 cat << EOT
155 <p></p>
156 <h4>Repositories</h4>
157 <a class="repo_Public" href="$SCRIPT_NAME?repo=Public&cat=$category">Public</a>
158 EOT
159 for i in $(ls $LOCALSTATE/undigest); do
160 cat << EOT
161 <a class="repo_$i" href="$SCRIPT_NAME?repo=$i&cat=$category">$i</a>
162 EOT
163 done
164 cat << EOT
165 <a class="repo_Any" href="$SCRIPT_NAME?repo=Any&cat=$category">Any</a>
166 EOT
167 fi
168 echo "</div>"
169 }
171 repo_list() {
172 if [ -n "$(ls $LOCALSTATE/undigest/ 2> /dev/null)" ]; then
173 case "$repo" in
174 Public) ;;
175 ""|Any) for i in $LOCALSTATE/undigest/* ; do
176 [ -d "$i" ] && echo "$i$1"
177 done ;;
178 *) echo "$LOCALSTATE/undigest/$repo$1"
179 return ;;
180 esac
181 fi
182 echo "$LOCALSTATE$1"
183 }
185 repo_name() {
186 case "$1" in
187 $LOCALSTATE) echo "Public" ;;
188 $LOCALSTATE/undigest/*) echo ${1#$LOCALSTATE/undigest/} ;;
189 esac
190 }
192 #
193 # Commands
194 #
196 case " $(GET) " in
197 *\ list\ *)
198 #
199 # List installed packages. This is the default because parsing
200 # the full packages.desc can be long and take up some resources
201 #
202 cd $INSTALLED
203 search_form
204 sidebar
205 LOADING_MSG="Listing packages..."
206 loading_msg
207 cat << EOT
208 <h2>`gettext "My packages"`</h2>
209 <form method='get' action='$SCRIPT_NAME'>
210 <div id="actions">
211 <div class="float-left">
212 `gettext "Selection:"`
213 <input type="submit" name="do" value="Remove" />
214 </div>
215 <div class="float-right">
216 `gettext "List:"`
217 <input type="submit" name="recharge" value="Recharge" />
218 <input type="submit" name="up" value="Upgrade" />
219 </div>
220 </div>
221 EOT
222 table_start
223 table_head
224 for pkg in *
225 do
226 . $pkg/receipt
227 echo '<tr>'
228 # Use default tazpkg icon since all packages displayed are
229 # installed
230 colorpkg=$pkg
231 grep -qs "^$pkg$" $LOCALSTATE/blocked-packages.list &&
232 colorpkg="<span style='color: red;'>$pkg</span>"
233 echo "<td class='pkg'>
234 <input type='checkbox' name='pkg' value=\"$pkg\" />
235 <a href='$SCRIPT_NAME?info=$pkg'><img
236 src='$IMAGES/tazpkg-installed.png'/>$colorpkg</a></td>"
237 echo "<td>$VERSION</td>"
238 echo "<td class='desc'>$SHORT_DESC</td>"
239 echo "<td><a href='$WEB_SITE'><img src='$IMAGES/browser.png'/></a></td>"
240 echo '</tr>'
241 done
242 table_end
243 echo '</form>' ;;
244 *\ linkable\ *)
245 #
246 # List linkable packages.
247 #
248 cd $INSTALLED
249 search_form
250 sidebar
251 LOADING_MSG="Listing linkable packages..."
252 loading_msg
253 cat << EOT
254 <h2>`gettext "Linkable packages"`</h2>
255 <form method='get' action='$SCRIPT_NAME'>
256 <div id="actions">
257 <div class="float-left">
258 `gettext "Selection:"`
259 <input type="submit" name="do" value="Link" />
260 </div>
261 <div class="float-right">
262 `gettext "List:"`
263 <input type="submit" name="recharge" value="Recharge" />
264 <input type="submit" name="up" value="Upgrade" />
265 </div>
266 </div>
267 EOT
268 table_start
269 table_head
270 target=$(readlink $LOCALSTATE/fslink)
271 for pkg in $(ls $target/$INSTALLED)
272 do
273 [ -s $pkg/receipt ] && continue
274 . $target/$INSTALLED/$pkg/receipt
275 echo '<tr>'
276 echo "<td class='pkg'>
277 <input type='checkbox' name='pkg' value=\"$pkg\" />
278 <a href='$SCRIPT_NAME?info=$pkg'><img
279 src='$IMAGES/tazpkg.png'/>$pkg</a></td>"
280 echo "<td>$VERSION</td>"
281 echo "<td class='desc'>$SHORT_DESC</td>"
282 echo "<td><a href='$WEB_SITE'><img src='$IMAGES/browser.png'/></a></td>"
283 echo '</tr>'
284 done
285 table_end
286 echo '</form>' ;;
287 *\ cat\ *)
288 #
289 # List all available packages by category on mirror. Listing all
290 # packages is too resource intensive and not useful.
291 #
292 cd $LOCALSTATE
293 repo=$(GET repo)
294 category=$(GET cat)
295 [ "$category" == "cat" ] && category="base-system"
296 grep_category=$category
297 [ "$grep_category" == "all" ] && grep_category=".*"
298 search_form
299 sidebar | sed "s/active_$category/active/;s/repo_$repo/active/"
300 LOADING_MSG="Listing packages..."
301 loading_msg
302 cat << EOT
303 <h2>`gettext "Category:"` $category</h2>
304 <form method='get' action='$SCRIPT_NAME'>
305 <div id="actions">
306 <div class="float-left">
307 `gettext "Selection:"`
308 <input type="submit" name="do" value="Install" />
309 <input type="submit" name="do" value="Remove" />
310 <input type="hidden" name="repo" value="$repo" />
311 </div>
312 <div class="float-right">
313 `gettext "List:"`
314 <input type="submit" name="recharge" value="Recharge" />
315 <input type="submit" name="up" value="Upgrade" />
316 <a class="button" href='$SCRIPT_NAME?list'>
317 <img src="$IMAGES/tazpkg.png" />`gettext "My packages"`</a>
318 </div>
319 </div>
320 EOT
321 for i in $(repo_list ""); do
322 [ "$repo" != "Public" ] &&
323 echo "<h3>Repository: $(repo_name $i)</h3>"
324 table_start
325 table_head
326 grep "| $grep_category |" $i/packages.desc | \
327 parse_packages_desc
328 table_end
329 done
330 echo '</form>' ;;
331 *\ search\ *)
332 #
333 # Search for packages. Here default is to search in packages.desc
334 # and so get result including packages names and descriptions
335 #
336 pkg=$(GET search)
337 repo=$(GET repo)
338 cd $LOCALSTATE
339 search_form
340 sidebar | sed "s/repo_$repo/active/"
341 LOADING_MSG="Searching packages..."
342 loading_msg
343 cat << EOT
344 <h2>`gettext "Search packages"`</h2>
345 <form method="get" action="$SCRIPT_NAME">
346 <div id="actions">
347 <div class="float-left">
348 `gettext "Selection:"`
349 <input type="submit" name="do" value="Install" />
350 <input type="submit" name="do" value="Remove" />
351 <a href="`cat $PANEL/lib/checkbox.js`">`gettext "Toogle all"`</a>
352 </div>
353 <div class="float-right">
354 `gettext "List:"`
355 <input type="submit" name="recharge" value="Recharge" />
356 <input type="submit" name="up" value="Upgrade" />
357 <a class="button" href='$SCRIPT_NAME?list'>
358 <img src="$IMAGES/tazpkg.png" />`gettext "My packages"`</a>
359 </div>
360 </div>
361 <input type="hidden" name="repo" value="$repo" />
362 EOT
363 table_start
364 if [ "$(GET files)" ]; then
365 cat <<EOT
366 <tr id="thead">
367 <td>`gettext "Package"`</td>
368 <td>`gettext "File"`</td>
369 </tr>
370 $(unlzma -c $(repo_list /files.list.lzma) \
371 | grep -Ei ": .*$(GET search)" | \
372 while read PACKAGE FILE; do
373 PACKAGE=${PACKAGE%:}
374 image=tazpkg-installed.png
375 [ -d $INSTALLED/$PACKAGE ] || image=tazpkg.png
376 echo "<tr>
377 <td><input type='checkbox' name='pkg' value='$PACKAGE'>
378 <a href='$SCRIPT_NAME?info=$PACKAGE'><img src='$IMAGES/$image' />$PACKAGE</a></td>
379 <td>$FILE</td>
380 </tr>"
381 done)
382 EOT
383 else
384 table_head
385 grep -ih $pkg $(repo_list /packages.desc) | \
386 parse_packages_desc
387 fi
388 table_end
389 echo '</form>' ;;
390 *\ recharge\ *)
391 #
392 # Lets recharge the packages list
393 #
394 search_form
395 sidebar
396 LOADING_MSG="Recharging lists..."
397 loading_msg
398 cat << EOT
399 <h2>`gettext "Recharge"`</h2>
400 <form method='get' action='$SCRIPT_NAME'>
401 <div id="actions">
402 <div class="float-left">
403 <p>
404 `gettext "Recharge checks for new or updated packages"`
405 </p>
406 </div>
407 <div class="float-right">
408 <p>
409 <a class="button" href='$SCRIPT_NAME?up'>
410 <img src="$IMAGES/update.png" />`gettext "Check upgrades"`</a>
411 <a class="button" href='$SCRIPT_NAME?list'>
412 <img src="$IMAGES/tazpkg.png" />`gettext "My packages"`</a>
413 </p>
414 </div>
415 </div>
416 <pre>
417 EOT
418 gettext "Recharging packages list" | log
419 tazpkg recharge | filter_taztools_msgs
420 cat << EOT
421 </pre>
422 <p>
423 `gettext "Packages lists are up-to-date. You should check for upgrades now."`
424 </p>
425 EOT
426 ;;
427 *\ up\ *)
428 #
429 # Upgrade packages
430 #
431 cd $LOCALSTATE
432 search_form
433 sidebar
434 LOADING_MSG="Checking for upgrades..."
435 loading_msg
436 cat << EOT
437 <h2>`gettext "Up packages"`</h2>
438 <form method="get" action="$SCRIPT_NAME">
439 <div id="actions">
440 <div class="float-left">
441 `gettext "Selection:"`
442 <input type="submit" name="do" value="Install" />
443 <input type="submit" name="do" value="Remove" />
444 <a href="`cat $PANEL/lib/checkbox.js`">`gettext "Toogle all"`</a>
445 </div>
446 <div class="float-right">
447 `gettext "List:"`
448 <input type="submit" name="recharge" value="Recharge" />
449 <a class="button" href='$SCRIPT_NAME?list'>
450 <img src="$IMAGES/tazpkg.png" />`gettext "My packages"`</a>
451 </div>
452 </div>
453 EOT
454 tazpkg up --check >/dev/null
455 table_start
456 table_head
457 for pkg in `cat packages.up`
458 do
459 grep -hs "^$pkg |" $LOCALSTATE/packages.desc \
460 $LOCALSTATE/undigest/*/packages.desc | \
461 parse_packages_desc
462 done
463 table_end
464 echo '</form>' ;;
465 *\ do\ *)
466 #
467 # Do an action on one or some packages
468 #
469 opt=""
470 pkgs=""
471 cmdline=$(echo ${QUERY_STRING#do=} | sed s'/&/ /g')
472 cmd=$(echo ${cmdline} | awk '{print $1}')
473 cmdline=${cmdline#*repo=* }
474 pkgs=$(echo $cmdline | sed -e s'/+/ /g' -e s'/pkg=//g' -e s/$cmd//)
475 pkgs="$(httpd -d "$pkgs")"
476 cmd=$(echo $cmd | tr [:upper:] [:lower:])
477 case $cmd in
478 install)
479 cmd=get-install opt=--forced ;;
480 link)
481 opt=$(readlink $LOCALSTATE/fslink) ;;
482 esac
483 search_form
484 sidebar
485 LOADING_MSG="${cmd}ing packages..."
486 loading_msg
487 cat << EOT
488 <h2>Tazpkg: $cmd</h2>
489 <form method="get" action="$SCRIPT_NAME">
490 <div id="actions">
491 <div class="float-left">
492 <p>
493 `gettext "Performing tasks on packages"`
494 </p>
495 </div>
496 <div class="float-right">
497 <p>
498 <a class="button" href='$SCRIPT_NAME?list'>
499 <img src="$IMAGES/tazpkg.png" />`gettext "My packages"`</a>
500 </p>
501 </div>
502 </div>
503 EOT
504 echo '<div class="box">'
505 gettext "Executing $cmd for:$pkgs"
506 echo '</div>'
507 for pkg in $pkgs
508 do
509 echo '<pre>'
510 echo 'y' | tazpkg $cmd $pkg $opt 2>/dev/null | filter_taztools_msgs
511 echo '</pre>'
512 done ;;
513 *\ info\ *)
514 #
515 # Packages info
516 #
517 pkg=$(GET info)
518 search_form
519 sidebar
520 if [ -d $INSTALLED/$pkg ]; then
521 . $INSTALLED/$pkg/receipt
522 files=`cat $INSTALLED/$pkg/files.list | wc -l`
523 action=$(gettext "Remove")
524 else
525 cd $LOCALSTATE
526 LOADING_MSG=$(gettext "Getting package info...")
527 loading_msg
528 IFS='|'
529 set -- $(grep -hs "^$pkg |" packages.desc \
530 undigest/*/packages.desc)
531 unset IFS
532 PACKAGE=$1
533 VERSION="$(echo $2)"
534 SHORT_DESC="$(echo $3)"
535 CATEGORY="$(echo $4)"
536 WEB_SITE="$(echo $5)"
537 action=$(gettext "Install")
538 fi
539 cat << EOT
540 <h2>`gettext "Package"` $PACKAGE</h2>
541 <div id="actions">
542 <div class="float-left">
543 <p>
544 <a class="button" href='$SCRIPT_NAME?do=$action&$pkg'>$action</a>
545 EOT
546 if [ -d $INSTALLED/$pkg ]; then
547 if grep -qs "^$pkg$" $LOCALSTATE/blocked-packages.list; then
548 block=$(gettext "Unblock")
549 else
550 block=$(gettext "Block")
551 fi
552 cat << EOT
553 <a class="button" href='$SCRIPT_NAME?do=$block&$pkg'>$block</a>
554 <a class="button" href='$SCRIPT_NAME?do=Repack&$pkg'>Repack</a>
555 EOT
556 fi
557 cat << EOT
558 </p>
559 </div>
560 <div class="float-right">
561 <p>
562 <a class="button" href='$SCRIPT_NAME?list'>
563 <img src="$IMAGES/tazpkg.png" />`gettext "My packages"`</a>
564 </p>
565 </div>
566 </div>
567 <pre>
568 Name : $PACKAGE
569 Version : $VERSION
570 Description : $SHORT_DESC
571 Category : $CATEGORY
572 EOT
573 if [ -d $INSTALLED/$pkg ]; then
574 cat << EOT
575 Maintainer : $MAINTAINER
576 Website : <a href="$WEB_SITE">$WEB_SITE</a>
577 Sizes : $PACKED_SIZE/$UNPACKED_SIZE
578 EOT
579 if [ -n "$DEPENDS" ]; then
580 echo -n "Depends : "
581 for i in $DEPENDS; do
582 echo -n "<a href="$SCRIPT_NAME?info=$i">$i</a> "
583 done
584 echo ""
585 fi
586 if [ -n "$SUGGESTED" ]; then
587 echo -n "Suggested : "
588 for i in $SUGGESTED; do
589 echo -n "<a href="$SCRIPT_NAME?info=$i">$i</a> "
590 done
591 echo ""
592 fi
593 [ -n "$TAGS" ] && echo "Tags : $TAGS"
594 cat << EOT
595 </pre>
597 <p>`gettext "Installed files:"` `cat $INSTALLED/$pkg/files.list | wc -l`</p>
598 <pre>
599 `cat $INSTALLED/$pkg/files.list`
600 </pre>
601 EOT
602 else
603 cat << EOT
604 Website : <a href="$WEB_SITE">$WEB_SITE</a>
605 Sizes : `grep -hsA 3 ^$pkg$ packages.txt undigest/*/packages.txt | \
606 tail -n 1 | sed 's/ *//'`
607 </pre>
609 <p>`gettext "Installed files:"`</p>
610 <pre>
611 `unlzma -c files.list.lzma undigest/*/files.list.lzma 2> /dev/null | \
612 sed "/^$pkg: /!d;s/^$pkg: //"`
613 </pre>
614 EOT
615 fi
616 ;;
617 *\ admin\ * )
618 #
619 # Tazpkg configuration page
620 #
621 cmd=$(GET admin)
622 case "$cmd" in
623 clean)
624 rm -rf /var/cache/tazpkg/* ;;
625 add-mirror)
626 # Decode url
627 mirror=$(GET mirror)
628 case "$mirror" in
629 http://*|ftp://*)
630 echo "$mirror" >> $(GET file) ;;
631 esac ;;
632 rm-mirror=http://*|rm-mirror=ftp://*)
633 mirror=${cmd#rm-mirror=}
634 sed -i -e "s@$mirror@@" -e '/^$/d' $(GET file) ;;
635 select-mirror*)
636 release=`cat /etc/slitaz-release`
637 mirror="$(GET mirror)packages/$release/"
638 tazpkg setup-mirror $mirror | log
639 ;;
640 add-repo)
641 # Decode url
642 mirror=$(GET mirror)
643 repository=$LOCALSTATE/undigest/$(GET repository)
644 case "$mirror" in
645 http://*|ftp://*)
646 mkdir -p $repository
647 echo "$mirror" > $repository/mirror
648 echo "$mirror" > $repository/mirrors ;;
649 esac ;;
650 rm-repo=*)
651 repository=${cmd#rm-repo=}
652 rm -rf $LOCALSTATE/undigest/$repository ;;
653 esac
654 [ "$cmd" == "$(gettext "Set link")" ] &&
655 [ -d "$(GET link)/$INSTALLED" ] &&
656 ln -fs $(GET link) $LOCALSTATE/fslink
657 [ "$cmd" == "$(gettext "Remove link")" ] &&
658 rm -f $LOCALSTATE/fslink
659 cache_files=`find /var/cache/tazpkg -name *.tazpkg | wc -l`
660 cache_size=`du -sh /var/cache/tazpkg`
661 sidebar
662 cat << EOT
663 <h2>$(gettext "Administration")</h2>
664 <div>
665 <p>$(gettext "Tazpkg administration and settings")</p>
666 </div>
667 <div id="actions">
668 <a class="button" href='$SCRIPT_NAME?admin=&action=saveconf'>
669 <img src="$IMAGES/tazpkg.png" />`gettext "Save configuration"`</a>
670 <a class="button" href='$SCRIPT_NAME?admin=&action=listconf'>
671 <img src="$IMAGES/edit.png" />`gettext "List configuration files"`</a>
672 <a class="button" href='$SCRIPT_NAME?admin=&action=quickcheck'>
673 <img src="$IMAGES/recharge.png" />`gettext "Quick check"`</a>
674 <a class="button" href='$SCRIPT_NAME?admin=&action=fullcheck'>
675 <img src="$IMAGES/recharge.png" />`gettext "Full check"`</a>
676 </div>
677 EOT
678 case "$(GET action)" in
679 saveconf)
680 LOADING_MSG=$(gettext "Creating the package...")
681 loading_msg
682 echo "<pre>"
683 cd $HOME
684 tazpkg repack-config | filter_taztools_msgs
685 gettext "Path : " && ls $HOME/config-*.tazpkg
686 echo "</pre>" ;;
687 listconf)
688 echo "<h4>`gettext "Configuration files"`</h4>"
689 echo "<ul>"
690 tazpkg list-config | while read file; do
691 [ "${file:0:1}" == "/" ] || continue
692 if [ -e $file ]; then
693 echo "<li><a href=\"index.cgi?file=$file\">$file</a></li>"
694 else
695 echo "<li>$file</li>"
696 fi
697 done
698 echo "</ul>"
699 echo "</pre>" ;;
700 quickcheck)
701 LOADING_MSG=$(gettext "Checking packages consistency...")
702 loading_msg
703 echo "<pre>"
704 tazpkg check
705 echo "</pre>" ;;
706 fullcheck)
707 LOADING_MSG=$(gettext "Full packages check...")
708 loading_msg
709 echo "<pre>"
710 tazpkg check --full
711 echo "</pre>" ;;
712 esac
713 cat << EOT
714 <h3>$(gettext "Packages cache")</h3>
715 <div>
716 <form method="get" action="$SCRIPT_NAME">
717 <p>
718 `gettext "Packages in the cache:"` $cache_files ($cache_size)
719 <input type="hidden" name="admin" value="clean" />
720 <input type="submit" value="Clean" />
721 </p>
722 </form>
723 </div>
724 <h3>`gettext "Default mirror"`</h3>
725 `cat /var/lib/tazpkg/mirror`
726 <h3>`gettext "Current mirror list"`</h3>
727 EOT
728 for i in $LOCALSTATE/mirrors $LOCALSTATE/undigest/*/mirrors; do
729 [ -s $i ] || continue
730 echo '<div class="box">'
731 [ $i != $LOCALSTATE/mirrors ] &&
732 echo "<h4>Repository: $(repo_name $(dirname $i))</h4>"
733 echo "<ul>"
734 list_mirrors $i
735 echo "</ul>"
736 cat << EOT
737 </div>
738 <form method="get" action="$SCRIPT_NAME">
739 <p>
740 <input type="hidden" name="admin" value="add-mirror" />
741 <input type="hidden" name="file" value="$i" />
742 <input type="text" name="mirror" size="60">
743 <input type="submit" value="Add mirror" />
744 </p>
745 </form>
746 EOT
747 done
748 echo "<h3>"
749 gettext "Private repositories"
750 echo "</h3>"
751 [ -n "$(ls $LOCALSTATE/undigest 2> /dev/null)" ] && cat << EOT
752 <div class="box">
753 <ul>
754 $(list_repos)
755 </ul>
756 </div>
757 EOT
758 cat << EOT
759 <form method="get" action="$SCRIPT_NAME">
760 <p>
761 <input type="hidden" name="admin" value="add-repo" />
762 Name <input type="text" name="repository" size="10">
763 mirror
764 <input type="text" name="mirror" value="http://" size="50">
765 <input type="submit" value="Add repository" />
766 </p>
767 </form>
768 <h3>`gettext "Link to another SliTaz installation"`</h3>
769 <p>
770 $(gettext "This link points to the root of another SliTaz installation. \
771 You will be able to install packages using soft links to it.")
772 </p>
773 <form method="get" action="$SCRIPT_NAME">
774 <p>
775 <input type="hidden" name="admin" value="add-link" />
776 <input type="text" name="link"
777 value="$(readlink $LOCALSTATE/fslink 2> /dev/null)" size="50">
778 <input type="submit" name="admin" value="$(gettext "Set link")" />
779 <input type="submit" name="admin" value="$(gettext "Remove link")" />
780 </p>
781 </form>
782 EOT
783 version=$(cat /etc/slitaz-release)
784 cat << EOT
786 <a name="dvd"></a>
787 <h3>`gettext "SliTaz packages DVD"`</h3>
788 <p>
789 $(gettext "A bootable DVD image of all available packages for \
790 the $version version is generated every day. It also contains a copy of \
791 the website and can be used without an internet connection. This image can be \
792 installed on a DVD or an USB key.")
793 </p>
794 <div>
795 <form method="post" action='$SCRIPT_NAME?admin&action=dvdimage#dvd'>
796 <p>
797 <a class="button"
798 href='http://mirror.slitaz.org/iso/$version/packages-$version.iso'>
799 <img src="$IMAGES/tazpkg.png" />$(gettext "Download DVD image")</a>
800 <a class="button" href='$SCRIPT_NAME?admin&action=dvdusbkey#dvd'>
801 <img src="$IMAGES/tazpkg.png" />$(gettext "Install from DVD/USB key")</a>
802 </p>
803 <div class="box">
804 $(gettext "Install from ISO image: ")
805 <input type="text" name="dvdimage" size="40" value="/root/packages-$version.iso">
806 </div>
807 </form>
808 </div>
809 EOT
810 if [ "$(GET action)" == "dvdimage" ]; then
811 dev=$(POST dvdimage)
812 mkdir -p /mnt/packages 2> /dev/null
813 echo "<pre>"
814 mount -t iso9660 -o loop,ro $dev /mnt/packages &&
815 /mnt/packages/install.sh &&
816 echo "$dev is installed on /mnt/packages"
817 echo "</pre>"
818 fi
819 if [ "$(GET action)" == "dvdusbkey" ]; then
820 mkdir -p /mnt/packages 2> /dev/null
821 for tag in "LABEL=\"packages-$version\" TYPE=\"iso9660\"" \
822 "LABEL=\"sources-$version\" TYPE=\"iso9660\"" ; do
823 dev=$(blkid | grep "$tag" | cut -d: -f1)
824 [ -n "$dev" ] || continue
825 echo "<pre>"
826 mount -t iso9660 -o ro $dev /mnt/packages &&
827 /mnt/packages/install.sh &&
828 echo "$dev is installed on /mnt/packages"
829 echo "</pre>"
830 break
831 done
832 fi
833 ;;
834 *)
835 #
836 # Default to summary
837 #
838 search_form
839 sidebar
840 [ -n "$(GET block)" ] && tazpkg block $(GET block)
841 [ -n "$(GET unblock)" ] && tazpkg unblock $(GET unblock)
842 cat << EOT
843 <h2>`gettext "Summary"`</h2>
844 <div id="actions">
845 <a class="button" href='$SCRIPT_NAME?list'>
846 <img src="$IMAGES/tazpkg.png" />`gettext "My packages"`</a>
847 EOT
848 fslink=$(readlink $LOCALSTATE/fslink)
849 [ -n "$fslink" -a -d "$fslink/$INSTALLED" ] &&
850 cat << EOT
851 <a class="button" href='$SCRIPT_NAME?linkable'>
852 <img src="$IMAGES/tazpkg.png" />`gettext "Linkable packages"`</a>
853 EOT
854 cat << EOT
855 <a class="button" href='$SCRIPT_NAME?recharge'>
856 <img src="$IMAGES/recharge.png" />`gettext "Recharge list"`</a>
857 <a class="button" href='$SCRIPT_NAME?up'>
858 <img src="$IMAGES/update.png" />`gettext "Check upgrades"`</a>
859 <a class="button" href='$SCRIPT_NAME?admin'>
860 <img src="$IMAGES/edit.png" />`gettext "Administration"`</a>
861 </div>
862 <pre class="pre-main">
863 `packages_summary`
864 </pre>
866 <h3>`gettext "Latest log entries"`</h3>
867 <pre>
868 `tail -n 5 /var/log/tazpkg.log | fgrep "-" | \
869 awk '{print $1, $2, $3, $4, $5, $6, $7}'`
870 </pre>
871 EOT
872 ;;
873 esac
875 # xHTML 5 footer
876 xhtml_footer
877 exit 0