blob: 72857ed1c03ff396debc42c2082ec62f396bb9f5 (
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
|
#!/usr/bin/env bash
# Copyright (C) 2010 Joshua Ismael Haase Hernández (xihh) <hahj87@gmail.com>
# Copyright (C) 2010 Nicolás Reynolds <fauno@parabola.nu>
# Copyright (C) 2013-2014 Luke Shumaker <lukeshu@sbcglobal.net>
#
# License: GNU GPLv3+
#
# This file is part of Parabola.
#
# Parabola is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# Parabola is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Parabola. If not, see <http://www.gnu.org/licenses/>.
. libremessages
usage() {
print "Usage: %s [-h] PKGNAME [PKGNAME2 PKGNAME3...]" "${0##*/}"
print "Downloads packages from the AUR, and does basic freedom checks."
echo
prose "This script will download packages from AUR to the current
directory and check their license for nonfree issues. This does
not mean that they are free; they may be incorrectly labeled, or
have other freedom issues. It's a tool to help Parabola
packagers, not to help users install things directly from AUR."
}
main() {
while getopts 'h' arg; do
case $arg in
h) usage; return 0;;
*) usage >&2; return 1;;
esac
done
if [[ $# -lt 1 ]]; then
usage >&2
return 1
fi
. $(librelib conf.sh)
load_files libretools
check_vars libretools DIFFPROG || exit 1
local startdir="$(pwd)"
local missing_deps=()
local ret=0
local pkg
local copy_new
local copy_old
for pkg in "$@"; do
pkg="${pkg%%[<>=]*}" # remove the version
msg "Processing package: %s" "$pkg"
copy_new="$startdir/$pkg"
copy_old=
if [[ -f "${copy_new}/PKGBUILD" ]]; then
warning "%s already exists, will compare with new version." "$pkg"
# Store our copy of the PKGBUILD dir
copy_old=$copy_new
copy_new="$(mktemp --tmpdir -d aur-${pkg}.new.XXXX)/$pkg"
cd "${copy_new%/*}"
fi
msg2 "Downloading"
local url="https://aur.archlinux.org/packages/${pkg:0:2}/$pkg/$pkg.tar.gz"
set -o pipefail
if ! wget -O- -q "$url" | bsdtar xf -; then
ret=$(($ret|2))
error "Couldn't get %s" "$pkg"
continue
fi
set +o pipefail
if [[ -n $copy_old ]]; then
msg2 "Diffing files"
cd "$copy_new"
# Diff all files with our difftool
local diffed=false
for file in *; do
if ! cmp -s "${copy_old}/${file}" "${copy_new}/${file}" ; then
warning "%s != %s" "${copy_old}/${file}" "${copy_new}/${file}"
diffed=true
"${DIFFPROG}" "${copy_old}/${file}" "${copy_new}/${file}"
fi
done
if $diffed; then
read -p "Press enter to continue."
fi
# Go back to our copy to continue working
cd "$copy_old"
rm -rf -- "${copy_new%/*}"
else
cd "$copy_new"
fi
load_PKGBUILD
################################################################
pkgbuild-check-nonfree -c
pkgbuild-summarize-nonfree $?
################################################################
local _deps=(
# depends
"${depends[@]}" "${makedepends[@]}" "${checkdepends[@]}"
# mksource depends
"${mkdepends[@]}"
)
local _dep
msg2 "Checking dependencies"
for _dep in "${_deps[@]}"; do
_dep=${_dep/[<>=]*/}
if ! is_built $_dep; then
if ! pacman -Sddp "$_dep" &>/dev/null ; then
plain "%s: will be downloaded from AUR" "$_dep"
missing_deps+=($_dep)
fi
else
plain "%s: is on repos" "$_dep"
fi
done
cd "$startdir"
done
if [[ ${#missing_deps[*]} -gt 0 ]]; then
msg "Retrieving missing deps: %s" "${missing_deps[*]}"
"$0" "${missing_deps[@]}"
ret=$(($ret|$?))
fi
return $ret;
}
main "$@"
|
