"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "build-aux/announce-gen" between
gsasl-2.0.1.tar.gz and gsasl-2.2.0.tar.gz

About: GNU SASL is an implementation of the Simple Authentication and Security Layer (SASL).

announce-gen  (gsasl-2.0.1):announce-gen  (gsasl-2.2.0)
skipping to change at line 38 skipping to change at line 38
# to be /bin/sh, because on GuixSD systems that is the only program that # to be /bin/sh, because on GuixSD systems that is the only program that
# has a fixed file name. The second line is essential for perl and is # has a fixed file name. The second line is essential for perl and is
# also useful for editing this file in Emacs. The next two lines below # also useful for editing this file in Emacs. The next two lines below
# are valid code in both sh and perl. When executed by sh, they re-execute # are valid code in both sh and perl. When executed by sh, they re-execute
# the script through the perl program found in $PATH. The '-x' option # the script through the perl program found in $PATH. The '-x' option
# is essential as well; without it, perl would re-execute the script # is essential as well; without it, perl would re-execute the script
# through /bin/sh. When executed by perl, the next two lines are a no-op. # through /bin/sh. When executed by perl, the next two lines are a no-op.
eval 'exec perl -wSx "$0" "$@"' eval 'exec perl -wSx "$0" "$@"'
if 0; if 0;
my $VERSION = '2022-03-14 10:08'; # UTC my $VERSION = '2022-07-10 01:47'; # UTC
# The definition above must lie within the first 8 lines in order # The definition above must lie within the first 8 lines in order
# for the Emacs time-stamp write hook (at end) to update it. # for the Emacs time-stamp write hook (at end) to update it.
# If you change this file with Emacs, please let the write hook # If you change this file with Emacs, please let the write hook
# do its job. Otherwise, update this string manually. # do its job. Otherwise, update this string manually.
my $copyright_year = '2022'; my $copyright_year = '2022';
use strict; use strict;
use Getopt::Long; use Getopt::Long;
use POSIX qw(strftime); use POSIX qw(strftime);
skipping to change at line 447 skipping to change at line 447
$curr_version $curr_version
or (warn "current version string not specified\n"), $fail = 1; or (warn "current version string not specified\n"), $fail = 1;
$gpg_key_id $gpg_key_id
or (warn "GnuPG key ID not specified\n"), $fail = 1; or (warn "GnuPG key ID not specified\n"), $fail = 1;
@url_dir_list @url_dir_list
or (warn "URL directory name(s) not specified\n"), $fail = 1; or (warn "URL directory name(s) not specified\n"), $fail = 1;
my @tool_list = split ',', $bootstrap_tools my @tool_list = split ',', $bootstrap_tools
if $bootstrap_tools; if $bootstrap_tools;
grep (/^gnulib$/, @tool_list) ^ defined $gnulib_version grep (/^gnulib$/, @tool_list) && ! defined $gnulib_version
and (warn "when specifying gnulib as a tool, you must also specify\n" and (warn "when specifying gnulib as a tool, you must also specify\n"
. "--gnulib-version=V, where V is the result of running git describe\n" . "--gnulib-version=V, where V is the result of running git describe\n"
. "in the gnulib source directory.\n"), $fail = 1; . "in the gnulib source directory.\n"), $fail = 1;
! grep (/^gnulib$/, @tool_list) && defined $gnulib_version
and (warn "with --gnulib-version=V you must use --bootstrap-tools=...\n"
. "including gnulib in that list"), $fail = 1;
!$release_type || exists $valid_release_types{$release_type} !$release_type || exists $valid_release_types{$release_type}
or (warn "'$release_type': invalid release type\n"), $fail = 1; or (warn "'$release_type': invalid release type\n"), $fail = 1;
@ARGV @ARGV
and (warn "too many arguments:\n", join ("\n", @ARGV), "\n"), and (warn "too many arguments:\n", join ("\n", @ARGV), "\n"),
$fail = 1; $fail = 1;
$fail $fail
and usage 1; and usage 1;
my $my_distdir = "$package_name-$curr_version"; my $my_distdir = "$package_name-$curr_version";
skipping to change at line 500 skipping to change at line 504
<\#secure method=pgpmime mode=sign> <\#secure method=pgpmime mode=sign>
FIXME: put comments here FIXME: put comments here
EOF EOF
if (@url_dir_list == 1 && @tarballs == 1) if (@url_dir_list == 1 && @tarballs == 1)
{ {
# When there's only one tarball and one URL, use a more concise form. # When there's only one tarball and one URL, use a more concise form.
my $m = "$url_dir_list[0]/$tarballs[0]"; my $m = "$url_dir_list[0]/$tarballs[0]";
print "Here are the compressed sources and a GPG detached signature[*]:\n" print "Here are the compressed sources and a GPG detached signature:\n"
. " $m\n" . " $m\n"
. " $m.sig\n\n"; . " $m.sig\n\n";
} }
else else
{ {
print_locations ("compressed sources", @url_dir_list, %size, @tarballs); print_locations ("compressed sources", @url_dir_list, %size, @tarballs);
-f $xd -f $xd
and print_locations ("xdelta diffs (useful? if so, " and print_locations ("xdelta diffs (useful? if so, "
. "please tell bug-gnulib\@gnu.org)", . "please tell bug-gnulib\@gnu.org)",
@url_dir_list, %size, $xd); @url_dir_list, %size, $xd);
my @sig_files = map { "$_.sig" } @tarballs; my @sig_files = map { "$_.sig" } @tarballs;
print_locations ("GPG detached signatures[*]", @url_dir_list, %size, print_locations ("GPG detached signatures", @url_dir_list, %size,
@sig_files); @sig_files);
} }
if ($url_dir_list[0] =~ "gnu\.org") if ($url_dir_list[0] =~ "gnu\.org")
{ {
print "Use a mirror for higher download bandwidth:\n"; print "Use a mirror for higher download bandwidth:\n";
if (@tarballs == 1 && $url_dir_list[0] =~ m!https://ftp\.gnu\.org/gnu/!) if (@tarballs == 1 && $url_dir_list[0] =~ m!https://ftp\.gnu\.org/gnu/!)
{ {
(my $m = "$url_dir_list[0]/$tarballs[0]") (my $m = "$url_dir_list[0]/$tarballs[0]")
=~ s!https://ftp\.gnu\.org/gnu/!https://ftpmirror\.gnu\.org/!; =~ s!https://ftp\.gnu\.org/gnu/!https://ftpmirror\.gnu\.org/!;
skipping to change at line 537 skipping to change at line 541
else else
{ {
print " https://www.gnu.org/order/ftp.html\n\n"; print " https://www.gnu.org/order/ftp.html\n\n";
} }
} }
$print_checksums_p $print_checksums_p
and print_checksums (@sizable); and print_checksums (@sizable);
print <<EOF; print <<EOF;
[*] Use a .sig file to verify that the corresponding file (without the Use a .sig file to verify that the corresponding file (without the
.sig suffix) is intact. First, be sure to download both the .sig file .sig suffix) is intact. First, be sure to download both the .sig file
and the corresponding tarball. Then, run a command like this: and the corresponding tarball. Then, run a command like this:
gpg --verify $tarballs[0].sig gpg --verify $tarballs[0].sig
EOF
my $gpg_fingerprint = `LC_ALL=C gpg --fingerprint $gpg_key_id | grep -v ^sub`;
if ($gpg_fingerprint =~ /^pub/)
{
chop $gpg_fingerprint;
$gpg_fingerprint =~ s/ \[expires:.*//mg;
$gpg_fingerprint =~ s/^uid \[ultimate\]/uid /mg;
$gpg_fingerprint =~ s/^/ /mg;
print<<EOF
The signature should match the fingerprint of the following key:
$gpg_fingerprint
EOF
}
print <<EOF;
If that command fails because you don't have the required public key, If that command fails because you don't have the required public key,
or that public key has expired, try the following commands to update or that public key has expired, try the following commands to retrieve
or refresh it, and then rerun the 'gpg --verify' command. or refresh it, and then rerun the 'gpg --verify' command.
EOF EOF
if ($gpg_key_email) { if ($gpg_key_email) {
print <<EOF; print <<EOF;
gpg --locate-external-key $gpg_key_email gpg --locate-external-key $gpg_key_email
EOF EOF
} }
print <<EOF; print <<EOF;
gpg --recv-keys $gpg_key_id gpg --recv-keys $gpg_key_id
EOF EOF
if ($gpg_keyring_url) { if ($gpg_keyring_url) {
print <<EOF; print <<EOF;
wget -q -O- '$gpg_keyring_url' | gpg --import - wget -q -O- '$gpg_keyring_url' | gpg --import -
EOF EOF
} }
print <<EOF;
As a last resort to find the key, you can try the official GNU
keyring:
wget -q https://ftp.gnu.org/gnu/gnu-keyring.gpg
gpg --keyring gnu-keyring.gpg --verify $tarballs[0].sig
EOF
my @tool_versions = get_tool_versions (\@tool_list, $gnulib_version); my @tool_versions = get_tool_versions (\@tool_list, $gnulib_version);
@tool_versions @tool_versions
and print "\nThis release was bootstrapped with the following tools:", and print "\nThis release was bootstrapped with the following tools:",
join ('', map {"\n $_"} @tool_versions), "\n"; join ('', map {"\n $_"} @tool_versions), "\n";
print_news_deltas ($_, $prev_version, $curr_version) print_news_deltas ($_, $prev_version, $curr_version)
foreach @news_file; foreach @news_file;
$release_type eq 'stable' $release_type eq 'stable'
 End of changes. 9 change blocks. 
7 lines changed or deleted 35 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)