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