treewide: use new procd sysupgrade $UPGRADE_BACKUP variable
[librecmc/librecmc.git] / package / base-files / files / lib / upgrade / common.sh
1 #!/bin/sh
2
3 RAM_ROOT=/tmp/root
4
5 export BACKUP_FILE=sysupgrade.tgz       # file extracted by preinit
6
7 [ -x /usr/bin/ldd ] || ldd() { LD_TRACE_LOADED_OBJECTS=1 $*; }
8 libs() { ldd $* 2>/dev/null | sed -r 's/(.* => )?(.*) .*/\2/'; }
9
10 install_file() { # <file> [ <file> ... ]
11         local target dest dir
12         for file in "$@"; do
13                 if [ -L "$file" ]; then
14                         target="$(readlink -f "$file")"
15                         dest="$RAM_ROOT/$file"
16                         [ ! -f "$dest" ] && {
17                                 dir="$(dirname "$dest")"
18                                 mkdir -p "$dir"
19                                 ln -s "$target" "$dest"
20                         }
21                         file="$target"
22                 fi
23                 dest="$RAM_ROOT/$file"
24                 [ -f "$file" -a ! -f "$dest" ] && {
25                         dir="$(dirname "$dest")"
26                         mkdir -p "$dir"
27                         cp "$file" "$dest"
28                 }
29         done
30 }
31
32 install_bin() {
33         local src files
34         src=$1
35         files=$1
36         [ -x "$src" ] && files="$src $(libs $src)"
37         install_file $files
38 }
39
40 run_hooks() {
41         local arg="$1"; shift
42         for func in "$@"; do
43                 eval "$func $arg"
44         done
45 }
46
47 ask_bool() {
48         local default="$1"; shift;
49         local answer="$default"
50
51         [ "$INTERACTIVE" -eq 1 ] && {
52                 case "$default" in
53                         0) echo -n "$* (y/N): ";;
54                         *) echo -n "$* (Y/n): ";;
55                 esac
56                 read answer
57                 case "$answer" in
58                         y*) answer=1;;
59                         n*) answer=0;;
60                         *) answer="$default";;
61                 esac
62         }
63         [ "$answer" -gt 0 ]
64 }
65
66 v() {
67         [ "$VERBOSE" -ge 1 ] && echo "$@"
68 }
69
70 json_string() {
71         local v="$1"
72         v="${v//\\/\\\\}"
73         v="${v//\"/\\\"}"
74         echo "\"$v\""
75 }
76
77 rootfs_type() {
78         /bin/mount | awk '($3 ~ /^\/$/) && ($5 !~ /rootfs/) { print $5 }'
79 }
80
81 get_image() { # <source> [ <command> ]
82         local from="$1"
83         local cmd="$2"
84
85         if [ -z "$cmd" ]; then
86                 local magic="$(dd if="$from" bs=2 count=1 2>/dev/null | hexdump -n 2 -e '1/1 "%02x"')"
87                 case "$magic" in
88                         1f8b) cmd="zcat";;
89                         425a) cmd="bzcat";;
90                         *) cmd="cat";;
91                 esac
92         fi
93
94         cat "$from" 2>/dev/null | $cmd
95 }
96
97 get_magic_word() {
98         (get_image "$@" | dd bs=2 count=1 | hexdump -v -n 2 -e '1/1 "%02x"') 2>/dev/null
99 }
100
101 get_magic_long() {
102         (get_image "$@" | dd bs=4 count=1 | hexdump -v -n 4 -e '1/1 "%02x"') 2>/dev/null
103 }
104
105 export_bootdevice() {
106         local cmdline bootdisk rootpart uuid blockdev uevent line
107         local MAJOR MINOR DEVNAME DEVTYPE
108
109         if read cmdline < /proc/cmdline; then
110                 case "$cmdline" in
111                         *block2mtd=*)
112                                 bootdisk="${cmdline##*block2mtd=}"
113                                 bootdisk="${bootdisk%%,*}"
114                         ;;
115                         *root=*)
116                                 rootpart="${cmdline##*root=}"
117                                 rootpart="${rootpart%% *}"
118                         ;;
119                 esac
120
121                 case "$bootdisk" in
122                         /dev/*)
123                                 uevent="/sys/class/block/${bootdisk##*/}/uevent"
124                         ;;
125                 esac
126
127                 case "$rootpart" in
128                         PARTUUID=[a-f0-9][a-f0-9][a-f0-9][a-f0-9][a-f0-9][a-f0-9][a-f0-9][a-f0-9]-[a-f0-9][a-f0-9])
129                                 uuid="${rootpart#PARTUUID=}"
130                                 uuid="${uuid%-[a-f0-9][a-f0-9]}"
131                                 for blockdev in $(find /dev -type b); do
132                                         set -- $(dd if=$blockdev bs=1 skip=440 count=4 2>/dev/null | hexdump -v -e '4/1 "%02x "')
133                                         if [ "$4$3$2$1" = "$uuid" ]; then
134                                                 uevent="/sys/class/block/${blockdev##*/}/uevent"
135                                                 break
136                                         fi
137                                 done
138                         ;;
139                         /dev/*)
140                                 uevent="/sys/class/block/${rootpart##*/}/../uevent"
141                         ;;
142                 esac
143
144                 if [ -e "$uevent" ]; then
145                         while read line; do
146                                 export -n "$line"
147                         done < "$uevent"
148                         export BOOTDEV_MAJOR=$MAJOR
149                         export BOOTDEV_MINOR=$MINOR
150                         return 0
151                 fi
152         fi
153
154         return 1
155 }
156
157 export_partdevice() {
158         local var="$1" offset="$2"
159         local uevent line MAJOR MINOR DEVNAME DEVTYPE
160
161         for uevent in /sys/class/block/*/uevent; do
162                 while read line; do
163                         export -n "$line"
164                 done < "$uevent"
165                 if [ $BOOTDEV_MAJOR = $MAJOR -a $(($BOOTDEV_MINOR + $offset)) = $MINOR -a -b "/dev/$DEVNAME" ]; then
166                         export "$var=$DEVNAME"
167                         return 0
168                 fi
169         done
170
171         return 1
172 }
173
174 hex_le32_to_cpu() {
175         [ "$(echo 01 | hexdump -v -n 2 -e '/2 "%x"')" = "3031" ] && {
176                 echo "${1:0:2}${1:8:2}${1:6:2}${1:4:2}${1:2:2}"
177                 return
178         }
179         echo "$@"
180 }
181
182 get_partitions() { # <device> <filename>
183         local disk="$1"
184         local filename="$2"
185
186         if [ -b "$disk" -o -f "$disk" ]; then
187                 v "Reading partition table from $filename..."
188
189                 local magic=$(dd if="$disk" bs=2 count=1 skip=255 2>/dev/null)
190                 if [ "$magic" != $'\x55\xAA' ]; then
191                         v "Invalid partition table on $disk"
192                         exit
193                 fi
194
195                 rm -f "/tmp/partmap.$filename"
196
197                 local part
198                 for part in 1 2 3 4; do
199                         set -- $(hexdump -v -n 12 -s "$((0x1B2 + $part * 16))" -e '3/4 "0x%08X "' "$disk")
200
201                         local type="$(( $(hex_le32_to_cpu $1) % 256))"
202                         local lba="$(( $(hex_le32_to_cpu $2) ))"
203                         local num="$(( $(hex_le32_to_cpu $3) ))"
204
205                         [ $type -gt 0 ] || continue
206
207                         printf "%2d %5d %7d\n" $part $lba $num >> "/tmp/partmap.$filename"
208                 done
209         fi
210 }
211
212 indicate_upgrade() {
213         . /etc/diag.sh
214         set_state upgrade
215 }
216
217 # Flash firmware to MTD partition
218 #
219 # $(1): path to image
220 # $(2): (optional) pipe command to extract firmware, e.g. dd bs=n skip=m
221 default_do_upgrade() {
222         sync
223         if [ "$UPGRADE_OPT_SAVE_CONFIG" -eq 1 ]; then
224                 get_image "$1" "$2" | mtd $MTD_ARGS $MTD_CONFIG_ARGS -j "$UPGRADE_BACKUP" write - "${PART_NAME:-image}"
225         else
226                 get_image "$1" "$2" | mtd $MTD_ARGS write - "${PART_NAME:-image}"
227         fi
228         [ $? -ne 0 ] && exit 1
229 }