# Source: <https://sources.debian.org/patches/docbook-utils/0.6.14-4/support_source_date_epoch.patch/>

Author: Reiner Herrmann <reiner@reiner-h.de>
Description: Support SOURCE_DATE_EPOCH for timestamps
 To allow generating documents in a reproducible way,
 allow overriding the timestamp through the environment.
 .
 See also: https://reproducible-builds.org/specs/source-date-epoch/
Bug-Debian: https://bugs.debian.org/800797

--- a/helpers/docbook2man-spec.pl
+++ b/helpers/docbook2man-spec.pl
@@ -57,6 +57,7 @@
 use SGMLS;			# Use the SGMLS package.
 use SGMLS::Output;		# Use stack-based output.
 use SGMLS::Refs;
+use POSIX qw(strftime setlocale LC_TIME);
 
 ########################################################################
 # SGMLSPL script produced automatically by the script sgmlspl.pl
@@ -279,6 +280,10 @@
 _END_BANNER
 
 	my $date = `date "+%d %B %Y"`;
+	if ($ENV{SOURCE_DATE_EPOCH}) {
+		setlocale(LC_TIME, "C");
+		$date = strftime("%d %B %Y", gmtime($ENV{SOURCE_DATE_EPOCH} || time));
+	}
 	my $manpage_date = $manpage_date || $date ;
 
 	output '.TH "';
y</a><a href='/guix/refs/?id=c03b65fc7fafc460e9c0cead21e293c13249c253'>refs</a><a class='active' href='/guix/log/gnu/installer/newt/network.scm'>log</a><a href='/guix/tree/gnu/installer/newt/network.scm?id=c03b65fc7fafc460e9c0cead21e293c13249c253'>tree</a><a href='/guix/commit/gnu/installer/newt/network.scm?id=c03b65fc7fafc460e9c0cead21e293c13249c253'>commit</a><a href='/guix/diff/gnu/installer/newt/network.scm?id=c03b65fc7fafc460e9c0cead21e293c13249c253'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/installer/newt/network.scm'>
<input type='hidden' name='id' value='c03b65fc7fafc460e9c0cead21e293c13249c253'/><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=c03b65fc7fafc460e9c0cead21e293c13249c253'>root</a>/<a href='/guix/log/gnu?id=c03b65fc7fafc460e9c0cead21e293c13249c253'>gnu</a>/<a href='/guix/log/gnu/installer?id=c03b65fc7fafc460e9c0cead21e293c13249c253'>installer</a>/<a href='/guix/log/gnu/installer/newt?id=c03b65fc7fafc460e9c0cead21e293c13249c253'>newt</a>/<a href='/guix/log/gnu/installer/newt/network.scm?id=c03b65fc7fafc460e9c0cead21e293c13249c253'>network.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/gnu/installer/newt/network.scm?id=c03b65fc7fafc460e9c0cead21e293c13249c253&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-10-17 16:34:07 +0400'>2022-10-17</span></td><td><a href='/guix/commit/gnu/installer/newt/network.scm?id=883fb8f41b08a8455f16c736a83fb1ae8a3df0a1'>installer: Factorize url-alive? in internet check.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/installer/newt/network.scm (wait-service-online): Factorize url-alive?
in internet check.
</span></span></td><td>Andrew Tropin</td></tr>
<tr><td><span title='2022-10-17 10:22:15 +0400'>2022-10-17</span></td><td><a href='/guix/commit/gnu/installer/newt/network.scm?id=094b357783ae92fc5652f8a8c61e0b96b342d09d'>installer: Relax internet check availability criteria.</a><span class='msg-avail'>...<span class='msg-tooltip'>Checks the availability of the mirror bordeaux.guix.gnu.org in addition to
ci.guix.gnu.org.  This allows to proceed the installation if the
ci.guix.gnu.org is unavailable.

* gnu/installer/newt/network.scm (wait-service-online): Relax internet check
availability criteria.

Signed-off-by: Andrew Tropin &lt;andrew@trop.in&gt;
</span></span></td><td>aleksandr barakin</td></tr>