tor bridge

1 files changed, 21 insertions, 0 deletions

diff --git a/Property/Tor.hs b/Property/Tor.hs
new file mode 100644
index 00000000..bebf0763
--- /dev/null
+++ b/Property/Tor.hs
@@ -0,0 +1,21 @@
+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"]