/mandos/trunk

To get this branch, use:
bzr branch http://bzr.recompile.se/loggerhead/mandos/trunk

« back to all changes in this revision

Viewing changes to mandos-ctl

  • Committer: Teddy Hogeborn
  • Date: 2023-02-08 01:38:30 UTC
  • mfrom: (237.4.140 release)
  • Revision ID: teddy@recompile.se-20230208013830-sehn0b55qbhcxaj6
Merge from release branch

Show diffs side-by-side

added added

removed removed

Lines of Context:
mandos-ctl
3
3
#
4
4
# Mandos Control - Control or query the Mandos server
5
5
#
6
 
# Copyright © 2008-2020 Teddy Hogeborn
7
 
# Copyright © 2008-2020 Björn Påhlsson
 
6
# Copyright © 2008-2022 Teddy Hogeborn
 
7
# Copyright © 2008-2022 Björn Påhlsson
8
8
#
9
9
# This file is part of Mandos.
10
10
#
89
89
 
90
90
locale.setlocale(locale.LC_ALL, "")
91
91
 
92
 
version = "1.8.14"
 
92
version = "1.8.16"
93
93
 
94
94
 
95
95
def main():
2858
2858
#           default-directory dir)
2859
2859
#     (erase-buffer)
2860
2860
#     (compilation-mode))
2861
 
#   (let ((inhibit-read-only t))
2862
 
#     (= (process-file-shell-command
2863
 
#         (funcall get-command-line extra)
2864
 
#         nil "*Test*") 0)))
 
2861
#   (let ((process-result
 
2862
#          (let ((inhibit-read-only t))
 
2863
#            (process-file-shell-command
 
2864
#             (funcall get-command-line extra) nil "*Test*"))))
 
2865
#     (and (numberp process-result)
 
2866
#          (= process-result 0))))
2865
2867
# get-command-line:
2866
2868
# (lambda (&optional extra)
2867
2869
#   (let ((quoted-script