blob: 26f4e3a4982e2412746c23691aa2b6b36595daa7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
-- | Maintainer: Jelmer Vernooij <jelmer@jelmer.uk>
module Propellor.Property.Logcheck (
ReportLevel (Workstation, Server, Paranoid),
Service,
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"]
|
