module Autoproc.Configuration where
boxPrefix :: String
boxPrefix = "INBOX."
lockDefault :: Bool
lockDefault = True
defaultVariables :: [(String, String)]
defaultVariables = [("SHELL", "/bin/sh"),
("PATH", "/usr/local/bin:/usr/bin:/bin:$PATH"),
("DATE", "`date +%m_%d_%Y`"),
("MAILDIR", "$HOME"),
("DEFAULT", "$HOME"),
("PMDIR", "$HOME/.procmail"),
("DUMMY", "`test -d $PMDIR || mkdir $PMDIR`"),
("LOGFILE", "$PMDIR/$DATE.log"),
("LOGABSTRACT", "on"),
("VERBOSE", "off")]
showVars :: [(String, String)] -> String
showVars [] = ""
showVars (v:vs) = (fst v) ++ " = " ++ (snd v) ++ "\n"
++ showVars vs