use new property

This commit is contained in:
Joey Hess 2015-04-22 13:48:52 -04:00
parent f35ef9d697
commit a3c1e8ada3
1 changed files with 1 additions and 1 deletions

View File

@ -75,7 +75,7 @@ scrollBox = propertyList "scroll server" $ props
-- prevent port forwarding etc by not letting scroll log in via ssh -- prevent port forwarding etc by not letting scroll log in via ssh
& Ssh.sshdConfig `File.containsLine` ("DenyUsers scroll") & Ssh.sshdConfig `File.containsLine` ("DenyUsers scroll")
`onChange` Ssh.restarted `onChange` Ssh.restarted
& cmdProperty "chsh" ["scroll", "-s", s] & User.shellSetTo (User "scroll") s
& User.hasPassword (User "scroll") & User.hasPassword (User "scroll")
& Apt.serviceInstalledRunning "telnetd" & Apt.serviceInstalledRunning "telnetd"
& Apt.installed ["shellinabox"] & Apt.installed ["shellinabox"]