From 1196bffdb5be4031cac1c0e9858d4f97daa40fe9 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 12 Mar 2015 16:23:45 -0400 Subject: propellor spin --- src/Propellor/Property/SiteSpecific/JoeySites.hs | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) (limited to 'src/Propellor/Property') diff --git a/src/Propellor/Property/SiteSpecific/JoeySites.hs b/src/Propellor/Property/SiteSpecific/JoeySites.hs index e9bf6f52..7c6fd0e6 100644 --- a/src/Propellor/Property/SiteSpecific/JoeySites.hs +++ b/src/Propellor/Property/SiteSpecific/JoeySites.hs @@ -47,11 +47,16 @@ scrollBox = propertyList "scroll server" $ props , "rm -f \"$t\"" , "mkdir \"$t\"" , "cd \"$t\"" + , "SHELL=/bin/sh script --timing=timing -c " ++ g + ] `onChange` (s `File.mode` (combineModes (ownerWriteMode:readModes ++ executeModes))) + & g `File.hasContent` + [ "#!/bin/sh" , "SHELL=/bin/sh script --timing=timing -c ../../scroll/scroll" - , "echo Thanks for playing scroll!" - , "echo Your game was recorded, as ID:$(basename \"$t\"), if you would like to talk about how it went." - , "echo scroll@joeyh.name / http://joeyh.name/code/scroll/" - , "read me" + , "echo Thanks for playing scroll! https://joeyh.name/code/scroll/" + , "echo Your game was recorded, as ID:$(basename \"$t\")" + , "echo if you would like to talk about how it went, email scroll@joeyh.name" + , "echo or, type comments below (finish with a dot on its own line)" + , "mail joey@kitenet.net" ] `onChange` (s `File.mode` (combineModes (ownerWriteMode:readModes ++ executeModes))) -- prevent port forwarding etc by not letting scroll log in via ssh & Ssh.sshdConfig `File.containsLine` ("DenyUsers scroll") @@ -71,6 +76,7 @@ scrollBox = propertyList "scroll server" $ props where d = "/home/scroll" s = d "login.sh" + g = d "game.sh" oldUseNetServer :: [Host] -> Property HasInfo oldUseNetServer hosts = propertyList "olduse.net server" $ props -- cgit v1.2.3