tazpkg view lib/tazpkgbox/list @ rev 322

Add status filter for undigest lists
author Pascal Bellard <pascal.bellard@slitaz.org>
date Tue Feb 23 09:34:10 2010 +0100 (2010-02-23)
parents e2cf4184c576
children 50b4af64dff1
line source
1 #!/bin/sh
2 #
3 # List installed packages in a suitable format for GTK tree.
4 # List mirrored packages using the packages.desc file.
5 #
6
7 undigest_list()
8 {
9 IFS="|"
10 if [ -n "$1" -a "$1" != "all" ]; then
11 cat undigest/$1/packages.desc
12 else
13 cat undigest/*/packages.desc
14 fi 2> /dev/null | sort | while read PACKAGE VERSION SHORT_DESC; do
15 ICON=tazpkg
16 PACKAGE=${PACKAGE%% *}
17 if [ -d installed/$PACKAGE ]; then
18 [ "$2" == "installable" ] && continue
19 ICON=tazpkg-installed
20 if grep -qs "^$PACKAGE$" blocked-packages.list; then
21 ICON=stop
22 fi
23 else
24 [ "$2" == "installed" ] && continue
25 fi
26 [ "$2" == "blocked" -a "$ICON" != "stop" ] && continue
27 [ "$2" == "upgradeable" ] &&
28 ! grep -q ^$PACKAGE$ upgradeable-packages.list && continue
29 echo "$ICON|$PACKAGE|$VERSION|$SHORT_DESC"
30 done
31 unset IFS
32 }
33
34 installable_list()
35 {
36 local cache
37 cache=packages.installable_list.$CAT
38 if [ -s $cache -a $cache -nt packages.desc -a $cache -nt installed ]; then
39 cat $cache
40 return
41 fi
42 IFS="|"
43 cat packages.desc undigest/*/packages.desc 2> /dev/null | sort | \
44 while read PACKAGE VERSION SHORT_DESC CATEGORY; do
45 # Check first for category for more speed.
46 CATEGORY=${CATEGORY%| *}
47 ICON=tazpkg
48 [ $CAT == all -o $CATEGORY == " $CAT " ] || continue
49 [ -d installed/${PACKAGE%% *} ] && continue
50 grep -qs "^$PACKAGE" undigest/*/packages.desc && ICON=add
51 echo "$ICON|$PACKAGE|$VERSION|$SHORT_DESC"
52 done | tee $cache
53 unset IFS
54 }
55
56 installed_list()
57 {
58 for pkg in installed/*
59 do
60 . $pkg/receipt
61 ICON=tazpkg-installed
62 [ $CAT == all -o $CATEGORY == $CAT ] || continue
63 grep -qs "^$PACKAGE" undigest/*/packages.desc && ICON=add
64 grep -qs "^$PACKAGE$" blocked-packages.list && ICON=stop
65 echo "$ICON|$PACKAGE|$VERSION|$SHORT_DESC"
66 done
67 }
68
69 all_list()
70 {
71 local cache
72 cache=packages.all_list.$CAT
73 if [ -s $cache -a $cache -nt packages.desc -a $cache -nt installed ]; then
74 cat $cache
75 return
76 fi
77 ( installable_list ; installed_list ) | sort -t \| -k 2 -u | tee $cache
78 }
79
80 blocked_list()
81 {
82 ICON=tazpkg-installed
83 [ "$1" = "blocked" ] && ICON=stop
84 for pkg in $(cat $1-packages.list 2> /dev/null); do
85 [ -f installed/$pkg/receipt ] || continue
86 . installed/$pkg/receipt
87 [ $CAT == all -o $CATEGORY == $CAT ] || continue
88 AVAILABLE=$(grep -s "^$pkg " packages.desc \
89 undigest/*/packages.desc | awk '{ print $3 }')
90 echo "$ICON|$PACKAGE|$VERSION (Available: $AVAILABLE)|$SHORT_DESC"
91 done
92 }
93
94 cd /var/lib/tazpkg
95 CAT=`cat /tmp/tazpkgbox/category`
96 case $1 in
97 all)
98 STATUS=`cat /tmp/tazpkgbox/status`
99 case $STATUS in
100 blocked|upgradeable)
101 blocked_list $STATUS;;
102 installed)
103 installed_list ;;
104 installable)
105 installable_list ;;
106 *)
107 all_list ;;
108 esac ;;
109 undigest)
110 set -- `cat /tmp/tazpkgbox/undigest-category`
111 if [ "$1" == "all" -o "$1" == "" ]; then
112 undigest_list $2 $3
113 else
114 undigest_list $2 $3 | grep "$1"
115 fi ;;
116 blocked|upgradeable)
117 blocked_list $1;;
118 *)
119 echo "Usage: $0 [all|undigest|blocked|upgradeable]" ;;
120 esac
121
122 exit 0