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