From 380c1b0fd6c25dec3c924b82f1d721aa91a001da Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 30 Mar 2014 23:37:54 -0400 Subject: prepare for hackage --- Propellor.hs | 77 ------------------------------------------------------------ 1 file changed, 77 deletions(-) delete mode 100644 Propellor.hs (limited to 'Propellor.hs') diff --git a/Propellor.hs b/Propellor.hs deleted file mode 100644 index 58d8289d..00000000 --- a/Propellor.hs +++ /dev/null @@ -1,77 +0,0 @@ -import Common -import CmdLine -import qualified Property.File as File -import qualified Property.Apt as Apt -import qualified Property.Network as Network -import qualified Property.Ssh as Ssh -import qualified Property.Sudo as Sudo -import qualified Property.User as User -import qualified Property.Hostname as Hostname -import qualified Property.Reboot as Reboot -import qualified Property.Tor as Tor -import qualified Property.Docker as Docker -import qualified Property.GitHome as GitHome -import qualified Property.JoeySites as JoeySites - -main :: IO () -main = defaultMain getProperties - -{- This is where the system's HostName, either as returned by uname - - or one specified on the command line, is converted into a list of - - Properties for that system. -} -getProperties :: HostName -> Maybe [Property] -getProperties hostname@"clam.kitenet.net" = Just - [ cleanCloudAtCost hostname - , standardSystem Apt.Unstable - , Network.ipv6to4 - -- Clam is a tor bridge, and an olduse.net shellbox. - , Tor.isBridge - , JoeySites.oldUseNetshellBox - -- I play with docker on clam. - , Docker.configured - -- This is not an important system so I don't want to need to - -- manually upgrade it. - , Apt.unattendedUpgrades True - -- Should come last as it reboots. - , Apt.installed ["systemd-sysv"] `onChange` Reboot.now - ] --- add more hosts here... ---getProperties "foo" = -getProperties _ = Nothing - --- This is my standard system setup -standardSystem :: Apt.Suite -> Property -standardSystem suite = propertyList "standard system" - [ Apt.stdSourcesList suite `onChange` Apt.upgrade - , Apt.installed ["etckeeper"] - , Apt.installed ["ssh"] - , GitHome.installedFor "root" - , User.hasSomePassword "root" - -- Harden the system, but only once root's authorized_keys - -- is safely in place. - , check (Ssh.hasAuthorizedKeys "root") $ - Ssh.passwordAuthentication False - , User.sshAccountFor "joey" - , User.hasSomePassword "joey" - , Sudo.enabledFor "joey" - , GitHome.installedFor "joey" - , Apt.installed ["vim", "screen"] - -- I use postfix, or no MTA. - , Apt.removed ["exim4"] `onChange` Apt.autoRemove - ] - --- Clean up a system as installed by cloudatcost.com -cleanCloudAtCost :: HostName -> Property -cleanCloudAtCost hostname = propertyList "cloudatcost cleanup" - [ Hostname.set hostname - , Ssh.uniqueHostKeys - , "worked around grub/lvm boot bug #743126" ==> - "/etc/default/grub" `File.containsLine` "GRUB_DISABLE_LINUX_UUID=true" - `onChange` cmdProperty "update-grub" [] - `onChange` cmdProperty "update-initramfs" [Param "-u"] - , "nuked cloudatcost cruft" ==> combineProperties - [ File.notPresent "/etc/rc.local" - , File.notPresent "/etc/init.d/S97-setup.sh" - , User.nuked "user" User.YesReallyDeleteHome - ] - ] -- cgit v1.2.3