22 lines
447 B
Haskell
22 lines
447 B
Haskell
|
module Property.Tor where
|
||
|
|
|
||
|
|
import Control.Applicative
|
||
|
|
import Control.Monad
|
||
|
|
import System.FilePath
|
||
|
|
|
||
|
|
import Property
|
||
|
|
import Property.User
|
||
|
|
import Utility.SafeCommand
|
||
|
|
import Utility.Exception
|
||
|
|
|
||
|
|
isBridge :: Property
|
||
|
|
isBridge = fileHasContent "/etc/tor/torrc"
|
||
|
|
[ "SocksPort 0"
|
||
|
|
, "ORPort 443"
|
||
|
|
, "BridgeRelay 1"
|
||
|
|
, "Exitpolicy reject *:*"
|
||
|
|
] `onChange` restartTor
|
||
|
|
|
||
|
|
restartTor :: Property
|
||
|
|
restartTor = cmdProperty "service" [Param "tor", Param "restart"]
|