diff --git a/build.lisp b/build.lisp index 4b8cd30..bbf90b1 100644 --- a/build.lisp +++ b/build.lisp @@ -1,3 +1,19 @@ +;; sst: The systemd security tool +;; Copyright (C) 2023 Judah Sotomayor + +;; This program is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + ;; Load and build the project (ql:quickload :sst) diff --git a/packages.lisp b/packages.lisp index 857f0ff..7e98a72 100644 --- a/packages.lisp +++ b/packages.lisp @@ -1,3 +1,19 @@ +;; sst: The systemd security tool +;; Copyright (C) 2023 Judah Sotomayor + +;; This program is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + (defpackage :sst-ui (:use :common-lisp) (:export :toplevel)) diff --git a/src/edit.lisp b/src/edit.lisp index cabff4a..61ba674 100644 --- a/src/edit.lisp +++ b/src/edit.lisp @@ -1,3 +1,19 @@ +;; sst: The systemd security tool +;; Copyright (C) 2023 Judah Sotomayor + +;; This program is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + (in-package :sst-edit) (defun add-settings (settings-list settings-table) diff --git a/src/flags.lisp b/src/flags.lisp index bf36698..0c606cc 100644 --- a/src/flags.lisp +++ b/src/flags.lisp @@ -1,3 +1,19 @@ +;; sst: The systemd security tool +;; Copyright (C) 2023 Judah Sotomayor + +;; This program is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + (in-package :sst-ui) (defparameter *option-version* diff --git a/src/main.lisp b/src/main.lisp index 94f7032..ad20597 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -1,6 +1,23 @@ -(in-package :sst-ui) +;; sst: The systemd security tool +;; Copyright (C) 2023 Judah Sotomayor -(defun run (file &key direct-settings secure) +;; This program is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + +(in-package :sst-ui) +(defun run (file &key direct-settings secure backup) + (if backup + (uiop:copy-file file (merge-pathnames backup))) ;; Apply the settings to the file. (let ((settings-table (systemd-parse:read-service file))) (sst-edit:add-settings direct-settings settings-table) ; Inject all the settings options required diff --git a/src/ui.lisp b/src/ui.lisp index 3a8dbb0..176288a 100644 --- a/src/ui.lisp +++ b/src/ui.lisp @@ -1,3 +1,19 @@ +;; sst: The systemd security tool +;; Copyright (C) 2023 Judah Sotomayor + +;; This program is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + (in-package :sst-ui) diff --git a/sst.asd b/sst.asd index 2a32f5e..7cc2e1a 100644 --- a/sst.asd +++ b/sst.asd @@ -1,3 +1,19 @@ +;; sst: The systemd security tool +;; Copyright (C) 2023 Judah Sotomayor + +;; This program is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + (defsystem :sst :depends-on (:systemd-parse :adopt) :components ((:file "packages")