From 842428cb4db77b0b9dd314d043058cb3d32fbb0f Mon Sep 17 00:00:00 2001 From: Jelmer Vernooij Date: Sun, 27 Sep 2015 15:03:39 +0000 Subject: Add Logcheck module. --- src/Propellor/Property/Logcheck.hs | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 src/Propellor/Property/Logcheck.hs (limited to 'src') diff --git a/src/Propellor/Property/Logcheck.hs b/src/Propellor/Property/Logcheck.hs new file mode 100644 index 00000000..83045dcc --- /dev/null +++ b/src/Propellor/Property/Logcheck.hs @@ -0,0 +1,33 @@ +module Propellor.Property.Logcheck ( + ReportLevel (Workstation, Server, Paranoid), + defaultPrefix, + ignoreFilePath, + ignoreLines, + installed, +) where + +import Propellor +import qualified Propellor.Property.Apt as Apt +import qualified Propellor.Property.File as File + +data ReportLevel = Workstation | Server | Paranoid +type Service = String + +instance Show ReportLevel where + show Workstation = "workstation" + show Server = "server" + show Paranoid = "paranoid" + +-- The common prefix used by default in syslog lines. +defaultPrefix :: String +defaultPrefix = "^\\w{3} [ :[:digit:]]{11} [._[:alnum:]-]+ " + +ignoreFilePath :: ReportLevel -> Service -> FilePath +ignoreFilePath t n = "/etc/logcheck/ignore.d." ++ (show t) n + +ignoreLines :: ReportLevel -> Service -> [String] -> Property NoInfo +ignoreLines t n ls = (ignoreFilePath t n) `File.containsLines` ls + `describe` ("logcheck ignore lines for " ++ n ++ "(" ++ (show t) ++ ")") + +installed :: Property NoInfo +installed = Apt.installed ["logcheck"] -- cgit v1.2.3