From e3947306072b036cab2584c7c2a00a2ae7a372c2 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 31 Aug 2018 10:34:29 -0400 Subject: key upgrade --- joeyconfig.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'joeyconfig.hs') diff --git a/joeyconfig.hs b/joeyconfig.hs index 66185880..c4272780 100644 --- a/joeyconfig.hs +++ b/joeyconfig.hs @@ -80,7 +80,7 @@ darkstar = host "darkstar.kitenet.net" $ props & JoeySites.laptopSoftware & JoeySites.userDirHtml & Ssh.userKeys (User "joey") hostContext - [ (SshRsa, "ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAABAQC1YoyHxZwG5Eg0yiMTJLSWJ/+dMM6zZkZiR4JJ0iUfP+tT2bm/lxYompbSqBeiCq+PYcSC67mALxp1vfmdOV//LWlbXfotpxtyxbdTcQbHhdz4num9rJQz1tjsOsxTEheX5jKirFNC5OiKhqwIuNydKWDS9qHGqsKcZQ8p+n1g9Lr3nJVGY7eRRXzw/HopTpwmGmAmb9IXY6DC2k91KReRZAlOrk0287LaK3eCe1z0bu7LYzqqS+w99iXZ/Qs0m9OqAPnHZjWQQ0fN4xn5JQpZSJ7sqO38TBAimM+IHPmy2FTNVVn9zGM+vN1O2xr3l796QmaUG1+XLL0shfR/OZbb joey@darkstar") + [ (SshEd25519, "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAICfFntnesZcYz2B2T41ay45igfckXRSh5uVffkuCQkLv joey@darkstar") ] -- & imageBuiltFor honeybee -- (RawDiskImage "/srv/honeybee.img") -- cgit v1.2.3 From a0b0196425144a95ef2d09e917970ce1a6c029f8 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 8 Sep 2018 13:54:08 -0400 Subject: propellor spin --- joeyconfig.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'joeyconfig.hs') diff --git a/joeyconfig.hs b/joeyconfig.hs index c4272780..a125d0b0 100644 --- a/joeyconfig.hs +++ b/joeyconfig.hs @@ -82,9 +82,9 @@ darkstar = host "darkstar.kitenet.net" $ props & Ssh.userKeys (User "joey") hostContext [ (SshEd25519, "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAICfFntnesZcYz2B2T41ay45igfckXRSh5uVffkuCQkLv joey@darkstar") ] - -- & imageBuiltFor honeybee - -- (RawDiskImage "/srv/honeybee.img") - -- (Debootstrapped mempty) + & imageBuiltFor honeybee + (RawDiskImage "/srv/honeybee.img") + (Debootstrapped mempty) & imageBuiltFor banana (RawDiskImage "/srv/banana.img") (Debootstrapped mempty) -- cgit v1.2.3 From fe584a7ee1f316c4fdef3988d50138cae693b674 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 9 Sep 2018 16:17:23 -0400 Subject: propellor spin --- joeyconfig.hs | 2 +- src/Propellor/Property/SiteSpecific/JoeySites.hs | 14 ++++++++------ 2 files changed, 9 insertions(+), 7 deletions(-) (limited to 'joeyconfig.hs') diff --git a/joeyconfig.hs b/joeyconfig.hs index a125d0b0..72b79e53 100644 --- a/joeyconfig.hs +++ b/joeyconfig.hs @@ -85,7 +85,7 @@ darkstar = host "darkstar.kitenet.net" $ props & imageBuiltFor honeybee (RawDiskImage "/srv/honeybee.img") (Debootstrapped mempty) - & imageBuiltFor banana + ! imageBuiltFor banana (RawDiskImage "/srv/banana.img") (Debootstrapped mempty) diff --git a/src/Propellor/Property/SiteSpecific/JoeySites.hs b/src/Propellor/Property/SiteSpecific/JoeySites.hs index b8010790..e3f672b7 100644 --- a/src/Propellor/Property/SiteSpecific/JoeySites.hs +++ b/src/Propellor/Property/SiteSpecific/JoeySites.hs @@ -1103,7 +1103,7 @@ homeRouter = propertyList "home router" $ props ] `before` File.hasPrivContent "/etc/ppp/pap-secrets" (Context "joeyh@arczip.com") --- | Enable IP masqerading, on whatever other interfaces come up than the +-- | Enable IP masqerading, on whatever other interfaces come up, besides the -- provided intif. ipmasq :: String -> Property DebianLike ipmasq intif = File.hasContent ifupscript @@ -1119,6 +1119,7 @@ ipmasq intif = File.hasContent ifupscript , "echo 1 > /proc/sys/net/ipv4/ip_forward" ] `before` scriptmode ifupscript + `before` File.dirExists (takeDirectory pppupscript) `before` File.hasContent pppupscript [ "#!/bin/sh" , "IFACE=$PPP_IFACE " ++ ifupscript @@ -1181,11 +1182,12 @@ devSoftware = Apt.installed ] cubieTruckOneWire :: Property DebianLike -cubieTruckOneWire = - File.hasContent "/etc/easy-peasy-devicetree-squeezy/my.dts" mydts - `onChange` utilitysetup - `requires` utilityinstalled +cubieTruckOneWire = dtsinstalled + `onChange` utilitysetup + `requires` utilityinstalled where + dtsinstalled = File.hasContent "/etc/easy-peasy-devicetree-squeezy/my.dts" mydts + `requires` File.dirExists "/etc/easy-peasy-devicetree-squeezy" utilityinstalled = Git.cloned (User "root") "https://git.joeyh.name/git/easy-peasy-devicetree-squeezy.git" "/usr/local/easy-peasy-devicetree-squeezy" Nothing `onChange` File.isSymlinkedTo "/usr/local/bin/easy-peasy-devicetree-squeezy" (File.LinkTarget "/usr/local/easy-peasy-devicetree-squeezy/easy-peasy-devicetree-squeezy") utilitysetup = cmdProperty "easy-peasy-devicetree-squeezy" @@ -1236,7 +1238,7 @@ newtype USBHubPort = USBHubPort Int autoMountDrive :: Mount.Label -> USBHubPort -> Maybe FilePath -> Property DebianLike autoMountDrive label (USBHubPort port) malias = propertyList desc $ props & File.ownerGroup mountpoint (User "joey") (Group "joey") - & File.dirExists mountpoint + `requires` File.dirExists mountpoint & case malias of Just t -> ("/media/joey/" ++ t) `File.isSymlinkedTo` File.LinkTarget mountpoint -- cgit v1.2.3