module Puppet.Language.NativeTypes.Exec (nativeExec) where
import qualified Data.Text as Text
import Puppet.Language.NativeTypes.Helpers
nativeExec :: (NativeTypeName, NativeTypeMethods)
nativeExec = ("exec", nativetypemethods parameterfunctions fullyQualifiedOrPath)
parameterfunctions :: [(Text, [Text -> NativeTypeValidate])]
parameterfunctions =
[("command" , [nameval])
,("creates" , [rarray, strings, fullyQualifieds])
,("cwd" , [string, fullyQualified])
,("environment" , [rarray, strings])
,("group" , [string])
,("logoutput" , [defaultvalue "false", string, values ["true","false","on_failure"]])
,("onlyif" , [string])
,("path" , [rarray, strings, fullyQualifieds])
,("provider" , [string, values ["posix","shell","windows"]])
,("refresh" , [string])
,("refreshonly" , [defaultvalue "false", string, values ["true","false"]])
,("returns" , [defaultvalue "0", rarray, integers])
,("timeout" , [defaultvalue "300", integer])
,("tries" , [defaultvalue "1", integer])
,("try_sleep" , [defaultvalue "0", integer])
,("unless" , [string])
,("user" , [string])
]
fullyQualifiedOrPath :: NativeTypeValidate
fullyQualifiedOrPath res =
case (res ^. rattributes . at "path", res ^. rattributes . at "command") of
(Nothing, Just (PString x)) -> if Text.head x == '/'
then Right res
else Left "Command must be fully qualified if path is not defined"
_ -> Right res