slitaz-base-files view rootfs/usr/lib/slitaz/libpkg.sh @ rev 183

Add check_mirror_id() to libspk.sh (canbe used by sat, spk and tazpkg)
author Christophe Lincoln <pankso@slitaz.org>
date Fri May 25 00:15:34 2012 +0200 (2012-05-25)
parents 021b49de9f37
children 32b585eb6cbe
line source
1 #!/bin/sh
2 #
3 # SliTaz Packages base functions used by packages manager, cook and
4 # all tools dealing with packages and receipts.
5 #
6 # Documentation: man libpkg or /usr/share/doc/slitaz/libpkg.txt
7 #
8 # Copyright (C) 2012 SliTaz GNU/Linux - BSD License
9 #
10
11 # Unset all receipt variables.
12 unset_receipt() {
13 unset PACKAGE VERSION EXTRAVERSION SHORT_DESC HOST_ARCH TARBALL \
14 DEPENDS BUILD_DEPENDS WANTED WGET_URL PROVIDE CROSS_BUG
15 }
16
17 # Converts pkg.tazpkg to pkg
18 package_name() {
19 local name=$(basename $1)
20 echo ${name%.tazpkg}
21 }
22
23 # Check mirror ID: return false if no changes or mirror unreachable
24 check_mirror_id() {
25 [ "$forced" ] && rm -f ID
26 [ -f "ID" ] || echo $$ > ID
27 mv ID ID.bak
28 if wget -qs ${mirror%/}/ID; then
29 wget -q ${mirror%/}/ID
30 else
31 gettext "Mirror is unreachable"; false
32 status && return 1
33 fi
34 if [ "$(cat ID)" == "$(cat ID.bak)" ]; then
35 gettext "Mirror is up-to-date"; true
36 status && return 1
37 fi
38 }
39
40 #
41 # Do we realy need the code below here ???
42 #
43
44 # checks to see if file is proper tazpkg
45 is_valid_tazpkg() {
46 local file=$1
47 [ -a $file ] && [ "$file" != "$(package_name $file)" ]
48 }
49
50 check_valid_tazpkg() {
51 local file=$1
52 if ! is_valid_tazpkg $file; then
53 eval_gettext "\$file is not a tazpkg. Exiting"; newline
54 exit 1
55 fi
56 }