-- | Maintainer: Jelmer Vernooń≥ <jelmer@jelmer.uk>

module Propellor.Property.Logcheck (
	ReportLevel (Workstation, Server, Paranoid),
	Service,
	defaultPrefix,
	ignoreFilePath,
	ignoreLines,
	installed,
) where

import Propellor.Base
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"]