cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

propellor spin

This commit is contained in:
Joey Hess 2015-03-12 22:05:17 -04:00
parent d3f49c55ec
commit beb49d2c2b
Failed to extract signature
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Propellor/Property/SiteSpecific/JoeySites.hs
View File

@ -49,13 +49,16 @@ scrollBox = propertyList "scroll server" $ props
, "mkdir \"$t\"" , "mkdir \"$t\""
, "cd \"$t\"" , "cd \"$t\""
, "echo" , "echo"
, "echo Note that games on this server are time-limited to 2 hours"
, "echo 'Need more time? Run scroll locally instead!'"
, "echo"
, "echo Press Enter to start the game." , "echo Press Enter to start the game."
, "read me" , "read me"
, "SHELL=/bin/sh script --timing=timing -c " ++ g , "SHELL=/bin/sh script --timing=timing -c " ++ g
] `onChange` (s `File.mode` (combineModes (ownerWriteMode:readModes ++ executeModes))) ] `onChange` (s `File.mode` (combineModes (ownerWriteMode:readModes ++ executeModes)))
& g `File.hasContent` & g `File.hasContent`
[ "#!/bin/sh" [ "#!/bin/sh"
, "if ! ../../scroll/scroll; then" , "if ! timeout --kill-after 1m --foreground 2h ../../scroll/scroll; then"
, "echo Scroll seems to have ended unexpectedly. Possibly a bug.." , "echo Scroll seems to have ended unexpectedly. Possibly a bug.."
, "else" , "else"
, "echo Thanks for playing scroll! https://joeyh.name/code/scroll/" , "echo Thanks for playing scroll! https://joeyh.name/code/scroll/"