From 80a184d0a5addf8d24ab475146439f59524f2ab6 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 30 Mar 2014 22:53:52 -0400 Subject: propellor spin --- Property/Network.hs | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 Property/Network.hs (limited to 'Property') diff --git a/Property/Network.hs b/Property/Network.hs new file mode 100644 index 00000000..7686c8b3 --- /dev/null +++ b/Property/Network.hs @@ -0,0 +1,26 @@ +module Property.Network where + +import Common +import qualified Property.File as File + +interfaces :: FilePath +interfaces = "/etc/network/interfaces" + +-- 6to4 ipv6 connection, should work anywhere +ipv6to4 :: Property +ipv6to4 = fileProperty "ipv6to4" go interfaces + `onChange` ifUp "sit0" + where + go ls + | all (`elem` ls) stanza = ls + | otherwise = ls ++ stanza + stanza = + [ "# Automatically added by propeller" + , "iface sit0 inet6 static" + , " address 2002:5044:5531::1" + , " netmask 64" + , " gateway ::192.88.99.1" + , "# End automatically added by propeller" + +ifUp :: String -> Property +ifUp iface = cmdProperty "ifup" [Param iface] -- cgit v1.3-2-g0d8e