cookutils view modules/pkgdb @ rev 936

Tiny edits.
author Aleksej Bobylev <al.bobylev@gmail.com>
date Mon Jun 19 15:59:48 2017 +0300 (2017-06-19)
parents a608dbb232df
children 79b65c3a4e40
line source
1 #!/bin/sh
2 #
3 # pkgdb - module of the SliTaz Cook
4 # Copyright (C) SliTaz GNU/Linux - GNU GPL v3
5 #
6
7 . /usr/lib/slitaz/libcook.sh
8
9
10 #
11 # Functions
12 #
13
14 dblog() { tee -a $LOGS/pkgdb.log; }
15
16
17 # Return size of file in human readible format
18 # Note, "du" in opposite returns size occupied by file on disk (4KB multiple in most cases)
19
20 filesize() { busybox ls -lh "$1" | awk '{print $5 "B"}'; }
21
22
23
24
25
26 # Create suitable packages list for TazPkg and only for built packages
27 # as well as flavors files for TazLiTo. We don't need logs since we do it
28 # manually to ensure everything is fine before syncing the mirror.
29
30 # Find how much time was spent the last time (for web interface)
31 lastcooktime=$(sed '/Time:/!d; s|.*: *\([0-9]*\)s.*|\1|' $LOGS/pkgdb.log 2>/dev/null | sed '$!d')
32 [ -n "$lastcooktime" ] && echo "cook:pkgdb $lastcooktime $(date +%s)" >> $cooktime
33 while read cmd duration start; do
34 [ $(($start + $duration)) -lt $(date +%s) ] &&
35 echo "sed -i '/^$cmd $duration/d' $cooktime"
36 done < $cooktime | sh
37
38 rm $LOGS/pkgdb.log 2>/dev/null
39
40 case "$1" in
41 --flavors|--rmpkg) ;;
42 *)
43 [ -n "$1" ] && PKGS="$1"
44 if [ ! -d "$PKGS" ]; then
45 { newline; _ "Packages directory \"%s\" doesn't exist" "$PKGS"; newline; } | dblog
46 exit 1
47 fi ;;
48 esac
49
50 time=$(date +%s)
51 flavors="$SLITAZ/flavors"
52 live="$SLITAZ/live"
53
54 echo 'cook:pkgdb' > $command
55 _ 'Cook pkgdb: Creating all packages lists' | log
56 newline; { _ 'Creating lists for "%s"' "$PKGS"; separator; } | dblog
57
58 { _ 'Cook pkgdb started: %s' "$(date "$(_ '+%%F %%R')")"; newline; } | dblog
59
60 cd $PKGS
61 rm -f packages.* extra.list
62 touch packages.equiv
63
64 _n 'Creating file "%s"' 'packages.list' | dblog
65 ls -1 *.tazpkg | sed s'/.tazpkg//' > $PKGS/packages.list
66 echo " ($(filesize $PKGS/packages.list))" | dblog
67
68 _n 'Creating file "%s"' 'packages.md5' | dblog
69 md5sum *.tazpkg > $PKGS/packages.md5
70 echo " ($(filesize $PKGS/packages.md5))" | dblog
71 cp $PKGS/packages.md5 $PKGS/packages.toremove # list of unnecessary packages
72
73 md5sum packages.md5 | cut -d' ' -f1 > ID
74 ( cat ./ID | tr $'\n' ' '; date -ur ./ID +%s ) > IDs # md5 and timestamp
75
76 _n 'Creating file "%s"' 'descriptions.txt' | dblog
77 rm $PKGS/descriptions.txt 2>/dev/null
78 for i in $(ls $WOK | sort); do
79 [ -d "$WOK/$i/taz" ] || continue
80
81 for j in $(ls $WOK/$i/taz | sort); do
82 [ -e "$WOK/$i/taz/$j/description.txt" ] || continue
83
84 pkgname=$(. $WOK/$i/taz/$j/receipt; echo $PACKAGE)
85 echo "$pkgname" >> descriptions.txt
86 cat "$WOK/$i/taz/$j/description.txt" | sed 's|^$| |' >> descriptions.txt
87 echo >> descriptions.txt
88 done
89 done
90 echo " ($(filesize $PKGS/descriptions.txt))" | dblog
91
92
93 _ 'Creating lists from "%s"' "$WOK" | dblog
94 cd $WOK
95 for i in *; do
96 [ -d "$WOK/$i/taz" ] || continue
97
98 for j in $(ls $WOK/$i/taz | sort); do
99 [ -f "$WOK/$i/taz/$j/receipt" ] || continue
100 unset_receipt
101 . $i/taz/$j/receipt
102
103 if [ -f "$PKGS/$PACKAGE-$VERSION$EXTRAVERSION.tazpkg" -o \
104 -f "$PKGS/$PACKAGE-$VERSION$EXTRAVERSION-$ARCH.tazpkg" ]; then
105
106 # packages.desc lets us search easily in DB
107 cat >> $PKGS/packages.desc <<EOT
108 $PACKAGE | $VERSION$EXTRAVERSION | $SHORT_DESC | $CATEGORY | $WEB_SITE
109 EOT
110
111 # packages.txt used by tazpkg and tazpkg-web also to provide
112 # a human readable package list with version and description.
113 cat >> $PKGS/packages.txt <<EOT
114 $PACKAGE
115 $VERSION$EXTRAVERSION
116 $SHORT_DESC
117 $PACKED_SIZE ($UNPACKED_SIZE installed)
118
119 EOT
120
121 # packages.info combines TazPkg separate files
122 # and will substitute them all
123 SIZES=$(echo $PACKED_SIZE $UNPACKED_SIZE | sed 's|\.0||g')
124 DEPENDS=$(echo $DEPENDS) # remove newlines from some receipts
125 MD5="$(fgrep " $PACKAGE-$VERSION$EXTRAVERSION.tazpkg" $PKGS/packages.md5 | awk '{print $1}')"
126 cat >> $PKGS/packages.info <<EOT
127 $PACKAGE $VERSION$EXTRAVERSION $CATEGORY $SHORT_DESC $WEB_SITE $TAGS $SIZES $DEPENDS $MD5 $PROVIDE
128 EOT
129
130 # packages.equiv is used by tazpkg install to check depends.
131 for k in $PROVIDE; do
132 DEST=''
133 echo $k | fgrep -q : && DEST="${k#*:}:"
134 if grep -qs ^${k%:*}= $PKGS/packages.equiv; then
135 sed -i "s/^${k%:*}=/${k%:*}=$DEST$PACKAGE /" \
136 $PKGS/packages.equiv
137 else
138 echo "${k%:*}=$DEST$PACKAGE" >> $PKGS/packages.equiv
139 fi
140 done
141
142 # files.list provides a list of all packages files.
143 cat $i/taz/$j/files.list | sed s/^/"$PACKAGE: \0"/ >> $PKGS/files.list
144
145 # list of unnecessary packages
146 sed -i "/ $PACKAGE-$VERSION$EXTRAVERSION.tazpkg/d" $PKGS/packages.toremove
147 else
148 # if receipt variable HOST_ARCH absent/empty or contains ARCH
149 if [ -z "$HOST_ARCH" -o "${HOST_ARCH/$ARCH/}" != "$HOST_ARCH" ]; then
150 _ ' - absent: %s (%s)' "$PACKAGE-$VERSION$EXTRAVERSION.tazpkg" "$ARCH" | dblog
151 fi
152 fi
153 done
154 done
155
156 # Display list size.
157 _ 'Done: %s (%s)' 'packages.desc' "$(filesize $PKGS/packages.desc)" | dblog
158 _ 'Done: %s (%s)' 'packages.txt' "$(filesize $PKGS/packages.txt)" | dblog
159 _ 'Done: %s (%s)' 'packages.info' "$(filesize $PKGS/packages.info)" | dblog
160 _ 'Done: %s (%s)' 'packages.equiv' "$(filesize $PKGS/packages.equiv)" | dblog
161
162 cd $PKGS
163
164
165 # Check for unnecessary packages
166 if [ -s "$PKGS/packages.toremove" ]; then
167 newline | dblog
168 case x$rmpkg in
169 x) _ 'Found unnecessary packages (use `cook pkgdb --rmpkg` to remove):' | dblog;;
170 *) _ 'Removing unnecessary packages:' | dblog;;
171 esac
172 while read pkgsum pkgfile; do
173 echo " - $pkgfile" | dblog
174 sed -i "/${pkgfile%.tazpkg}/d" $PKGS/packages.list
175 sed -i "/ $pkgfile/d" $PKGS/packages.md5
176 [ -n "$rmpkg" ] && rm $PKGS/$pkgfile # remove packages only with --rmpkg
177 done < $PKGS/packages.toremove
178 newline | dblog
179 fi
180 rm $PKGS/packages.toremove
181
182
183 # files.list.lzma
184 _n 'Creating file "%s"' 'files.list.lzma' | dblog
185 touch files.list
186 # pkgs.slitaz.org strongly depends on list sorted by packages names
187 lzma e files.list files.list.lzma
188 echo " ($(filesize $PKGS/files.list.lzma))" | dblog
189
190 # Pre-sorting filenames causes 10% smaller resulting lzma file
191 _n 'Creating file "%s"' 'files-list.lzma' | dblog
192 cat files.list | sort -k2 -o files.list.sorted
193 lzma e files.list.sorted files-list.lzma
194 rm -f files.list files.list.sorted
195 echo " ($(filesize $PKGS/files-list.lzma))" | dblog
196
197 [ -e files.list.md5 ] && rm files.list.md5
198 md5sum files-list.lzma | cut -d' ' -f1 | tr -d $'\n' > files-list.md5
199
200 # Make bundle to fast recharge
201 _n 'Creating file "%s"' 'bundle.tar.lzma' | dblog
202 [ -f bundle.tar.lzma ] && rm bundle.tar.lzma
203 # Make sure to get "mirrors" file
204 until [ -e 'mirrors' ]; do
205 wget -q http://mirror1.slitaz.org/mirrors
206 echo -n '.' | dblog; sleep 5
207 done
208 # Make sure to get "extra.list" file
209 until [ -e 'extra.list' ]; do
210 wget -q -O extra.list http://mirror1.slitaz.org/packages/get.list
211 echo -n '.' | dblog; sleep 5
212 done
213 busybox tar -chaf bundle.tar.lzma \
214 mirrors extra.list files-list.md5 packages.info descriptions.txt \
215 packages.desc packages.md5 packages.txt packages.list packages.equiv
216 rm ./mirrors
217 echo " ($(filesize $PKGS/bundle.tar.lzma))" | dblog
218
219 # Display some info.
220 separator | dblog
221 nb=$(ls $PKGS/*.tazpkg | wc -l)
222 time=$(($(date +%s) - $time))
223 # L10n: 's' is for seconds (cooking time)
224 { _ 'Packages: %s - Time: %ss' "$nb" "$time"; newline; } | dblog
225
226
227 # Create all flavors files at once. Do we really need code to monitor
228 # flavors changes? Let's just build them with packages lists before
229 # syncing the mirror.
230 [ "$1" != '--flavors' ] && rm $command && exit 1
231
232 if [ ! -d "$flavors" ]; then
233 { _ 'Missing flavors folder "%s"' "$flavors"; newline; } | dblog
234 rm $command
235 exit 1
236 fi
237
238 [ ! -d "$live" ] && mkdir -p $live
239 _ 'Creating flavors files in "%s"' "$live" | dblog
240 _ 'Cook pkgdb: Creating all flavors' | log
241 separator | dblog
242
243 _ 'Recharging lists to use latest packages...' | dblog
244 tazpkg recharge >/dev/null 2>/dev/null
245
246 # We need a custom tazlito config to set working dir to /home/slitaz.
247 if [ ! -f "$live/tazlito.conf" ]; then
248 _ 'Creating configuration file "%s"' 'tazlito.conf' | dblog
249 cp /etc/tazlito/tazlito.conf $live
250 sed -i s@WORK_DIR=.*@WORK_DIR=\"/home/slitaz\"@ \
251 $live/tazlito.conf
252 fi
253
254 # Update Hg flavors repo and pack.
255 if [ -d "$flavors/.hg" ]; then
256 cd $flavors; hg pull -u
257 fi
258
259 cd $live
260 _ 'Starting to generate flavors...' | dblog
261 rm -f flavors.list *.flavor
262 for i in $flavors/*; do
263 fl=$(basename $i)
264 _ 'Packing flavor "%s"' "$fl" | dblog
265 tazlito pack-flavor $fl >/dev/null || exit 1
266 tazlito show-flavor $fl --brief --noheader 2>/dev/null >> flavors.list
267 done
268 cp -f $live/*.flavor $live/flavors.list $PKGS
269 separator | dblog
270 { _ 'Total flavors size: %s' "$(du -sh $live | awk '{print $1}')"; newline; } | dblog
271 separator | dblog
272 _ 'Cook pkgdb end: %s' "$(date "$(_ '+%%F %%R')")" | dblog
273
274 rm $command
275
276
277 exit 0