summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJoey Hess2015-03-12 16:46:52 -0400
committerJoey Hess2015-03-12 16:46:52 -0400
commit677ce2d28f256bcd08964739c5e26990523d173a (patch)
tree52e8020b83c708912a352d8358efcdf5fe7279db /src
parentdf6162331dbaffbb0ea7dc55ba0d9288cd2912f2 (diff)
propellor spin
Diffstat (limited to 'src')
-rw-r--r--src/Propellor/Property/SiteSpecific/JoeySites.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Propellor/Property/SiteSpecific/JoeySites.hs b/src/Propellor/Property/SiteSpecific/JoeySites.hs
index e575e79a..b3ff58ba 100644
--- a/src/Propellor/Property/SiteSpecific/JoeySites.hs
+++ b/src/Propellor/Property/SiteSpecific/JoeySites.hs
@@ -44,6 +44,7 @@ scrollBox = propertyList "scroll server" $ props
, "cd " ++ d
, "mkdir -p tmp"
, "TMPDIR= t=$(tempfile -d tmp)"
+ , "export t"
, "rm -f \"$t\""
, "mkdir \"$t\""
, "cd \"$t\""
@@ -59,7 +60,7 @@ scrollBox = propertyList "scroll server" $ props
, "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"
+ , "mail -s \"scroll test $t\" joey@kitenet.net"
] `onChange` (g `File.mode` (combineModes (ownerWriteMode:readModes ++ executeModes)))
& Apt.installed ["bsd-mailx"]
-- prevent port forwarding etc by not letting scroll log in via ssh