spk view lib/libspk.sh @ rev 67
libspk.sh and spk-add: better but not finished download function, spk: add option --get and command clean
| author | Christophe Lincoln <pankso@slitaz.org> |
|---|---|
| date | Fri May 18 19:23:52 2012 +0200 (2012-05-18) |
| parents | 63fb720dc777 |
| children | d1790128faac |
line source
1 #!/bin/sh
2 #
3 # Libspk - The Spk base function and internal variables used by almost all
4 # spk-tools. Read the README before adding or modifing any code in spk!
5 #
6 # Copyright (C) SliTaz GNU/Linux - BSD License
7 # Author: See AUTHORS files
8 #
9 . /lib/libtaz.sh
10 . /usr/lib/slitaz/libpkg.sh
11 . /etc/slitaz/slitaz.conf
13 # Internal variables.
14 mirrorurl="${root}${PKGS_DB}/mirror"
15 mirrors="${root}${PKGS_DB}/mirrors"
16 installed="${root}${PKGS_DB}/installed"
17 pkgsdesc="${root}${PKGS_DB}/packages.desc"
18 pkgsmd5="${root}${PKGS_DB}/packages.$SUM"
19 pkgsequiv="${root}${PKGS_DB}/packages.equiv"
20 blocked="${root}${PKGS_DB}/blocked.list"
21 activity="${root}${PKGS_DB}/activity"
22 logdir="${root}/var/log/spk"
23 extradb="${root}${PKGS_DB}/extra"
24 tmpdir="/tmp/spk/$RANDOM"
26 #
27 # Sanity checks
28 #
30 if [ ! -d "${root}${PKGS_DB}" ]; then
31 gettext "Can't find DB:"; echo " ${root}${PKGS_DB}"
32 exit 1
33 fi
35 #
36 # Functions
37 #
39 # Display receipt information. Expects a receipt to be sourced
40 receipt_info() {
41 cat << EOT
42 $(gettext "Version :") ${VERSION}${EXTRAVERSION}
43 $(gettext "Short desc :") $SHORT_DESC
44 $(gettext "Category :") $CATEGORY
45 EOT
46 }
48 # Display package info from a packages.desc list
49 # Usage: read_pkgsdesc /path/to/packages.desc
50 read_pkgsdesc() {
51 local list="$1"
52 IFS="|"
53 cat $list | while read package version desc category
54 do
55 if [ "$short" ]; then
56 echo -n "$(colorize "$package" 32)"; indent 28 " $version"
57 else
58 newline
59 gettext "Package :"; colorize " $package" 32
60 gettext "Version :"; echo "$version"
61 gettext "Short desc :"; echo "$desc"
62 fi
63 done && unset IFS
64 }
66 # Extract receipt from tazpkg
67 # Parameters: result_dir package_file
68 extract_receipt() {
69 local dir="$1"
70 local file="$2"
71 cd "$dir"
72 { cpio --quiet -i receipt > /dev/null 2>&1; } < $file
73 cd - >/dev/null
74 }
76 # Extract files.list from tazpkg
77 # Parameters: result_dir package_file
78 extract_fileslist() {
79 local dir="$1"
80 local file="$2"
81 cd "$dir"
82 { cpio --quiet -i files.list > /dev/null 2>&1; } < $file
83 cd - >/dev/null
84 }
86 # Used by: list
87 count_installed() {
88 local count=$(ls $installed | wc -l)
89 gettext "Installed :"; echo " $count"
90 }
92 # Used by: list
93 count_mirrored() {
94 [ -f "$pkgsmd5" ] || return
95 local count=$(cat $pkgsmd5 | wc -l)
96 gettext "Mirrored :"; echo " $count"
97 }
99 # Check if package is on main or extra mirror.
100 mirrored_pkg() {
101 local name=$1
102 #local find=$(grep "^$name |" $pkgsdesc $extradb/*/*.desc 2>/dev/null)
103 for desc in $(find $extradb $pkgsdesc -name packages.desc); do
104 if grep -q "^$name |" $desc; then
105 db=$(dirname $desc)
106 mirrored=$(grep "^$name |" $desc)
107 mirror=$(cat $db/mirror)
108 break
109 fi
110 done
111 }
113 # Download a file trying all mirrors
114 # Usage: file [url|path]
115 #
116 # Priority to extra is done by mirrored_pkg wich try first to find the
117 # packages in extra mirror, then on official.
118 #
119 download() {
120 local file=$1
121 local uri="${2%/}"
122 local pwd=$(pwd)
123 [ "$quiet" ] && local quiet="-q"
124 [ "$cache" ] && local pwd=$CACHE_DIR
125 [ "$forced" ] && rm -f $pwd/$file
126 debug "download file: $file"
127 debug "DB: $db"
128 # Local mirror ? End by cd to cache, we may be installind. If --get
129 # was used we dl/copy in the current dir.
130 if [ -f "$uri/$file" ]; then
131 [ "$quiet" ] || echo "URI: $uri/"
132 [ "$get" ] || pwd=$CACHE_DIR
133 gettext "Local mirror:"; boldify " $file"
134 gettext "Copying file to:"; colorize " $pwd" 34
135 cp -f $uri/$file $pwd
136 cd $pwd && return 0
137 fi
138 # In cache ? Root can use --cache to set destdir.
139 cd $CACHE_DIR
140 if [ -f "$CACHE_DIR/$file" ]; then
141 gettext "Using cache:"; colorize " ${file%.tazpkg}" 34
142 return 0
143 else
144 [ "$quiet" ] || echo "URL: $uri/"
145 gettext "Downloading:"; boldify " $file"
146 gettext "Destination:"; colorize " $pwd" 34
147 if [ -f "$pwd/$file" ]; then
148 echo "File exist: $pwd/$file" && return 0
149 fi
150 wget $quiet -c $uri/$file -O $CACHE_DIR/$file
151 fi
152 # Be sure the file was fetched.
153 if [ ! -f "$pwd/$file" ] || [ ! -f "$CACHE_DIR/$file" ]; then
154 gettext "ERROR: Missing file:"; colorize "$file" 31
155 newline && exit 1
156 fi
157 }
159 # Return the full package name, search in all packages.desc and break when
160 # first occurance is found: Usage: full_package pkgname
161 full_package() {
162 for desc in $(find $extradb $pkgsdesc -name packages.desc); do
163 local line="$(grep "^$1 |" $desc)"
164 if grep -q "^$1 |" $desc; then
165 IFS="|"
166 echo $line | busybox awk '{print $1 "-" $2 ".tazpkg"}'
167 unset IFS && break
168 fi
169 done
170 }
172 # Check if a package is already installed.
173 # Usage: check_installed package
174 check_installed() {
175 local name="$1"
176 if [ -d "$installed/$name" ]; then
177 echo $(boldify "$name") $(gettext "package is already installed")
178 [ "$forced" ] || rm -rf $tmpdir
179 continue
180 fi
181 }
183 # get an already installed package from packages.equiv TODO REDO!
184 equivalent_pkg() {
185 for i in $(grep -hs "^$1=" $pkgsequiv $extradb/*/*.equiv | sed "s/^$1=//")
186 do
187 if echo $i | fgrep -q : ; then
188 # format 'alternative:newname'
189 # if alternative is installed then substitute newname
190 if [ -f $installed/${i%:*}/receipt ]; then
191 # substitute package dependancy
192 echo ${i#*:}
193 return
194 fi
195 else
196 # if alternative is installed then nothing to install
197 if [ -f $installed/$i/receipt ]; then
198 # substitute installed package
199 echo $i
200 return
201 fi
202 fi
203 done
204 # if not found in packages.equiv then no substitution
205 echo $1
206 }
208 # Check for missing deps listed in a receipt packages.
209 # Parameters: package dependencies
210 missing_deps() {
211 local package="$1"
212 shift 1
213 local depends="$@"
215 local deps=0
216 local missing
218 # Calculate missing dependencies
219 for pkgorg in $depends; do
220 local pkg=$(equivalent_pkg $pkgorg)
221 if [ ! -d "$installed/$pkg" ]; then
222 gettext "Missing:"; echo " $pkg"
223 deps=$(($deps+1))
224 elif [ ! -f "$installed/$pkg/receipt" ]; then
225 gettext "WARNING: Dependency loop between:"; newline
226 echo " $package --> $pkg"
227 fi
228 done
230 gettext "Missing dependencies:"; echo " $(colorize "$deps" 34)"
232 # Return true if missing deps
233 [ "$deps" != "0" ]
234 }
236 grepesc() {
237 sed 's/\[/\\[/g'
238 }
240 # Check for ELF file
241 is_elf() {
242 [ "$(dd if=$1 bs=1 skip=1 count=3 2> /dev/null)" = "ELF" ]
243 }
245 # Exec functions directly for developement purpose.
246 case $1 in
247 *_*) func=$1 && shift && $func $@ ;;
248 esac