#!/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
ff484904f25b2c250f99fba5bed'>tree</a><a href='/guix/commit/tests/cpan.scm?id=cd097312bbf0eff484904f25b2c250f99fba5bed'>commit</a><a href='/guix/diff/tests/cpan.scm?id=cd097312bbf0eff484904f25b2c250f99fba5bed'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/tests/cpan.scm'>
<input type='hidden' name='id' value='cd097312bbf0eff484904f25b2c250f99fba5bed'/><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=cd097312bbf0eff484904f25b2c250f99fba5bed'>root</a>/<a href='/guix/log/tests?id=cd097312bbf0eff484904f25b2c250f99fba5bed'>tests</a>/<a href='/guix/log/tests/cpan.scm?id=cd097312bbf0eff484904f25b2c250f99fba5bed'>cpan.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/cpan.scm?id=cd097312bbf0eff484904f25b2c250f99fba5bed&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2023-06-09 14:19:14 +0200'>2023-06-09</span></td><td><a href='/guix/commit/tests/cpan.scm?id=f69d14d31af8325807d8529fccd3f0b6fd86e342'>tests: Ensure 'cpan' updater test does not access the network.</a><span class='msg-avail'>...<span class='msg-tooltip'>Previously it would try to access the real metacpan.org.  This would
succeed when network is available because "Test-Script" is an existing
package.

* tests/cpan.scm ("package-latest-release"): Wrap
'upstream-source-inputs' call in 'parameterize'.  Set
'current-http-proxy'.  Change the order of responses in
'with-http-server'.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-05-31 23:50:06 +0200'>2023-05-31</span></td><td><a href='/guix/commit/tests/cpan.scm?id=654fcf9971bb01389d577be07c6ec0f68940c743'>tests: Use quasiquoted 'match' patterns for package sexps.</a><span class='msg-avail'>...<span class='msg-tooltip'>Turns out it's easier to read.

* tests/cpan.scm ("cpan-&gt;guix-package"): Use a quasiquoted pattern.
* tests/elpa.scm (eval-test-with-elpa): Likewise.
* tests/gem.scm ("gem-&gt;guix-package")
("gem-&gt;guix-package with a specific version")
("gem-recursive-import")
("gem-recursive-import with a specific version"): Likewise.
* tests/hexpm.scm ("hexpm-recursive-import"): Likewise.
* tests/opam.scm ("opam-&gt;guix-package"): Likewise.
* tests/pypi.scm ("pypi-&gt;guix-package, no wheel")
("pypi-&gt;guix-package, wheels")
("pypi-&gt;guix-package, no usable requirement file.")
("pypi-&gt;guix-package, package name contains \"-\" followed by digits"):
Likewise.
* tests/texlive.scm ("texlive-&gt;guix-package"): Likewise.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-05-31 23:25:25 +0200'>2023-05-31</span></td><td><a href='/guix/commit/tests/cpan.scm?id=a738c1a0c75af8b65ab5cad893e9ac2af6633d29'>import: cpan: Updater provides input list.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/import/cpan.scm (latest-release): Add 'inputs' field.
* tests/cpan.scm ("package-latest-release"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-05-31 23:25:25 +0200'>2023-05-31</span></td><td><a href='/guix/commit/tests/cpan.scm?id=c4fe4e7eb8ccbe5e8dcbcb8e64fbb3a97a498808'>import: cpan: Represent dependencies as &lt;upstream-input&gt; records.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/import/cpan.scm (cpan-name-&gt;downstream-name)
(cran-dependency-&gt;upstream-input, cran-module-inputs): New procedures.
(cpan-module-&gt;sexp)[guix-name, convert-inputs]: Remove.
[maybe-inputs]: Adjust to deal with &lt;upstream-input&gt;.
Use 'cpan-name-&gt;downstream-name' instead of 'guix-name'.  Add call to
'cpan-module-inputs' and adjust calls to 'maybe-inputs'.  No longer emit
input labels.
* tests/cpan.scm ("cpan-&gt;guix-package"): Adjust test accordingly.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-10-22 01:46:55 +0200'>2022-10-22</span></td><td><a href='/guix/commit/tests/cpan.scm?id=a3619079f95213c4f983e69210ed12b38fd31022'>Remove now unnecessary uses of (guix grafts).</a><span class='msg-avail'>...<span class='msg-tooltip'>These modules would use (guix grafts) just to access '%graft?' and
related bindings, which are now in (guix store).

* gnu/ci.scm,
guix/gexp.scm,
guix/lint.scm,
guix/scripts.scm,
guix/scripts/archive.scm,
guix/scripts/build.scm,
guix/scripts/challenge.scm,
guix/scripts/deploy.scm,
guix/scripts/environment.scm,
guix/scripts/home.scm,
guix/scripts/pack.scm,
guix/scripts/package.scm,
guix/scripts/pull.scm,
guix/scripts/size.scm,
guix/scripts/system.scm,
guix/scripts/weather.scm,
tests/builders.scm,
tests/channels.scm,
tests/cpan.scm,
tests/derivations.scm,
tests/gexp.scm,
tests/graph.scm,
tests/guix-daemon.sh,
tests/monads.scm,
tests/pack.scm,
tests/packages.scm,
tests/profiles.scm,
tests/system.scm: Remove #:use-module (guix grafts).
</span></span></td><td>Ludovic Courtès</td></tr>