[bug#51314] [PATCH v4 12/14] gnu: Add octoprint-firmwarecheck.

[Vinicius Monego]

* gnu/packages/printers.scm (octoprint-firmwarecheck): New variable.
---
 gnu/packages/printers.scm | 30 +++++++++++++++++++++++++++++-
 1 file changed, 29 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/printers.scm b/gnu/packages/printers.scm
index 012731b7cd..ca7caad01f 100644
--- a/gnu/packages/printers.scm
+++ b/gnu/packages/printers.scm
@@ -27,7 +27,8 @@ (define-module (gnu packages printers)
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (gnu packages libusb)
   #:use-module (gnu packages pkg-config)
-  #:use-module (gnu packages qt))
+  #:use-module (gnu packages qt)
+  #:use-module (gnu packages python-web))
 
 ;; This is a module for packages related to printer-like devices, but not
 ;; related to CUPS.
@@ -55,6 +56,33 @@ (define-public octoprint-pisupport
 observed on your Pi or if your Pi is unsupported.")
     (license license:agpl3)))
 
+(define-public octoprint-firmwarecheck
+  (package
+    (name "octoprint-firmwarecheck")
+    (version "2021.10.11")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (pypi-uri "OctoPrint-FirmwareCheck" version))
+       (sha256
+        (base32 "17prs0rmzglw75gkf6j7qypxisjvcfk2mbsyfqrjdbwg99i62s2h"))))
+    (build-system python-build-system)
+    (arguments
+     `(#:tests? #f                      ; no tests
+       #:phases
+       (modify-phases %standard-phases
+         (delete 'sanity-check))))      ; checks for Octoprint
+    (propagated-inputs
+     (list python-flask))
+    (home-page "https://github.com/OctoPrint/OctoPrint-FirmwareCheck";)
+    (synopsis "Plugin to check for unsafe or broken printer firmwares")
+    (description "The Firmware Check plugin tries to identify printers
+or rather printer firmware with known safety issues, such as disabled
+thermal runaway protection, or other kinds of severe issues, like known
+communication crippling bugs, and displays a warning box to logged in users
+on identification of such a firmware.")
+    (license license:agpl3)))
+
 (define-public robocut
   (package
     (name "robocut")
-- 
2.34.1