Revision f23daea8

b/src/Ganeti/JQueue.hs
61 61
    , isQueueOpen
62 62
    , startJobs
63 63
    , cancelJob
64
    , queueDirPermissions
64 65
    , archiveJobs
65 66
    ) where
66 67

  
......
500 501
  client <- getLuxiClient socketpath
501 502
  callMethod (CancelJob jid) client
502 503

  
504
-- | Permissions for the archive directories.
505
queueDirPermissions :: FilePermissions
506
queueDirPermissions = FilePermissions { fpOwner = Just C.masterdUser
507
                                      , fpGroup = Just C.daemonsGroup
508
                                      , fpPermissions = 0o0750
509
                                      }
510

  
503 511
-- | Try, at most until the given endtime, to archive some of the given
504 512
-- jobs, if they are older than the specified cut-off time; also replicate
505 513
-- archival of the additional jobs. Return the pair of the number of jobs

Also available in: Unified diff