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
|
#!/bin/sh
# copyright, licensing and documentation at the end
. "${DPT__SCRIPTS:-/usr/share/pkg-perl-tools}/lib/dpt-lib.sh"
is_key_pkg () {
is_command curl
local P="$1"
local RES
RES=$(echo "$P" | curl --silent --data-binary @- \
https://udd.debian.org/cgi-bin/select-key-packages.cgi)
if [ "$RES" ]
then
echo $(colored "GREEN" "✔") "$P is a key package"
else
echo $(colored "RED" "✘") "$P is no key package"
fi
}
ci_report () {
psql --quiet "$UDD_PG" <<EOF | sed "s/\\bpass\\b/$(colored GREEN ' ✔ ')/; s/\\bfail\\b/$(colored RED ' ✘ ')/;" | head -n -1
\\pset border 1
\\pset footer off
select distinct on (suite)
suite, date, version, status
from ci
where source='$1'
order by suite, date desc;
EOF
}
header "gbp pull"
gbp pull
header "Bugs"
if is_installed "pkg-perl-tools" "0.69"; then
bts-srcpkg -t
else
warn "Running 'bts-srcpkg' without -t, sorry for the duplicate title."
bts-srcpkg
fi
header "rmadison"
rmadison $PKG
header "grep-excuses"
EXCUSES=$(grep-excuses --wipnity $PKG)
if [ -z "$EXCUSES" ] || [ "$EXCUSES" = "No excuse for $PKG" ]; then
colored "GREEN" "None \o/"
else
colored "YELLOW" "$EXCUSES"
fi
header "Last upload"
who-uploads --date --max-uploads=1 $PKG
header "Popcon"
if is_command popcon python3-popcon; then
if is_installed "python3-popcon" "3.0.0"; then
popcon --verbose $PKG
else
info "Output is nicer with python3-popcon >= 3.0.0."
popcon $PKG
fi
fi
header "Key package?"
is_key_pkg $PKG
header "CI (amd64)"
if is_command psql postgresql-client; then
ci_report $PKG
fi
header "New upstream release?"
USCAN=$(uscan --report)
if [ -n "$USCAN" ]; then
colored "YELLOW" "$USCAN"
else
colored "GREEN" "None \o/"
fi
header "Git diff against last Debian tag"
gitddiff
POD=<<'EOF'
=head1 NAME
dpt-prepare - prepare yourself and a source directory before working on a package
=head1 SYNOPSIS
B<dpt prepare>
=head1 DESCRIPTION
B<dpt prepare> runs a couple of commands in the checked out directory of a
source package which are useful -- either for the person or the code -- as a
preparation before working on the package.
=head1 CONFIGURATION, OPTIONS, & PARAMETERS
None (yet).
=head1 COPYRIGHT & LICENSE
=over
=item Copyright 2022-2024 gregor herrmann L<gregoa@debian.org>
=item Copyright 2022 Damyan Ivanov L<dmn@debian.org>
=back
This program is free software, licensed under the same term as perl.
=cut
EOF
|
