#!/bin/bash
### BEGIN INIT INFO
# Provides:          guix-daemon
# Required-Start:    $remote_fs $syslog
# Required-Stop:     $remote_fs $syslog
# Default-Start:     2 3 4 5
# Default-Stop:      0 1 6
# Short-Description: Guix build daemon
# Description:       Provides a daemon that does builds for Guix
### END INIT INFO

set -e
mkdir -p "/var/run"
if [ ! -f "@localstatedir@/guix/profiles/per-user/root/current-guix/bin/guix-daemon" ]
then
  exit 5
fi

case "$1" in
start)
  if [ -f "/var/run/guix-daemon.pid" ]
  then
    if pgrep -F "/var/run/guix-daemon.pid" guix-daemon
    then
      exit 0
    else
      echo "guix-daemon has a stale pid file" >&2
      exit 1
    fi
  else
    daemonize \
      -a \
      -e "/var/log/guix-daemon-stderr.log" \
      -o "/var/log/guix-daemon-stdout.log" \
      -E GUIX_LOCPATH=@localstatedir@/guix/profiles/per-user/root/guix-profile/lib/locale \
      -E LC_ALL=en_US.utf8 \
      -p "/var/run/guix-daemon.pid" \
      @localstatedir@/guix/profiles/per-user/root/current-guix/bin/guix-daemon \
      --build-users-group=guixbuild
  fi
  ;;
stop)
  if [ -f "/var/run/guix-daemon.pid" ]
  then
    pkill -F "/var/run/guix-daemon.pid" guix-daemon || {
      exit 1
    }
    rm -f "/var/run/guix-daemon.pid"
    exit 0
  else
    exit 0
  fi
  ;;
status)
  if [ -f "/var/run/guix-daemon.pid" ]
  then
    if pgrep -F "/var/run/guix-daemon.pid" guix-daemon
    then
      echo "guix-daemon is running"
      exit 0
    else
      echo "guix-daemon has a stale pid file"
      exit 1
    fi
  else
    echo "guix-daemon is not running"
    exit 3
  fi
  ;;
restart|force-reload)
  "$0" stop
  "$0" start
  ;;
*)
  echo "Usage: $0 (start|stop|status|restart|force-reload)"
  exit 3
  ;;
esac
<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=8737c530c83f4b87b18ed437f319ada084cc9f3f'>root</a>/<a href='/guix/log/tests?id=8737c530c83f4b87b18ed437f319ada084cc9f3f'>tests</a>/<a href='/guix/log/tests/cpan.scm?id=8737c530c83f4b87b18ed437f319ada084cc9f3f'>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=8737c530c83f4b87b18ed437f319ada084cc9f3f&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2020-01-15 18:40:43 +0100'>2020-01-15</span></td><td><a href='/guix/commit/tests/cpan.scm?id=4aea90b1876179aab8d603a42533a6bdf97ccd3c'>import: cpan: Rewrite tests to use an HTTP server instead of mocking.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-01-15 18:40:43 +0100'>2020-01-15</span></td><td><a href='/guix/commit/tests/cpan.scm?id=69f132554c6bd23df4610a21e636bde5f0578174'>import: cpan: Rewrite to use 'define-json-mapping'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-08-22 14:24:11 -0400'>2019-08-22</span></td><td><a href='/guix/commit/tests/cpan.scm?id=d020821c0bd2206a5f3d4db155f2a9a3de7dc670'>Revert "import: cpan: Adapt for the change to guile-json version 3."</a><span class='msg-avail'>...</span></td><td>Mark H Weaver</td></tr>
<tr><td><span title='2019-08-21 18:29:30 +0100'>2019-08-21</span></td><td><a href='/guix/commit/tests/cpan.scm?id=01ce7af25add55514f737af48ea6c127bedfde67'>import: cpan: Adapt for the change to guile-json version 3.</a><span class='msg-avail'>...</span></td><td>Christopher Baines</td></tr>
<tr><td><span title='2018-09-04 17:25:11 +0200'>2018-09-04</span></td><td><a href='/guix/commit/tests/cpan.scm?id=ca719424455465fca4b872c371daf2a46de88b33'>Switch to Guile-Gcrypt.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-08-24 18:04:07 +0200'>2018-08-24</span></td><td><a href='/guix/commit/tests/cpan.scm?id=dccd29d17dc6ca6a4f2820ce5f5d4d81f4768e4a'>import: cpan: Adjust test to new URL.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-10-30 17:20:42 +0100'>2017-10-30</span></td><td><a href='/guix/commit/tests/cpan.scm?id=b5c7574b2f6fe7752b02eaaa8a745a35b3beb2a1'>Revert "import: cpan: Use HTTPS for home pages."</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2017-10-29 17:32:35 +0100'>2017-10-29</span></td><td><a href='/guix/commit/tests/cpan.scm?id=29f7bf59d5d4d4b848eaedc6766bb4e02cae20d3'>import: cpan: Use HTTPS for home pages.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2017-10-28 18:20:59 -0500'>2017-10-28</span></td><td><a href='/guix/commit/tests/cpan.scm?id=e4bc1727302b0e1e255ea5cf4e2ccf33cafe7296'>import: cpan: Add trailing "/" on home-page.</a><span class='msg-avail'>...</span></td><td>Eric Bavier</td></tr>
<tr><td><span title='2017-10-28 18:20:58 -0500'>2017-10-28</span></td><td><a href='/guix/commit/tests/cpan.scm?id=23055424f2628470a864106dbc4d4acb003399ee'>import: cpan: Propagate imported dependencies.</a><span class='msg-avail'>...</span></td><td>Eric Bavier</td></tr>