#!/bin/sh

# This hook script prevents the user from pushing to Savannah if any of the new
# commits' OpenPGP signatures cannot be verified, or if a commit is signed
# with an unauthorized key.

# Called by "git push" after it has checked the remote status, but before
# anything has been pushed.  If this script exits with a non-zero status nothing
# will be pushed.
#
# This hook is called with the following parameters:
#
# $1 -- Name of the remote to which the push is being done
# $2 -- URL to which the push is being done
#
# If pushing without using a named remote those arguments will be equal.
#
# Information about the commits which are being pushed is supplied as lines to
# the standard input in the form:
#
#   <local ref> <local sha1> <remote ref> <remote sha1>

# This is the "empty hash" used by Git when pushing a branch deletion.
z40=0000000000000000000000000000000000000000

while read local_ref local_hash remote_ref remote_hash
do
	# When deleting a remote branch, no commits are pushed to the remote, and
	# thus there are no signatures to be verified.
	if [ "$local_hash" != $z40 ]
	then
		# Only use the hook when pushing to Savannah.
		case "$2" in
		    *.gnu.org*)
			exec make authenticate check-channel-news
			exit 127
			;;
		    *)
			exit 0
			;;
		esac
	fi
done

exit 0
ute.scm?id=f5e0088affff914eb2f2ecb229e89c1f09642cda'>tree</a><a href='/guix/commit/tests/substitute.scm?id=f5e0088affff914eb2f2ecb229e89c1f09642cda'>commit</a><a href='/guix/diff/tests/substitute.scm?id=f5e0088affff914eb2f2ecb229e89c1f09642cda'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/tests/substitute.scm'>
<input type='hidden' name='id' value='f5e0088affff914eb2f2ecb229e89c1f09642cda'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=f5e0088affff914eb2f2ecb229e89c1f09642cda'>root</a>/<a href='/guix/log/tests?id=f5e0088affff914eb2f2ecb229e89c1f09642cda'>tests</a>/<a href='/guix/log/tests/substitute.scm?id=f5e0088affff914eb2f2ecb229e89c1f09642cda'>substitute.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/tests/substitute.scm?id=f5e0088affff914eb2f2ecb229e89c1f09642cda&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2023-06-08 22:54:58 +0200'>2023-06-08</span></td><td><a href='/guix/commit/tests/substitute.scm?id=885d524f79aa4bbfac5dfebf285e1e248184ee70'>substitute: Gracefully retry after failed partial downloads.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://issues.guix.gnu.org/63443&gt;.
Reported by Attila Lendvai &lt;attila@lendvai.name&gt;.

* guix/scripts/substitute.scm (catch-system-error): New macro.
(download-nar): Add call to 'delete-file-recursively'.
* tests/substitute.scm ("substitute, previous partial download around"):
New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-05-30 00:15:29 +0200'>2023-05-30</span></td><td><a href='/guix/commit/tests/substitute.scm?id=8af9a2aa5fa2fa5b00234c1cbe12e9aff60888a0'>substitute: If a server's nar URL is 404, try the next one(s).</a><span class='msg-avail'>...<span class='msg-tooltip'>If a substitute server advertises in its narinfo, for example, both a
/zstd and a /lzip URL but the /zstd URL is unreachable, try the /lzip
URL.

Fixes &lt;https://issues.guix.gnu.org/63634&gt;.

* guix/narinfo.scm (narinfo-preferred-uris): New procedure.
(narinfo-best-uri): Rebase on top of it.
* guix/scripts/substitute.scm (download-nar)[try-fetch]: New procedure.
Use 'narinfo-preferred-uris' and 'try-fetch' to attempt all the URLs of
NARINFO.
* tests/substitute.scm (request-substitution): Remove 'parameterize'.
Delete DESTINATION.
("substitute, preferred nar URL is 404, other is 200"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>