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 "$@"
|
