summaryrefslogtreecommitdiff
path: root/src/abslibre-tools/libredbdiff
blob: 47e659fb64a21309e00d39470c664b24d9db1153 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
#!/bin/bash

name="Libredbdiff"

baseconfpath="/etc/libredbdiff"
basedbpath="/var/lib/libredbdiff"

conffile="$baseconfpath/pacman.conf.parabola"
conffilearch="$baseconfpath/pacman.conf.archlinux"

dbpath="$basedbpath/pacman.parabola"
dbpatharch="$basedbpath/pacman.archlinux"

mirrorlist="$baseconfpath/mirrorlist.parabola"
mirrorlistarch="$baseconfpath/mirrorlist.archlinux"

mirror='http://repo.parabolagnulinux.org/$repo/os/$arch'
mirrorarch='http://mirrors.kernel.org/archlinux/$repo/os/$arch'

. libremessages

cmd="${0##*/}"

downloadfile() {
	local outfile=$1
	local url=$2
	local mesg=("${@:3}")
	if [[ ! -e $outfile ]] ; then
		msg "${mesg[@]}"
		if wget -q "$url" -O "$outfile"; then
			return 255
		else
			die "Failed to download %q. Exiting." "$outfile"
		fi
	elif [[ $init ]]; then
		warning "%q already exists. Skipping." "$outfile"
	fi
}

createdir() {
	local dir=$1
	if [[ ! -e $dir ]] ; then
		msg "Creating directory %q" "$dir"
		mkdir -- "$1" || die "Failed to create directory %q. Exiting." "$dir"
	elif [[ $init ]]; then
		warning "%q already exists. Skipping." "$dir"
	fi
}

setmirror() {
	local distro="$1"
	local mirror="$2"
	local mirrorlist="$3"
	if [[ $init ]] && [[ $mirror ]]; then
		mirrorescaped="${mirror//./\\.}"
		mirrorescaped="${mirrorescaped//\$/\\$}"
		msg "Setting %q as the only enabled %s mirror." "${mirror}" "${distro}"
		sed -i 's|^#\(Server = '"${mirrorescaped}"'\)$|\1|' "${mirrorlist}"
	fi
}

filenotfound() {
	local file=$1
	if [[ ! -r $1 ]]; then
		die "Could not read %q. Nothing done." "$file"
		plain "It may be necessary to run %q without arguments as root to initialize %s." "$cmd" "$name"
	fi
}

comparepkgs() {
	if [[ ${verarch[$pkgname]} ]] ; then
		cmp=$(vercmp "${ver[$pkgname]}" "${verarch[$pkgname]}")
		if [[ $cmp -lt 0 ]]; then
			msg "%s needs update from the Arch package of the same name. Versions: %s - %s" "${pkgname}" "${ver[$pkgname]}" "${verarch[$pkgname]}"
		fi
	elif [[ ${provides[$pkgname]} ]]; then
		for provide in "${provides[$pkgname]}"; do
			if [[ ${verarch["$provide"]} ]]; then
				cmp=$(vercmp "${ver[$pkgname]}" "${verarch[$provide]}")
				if [[ $cmp -lt 0 ]]; then
					msg "%s may need update from provide candidate %s. Versions: %s - %s" "${pkgname}" "${provide}" "${ver[$pkgname]}" "${verarch[$provide]}"
				fi
			fi
		done
	else
		msg "Could not find candidate to compare %s" "${pkgname}"
	fi
}

usage() {
	print "Usage: %q [-n|-h]" "$cmd"
	print 'Show [libre] packages that need to be updated from Arch repositories.'
	echo
	prose "The default mode of operation is to download/update all nescessary
	       files for comparison, but not compare them.  Specify the \`-n\`
	       flag to not download anything, but to compare already downloaded
	       files."
	echo
	print 'Options:'
	flag '-n' "Don't update anything, just compare already downloaded files."
	flag '-h' 'Show this message'
}

main() {
	local UPDATE=1
	local arg
	for arg in "$@"; do
		case "$arg" in
			-n) UPDATE=0;;
			-h) usage; return 0;;
			*)
				error "Bad arguments. Nothing done."
				usage >&2
				return 1
				;;
		esac
	done

	if (( $UPDATE )) ; then
		if [[ $EUID != 0 ]]; then
			die "To initialize $name or update %s pacman databases, the script must be run as root. Nothing done." "$name"
		fi

		if ! [[ -d "$baseconfpath" && -d "$basedbpath" && -d "$dbpath" && -d "$dbpatharch" && -e "${conffile}" && -e "${conffilearch}" && -e "${mirrorlist}" && -e  "${mirrorlist}" ]]; then
			msg "%s files are missing. Initializing." "${name}"
			init=1
		fi

		createdir "$baseconfpath"
		createdir "$basedbpath"
		createdir "$dbpath"
		createdir "$dbpatharch"

		downloadfile "${conffile}" "https://projects.parabolagnulinux.org/abslibre.git/plain/libre/pacman/pacman.conf.x86_64" \
			"Downloading Parabola %q" pacman.conf

		downloadfile "${conffilearch}" "https://projects.archlinux.org/svntogit/packages.git/plain/pacman/trunk/pacman.conf.x86_64" \
			"Downloading Arch %q" pacman.conf
		if [[ $? == 255 ]] ; then
			msg "Setting Arch mirrorlist file in %q" "${conffilearch}"
			sed -i "s|/etc/pacman\.d/mirrorlist$|$baseconfpath/mirrorlist.archlinux|" "${conffilearch}"
		fi

		downloadfile "${mirrorlist}" "https://repo.parabolagnulinux.org/mirrorlist.txt" \
			"Downloading Parabola %q" mirrorlist
		if [[ $? == 255 ]] ; then
			sed -i 's|^Server|#Server|' "${mirrorlist}"
			setmirror "Parabola" "$mirror" "$mirrorlist"
		fi

		downloadfile "${mirrorlistarch}" "https://projects.archlinux.org/svntogit/packages.git/plain/pacman-mirrorlist/trunk/mirrorlist" \
			"Downloading Arch %q" mirrorlist
		if [[ $? == 255 ]] ; then
			setmirror "Arch" "$mirrorarch" "$mirrorlistarch"
		fi

		msg "Synchronizing %s pacman databases for Parabola" "$name"
		pacman --config "${conffile}" -b "${dbpath}" -Sy || die "Failed to synchronize pacman database for Parabola. Exiting."

		msg "Synchronizing %s pacman databases for Arch" "$name"
		pacman --config "${conffilearch}" -b "${dbpatharch}" -Sy || die "Failed to synchronize pacman database for Arch. Exiting."

		msg "%s pacman databases are updated. %s is ready. Run %q -n to print results." "$name" "$name" "$cmd"
		return 0
	else
		filenotfound "${dbpath}"
		filenotfound "${dbpatharch}"
		filenotfound "${conffile}"
		filenotfound "${conffilearch}"
		filenotfound "${mirrorlist}"
		filenotfound "${mirrorlistarch}"
	fi

	unset provides ver verarch
	declare -gA provides ver verarch

	while read -a line; do
		verarch["${line[0]}"]="${line[1]}"
	done < <(pacman --dbpath "${dbpatharch}" --config "${conffilearch}" -Ss | grep -v '^ ' | awk -F/ '{print $2}')

	while read -a line; do
		ver[${line[0]}]="${line[1]}"
		provides[${line[0]}]="${line[@]:2}"
		pkgname=${line[0]}
		comparepkgs
	done < <(expac -b "${dbpath}" -c "${conffile}" -Ss '%r/%n %v %S' | awk -F/ '$1 == "libre" {print $2}')
}

main "$@"