changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / lisp/lib/pod/podman.lisp

changeset 698: 96958d3eb5b0
parent: 9fa3b9154bb2
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 04 Oct 2024 22:04:59 -0400
permissions: -rw-r--r--
description: fixes 
     1 ;;; lib/pod/podman.lisp --- Pod Manager
     2 
     3 ;;
     4 
     5 ;;; Code:
     6 (in-package :pod)
     7 
     8 (defvar *podman-exe* (find-exe "podman"))
     9 (defvar *buildah-exe* (find-exe "buildah")
    10   "Path to the 'buildah' executable. This really isn't useful in our environment.")
    11 
    12 ;; podman system service --time=0 unix:///tmp/podman.sock (local-socket)
    13 ;; podman system service --time=0 tcp://localhost:8888 (inet-socket :stream :tcp)
    14 (defun run-podman (&rest args)
    15   "Run *PODMAN-EXE* using ARGS."
    16   (sb-ext:run-program *podman-exe* args
    17                       :input nil
    18                       :output *trace-output*))
    19 
    20 (defun start-podman-service (addr &optional (protocol :unix) (time 0))
    21   "Start the Libpod API on ADDR over PROTO which is either :TCP or :UNIX."
    22   (declare ((member :unix :tcp) protocol))
    23   (run-podman `("system"
    24                 "service"
    25                 ,(format nil "~(~a~)://~a" protocol addr)
    26                 ,(format nil "--time=~a" time))))