rev |
line source |
al@834
|
1 #!/bin/sh
|
al@834
|
2 # TazPkg - Tiny autonomous zone packages manager, hg.slitaz.org/tazpkg
|
al@834
|
3 # recharge - TazPkg module
|
al@834
|
4 # Recharge packages databases from a mirror
|
al@834
|
5
|
al@834
|
6
|
al@834
|
7 # Options:
|
al@834
|
8 # [main|<repository>] Repository name to recharge (all if empty)
|
al@834
|
9
|
al@834
|
10 # Environment variables:
|
al@834
|
11 # root Root of the packages DB
|
al@834
|
12 # UA User Agent string ("TazPkg-<version>")
|
al@834
|
13
|
al@834
|
14
|
al@834
|
15 # Connect function libraries
|
al@834
|
16 . /lib/libtaz.sh
|
al@834
|
17 # Get TazPkg configuration variables
|
al@834
|
18 . "$root/etc/slitaz/slitaz.conf"
|
al@834
|
19 . "$root/etc/slitaz/tazpkg.conf"
|
al@834
|
20 PKGS_DB="$root$PKGS_DB"
|
al@834
|
21
|
al@834
|
22 # Fallback actions
|
al@834
|
23 mkdir -p "$PKGS_DB"
|
al@834
|
24 [ ! -e "$PKGS_DB/mirror" ] && echo "$ONLINE_PKGS" > "$PKGS_DB/mirror"
|
al@834
|
25
|
al@834
|
26
|
al@834
|
27 # Functions
|
al@834
|
28 # ---------
|
al@834
|
29
|
al@834
|
30 # Download a file from specified mirror
|
al@834
|
31
|
al@834
|
32 download_from() {
|
al@834
|
33 # input: "<mirror_url>+" "file_name"
|
al@834
|
34 local i
|
al@834
|
35 for i in $1; do
|
al@834
|
36 case "$i" in
|
al@834
|
37 # Mirror URL can have a trailing slash or not.
|
al@834
|
38 http://* | https://* | ftp://*)
|
al@834
|
39 busybox wget -c -q -T 30 -U $UA ${i%/}/$2 2>/dev/null && break ;;
|
al@834
|
40 *)
|
al@834
|
41 ln -sf ${i%/}/$2 . && break ;;
|
al@834
|
42 esac
|
al@834
|
43 done
|
al@834
|
44 }
|
al@834
|
45
|
al@834
|
46
|
al@834
|
47 # When recharging errors occur
|
al@834
|
48
|
al@834
|
49 recharging_failed() {
|
al@834
|
50 # Restore database from bak files
|
al@834
|
51 action 'Restoring database files...'
|
al@834
|
52 [ -e 'ID' -a ! -e 'ID.bak' ] && rm ID
|
al@834
|
53 [ -e 'IDs' -a ! -e 'IDs.bak' ] && rm IDs
|
al@834
|
54 for file in $(ls $1/*.bak); do
|
al@834
|
55 mv -f $file ${file%.bak}
|
al@834
|
56 done
|
al@834
|
57 status
|
al@834
|
58
|
al@834
|
59 footer "$(colorize 31 "$(_ 'Recharging failed')")"
|
al@834
|
60 }
|
al@834
|
61
|
al@834
|
62
|
al@834
|
63
|
al@834
|
64
|
al@834
|
65 REPO="$1"
|
al@834
|
66
|
al@834
|
67 # What to recharge: main, or all, or selected undigest
|
al@834
|
68 case "$REPO" in
|
al@834
|
69 main) repo_to_recharge="$PKGS_DB";;
|
al@834
|
70 '') repo_to_recharge="$PKGS_DB $PKGS_DB/undigest/*";;
|
al@834
|
71 *) repo_to_recharge="$PKGS_DB/undigest/$REPO"
|
al@834
|
72 if [ ! -d "$repo_to_recharge" ]; then
|
al@834
|
73 _ "Repository \"%s\" doesn't exist." "$repo_to_recharge" >&2
|
al@834
|
74 exit 1
|
al@834
|
75 fi
|
al@834
|
76 ;;
|
al@834
|
77 esac
|
al@834
|
78
|
al@834
|
79 for path in $repo_to_recharge; do
|
al@834
|
80 [ ! -f $path/mirror ] && continue # skip
|
al@834
|
81 cd $path
|
al@834
|
82 mirror="$(cat mirror)"
|
al@834
|
83
|
al@834
|
84 # Repository name
|
al@834
|
85 if [ "$path" == "$PKGS_DB" ]; then
|
al@834
|
86 repo_name='Main'
|
al@834
|
87 else
|
al@834
|
88 repo_name="$(_n 'Undigest %s' "$(basename "$path")")"
|
al@834
|
89 fi
|
al@834
|
90
|
al@834
|
91 title 'Recharging repository "%s"' "$repo_name"
|
al@834
|
92
|
al@834
|
93 # Don't let ID be a symlink when using local repository.
|
al@834
|
94 if [ -h ID ]; then mv -f ID ID.lnk; cat ID.lnk > ID; rm ID.lnk; fi
|
al@834
|
95 if [ -h IDs ]; then mv -f IDs IDs.lnk; cat IDs.lnk > IDs; rm IDs.lnk; fi
|
al@834
|
96
|
al@834
|
97 [ -f ID ] && mv ID ID.bak # Compatibility with "old" ID
|
al@834
|
98 [ -f IDs ] && mv IDs IDs.bak
|
al@834
|
99 download_from "$mirror" IDs
|
al@834
|
100 [ -e 'IDs' ] && awk '{print $1}' IDs > ID # Compatibility with "old" ID
|
al@834
|
101
|
al@834
|
102 # Check if recharging is needed
|
al@834
|
103 if [ -f 'IDs' ] && cmp -s IDs IDs.bak; then
|
al@834
|
104 action 'Checking...'; status # "Fake" message
|
al@834
|
105 footer "$(_ 'Repository "%s" is up to date.' "$repo_name")"
|
al@834
|
106 rm IDs.bak ID.bak
|
al@834
|
107 continue
|
al@834
|
108 fi
|
al@834
|
109 rm IDs.bak ID.bak 2>/dev/null
|
al@834
|
110
|
al@834
|
111 [ -e 'IDs' ] && _ 'Database timestamp: %s' "$(date -d "@$(awk '{print $2}' IDs)" "+%x %R")"
|
al@834
|
112
|
al@834
|
113 action 'Creating backup of the last packages list...'
|
al@834
|
114 for i in packages.desc packages.$SUM packages.txt packages.list \
|
al@834
|
115 packages.equiv files.list.lzma extra.list mirrors packages.info; do
|
al@834
|
116 [ -f "$i" ] && mv -f $i $i.bak 2>/dev/null
|
al@834
|
117 done
|
al@834
|
118 :; status
|
al@834
|
119
|
al@834
|
120 # Download and extract bundle: extra.list, mirrors, files-list.md5,
|
al@834
|
121 # packages.{info,desc,md5,txt,list,equiv}
|
al@834
|
122 bundle='bundle.tar.lzma'
|
al@834
|
123 action 'Getting "%s"...' $bundle
|
al@834
|
124 download_from "$mirror" $bundle
|
al@834
|
125 status
|
al@834
|
126 if [ -f "$bundle" ]; then
|
al@834
|
127 busybox tar -xaf $bundle; rm $bundle
|
al@834
|
128 else
|
al@834
|
129 recharging_failed $path; continue
|
al@834
|
130 fi
|
al@834
|
131
|
al@834
|
132 # Download files.list.lzma
|
al@834
|
133 files_local='files.list.lzma'; files_remote='files-list.lzma'
|
al@834
|
134 if [ -e "$files_local.bak" ]; then
|
al@834
|
135 md5sum $files_local.bak | awk '{printf $1}' > files-list.md5.bak
|
al@834
|
136 if cmp -s files-list.md5 files-list.md5.bak; then
|
al@834
|
137 mv $files_local.bak $files_remote
|
al@834
|
138 else
|
al@834
|
139 action 'Getting "%s"...' $files_remote
|
al@834
|
140 download_from "$mirror" $files_remote
|
al@834
|
141 status
|
al@834
|
142 fi
|
al@834
|
143 else
|
al@834
|
144 action 'Getting "%s"...' $files_remote
|
al@834
|
145 download_from "$mirror" $files_remote
|
al@834
|
146 status
|
al@834
|
147 fi
|
al@834
|
148
|
al@834
|
149 if [ ! -e "$files_remote" ]; then
|
al@834
|
150 recharging_failed $path; continue
|
al@834
|
151 fi
|
al@834
|
152 mv -f $files_remote $files_local
|
al@834
|
153
|
al@834
|
154 # Remove old database files (but packages.list.bak, extra.list.bak)
|
al@834
|
155 for i in packages.desc packages.$SUM packages.txt packages.equiv \
|
al@834
|
156 files.list.lzma mirrors packages.info files-list.md5; do
|
al@834
|
157 [ -f "$i.bak" ] && rm $i.bak 2>/dev/null
|
al@834
|
158 done
|
al@834
|
159
|
al@834
|
160 footer "$(_ 'Last database is ready to use.')"
|
al@834
|
161
|
al@834
|
162 # Check diff
|
al@834
|
163 if [ -f 'packages.list.bak' ]; then
|
al@834
|
164 diff -u packages.list.bak packages.list | grep ^+[a-z] > packages.diff
|
al@834
|
165 rm packages.list.bak
|
al@834
|
166 if [ -f 'extra.list.bak' ]; then
|
al@834
|
167 if [ -f 'extra.list' ]; then
|
al@834
|
168 awk -F'|' '{print $1 " (extra)"}' extra.list > extra.list1
|
al@834
|
169 awk -F'|' '{print $1 " (extra)"}' extra.list.bak > extra.list1.bak
|
al@834
|
170 diff -u extra.list1.bak extra.list1 | grep ^+[a-z] >> packages.diff
|
al@834
|
171 rm extra.list.bak extra.list1 extra.list1.bak
|
al@834
|
172 else
|
al@834
|
173 mv extra.list.bak extra.list
|
al@834
|
174 fi
|
al@834
|
175 fi
|
al@834
|
176 sed -i s/+// packages.diff
|
al@834
|
177
|
al@834
|
178 new_pkgs=$(wc -l < packages.diff)
|
al@834
|
179 if [ "$new_pkgs" -gt 0 ]; then
|
al@834
|
180 title 'Mirrored packages diff'
|
al@834
|
181 cat packages.diff
|
al@834
|
182 footer "$(emsg "$(_p \
|
al@834
|
183 '%s new package on the mirror.' \
|
al@834
|
184 '%s new packages on the mirror.' $new_pkgs \
|
al@834
|
185 "<c 32>$new_pkgs</c>")")"
|
al@834
|
186 fi
|
al@834
|
187 else
|
al@834
|
188 longline "$(_ "Note that next time you recharge the list, a list of \
|
al@834
|
189 differences will be displayed to show new and upgradeable packages.")"
|
al@834
|
190 fi
|
al@834
|
191 done
|
al@834
|
192 newline
|