Statistics
| Branch: | Tag: | Revision:

root / src / Ganeti / HsConstants.hs @ b7b8ff87

History | View | Annotate | Download (54.6 kB)

1
{-| HsConstants contains the Haskell constants
2

    
3
This is a transitional module complementary to 'Ganeti.Constants'.  It
4
is intended to contain the Haskell constants that are meant to be
5
generated in Python.
6

    
7
Do not write any definitions in this file other than constants.  Do
8
not even write helper functions.  The definitions in this module are
9
automatically stripped to build the Makefile.am target
10
'ListConstants.hs'.  If there are helper functions in this module,
11
they will also be dragged and it will cause compilation to fail.
12
Therefore, all helper functions should go to a separate module and
13
imported.
14

    
15
-}
16

    
17
{-
18

    
19
Copyright (C) 2013 Google Inc.
20

    
21
This program is free software; you can redistribute it and/or modify
22
it under the terms of the GNU General Public License as published by
23
the Free Software Foundation; either version 2 of the License, or
24
(at your option) any later version.
25

    
26
This program is distributed in the hope that it will be useful, but
27
WITHOUT ANY WARRANTY; without even the implied warranty of
28
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
29
General Public License for more details.
30

    
31
You should have received a copy of the GNU General Public License
32
along with this program; if not, write to the Free Software
33
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
34
02110-1301, USA.
35

    
36
-}
37
module Ganeti.HsConstants where
38

    
39
import Control.Arrow ((***))
40
import Data.List ((\\))
41
import Data.Map (Map)
42
import qualified Data.Map as Map (fromList, keys, insert)
43

    
44
import AutoConf
45
import Ganeti.ConstantUtils (PythonChar(..), FrozenSet, Protocol(..),
46
                             buildVersion)
47
import qualified Ganeti.ConstantUtils as ConstantUtils
48
import Ganeti.Runtime (GanetiDaemon(..), MiscGroup(..), GanetiGroup(..),
49
                       ExtraLogReason(..))
50
import Ganeti.HTools.Types (AutoRepairResult(..), AutoRepairType(..))
51
import qualified Ganeti.HTools.Types as Types
52
import Ganeti.Logging (SyslogUsage(..))
53
import qualified Ganeti.Logging as Logging (syslogUsageToRaw)
54
import qualified Ganeti.Runtime as Runtime
55
import Ganeti.Types
56
import qualified Ganeti.Types as Types
57
import Ganeti.Confd.Types (ConfdRequestType(..), ConfdReqField(..),
58
                           ConfdReplyStatus(..), ConfdNodeRole(..),
59
                           ConfdErrorType(..))
60
import qualified Ganeti.Confd.Types as Types
61

    
62
{-# ANN module "HLint: ignore Use camelCase" #-}
63

    
64
-- * 'autoconf' constants for Python only ('autotools/build-bash-completion')
65

    
66
htoolsProgs :: [String]
67
htoolsProgs = AutoConf.htoolsProgs
68

    
69
-- * 'autoconf' constants for Python only ('lib/constants.py')
70

    
71
drbdBarriers :: String
72
drbdBarriers = AutoConf.drbdBarriers
73

    
74
drbdNoMetaFlush :: Bool
75
drbdNoMetaFlush = AutoConf.drbdNoMetaFlush
76

    
77
lvmStripecount :: Int
78
lvmStripecount = AutoConf.lvmStripecount
79

    
80
-- * 'autoconf' constants for Python only ('lib/pathutils.py')
81

    
82
-- ** Build-time constants
83

    
84
exportDir :: String
85
exportDir = AutoConf.exportDir
86

    
87
osSearchPath :: [String]
88
osSearchPath = AutoConf.osSearchPath
89

    
90
esSearchPath :: [String]
91
esSearchPath = AutoConf.esSearchPath
92

    
93
sshConfigDir :: String
94
sshConfigDir = AutoConf.sshConfigDir
95

    
96
xenConfigDir :: String
97
xenConfigDir = AutoConf.xenConfigDir
98

    
99
sysconfdir :: String
100
sysconfdir = AutoConf.sysconfdir
101

    
102
toolsdir :: String
103
toolsdir = AutoConf.toolsdir
104

    
105
localstatedir :: String
106
localstatedir = AutoConf.localstatedir
107

    
108
-- ** Paths which don't change for a virtual cluster
109

    
110
pkglibdir :: String
111
pkglibdir = AutoConf.pkglibdir
112

    
113
sharedir :: String
114
sharedir = AutoConf.sharedir
115

    
116
-- * 'autoconf' constants for Python only ('lib/build/sphinx_ext.py')
117

    
118
manPages :: Map String Int
119
manPages = Map.fromList AutoConf.manPages
120

    
121
-- * 'autoconf' constants for QA cluster only ('qa/qa_cluster.py')
122

    
123
versionedsharedir :: String
124
versionedsharedir = AutoConf.versionedsharedir
125

    
126
-- * 'autoconf' constants for Python only ('tests/py/docs_unittest.py')
127

    
128
gntScripts :: [String]
129
gntScripts = AutoConf.gntScripts
130

    
131
-- * Various versions
132

    
133
releaseVersion :: String
134
releaseVersion = AutoConf.packageVersion
135

    
136
versionMajor :: Int
137
versionMajor = AutoConf.versionMajor
138

    
139
versionMinor :: Int
140
versionMinor = AutoConf.versionMinor
141

    
142
versionRevision :: Int
143
versionRevision = AutoConf.versionRevision
144

    
145
dirVersion :: String
146
dirVersion = AutoConf.dirVersion
147

    
148
osApiV10 :: Int
149
osApiV10 = 10
150

    
151
osApiV15 :: Int
152
osApiV15 = 15
153

    
154
osApiV20 :: Int
155
osApiV20 = 20
156

    
157
osApiVersions :: FrozenSet Int
158
osApiVersions = ConstantUtils.mkSet [osApiV10, osApiV15, osApiV20]
159

    
160
exportVersion :: Int
161
exportVersion = 0
162

    
163
rapiVersion :: Int
164
rapiVersion = 2
165

    
166
configMajor :: Int
167
configMajor = AutoConf.versionMajor
168

    
169
configMinor :: Int
170
configMinor = AutoConf.versionMinor
171

    
172
-- | The configuration is supposed to remain stable across
173
-- revisions. Therefore, the revision number is cleared to '0'.
174
configRevision :: Int
175
configRevision = 0
176

    
177
configVersion :: Int
178
configVersion = buildVersion configMajor configMinor configRevision
179

    
180
-- | Similarly to the configuration (see 'configRevision'), the
181
-- protocols are supposed to remain stable across revisions.
182
protocolVersion :: Int
183
protocolVersion = buildVersion configMajor configMinor configRevision
184

    
185
-- * User separation
186

    
187
daemonsGroup :: String
188
daemonsGroup = Runtime.daemonGroup (ExtraGroup DaemonsGroup)
189

    
190
adminGroup :: String
191
adminGroup = Runtime.daemonGroup (ExtraGroup AdminGroup)
192

    
193
masterdUser :: String
194
masterdUser = Runtime.daemonUser GanetiMasterd
195

    
196
masterdGroup :: String
197
masterdGroup = Runtime.daemonGroup (DaemonGroup GanetiMasterd)
198

    
199
rapiUser :: String
200
rapiUser = Runtime.daemonUser GanetiRapi
201

    
202
rapiGroup :: String
203
rapiGroup = Runtime.daemonGroup (DaemonGroup GanetiRapi)
204

    
205
confdUser :: String
206
confdUser = Runtime.daemonUser GanetiConfd
207

    
208
confdGroup :: String
209
confdGroup = Runtime.daemonGroup (DaemonGroup GanetiConfd)
210

    
211
luxidUser :: String
212
luxidUser = Runtime.daemonUser GanetiLuxid
213

    
214
luxidGroup :: String
215
luxidGroup = Runtime.daemonGroup (DaemonGroup GanetiLuxid)
216

    
217
nodedUser :: String
218
nodedUser = Runtime.daemonUser GanetiNoded
219

    
220
nodedGroup :: String
221
nodedGroup = Runtime.daemonGroup (DaemonGroup GanetiNoded)
222

    
223
mondUser :: String
224
mondUser = Runtime.daemonUser GanetiMond
225

    
226
mondGroup :: String
227
mondGroup = Runtime.daemonGroup (DaemonGroup GanetiMond)
228

    
229
sshLoginUser :: String
230
sshLoginUser = AutoConf.sshLoginUser
231

    
232
sshConsoleUser :: String
233
sshConsoleUser = AutoConf.sshConsoleUser
234

    
235
-- * Cpu pinning separators and constants
236

    
237
cpuPinningSep :: String
238
cpuPinningSep = ":"
239

    
240
cpuPinningAll :: String
241
cpuPinningAll = "all"
242

    
243
-- | Internal representation of "all"
244
cpuPinningAllVal :: Int
245
cpuPinningAllVal = -1
246

    
247
-- | One "all" entry in a CPU list means CPU pinning is off
248
cpuPinningOff :: [Int]
249
cpuPinningOff = [cpuPinningAllVal]
250

    
251
-- | A Xen-specific implementation detail is that there is no way to
252
-- actually say "use any cpu for pinning" in a Xen configuration file,
253
-- as opposed to the command line, where you can say
254
-- @
255
-- xm vcpu-pin <domain> <vcpu> all
256
-- @
257
--
258
-- The workaround used in Xen is "0-63" (see source code function
259
-- "xm_vcpu_pin" in @<xen-source>/tools/python/xen/xm/main.py@).
260
--
261
-- To support future changes, the following constant is treated as a
262
-- blackbox string that simply means "use any cpu for pinning under
263
-- xen".
264
cpuPinningAllXen :: String
265
cpuPinningAllXen = "0-63"
266

    
267
-- | A KVM-specific implementation detail - the following value is
268
-- used to set CPU affinity to all processors (--0 through --31), per
269
-- taskset man page.
270
--
271
-- FIXME: This only works for machines with up to 32 CPU cores
272
cpuPinningAllKvm :: Int
273
cpuPinningAllKvm = 0xFFFFFFFF
274

    
275
-- * Wipe
276

    
277
ddCmd :: String
278
ddCmd = "dd"
279

    
280
-- | 1GB
281
maxWipeChunk :: Int
282
maxWipeChunk = 1024
283

    
284
minWipeChunkPercent :: Int
285
minWipeChunkPercent = 10
286

    
287
-- * Directories
288

    
289
runDirsMode :: Int
290
runDirsMode = 0o775
291

    
292
secureDirMode :: Int
293
secureDirMode = 0o700
294

    
295
secureFileMode :: Int
296
secureFileMode = 0o600
297

    
298
adoptableBlockdevRoot :: String
299
adoptableBlockdevRoot = "/dev/disk/"
300

    
301
-- * 'autoconf' enable/disable
302

    
303
enableConfd :: Bool
304
enableConfd = AutoConf.enableConfd
305

    
306
enableMond :: Bool
307
enableMond = AutoConf.enableMond
308

    
309
enableRestrictedCommands :: Bool
310
enableRestrictedCommands = AutoConf.enableRestrictedCommands
311

    
312
enableSplitQuery :: Bool
313
enableSplitQuery = AutoConf.enableSplitQuery
314

    
315
-- * SSH constants
316

    
317
ssh :: String
318
ssh = "ssh"
319

    
320
scp :: String
321
scp = "scp"
322

    
323
-- * Daemons
324

    
325
confd :: String
326
confd = Runtime.daemonName GanetiConfd
327

    
328
masterd :: String
329
masterd = Runtime.daemonName GanetiMasterd
330

    
331
mond :: String
332
mond = Runtime.daemonName GanetiMond
333

    
334
noded :: String
335
noded = Runtime.daemonName GanetiNoded
336

    
337
luxid :: String
338
luxid = Runtime.daemonName GanetiLuxid
339

    
340
rapi :: String
341
rapi = Runtime.daemonName GanetiRapi
342

    
343
daemons :: FrozenSet String
344
daemons =
345
  ConstantUtils.mkSet [confd,
346
                       luxid,
347
                       masterd,
348
                       mond,
349
                       noded,
350
                       rapi]
351

    
352
defaultConfdPort :: Int
353
defaultConfdPort = 1814
354

    
355
defaultMondPort :: Int
356
defaultMondPort = 1815
357

    
358
defaultNodedPort :: Int
359
defaultNodedPort = 1811
360

    
361
defaultRapiPort :: Int
362
defaultRapiPort = 5080
363

    
364
daemonsPorts :: Map String (Protocol, Int)
365
daemonsPorts =
366
  Map.fromList [(confd, (Udp, defaultConfdPort)),
367
                (mond, (Tcp, defaultMondPort)),
368
                (noded, (Tcp, defaultNodedPort)),
369
                (rapi, (Tcp, defaultRapiPort)),
370
                (ssh, (Tcp, 22))]
371

    
372
firstDrbdPort :: Int
373
firstDrbdPort = 11000
374

    
375
lastDrbdPort :: Int
376
lastDrbdPort = 14999
377

    
378
daemonsLogbase :: Map String String
379
daemonsLogbase =
380
  Map.fromList
381
  [ (Runtime.daemonName d, Runtime.daemonLogBase d) | d <- [minBound..] ]
382

    
383
extraLogreasonAccess :: String
384
extraLogreasonAccess = Runtime.daemonsExtraLogbase GanetiMond AccessLog
385

    
386
extraLogreasonError :: String
387
extraLogreasonError = Runtime.daemonsExtraLogbase GanetiMond ErrorLog
388

    
389
devConsole :: String
390
devConsole = ConstantUtils.devConsole
391

    
392
procMounts :: String
393
procMounts = "/proc/mounts"
394

    
395
-- * Luxi (Local UniX Interface) related constants
396

    
397
luxiEom :: PythonChar
398
luxiEom = PythonChar '\x03'
399

    
400
-- | Environment variable for the luxi override socket
401
luxiOverride :: String
402
luxiOverride = "FORCE_LUXI_SOCKET"
403

    
404
luxiOverrideMaster :: String
405
luxiOverrideMaster = "master"
406

    
407
luxiOverrideQuery :: String
408
luxiOverrideQuery = "query"
409

    
410
luxiVersion :: Int
411
luxiVersion = configVersion
412

    
413
-- * Syslog
414

    
415
syslogUsage :: String
416
syslogUsage = AutoConf.syslogUsage
417

    
418
syslogNo :: String
419
syslogNo = Logging.syslogUsageToRaw SyslogNo
420

    
421
syslogYes :: String
422
syslogYes = Logging.syslogUsageToRaw SyslogYes
423

    
424
syslogOnly :: String
425
syslogOnly = Logging.syslogUsageToRaw SyslogOnly
426

    
427
syslogSocket :: String
428
syslogSocket = "/dev/log"
429

    
430
exportConfFile :: String
431
exportConfFile = "config.ini"
432

    
433
-- * Xen
434

    
435
xenBootloader :: String
436
xenBootloader = AutoConf.xenBootloader
437

    
438
xenCmdXl :: String
439
xenCmdXl = "xl"
440

    
441
xenCmdXm :: String
442
xenCmdXm = "xm"
443

    
444
xenInitrd :: String
445
xenInitrd = AutoConf.xenInitrd
446

    
447
xenKernel :: String
448
xenKernel = AutoConf.xenKernel
449

    
450
-- FIXME: perhaps rename to 'validXenCommands' for consistency with
451
-- other constants
452
knownXenCommands :: FrozenSet String
453
knownXenCommands = ConstantUtils.mkSet [xenCmdXl, xenCmdXm]
454

    
455
-- * KVM and socat
456

    
457
kvmPath :: String
458
kvmPath = AutoConf.kvmPath
459

    
460
kvmKernel :: String
461
kvmKernel = AutoConf.kvmKernel
462

    
463
socatEscapeCode :: String
464
socatEscapeCode = "0x1d"
465

    
466
socatPath :: String
467
socatPath = AutoConf.socatPath
468

    
469
socatUseCompress :: Bool
470
socatUseCompress = AutoConf.socatUseCompress
471

    
472
socatUseEscape :: Bool
473
socatUseEscape = AutoConf.socatUseEscape
474

    
475
-- * Console types
476

    
477
-- | Display a message for console access
478
consMessage :: String
479
consMessage = "msg"
480

    
481
-- | Console as SPICE server
482
consSpice :: String
483
consSpice = "spice"
484

    
485
-- | Console as SSH command
486
consSsh :: String
487
consSsh = "ssh"
488

    
489
-- | Console as VNC server
490
consVnc :: String
491
consVnc = "vnc"
492

    
493
consAll :: FrozenSet String
494
consAll = ConstantUtils.mkSet [consMessage, consSpice, consSsh, consVnc]
495

    
496
-- | RSA key bit length
497
--
498
-- For RSA keys more bits are better, but they also make operations
499
-- more expensive. NIST SP 800-131 recommends a minimum of 2048 bits
500
-- from the year 2010 on.
501
rsaKeyBits :: Int
502
rsaKeyBits = 2048
503

    
504
-- | Ciphers allowed for SSL connections.
505
--
506
-- For the format, see ciphers(1). A better way to disable ciphers
507
-- would be to use the exclamation mark (!), but socat versions below
508
-- 1.5 can't parse exclamation marks in options properly. When
509
-- modifying the ciphers, ensure not to accidentially add something
510
-- after it's been removed. Use the "openssl" utility to check the
511
-- allowed ciphers, e.g.  "openssl ciphers -v HIGH:-DES".
512
opensslCiphers :: String
513
opensslCiphers = "HIGH:-DES:-3DES:-EXPORT:-ADH"
514

    
515
-- * X509
516

    
517
-- | commonName (CN) used in certificates
518
x509CertCn :: String
519
x509CertCn = "ganeti.example.com"
520

    
521
-- | Default validity of certificates in days
522
x509CertDefaultValidity :: Int
523
x509CertDefaultValidity = 365 * 5
524

    
525
x509CertSignatureHeader :: String
526
x509CertSignatureHeader = "X-Ganeti-Signature"
527

    
528
-- | Digest used to sign certificates ("openssl x509" uses SHA1 by default)
529
x509CertSignDigest :: String
530
x509CertSignDigest = "SHA1"
531

    
532
-- * Import/export daemon mode
533

    
534
iemExport :: String
535
iemExport = "export"
536

    
537
iemImport :: String
538
iemImport = "import"
539

    
540
-- * Import/export transport compression
541

    
542
iecGzip :: String
543
iecGzip = "gzip"
544

    
545
iecNone :: String
546
iecNone = "none"
547

    
548
iecAll :: [String]
549
iecAll = [iecGzip, iecNone]
550

    
551
ieCustomSize :: String
552
ieCustomSize = "fd"
553

    
554
-- * Import/export I/O
555

    
556
-- | Direct file I/O, equivalent to a shell's I/O redirection using
557
-- '<' or '>'
558
ieioFile :: String
559
ieioFile = "file"
560

    
561
-- | Raw block device I/O using "dd"
562
ieioRawDisk :: String
563
ieioRawDisk = "raw"
564

    
565
-- | OS definition import/export script
566
ieioScript :: String
567
ieioScript = "script"
568

    
569
-- * Hooks
570

    
571
hooksNameCfgupdate :: String
572
hooksNameCfgupdate = "config-update"
573

    
574
hooksNameWatcher :: String
575
hooksNameWatcher = "watcher"
576

    
577
hooksPath :: String
578
hooksPath = "/sbin:/bin:/usr/sbin:/usr/bin"
579

    
580
hooksPhasePost :: String
581
hooksPhasePost = "post"
582

    
583
hooksPhasePre :: String
584
hooksPhasePre = "pre"
585

    
586
hooksVersion :: Int
587
hooksVersion = 2
588

    
589
-- * Hooks subject type (what object type does the LU deal with)
590

    
591
htypeCluster :: String
592
htypeCluster = "CLUSTER"
593

    
594
htypeGroup :: String
595
htypeGroup = "GROUP"
596

    
597
htypeInstance :: String
598
htypeInstance = "INSTANCE"
599

    
600
htypeNetwork :: String
601
htypeNetwork = "NETWORK"
602

    
603
htypeNode :: String
604
htypeNode = "NODE"
605

    
606
-- * Hkr
607

    
608
hkrSkip :: Int
609
hkrSkip = 0
610

    
611
hkrFail :: Int
612
hkrFail = 1
613

    
614
hkrSuccess :: Int
615
hkrSuccess = 2
616

    
617
-- * Storage types
618

    
619
stBlock :: String
620
stBlock = Types.storageTypeToRaw StorageBlock
621

    
622
stDiskless :: String
623
stDiskless = Types.storageTypeToRaw StorageDiskless
624

    
625
stExt :: String
626
stExt = Types.storageTypeToRaw StorageExt
627

    
628
stFile :: String
629
stFile = Types.storageTypeToRaw StorageFile
630

    
631
stLvmPv :: String
632
stLvmPv = Types.storageTypeToRaw StorageLvmPv
633

    
634
stLvmVg :: String
635
stLvmVg = Types.storageTypeToRaw StorageLvmVg
636

    
637
stRados :: String
638
stRados = Types.storageTypeToRaw StorageRados
639

    
640
storageTypes :: FrozenSet String
641
storageTypes = ConstantUtils.mkSet $ map Types.storageTypeToRaw [minBound..]
642

    
643
-- | The set of storage types for which storage reporting is available
644
--
645
-- FIXME: Remove this, once storage reporting is available for all
646
-- types.
647
stsReport :: FrozenSet String
648
stsReport = ConstantUtils.mkSet [stFile, stLvmPv, stLvmVg]
649

    
650
-- * Storage fields
651
-- ** First two are valid in LU context only, not passed to backend
652

    
653
sfNode :: String
654
sfNode = "node"
655

    
656
sfType :: String
657
sfType = "type"
658

    
659
-- ** and the rest are valid in backend
660

    
661
sfAllocatable :: String
662
sfAllocatable = Types.storageFieldToRaw SFAllocatable
663

    
664
sfFree :: String
665
sfFree = Types.storageFieldToRaw SFFree
666

    
667
sfName :: String
668
sfName = Types.storageFieldToRaw SFName
669

    
670
sfSize :: String
671
sfSize = Types.storageFieldToRaw SFSize
672

    
673
sfUsed :: String
674
sfUsed = Types.storageFieldToRaw SFUsed
675

    
676
validStorageFields :: FrozenSet String
677
validStorageFields =
678
  ConstantUtils.mkSet $ map Types.storageFieldToRaw [minBound..] ++
679
                        [sfNode, sfType]
680

    
681
modifiableStorageFields :: Map String (FrozenSet String)
682
modifiableStorageFields =
683
  Map.fromList [(Types.storageTypeToRaw StorageLvmPv,
684
                 ConstantUtils.mkSet [sfAllocatable])]
685

    
686
-- * Storage operations
687

    
688
soFixConsistency :: String
689
soFixConsistency = "fix-consistency"
690

    
691
validStorageOperations :: Map String (FrozenSet String)
692
validStorageOperations =
693
  Map.fromList [(Types.storageTypeToRaw StorageLvmVg,
694
                 ConstantUtils.mkSet [soFixConsistency])]
695

    
696
-- * Volume fields
697

    
698
vfDev :: String
699
vfDev = "dev"
700

    
701
vfInstance :: String
702
vfInstance = "instance"
703

    
704
vfName :: String
705
vfName = "name"
706

    
707
vfNode :: String
708
vfNode = "node"
709

    
710
vfPhys :: String
711
vfPhys = "phys"
712

    
713
vfSize :: String
714
vfSize = "size"
715

    
716
vfVg :: String
717
vfVg = "vg"
718

    
719
-- * Local disk status
720

    
721
ldsFaulty :: Int
722
ldsFaulty = Types.localDiskStatusToRaw DiskStatusFaulty
723

    
724
ldsOkay :: Int
725
ldsOkay = Types.localDiskStatusToRaw DiskStatusOk
726

    
727
ldsUnknown :: Int
728
ldsUnknown = Types.localDiskStatusToRaw DiskStatusUnknown
729

    
730
ldsNames :: Map Int String
731
ldsNames =
732
  Map.fromList [ (Types.localDiskStatusToRaw ds,
733
                  localDiskStatusName ds) | ds <- [minBound..] ]
734

    
735
-- * Disk template types
736

    
737
dtDiskless :: String
738
dtDiskless = Types.diskTemplateToRaw DTDiskless
739

    
740
dtFile :: String
741
dtFile = Types.diskTemplateToRaw DTFile
742

    
743
dtSharedFile :: String
744
dtSharedFile = Types.diskTemplateToRaw DTSharedFile
745

    
746
dtPlain :: String
747
dtPlain = Types.diskTemplateToRaw DTPlain
748

    
749
dtBlock :: String
750
dtBlock = Types.diskTemplateToRaw DTBlock
751

    
752
dtDrbd8 :: String
753
dtDrbd8 = Types.diskTemplateToRaw DTDrbd8
754

    
755
dtRbd :: String
756
dtRbd = Types.diskTemplateToRaw DTRbd
757

    
758
dtExt :: String
759
dtExt = Types.diskTemplateToRaw DTExt
760

    
761
-- | This is used to order determine the default disk template when
762
-- the list of enabled disk templates is inferred from the current
763
-- state of the cluster.  This only happens on an upgrade from a
764
-- version of Ganeti that did not support the 'enabled_disk_templates'
765
-- so far.
766
diskTemplatePreference :: [String]
767
diskTemplatePreference =
768
  map Types.diskTemplateToRaw
769
  [DTBlock, DTDiskless, DTDrbd8, DTExt, DTFile, DTPlain, DTRbd, DTSharedFile]
770

    
771
diskTemplates :: FrozenSet String
772
diskTemplates = ConstantUtils.mkSet $ map Types.diskTemplateToRaw [minBound..]
773

    
774
-- | Disk templates that are enabled by default
775
defaultEnabledDiskTemplates :: [String]
776
defaultEnabledDiskTemplates = map Types.diskTemplateToRaw [DTDrbd8, DTPlain]
777

    
778
-- | Mapping of disk templates to storage types
779
mapDiskTemplateStorageType :: Map String String
780
mapDiskTemplateStorageType =
781
  Map.fromList $
782
  map (Types.diskTemplateToRaw *** Types.storageTypeToRaw)
783
  [(DTBlock, StorageBlock),
784
   (DTDrbd8, StorageLvmVg),
785
   (DTExt, StorageExt),
786
   (DTSharedFile, StorageFile),
787
   (DTFile, StorageFile),
788
   (DTDiskless, StorageDiskless),
789
   (DTPlain, StorageLvmVg),
790
   (DTRbd, StorageRados)]
791

    
792
-- | The set of network-mirrored disk templates
793
dtsIntMirror :: FrozenSet String
794
dtsIntMirror = ConstantUtils.mkSet [dtDrbd8]
795

    
796
-- | 'DTDiskless' is 'trivially' externally mirrored
797
dtsExtMirror :: FrozenSet String
798
dtsExtMirror =
799
  ConstantUtils.mkSet $
800
  map Types.diskTemplateToRaw [DTDiskless, DTBlock, DTExt, DTSharedFile, DTRbd]
801

    
802
-- | The set of non-lvm-based disk templates
803
dtsNotLvm :: FrozenSet String
804
dtsNotLvm =
805
  ConstantUtils.mkSet $
806
  map Types.diskTemplateToRaw
807
  [DTSharedFile, DTDiskless, DTBlock, DTExt, DTFile, DTRbd]
808

    
809
-- | The set of disk templates which can be grown
810
dtsGrowable :: FrozenSet String
811
dtsGrowable =
812
  ConstantUtils.mkSet $
813
  map Types.diskTemplateToRaw
814
  [DTSharedFile, DTDrbd8, DTPlain, DTExt, DTFile, DTRbd]
815

    
816
-- | The set of disk templates that allow adoption
817
dtsMayAdopt :: FrozenSet String
818
dtsMayAdopt =
819
  ConstantUtils.mkSet $ map Types.diskTemplateToRaw [DTBlock, DTPlain]
820

    
821
-- | The set of disk templates that *must* use adoption
822
dtsMustAdopt :: FrozenSet String
823
dtsMustAdopt = ConstantUtils.mkSet [Types.diskTemplateToRaw DTBlock]
824

    
825
-- | The set of disk templates that allow migrations
826
dtsMirrored :: FrozenSet String
827
dtsMirrored = dtsIntMirror `ConstantUtils.union` dtsExtMirror
828

    
829
-- | The set of file based disk templates
830
dtsFilebased :: FrozenSet String
831
dtsFilebased =
832
  ConstantUtils.mkSet $ map Types.diskTemplateToRaw [DTSharedFile, DTFile]
833

    
834
-- | The set of disk templates that can be moved by copying
835
--
836
-- Note: a requirement is that they're not accessed externally or
837
-- shared between nodes; in particular, sharedfile is not suitable.
838
dtsCopyable :: FrozenSet String
839
dtsCopyable =
840
  ConstantUtils.mkSet $ map Types.diskTemplateToRaw [DTPlain, DTFile]
841

    
842
-- | The set of disk templates that are supported by exclusive_storage
843
dtsExclStorage :: FrozenSet String
844
dtsExclStorage = ConstantUtils.mkSet $ map Types.diskTemplateToRaw [DTPlain]
845

    
846
-- | Templates for which we don't perform checks on free space
847
dtsNoFreeSpaceCheck :: FrozenSet String
848
dtsNoFreeSpaceCheck =
849
  ConstantUtils.mkSet $
850
  map Types.diskTemplateToRaw [DTExt, DTSharedFile, DTFile, DTRbd]
851

    
852
dtsBlock :: FrozenSet String
853
dtsBlock =
854
  ConstantUtils.mkSet $
855
  map Types.diskTemplateToRaw [DTPlain, DTDrbd8, DTBlock, DTRbd, DTExt]
856

    
857
-- * Drbd
858

    
859
drbdHmacAlg :: String
860
drbdHmacAlg = "md5"
861

    
862
drbdDefaultNetProtocol :: String
863
drbdDefaultNetProtocol = "C"
864

    
865
drbdMigrationNetProtocol :: String
866
drbdMigrationNetProtocol = "C"
867

    
868
drbdStatusFile :: String
869
drbdStatusFile = "/proc/drbd"
870

    
871
-- | Size of DRBD meta block device
872
drbdMetaSize :: Int
873
drbdMetaSize = 128
874

    
875
-- * Drbd barrier types
876

    
877
drbdBDiskBarriers :: String
878
drbdBDiskBarriers = "b"
879

    
880
drbdBDiskDrain :: String
881
drbdBDiskDrain = "d"
882

    
883
drbdBDiskFlush :: String
884
drbdBDiskFlush = "f"
885

    
886
drbdBNone :: String
887
drbdBNone = "n"
888

    
889
-- | Rbd tool command
890
rbdCmd :: String
891
rbdCmd = "rbd"
892

    
893
-- * File backend driver
894

    
895
fdBlktap :: String
896
fdBlktap = Types.fileDriverToRaw FileBlktap
897

    
898
fdLoop :: String
899
fdLoop = Types.fileDriverToRaw FileLoop
900

    
901
fileDriver :: FrozenSet String
902
fileDriver =
903
  ConstantUtils.mkSet $
904
  map Types.fileDriverToRaw [minBound..]
905

    
906
-- | The set of drbd-like disk types
907
ldsDrbd :: FrozenSet String
908
ldsDrbd = ConstantUtils.mkSet [Types.diskTemplateToRaw DTDrbd8]
909

    
910
-- * Disk access mode
911

    
912
diskRdonly :: String
913
diskRdonly = Types.diskModeToRaw DiskRdOnly
914

    
915
diskRdwr :: String
916
diskRdwr = Types.diskModeToRaw DiskRdWr
917

    
918
diskAccessSet :: FrozenSet String
919
diskAccessSet = ConstantUtils.mkSet $ map Types.diskModeToRaw [minBound..]
920

    
921
-- * Disk replacement mode
922

    
923
replaceDiskAuto :: String
924
replaceDiskAuto = Types.replaceDisksModeToRaw ReplaceAuto
925

    
926
replaceDiskChg :: String
927
replaceDiskChg = Types.replaceDisksModeToRaw ReplaceNewSecondary
928

    
929
replaceDiskPri :: String
930
replaceDiskPri = Types.replaceDisksModeToRaw ReplaceOnPrimary
931

    
932
replaceDiskSec :: String
933
replaceDiskSec = Types.replaceDisksModeToRaw ReplaceOnSecondary
934

    
935
replaceModes :: FrozenSet String
936
replaceModes =
937
  ConstantUtils.mkSet $ map Types.replaceDisksModeToRaw [minBound..]
938

    
939
-- * Instance export mode
940

    
941
exportModeLocal :: String
942
exportModeLocal = Types.exportModeToRaw ExportModeLocal
943

    
944
exportModeRemote :: String
945
exportModeRemote = Types.exportModeToRaw ExportModeRemote
946

    
947
exportModes :: FrozenSet String
948
exportModes = ConstantUtils.mkSet $ map Types.exportModeToRaw [minBound..]
949

    
950
-- * Instance creation modes
951

    
952
instanceCreate :: String
953
instanceCreate = Types.instCreateModeToRaw InstCreate
954

    
955
instanceImport :: String
956
instanceImport = Types.instCreateModeToRaw InstImport
957

    
958
instanceRemoteImport :: String
959
instanceRemoteImport = Types.instCreateModeToRaw InstRemoteImport
960

    
961
instanceCreateModes :: FrozenSet String
962
instanceCreateModes =
963
  ConstantUtils.mkSet $ map Types.instCreateModeToRaw [minBound..]
964

    
965
-- * Remote import/export handshake message and version
966

    
967
rieHandshake :: String
968
rieHandshake = "Hi, I'm Ganeti"
969

    
970
rieVersion :: Int
971
rieVersion = 0
972

    
973
-- | Remote import/export certificate validity in seconds
974
rieCertValidity :: Int
975
rieCertValidity = 24 * 60 * 60
976

    
977
-- | Export only: how long to wait per connection attempt (seconds)
978
rieConnectAttemptTimeout :: Int
979
rieConnectAttemptTimeout = 20
980

    
981
-- | Export only: number of attempts to connect
982
rieConnectRetries :: Int
983
rieConnectRetries = 10
984

    
985
-- | Overall timeout for establishing connection
986
rieConnectTimeout :: Int
987
rieConnectTimeout = 180
988

    
989
-- | Give child process up to 5 seconds to exit after sending a signal
990
childLingerTimeout :: Double
991
childLingerTimeout = 5.0
992

    
993
-- * Import/export config options
994

    
995
inisectBep :: String
996
inisectBep = "backend"
997

    
998
inisectExp :: String
999
inisectExp = "export"
1000

    
1001
inisectHyp :: String
1002
inisectHyp = "hypervisor"
1003

    
1004
inisectIns :: String
1005
inisectIns = "instance"
1006

    
1007
inisectOsp :: String
1008
inisectOsp = "os"
1009

    
1010
-- * Dynamic device modification
1011

    
1012
ddmAdd :: String
1013
ddmAdd = Types.ddmFullToRaw DdmFullAdd
1014

    
1015
ddmModify :: String
1016
ddmModify = Types.ddmFullToRaw DdmFullModify
1017

    
1018
ddmRemove :: String
1019
ddmRemove = Types.ddmFullToRaw DdmFullRemove
1020

    
1021
ddmsValues :: FrozenSet String
1022
ddmsValues = ConstantUtils.mkSet [ddmAdd, ddmRemove]
1023

    
1024
ddmsValuesWithModify :: FrozenSet String
1025
ddmsValuesWithModify = ConstantUtils.mkSet $ map Types.ddmFullToRaw [minBound..]
1026

    
1027
-- * Common exit codes
1028

    
1029
exitSuccess :: Int
1030
exitSuccess = 0
1031

    
1032
exitFailure :: Int
1033
exitFailure = ConstantUtils.exitFailure
1034

    
1035
exitNotcluster :: Int
1036
exitNotcluster = 5
1037

    
1038
exitNotmaster :: Int
1039
exitNotmaster = 11
1040

    
1041
exitNodesetupError :: Int
1042
exitNodesetupError = 12
1043

    
1044
-- | Need user confirmation
1045
exitConfirmation :: Int
1046
exitConfirmation = 13
1047

    
1048
-- | Exit code for query operations with unknown fields
1049
exitUnknownField :: Int
1050
exitUnknownField = 14
1051

    
1052
-- * Tags
1053

    
1054
tagCluster :: String
1055
tagCluster = Types.tagKindToRaw TagKindCluster
1056

    
1057
tagInstance :: String
1058
tagInstance = Types.tagKindToRaw TagKindInstance
1059

    
1060
tagNetwork :: String
1061
tagNetwork = Types.tagKindToRaw TagKindNetwork
1062

    
1063
tagNode :: String
1064
tagNode = Types.tagKindToRaw TagKindNode
1065

    
1066
tagNodegroup :: String
1067
tagNodegroup = Types.tagKindToRaw TagKindGroup
1068

    
1069
validTagTypes :: FrozenSet String
1070
validTagTypes = ConstantUtils.mkSet $ map Types.tagKindToRaw [minBound..]
1071

    
1072
maxTagLen :: Int
1073
maxTagLen = 128
1074

    
1075
maxTagsPerObj :: Int
1076
maxTagsPerObj = 4096
1077

    
1078
-- * Others
1079

    
1080
defaultBridge :: String
1081
defaultBridge = "xen-br0"
1082

    
1083
defaultOvs :: String
1084
defaultOvs = "switch1"
1085

    
1086
-- | 60 MiB, expressed in KiB
1087
classicDrbdSyncSpeed :: Int
1088
classicDrbdSyncSpeed = 60 * 1024
1089

    
1090
ip4AddressAny :: String
1091
ip4AddressAny = "0.0.0.0"
1092

    
1093
ip4AddressLocalhost :: String
1094
ip4AddressLocalhost = "127.0.0.1"
1095

    
1096
ip6AddressAny :: String
1097
ip6AddressAny = "::"
1098

    
1099
ip6AddressLocalhost :: String
1100
ip6AddressLocalhost = "::1"
1101

    
1102
ip4Version :: Int
1103
ip4Version = 4
1104

    
1105
ip6Version :: Int
1106
ip6Version = 6
1107

    
1108
validIpVersions :: FrozenSet Int
1109
validIpVersions = ConstantUtils.mkSet [ip4Version, ip6Version]
1110

    
1111
tcpPingTimeout :: Int
1112
tcpPingTimeout = 10
1113

    
1114
defaultVg :: String
1115
defaultVg = "xenvg"
1116

    
1117
defaultDrbdHelper :: String
1118
defaultDrbdHelper = "/bin/true"
1119

    
1120
minVgSize :: Int
1121
minVgSize = 20480
1122

    
1123
defaultMacPrefix :: String
1124
defaultMacPrefix = "aa:00:00"
1125

    
1126
-- | Default maximum instance wait time, in seconds.
1127
defaultShutdownTimeout :: Int
1128
defaultShutdownTimeout = 120
1129

    
1130
-- | Node clock skew in seconds
1131
nodeMaxClockSkew :: Int
1132
nodeMaxClockSkew = 150
1133

    
1134
-- | Disk index separator
1135
diskSeparator :: String
1136
diskSeparator = AutoConf.diskSeparator
1137

    
1138
-- * Timeout table
1139
--
1140
-- Various time constants for the timeout table
1141

    
1142
rpcTmoUrgent :: Int
1143
rpcTmoUrgent = Types.rpcTimeoutToRaw Urgent
1144

    
1145
rpcTmoFast :: Int
1146
rpcTmoFast = Types.rpcTimeoutToRaw Fast
1147

    
1148
rpcTmoNormal :: Int
1149
rpcTmoNormal = Types.rpcTimeoutToRaw Normal
1150

    
1151
rpcTmoSlow :: Int
1152
rpcTmoSlow = Types.rpcTimeoutToRaw Slow
1153

    
1154
-- | 'rpcTmo_4hrs' contains an underscore to circumvent a limitation
1155
-- in the 'Ganeti.THH.deCamelCase' function and generate the correct
1156
-- Python name.
1157
rpcTmo_4hrs :: Int
1158
rpcTmo_4hrs = Types.rpcTimeoutToRaw FourHours
1159

    
1160
-- | 'rpcTmo_1day' contains an underscore to circumvent a limitation
1161
-- in the 'Ganeti.THH.deCamelCase' function and generate the correct
1162
-- Python name.
1163
rpcTmo_1day :: Int
1164
rpcTmo_1day = Types.rpcTimeoutToRaw OneDay
1165

    
1166
-- | Timeout for connecting to nodes (seconds)
1167
rpcConnectTimeout :: Int
1168
rpcConnectTimeout = 5
1169

    
1170
-- * VTypes
1171

    
1172
vtypeBool :: VType
1173
vtypeBool = VTypeBool
1174

    
1175
vtypeInt :: VType
1176
vtypeInt = VTypeInt
1177

    
1178
vtypeMaybeString :: VType
1179
vtypeMaybeString = VTypeMaybeString
1180

    
1181
-- | Size in MiBs
1182
vtypeSize :: VType
1183
vtypeSize = VTypeSize
1184

    
1185
vtypeString :: VType
1186
vtypeString = VTypeString
1187

    
1188
enforceableTypes :: FrozenSet VType
1189
enforceableTypes = ConstantUtils.mkSet [minBound..]
1190

    
1191
-- | Instance specs
1192
--
1193
-- FIXME: these should be associated with 'Ganeti.HTools.Types.ISpec'
1194

    
1195
ispecMemSize :: String
1196
ispecMemSize = ConstantUtils.ispecMemSize
1197

    
1198
ispecCpuCount :: String
1199
ispecCpuCount = ConstantUtils.ispecCpuCount
1200

    
1201
ispecDiskCount :: String
1202
ispecDiskCount = ConstantUtils.ispecDiskCount
1203

    
1204
ispecDiskSize :: String
1205
ispecDiskSize = ConstantUtils.ispecDiskSize
1206

    
1207
ispecNicCount :: String
1208
ispecNicCount = ConstantUtils.ispecNicCount
1209

    
1210
ispecSpindleUse :: String
1211
ispecSpindleUse = ConstantUtils.ispecSpindleUse
1212

    
1213
ispecsParameterTypes :: Map String VType
1214
ispecsParameterTypes =
1215
  Map.fromList
1216
  [(ConstantUtils.ispecDiskSize, VTypeInt),
1217
   (ConstantUtils.ispecCpuCount, VTypeInt),
1218
   (ConstantUtils.ispecSpindleUse, VTypeInt),
1219
   (ConstantUtils.ispecMemSize, VTypeInt),
1220
   (ConstantUtils.ispecNicCount, VTypeInt),
1221
   (ConstantUtils.ispecDiskCount, VTypeInt)]
1222

    
1223
ispecsParameters :: FrozenSet String
1224
ispecsParameters =
1225
  ConstantUtils.mkSet [ConstantUtils.ispecCpuCount,
1226
                       ConstantUtils.ispecDiskCount,
1227
                       ConstantUtils.ispecDiskSize,
1228
                       ConstantUtils.ispecMemSize,
1229
                       ConstantUtils.ispecNicCount,
1230
                       ConstantUtils.ispecSpindleUse]
1231

    
1232
ispecsMinmax :: String
1233
ispecsMinmax = ConstantUtils.ispecsMinmax
1234

    
1235
ispecsMax :: String
1236
ispecsMax = "max"
1237

    
1238
ispecsMin :: String
1239
ispecsMin = "min"
1240

    
1241
ispecsStd :: String
1242
ispecsStd = ConstantUtils.ispecsStd
1243

    
1244
ipolicyDts :: String
1245
ipolicyDts = ConstantUtils.ipolicyDts
1246

    
1247
ipolicyVcpuRatio :: String
1248
ipolicyVcpuRatio = ConstantUtils.ipolicyVcpuRatio
1249

    
1250
ipolicySpindleRatio :: String
1251
ipolicySpindleRatio = ConstantUtils.ipolicySpindleRatio
1252

    
1253
ispecsMinmaxKeys :: FrozenSet String
1254
ispecsMinmaxKeys = ConstantUtils.mkSet [ispecsMax, ispecsMin]
1255

    
1256
ipolicyParameters :: FrozenSet String
1257
ipolicyParameters =
1258
  ConstantUtils.mkSet [ConstantUtils.ipolicyVcpuRatio,
1259
                       ConstantUtils.ipolicySpindleRatio]
1260

    
1261
ipolicyAllKeys :: FrozenSet String
1262
ipolicyAllKeys =
1263
  ConstantUtils.union ipolicyParameters $
1264
  ConstantUtils.mkSet [ConstantUtils.ipolicyDts,
1265
                       ConstantUtils.ispecsMinmax,
1266
                       ispecsStd]
1267

    
1268
-- | Node parameter names
1269

    
1270
ndExclusiveStorage :: String
1271
ndExclusiveStorage = "exclusive_storage"
1272

    
1273
ndOobProgram :: String
1274
ndOobProgram = "oob_program"
1275

    
1276
ndSpindleCount :: String
1277
ndSpindleCount = "spindle_count"
1278

    
1279
ndOvs :: String
1280
ndOvs = "ovs"
1281

    
1282
ndOvsLink :: String
1283
ndOvsLink = "ovs_link"
1284

    
1285
ndOvsName :: String
1286
ndOvsName = "ovs_name"
1287

    
1288
ndsParameterTypes :: Map String VType
1289
ndsParameterTypes =
1290
  Map.fromList
1291
  [(ndExclusiveStorage, VTypeBool),
1292
   (ndOobProgram, VTypeString),
1293
   (ndOvs, VTypeBool),
1294
   (ndOvsLink, VTypeMaybeString),
1295
   (ndOvsName, VTypeMaybeString),
1296
   (ndSpindleCount, VTypeInt)]
1297

    
1298
ndsParameters :: FrozenSet String
1299
ndsParameters = ConstantUtils.mkSet (Map.keys ndsParameterTypes)
1300

    
1301
ndsParameterTitles :: Map String String
1302
ndsParameterTitles =
1303
  Map.fromList
1304
  [(ndExclusiveStorage, "ExclusiveStorage"),
1305
   (ndOobProgram, "OutOfBandProgram"),
1306
   (ndOvs, "OpenvSwitch"),
1307
   (ndOvsLink, "OpenvSwitchLink"),
1308
   (ndOvsName, "OpenvSwitchName"),
1309
   (ndSpindleCount, "SpindleCount")]
1310

    
1311
ipCommandPath :: String
1312
ipCommandPath = AutoConf.ipPath
1313

    
1314
-- * Reboot types
1315

    
1316
instanceRebootSoft :: String
1317
instanceRebootSoft = Types.rebootTypeToRaw RebootSoft
1318

    
1319
instanceRebootHard :: String
1320
instanceRebootHard = Types.rebootTypeToRaw RebootHard
1321

    
1322
instanceRebootFull :: String
1323
instanceRebootFull = Types.rebootTypeToRaw RebootFull
1324

    
1325
rebootTypes :: FrozenSet String
1326
rebootTypes = ConstantUtils.mkSet $ map Types.rebootTypeToRaw [minBound..]
1327

    
1328

    
1329

    
1330

    
1331

    
1332

    
1333

    
1334

    
1335
-- * OOB supported commands
1336

    
1337
oobPowerOn :: String
1338
oobPowerOn = Types.oobCommandToRaw OobPowerOn
1339

    
1340
oobPowerOff :: String
1341
oobPowerOff = Types.oobCommandToRaw OobPowerOff
1342

    
1343
oobPowerCycle :: String
1344
oobPowerCycle = Types.oobCommandToRaw OobPowerCycle
1345

    
1346
oobPowerStatus :: String
1347
oobPowerStatus = Types.oobCommandToRaw OobPowerStatus
1348

    
1349
oobHealth :: String
1350
oobHealth = Types.oobCommandToRaw OobHealth
1351

    
1352
oobCommands :: FrozenSet String
1353
oobCommands = ConstantUtils.mkSet $ map Types.oobCommandToRaw [minBound..]
1354

    
1355
oobPowerStatusPowered :: String
1356
oobPowerStatusPowered = "powered"
1357

    
1358
-- | 60 seconds
1359
oobTimeout :: Int
1360
oobTimeout = 60
1361

    
1362
-- | 2 seconds
1363
oobPowerDelay :: Double
1364
oobPowerDelay = 2.0
1365

    
1366
oobStatusCritical :: String
1367
oobStatusCritical = Types.oobStatusToRaw OobStatusCritical
1368

    
1369
oobStatusOk :: String
1370
oobStatusOk = Types.oobStatusToRaw OobStatusOk
1371

    
1372
oobStatusUnknown :: String
1373
oobStatusUnknown = Types.oobStatusToRaw OobStatusUnknown
1374

    
1375
oobStatusWarning :: String
1376
oobStatusWarning = Types.oobStatusToRaw OobStatusWarning
1377

    
1378
oobStatuses :: FrozenSet String
1379
oobStatuses = ConstantUtils.mkSet $ map Types.oobStatusToRaw [minBound..]
1380

    
1381
-- * NIC_* constants are used inside the ganeti config
1382

    
1383
nicLink :: String
1384
nicLink = "link"
1385

    
1386
nicMode :: String
1387
nicMode = "mode"
1388

    
1389
nicVlan :: String
1390
nicVlan = "vlan"
1391

    
1392
nicModeBridged :: String
1393
nicModeBridged = Types.nICModeToRaw NMBridged
1394

    
1395
nicModeRouted :: String
1396
nicModeRouted = Types.nICModeToRaw NMRouted
1397

    
1398
nicModeOvs :: String
1399
nicModeOvs = Types.nICModeToRaw NMOvs
1400

    
1401
nicIpPool :: String
1402
nicIpPool = Types.nICModeToRaw NMPool
1403

    
1404
nicValidModes :: FrozenSet String
1405
nicValidModes = ConstantUtils.mkSet $ map Types.nICModeToRaw [minBound..]
1406

    
1407
-- * Hypervisor constants
1408

    
1409
htXenPvm :: String
1410
htXenPvm = Types.hypervisorToRaw XenPvm
1411

    
1412
htFake :: String
1413
htFake = Types.hypervisorToRaw Fake
1414

    
1415
htXenHvm :: String
1416
htXenHvm = Types.hypervisorToRaw XenHvm
1417

    
1418
htKvm :: String
1419
htKvm = Types.hypervisorToRaw Kvm
1420

    
1421
htChroot :: String
1422
htChroot = Types.hypervisorToRaw Chroot
1423

    
1424
htLxc :: String
1425
htLxc = Types.hypervisorToRaw Lxc
1426

    
1427
hyperTypes :: FrozenSet String
1428
hyperTypes = ConstantUtils.mkSet $ map Types.hypervisorToRaw [minBound..]
1429

    
1430
htsReqPort :: FrozenSet String
1431
htsReqPort = ConstantUtils.mkSet [htXenHvm, htKvm]
1432

    
1433
-- * Migration type
1434

    
1435
htMigrationLive :: String
1436
htMigrationLive = Types.migrationModeToRaw MigrationLive
1437

    
1438
htMigrationNonlive :: String
1439
htMigrationNonlive = Types.migrationModeToRaw MigrationNonLive
1440

    
1441
htMigrationModes :: FrozenSet String
1442
htMigrationModes =
1443
  ConstantUtils.mkSet $ map Types.migrationModeToRaw [minBound..]
1444

    
1445
-- * Cluster verify steps
1446

    
1447
verifyNplusoneMem :: String
1448
verifyNplusoneMem = Types.verifyOptionalChecksToRaw VerifyNPlusOneMem
1449

    
1450
verifyOptionalChecks :: FrozenSet String
1451
verifyOptionalChecks =
1452
  ConstantUtils.mkSet $ map Types.verifyOptionalChecksToRaw [minBound..]
1453

    
1454
-- * Cluster Verify error classes
1455

    
1456
cvTcluster :: String
1457
cvTcluster = "cluster"
1458

    
1459
cvTgroup :: String
1460
cvTgroup = "group"
1461

    
1462
cvTnode :: String
1463
cvTnode = "node"
1464

    
1465
cvTinstance :: String
1466
cvTinstance = "instance"
1467

    
1468
-- * Cluster Verify error codes and documentation
1469

    
1470
cvEclustercert :: (String, String, String)
1471
cvEclustercert =
1472
  ("cluster",
1473
   Types.cVErrorCodeToRaw CvECLUSTERCERT,
1474
   "Cluster certificate files verification failure")
1475

    
1476
cvEclustercfg :: (String, String, String)
1477
cvEclustercfg =
1478
  ("cluster",
1479
   Types.cVErrorCodeToRaw CvECLUSTERCFG,
1480
   "Cluster configuration verification failure")
1481

    
1482
cvEclusterdanglinginst :: (String, String, String)
1483
cvEclusterdanglinginst =
1484
  ("node",
1485
   Types.cVErrorCodeToRaw CvECLUSTERDANGLINGINST,
1486
   "Some instances have a non-existing primary node")
1487

    
1488
cvEclusterdanglingnodes :: (String, String, String)
1489
cvEclusterdanglingnodes =
1490
  ("node",
1491
   Types.cVErrorCodeToRaw CvECLUSTERDANGLINGNODES,
1492
   "Some nodes belong to non-existing groups")
1493

    
1494
cvEclusterfilecheck :: (String, String, String)
1495
cvEclusterfilecheck =
1496
  ("cluster",
1497
   Types.cVErrorCodeToRaw CvECLUSTERFILECHECK,
1498
   "Cluster configuration verification failure")
1499

    
1500
cvEgroupdifferentpvsize :: (String, String, String)
1501
cvEgroupdifferentpvsize =
1502
  ("group",
1503
   Types.cVErrorCodeToRaw CvEGROUPDIFFERENTPVSIZE,
1504
   "PVs in the group have different sizes")
1505

    
1506
cvEinstancebadnode :: (String, String, String)
1507
cvEinstancebadnode =
1508
  ("instance",
1509
   Types.cVErrorCodeToRaw CvEINSTANCEBADNODE,
1510
   "Instance marked as running lives on an offline node")
1511

    
1512
cvEinstancedown :: (String, String, String)
1513
cvEinstancedown =
1514
  ("instance",
1515
   Types.cVErrorCodeToRaw CvEINSTANCEDOWN,
1516
   "Instance not running on its primary node")
1517

    
1518
cvEinstancefaultydisk :: (String, String, String)
1519
cvEinstancefaultydisk =
1520
  ("instance",
1521
   Types.cVErrorCodeToRaw CvEINSTANCEFAULTYDISK,
1522
   "Impossible to retrieve status for a disk")
1523

    
1524
cvEinstancelayout :: (String, String, String)
1525
cvEinstancelayout =
1526
  ("instance",
1527
   Types.cVErrorCodeToRaw CvEINSTANCELAYOUT,
1528
   "Instance has multiple secondary nodes")
1529

    
1530
cvEinstancemissingcfgparameter :: (String, String, String)
1531
cvEinstancemissingcfgparameter =
1532
  ("instance",
1533
   Types.cVErrorCodeToRaw CvEINSTANCEMISSINGCFGPARAMETER,
1534
   "A configuration parameter for an instance is missing")
1535

    
1536
cvEinstancemissingdisk :: (String, String, String)
1537
cvEinstancemissingdisk =
1538
  ("instance",
1539
   Types.cVErrorCodeToRaw CvEINSTANCEMISSINGDISK,
1540
   "Missing volume on an instance")
1541

    
1542
cvEinstancepolicy :: (String, String, String)
1543
cvEinstancepolicy =
1544
  ("instance",
1545
   Types.cVErrorCodeToRaw CvEINSTANCEPOLICY,
1546
   "Instance does not meet policy")
1547

    
1548
cvEinstancesplitgroups :: (String, String, String)
1549
cvEinstancesplitgroups =
1550
  ("instance",
1551
   Types.cVErrorCodeToRaw CvEINSTANCESPLITGROUPS,
1552
   "Instance with primary and secondary nodes in different groups")
1553

    
1554
cvEinstanceunsuitablenode :: (String, String, String)
1555
cvEinstanceunsuitablenode =
1556
  ("instance",
1557
   Types.cVErrorCodeToRaw CvEINSTANCEUNSUITABLENODE,
1558
   "Instance running on nodes that are not suitable for it")
1559

    
1560
cvEinstancewrongnode :: (String, String, String)
1561
cvEinstancewrongnode =
1562
  ("instance",
1563
   Types.cVErrorCodeToRaw CvEINSTANCEWRONGNODE,
1564
   "Instance running on the wrong node")
1565

    
1566
cvEnodedrbd :: (String, String, String)
1567
cvEnodedrbd =
1568
  ("node",
1569
   Types.cVErrorCodeToRaw CvENODEDRBD,
1570
   "Error parsing the DRBD status file")
1571

    
1572
cvEnodedrbdhelper :: (String, String, String)
1573
cvEnodedrbdhelper =
1574
  ("node",
1575
   Types.cVErrorCodeToRaw CvENODEDRBDHELPER,
1576
   "Error caused by the DRBD helper")
1577

    
1578
cvEnodedrbdversion :: (String, String, String)
1579
cvEnodedrbdversion =
1580
  ("node",
1581
   Types.cVErrorCodeToRaw CvENODEDRBDVERSION,
1582
   "DRBD version mismatch within a node group")
1583

    
1584
cvEnodefilecheck :: (String, String, String)
1585
cvEnodefilecheck =
1586
  ("node",
1587
   Types.cVErrorCodeToRaw CvENODEFILECHECK,
1588
   "Error retrieving the checksum of the node files")
1589

    
1590
cvEnodefilestoragepaths :: (String, String, String)
1591
cvEnodefilestoragepaths =
1592
  ("node",
1593
   Types.cVErrorCodeToRaw CvENODEFILESTORAGEPATHS,
1594
   "Detected bad file storage paths")
1595

    
1596
cvEnodefilestoragepathunusable :: (String, String, String)
1597
cvEnodefilestoragepathunusable =
1598
  ("node",
1599
   Types.cVErrorCodeToRaw CvENODEFILESTORAGEPATHUNUSABLE,
1600
   "File storage path unusable")
1601

    
1602
cvEnodehooks :: (String, String, String)
1603
cvEnodehooks =
1604
  ("node",
1605
   Types.cVErrorCodeToRaw CvENODEHOOKS,
1606
   "Communication failure in hooks execution")
1607

    
1608
cvEnodehv :: (String, String, String)
1609
cvEnodehv =
1610
  ("node",
1611
   Types.cVErrorCodeToRaw CvENODEHV,
1612
   "Hypervisor parameters verification failure")
1613

    
1614
cvEnodelvm :: (String, String, String)
1615
cvEnodelvm =
1616
  ("node",
1617
   Types.cVErrorCodeToRaw CvENODELVM,
1618
   "LVM-related node error")
1619

    
1620
cvEnoden1 :: (String, String, String)
1621
cvEnoden1 =
1622
  ("node",
1623
   Types.cVErrorCodeToRaw CvENODEN1,
1624
   "Not enough memory to accommodate instance failovers")
1625

    
1626
cvEnodenet :: (String, String, String)
1627
cvEnodenet =
1628
  ("node",
1629
   Types.cVErrorCodeToRaw CvENODENET,
1630
   "Network-related node error")
1631

    
1632
cvEnodeoobpath :: (String, String, String)
1633
cvEnodeoobpath =
1634
  ("node",
1635
   Types.cVErrorCodeToRaw CvENODEOOBPATH,
1636
   "Invalid Out Of Band path")
1637

    
1638
cvEnodeorphaninstance :: (String, String, String)
1639
cvEnodeorphaninstance =
1640
  ("node",
1641
   Types.cVErrorCodeToRaw CvENODEORPHANINSTANCE,
1642
   "Unknown intance running on a node")
1643

    
1644
cvEnodeorphanlv :: (String, String, String)
1645
cvEnodeorphanlv =
1646
  ("node",
1647
   Types.cVErrorCodeToRaw CvENODEORPHANLV,
1648
   "Unknown LVM logical volume")
1649

    
1650
cvEnodeos :: (String, String, String)
1651
cvEnodeos =
1652
  ("node",
1653
   Types.cVErrorCodeToRaw CvENODEOS,
1654
   "OS-related node error")
1655

    
1656
cvEnoderpc :: (String, String, String)
1657
cvEnoderpc =
1658
  ("node",
1659
   Types.cVErrorCodeToRaw CvENODERPC,
1660
   "Error during connection to the primary node of an instance")
1661

    
1662
cvEnodesetup :: (String, String, String)
1663
cvEnodesetup =
1664
  ("node",
1665
   Types.cVErrorCodeToRaw CvENODESETUP,
1666
   "Node setup error")
1667

    
1668
cvEnodesharedfilestoragepathunusable :: (String, String, String)
1669
cvEnodesharedfilestoragepathunusable =
1670
  ("node",
1671
   Types.cVErrorCodeToRaw CvENODESHAREDFILESTORAGEPATHUNUSABLE,
1672
   "Shared file storage path unusable")
1673

    
1674
cvEnodessh :: (String, String, String)
1675
cvEnodessh =
1676
  ("node",
1677
   Types.cVErrorCodeToRaw CvENODESSH,
1678
   "SSH-related node error")
1679

    
1680
cvEnodetime :: (String, String, String)
1681
cvEnodetime =
1682
  ("node",
1683
   Types.cVErrorCodeToRaw CvENODETIME,
1684
   "Node returned invalid time")
1685

    
1686
cvEnodeuserscripts :: (String, String, String)
1687
cvEnodeuserscripts =
1688
  ("node",
1689
   Types.cVErrorCodeToRaw CvENODEUSERSCRIPTS,
1690
   "User scripts not present or not executable")
1691

    
1692
cvEnodeversion :: (String, String, String)
1693
cvEnodeversion =
1694
  ("node",
1695
   Types.cVErrorCodeToRaw CvENODEVERSION,
1696
   "Protocol version mismatch or Ganeti version mismatch")
1697

    
1698
cvAllEcodes :: FrozenSet (String, String, String)
1699
cvAllEcodes =
1700
  ConstantUtils.mkSet
1701
  [cvEclustercert,
1702
   cvEclustercfg,
1703
   cvEclusterdanglinginst,
1704
   cvEclusterdanglingnodes,
1705
   cvEclusterfilecheck,
1706
   cvEgroupdifferentpvsize,
1707
   cvEinstancebadnode,
1708
   cvEinstancedown,
1709
   cvEinstancefaultydisk,
1710
   cvEinstancelayout,
1711
   cvEinstancemissingcfgparameter,
1712
   cvEinstancemissingdisk,
1713
   cvEinstancepolicy,
1714
   cvEinstancesplitgroups,
1715
   cvEinstanceunsuitablenode,
1716
   cvEinstancewrongnode,
1717
   cvEnodedrbd,
1718
   cvEnodedrbdhelper,
1719
   cvEnodedrbdversion,
1720
   cvEnodefilecheck,
1721
   cvEnodefilestoragepaths,
1722
   cvEnodefilestoragepathunusable,
1723
   cvEnodehooks,
1724
   cvEnodehv,
1725
   cvEnodelvm,
1726
   cvEnoden1,
1727
   cvEnodenet,
1728
   cvEnodeoobpath,
1729
   cvEnodeorphaninstance,
1730
   cvEnodeorphanlv,
1731
   cvEnodeos,
1732
   cvEnoderpc,
1733
   cvEnodesetup,
1734
   cvEnodesharedfilestoragepathunusable,
1735
   cvEnodessh,
1736
   cvEnodetime,
1737
   cvEnodeuserscripts,
1738
   cvEnodeversion]
1739

    
1740
cvAllEcodesStrings :: FrozenSet String
1741
cvAllEcodesStrings =
1742
  ConstantUtils.mkSet $ map Types.cVErrorCodeToRaw [minBound..]
1743

    
1744
-- * Instance status
1745

    
1746
inststAdmindown :: String
1747
inststAdmindown = Types.instanceStatusToRaw StatusDown
1748

    
1749
inststAdminoffline :: String
1750
inststAdminoffline = Types.instanceStatusToRaw StatusOffline
1751

    
1752
inststErrordown :: String
1753
inststErrordown = Types.instanceStatusToRaw ErrorDown
1754

    
1755
inststErrorup :: String
1756
inststErrorup = Types.instanceStatusToRaw ErrorUp
1757

    
1758
inststNodedown :: String
1759
inststNodedown = Types.instanceStatusToRaw NodeDown
1760

    
1761
inststNodeoffline :: String
1762
inststNodeoffline = Types.instanceStatusToRaw NodeOffline
1763

    
1764
inststRunning :: String
1765
inststRunning = Types.instanceStatusToRaw Running
1766

    
1767
inststWrongnode :: String
1768
inststWrongnode = Types.instanceStatusToRaw WrongNode
1769

    
1770
inststAll :: FrozenSet String
1771
inststAll = ConstantUtils.mkSet $ map Types.instanceStatusToRaw [minBound..]
1772

    
1773
-- * Admin states
1774

    
1775
adminstDown :: String
1776
adminstDown = Types.adminStateToRaw AdminDown
1777

    
1778
adminstOffline :: String
1779
adminstOffline = Types.adminStateToRaw AdminOffline
1780

    
1781
adminstUp :: String
1782
adminstUp = Types.adminStateToRaw AdminUp
1783

    
1784
adminstAll :: FrozenSet String
1785
adminstAll = ConstantUtils.mkSet $ map Types.adminStateToRaw [minBound..]
1786

    
1787
-- * Node roles
1788

    
1789
nrDrained :: String
1790
nrDrained = Types.nodeRoleToRaw NRDrained
1791

    
1792
nrMaster :: String
1793
nrMaster = Types.nodeRoleToRaw NRMaster
1794

    
1795
nrMcandidate :: String
1796
nrMcandidate = Types.nodeRoleToRaw NRCandidate
1797

    
1798
nrOffline :: String
1799
nrOffline = Types.nodeRoleToRaw NROffline
1800

    
1801
nrRegular :: String
1802
nrRegular = Types.nodeRoleToRaw NRRegular
1803

    
1804
nrAll :: FrozenSet String
1805
nrAll = ConstantUtils.mkSet $ map Types.nodeRoleToRaw [minBound..]
1806

    
1807
-- * Allocator framework constants
1808

    
1809
iallocatorVersion :: Int
1810
iallocatorVersion = 2
1811

    
1812
iallocatorDirIn :: String
1813
iallocatorDirIn = Types.iAllocatorTestDirToRaw IAllocatorDirIn
1814

    
1815
iallocatorDirOut :: String
1816
iallocatorDirOut = Types.iAllocatorTestDirToRaw IAllocatorDirOut
1817

    
1818
validIallocatorDirections :: FrozenSet String
1819
validIallocatorDirections =
1820
  ConstantUtils.mkSet $ map Types.iAllocatorTestDirToRaw [minBound..]
1821

    
1822
iallocatorModeAlloc :: String
1823
iallocatorModeAlloc = Types.iAllocatorModeToRaw IAllocatorAlloc
1824

    
1825
iallocatorModeChgGroup :: String
1826
iallocatorModeChgGroup = Types.iAllocatorModeToRaw IAllocatorChangeGroup
1827

    
1828
iallocatorModeMultiAlloc :: String
1829
iallocatorModeMultiAlloc = Types.iAllocatorModeToRaw IAllocatorMultiAlloc
1830

    
1831
iallocatorModeNodeEvac :: String
1832
iallocatorModeNodeEvac = Types.iAllocatorModeToRaw IAllocatorNodeEvac
1833

    
1834
iallocatorModeReloc :: String
1835
iallocatorModeReloc = Types.iAllocatorModeToRaw IAllocatorReloc
1836

    
1837
validIallocatorModes :: FrozenSet String
1838
validIallocatorModes =
1839
  ConstantUtils.mkSet $ map Types.iAllocatorModeToRaw [minBound..]
1840

    
1841
iallocatorSearchPath :: [String]
1842
iallocatorSearchPath = AutoConf.iallocatorSearchPath
1843

    
1844
defaultIallocatorShortcut :: String
1845
defaultIallocatorShortcut = "."
1846

    
1847
-- * Node evacuation
1848

    
1849
nodeEvacPri :: String
1850
nodeEvacPri = Types.evacModeToRaw ChangePrimary
1851

    
1852
nodeEvacSec :: String
1853
nodeEvacSec = Types.evacModeToRaw ChangeSecondary
1854

    
1855
nodeEvacAll :: String
1856
nodeEvacAll = Types.evacModeToRaw ChangeAll
1857

    
1858
nodeEvacModes :: FrozenSet String
1859
nodeEvacModes = ConstantUtils.mkSet $ map Types.evacModeToRaw [minBound..]
1860

    
1861
-- * Job status
1862

    
1863
jobStatusQueued :: String
1864
jobStatusQueued = Types.jobStatusToRaw JOB_STATUS_QUEUED
1865

    
1866
jobStatusWaiting :: String
1867
jobStatusWaiting = Types.jobStatusToRaw JOB_STATUS_WAITING
1868

    
1869
jobStatusCanceling :: String
1870
jobStatusCanceling = Types.jobStatusToRaw JOB_STATUS_CANCELING
1871

    
1872
jobStatusRunning :: String
1873
jobStatusRunning = Types.jobStatusToRaw JOB_STATUS_RUNNING
1874

    
1875
jobStatusCanceled :: String
1876
jobStatusCanceled = Types.jobStatusToRaw JOB_STATUS_CANCELED
1877

    
1878
jobStatusSuccess :: String
1879
jobStatusSuccess = Types.jobStatusToRaw JOB_STATUS_SUCCESS
1880

    
1881
jobStatusError :: String
1882
jobStatusError = Types.jobStatusToRaw JOB_STATUS_ERROR
1883

    
1884
jobsPending :: FrozenSet String
1885
jobsPending =
1886
  ConstantUtils.mkSet [jobStatusQueued, jobStatusWaiting, jobStatusCanceling]
1887

    
1888
jobsFinalized :: FrozenSet String
1889
jobsFinalized =
1890
  ConstantUtils.mkSet $ map Types.finalizedJobStatusToRaw [minBound..]
1891

    
1892
jobStatusAll :: FrozenSet String
1893
jobStatusAll = ConstantUtils.mkSet $ map Types.jobStatusToRaw [minBound..]
1894

    
1895
-- * OpCode status
1896

    
1897
-- ** Not yet finalized opcodes
1898

    
1899
opStatusCanceling :: String
1900
opStatusCanceling = "canceling"
1901

    
1902
opStatusQueued :: String
1903
opStatusQueued = "queued"
1904

    
1905
opStatusRunning :: String
1906
opStatusRunning = "running"
1907

    
1908
opStatusWaiting :: String
1909
opStatusWaiting = "waiting"
1910

    
1911
-- ** Finalized opcodes
1912

    
1913
opStatusCanceled :: String
1914
opStatusCanceled = "canceled"
1915

    
1916
opStatusError :: String
1917
opStatusError = "error"
1918

    
1919
opStatusSuccess :: String
1920
opStatusSuccess = "success"
1921

    
1922
opsFinalized :: FrozenSet String
1923
opsFinalized =
1924
  ConstantUtils.mkSet [opStatusCanceled, opStatusError, opStatusSuccess]
1925

    
1926
-- * OpCode priority
1927

    
1928
opPrioLowest :: Int
1929
opPrioLowest = 19
1930

    
1931
opPrioHighest :: Int
1932
opPrioHighest = -20
1933

    
1934
opPrioLow :: Int
1935
opPrioLow = Types.opSubmitPriorityToRaw OpPrioLow
1936

    
1937
opPrioNormal :: Int
1938
opPrioNormal = Types.opSubmitPriorityToRaw OpPrioNormal
1939

    
1940
opPrioHigh :: Int
1941
opPrioHigh = Types.opSubmitPriorityToRaw OpPrioHigh
1942

    
1943
opPrioSubmitValid :: FrozenSet Int
1944
opPrioSubmitValid = ConstantUtils.mkSet [opPrioLow, opPrioNormal, opPrioHigh]
1945

    
1946
opPrioDefault :: Int
1947
opPrioDefault = opPrioNormal
1948

    
1949
-- * Execution log types
1950

    
1951
elogMessage :: String
1952
elogMessage = Types.eLogTypeToRaw ELogMessage
1953

    
1954
elogRemoteImport :: String
1955
elogRemoteImport = Types.eLogTypeToRaw ELogRemoteImport
1956

    
1957
elogJqueueTest :: String
1958
elogJqueueTest = Types.eLogTypeToRaw ELogJqueueTest
1959

    
1960
-- * Confd
1961

    
1962
confdProtocolVersion :: Int
1963
confdProtocolVersion = ConstantUtils.confdProtocolVersion
1964

    
1965
-- Confd request type
1966

    
1967
confdReqPing :: Int
1968
confdReqPing = Types.confdRequestTypeToRaw ReqPing
1969

    
1970
confdReqNodeRoleByname :: Int
1971
confdReqNodeRoleByname = Types.confdRequestTypeToRaw ReqNodeRoleByName
1972

    
1973
confdReqNodePipByInstanceIp :: Int
1974
confdReqNodePipByInstanceIp = Types.confdRequestTypeToRaw ReqNodePipByInstPip
1975

    
1976
confdReqClusterMaster :: Int
1977
confdReqClusterMaster = Types.confdRequestTypeToRaw ReqClusterMaster
1978

    
1979
confdReqNodePipList :: Int
1980
confdReqNodePipList = Types.confdRequestTypeToRaw ReqNodePipList
1981

    
1982
confdReqMcPipList :: Int
1983
confdReqMcPipList = Types.confdRequestTypeToRaw ReqMcPipList
1984

    
1985
confdReqInstancesIpsList :: Int
1986
confdReqInstancesIpsList = Types.confdRequestTypeToRaw ReqInstIpsList
1987

    
1988
confdReqNodeDrbd :: Int
1989
confdReqNodeDrbd = Types.confdRequestTypeToRaw ReqNodeDrbd
1990

    
1991
confdReqNodeInstances :: Int
1992
confdReqNodeInstances = Types.confdRequestTypeToRaw ReqNodeInstances
1993

    
1994
confdReqs :: FrozenSet Int
1995
confdReqs =
1996
  ConstantUtils.mkSet .
1997
  map Types.confdRequestTypeToRaw $
1998
  [minBound..] \\ [ReqNodeInstances]
1999

    
2000
-- * Confd request type
2001

    
2002
confdReqfieldName :: Int
2003
confdReqfieldName = Types.confdReqFieldToRaw ReqFieldName
2004

    
2005
confdReqfieldIp :: Int
2006
confdReqfieldIp = Types.confdReqFieldToRaw ReqFieldIp
2007

    
2008
confdReqfieldMnodePip :: Int
2009
confdReqfieldMnodePip = Types.confdReqFieldToRaw ReqFieldMNodePip
2010

    
2011
-- * Confd repl status
2012

    
2013
confdReplStatusOk :: Int
2014
confdReplStatusOk = Types.confdReplyStatusToRaw ReplyStatusOk
2015

    
2016
confdReplStatusError :: Int
2017
confdReplStatusError = Types.confdReplyStatusToRaw ReplyStatusError
2018

    
2019
confdReplStatusNotimplemented :: Int
2020
confdReplStatusNotimplemented = Types.confdReplyStatusToRaw ReplyStatusNotImpl
2021

    
2022
confdReplStatuses :: FrozenSet Int
2023
confdReplStatuses =
2024
  ConstantUtils.mkSet $ map Types.confdReplyStatusToRaw [minBound..]
2025

    
2026
-- * Confd node role
2027

    
2028
confdNodeRoleMaster :: Int
2029
confdNodeRoleMaster = Types.confdNodeRoleToRaw NodeRoleMaster
2030

    
2031
confdNodeRoleCandidate :: Int
2032
confdNodeRoleCandidate = Types.confdNodeRoleToRaw NodeRoleCandidate
2033

    
2034
confdNodeRoleOffline :: Int
2035
confdNodeRoleOffline = Types.confdNodeRoleToRaw NodeRoleOffline
2036

    
2037
confdNodeRoleDrained :: Int
2038
confdNodeRoleDrained = Types.confdNodeRoleToRaw NodeRoleDrained
2039

    
2040
confdNodeRoleRegular :: Int
2041
confdNodeRoleRegular = Types.confdNodeRoleToRaw NodeRoleRegular
2042

    
2043
-- * A few common errors for confd
2044

    
2045
confdErrorUnknownEntry :: Int
2046
confdErrorUnknownEntry = Types.confdErrorTypeToRaw ConfdErrorUnknownEntry
2047

    
2048
confdErrorInternal :: Int
2049
confdErrorInternal = Types.confdErrorTypeToRaw ConfdErrorInternal
2050

    
2051
confdErrorArgument :: Int
2052
confdErrorArgument = Types.confdErrorTypeToRaw ConfdErrorArgument
2053

    
2054
-- * Confd request query fields
2055

    
2056
confdReqqLink :: String
2057
confdReqqLink = ConstantUtils.confdReqqLink
2058

    
2059
confdReqqIp :: String
2060
confdReqqIp = ConstantUtils.confdReqqIp
2061

    
2062
confdReqqIplist :: String
2063
confdReqqIplist = ConstantUtils.confdReqqIplist
2064

    
2065
confdReqqFields :: String
2066
confdReqqFields = ConstantUtils.confdReqqFields
2067

    
2068
-- | Each request is "salted" by the current timestamp.
2069
--
2070
-- This constant decides how many seconds of skew to accept.
2071
--
2072
-- TODO: make this a default and allow the value to be more
2073
-- configurable
2074
confdMaxClockSkew :: Int
2075
confdMaxClockSkew = 2 * nodeMaxClockSkew
2076

    
2077
-- | When we haven't reloaded the config for more than this amount of
2078
-- seconds, we force a test to see if inotify is betraying us. Using a
2079
-- prime number to ensure we get less chance of 'same wakeup' with
2080
-- other processes.
2081
confdConfigReloadTimeout :: Int
2082
confdConfigReloadTimeout = 17
2083

    
2084
-- | If we receive more than one update in this amount of
2085
-- microseconds, we move to polling every RATELIMIT seconds, rather
2086
-- than relying on inotify, to be able to serve more requests.
2087
confdConfigReloadRatelimit :: Int
2088
confdConfigReloadRatelimit = 250000
2089

    
2090
-- | Magic number prepended to all confd queries.
2091
--
2092
-- This allows us to distinguish different types of confd protocols
2093
-- and handle them. For example by changing this we can move the whole
2094
-- payload to be compressed, or move away from json.
2095
confdMagicFourcc :: String
2096
confdMagicFourcc = "plj0"
2097

    
2098
-- | By default a confd request is sent to the minimum between this
2099
-- number and all MCs. 6 was chosen because even in the case of a
2100
-- disastrous 50% response rate, we should have enough answers to be
2101
-- able to compare more than one.
2102
confdDefaultReqCoverage :: Int
2103
confdDefaultReqCoverage = 6
2104

    
2105
-- | Timeout in seconds to expire pending query request in the confd
2106
-- client library. We don't actually expect any answer more than 10
2107
-- seconds after we sent a request.
2108
confdClientExpireTimeout :: Int
2109
confdClientExpireTimeout = 10
2110

    
2111
-- * Possible values for NodeGroup.alloc_policy
2112

    
2113
allocPolicyLastResort :: String
2114
allocPolicyLastResort = Types.allocPolicyToRaw AllocLastResort
2115

    
2116
allocPolicyPreferred :: String
2117
allocPolicyPreferred = Types.allocPolicyToRaw AllocPreferred
2118

    
2119
allocPolicyUnallocable :: String
2120
allocPolicyUnallocable = Types.allocPolicyToRaw AllocUnallocable
2121

    
2122
validAllocPolicies :: [String]
2123
validAllocPolicies = map Types.allocPolicyToRaw [minBound..]
2124

    
2125
-- | Temporary external/shared storage parameters
2126
blockdevDriverManual :: String
2127
blockdevDriverManual = Types.blockDriverToRaw BlockDrvManual
2128

    
2129
-- | 'qemu-img' path, required for 'ovfconverter'
2130
qemuimgPath :: String
2131
qemuimgPath = AutoConf.qemuimgPath
2132

    
2133
-- | Whether htools was enabled at compilation time
2134
--
2135
-- FIXME: this should be moved next to the other enable constants,
2136
-- such as, 'enableConfd', and renamed to 'enableHtools'.
2137
htools :: Bool
2138
htools = AutoConf.htools
2139

    
2140
-- * Key files for SSH daemon
2141

    
2142
sshHostDsaPriv :: String
2143
sshHostDsaPriv = sshConfigDir ++ "/ssh_host_dsa_key"
2144

    
2145
sshHostDsaPub :: String
2146
sshHostDsaPub = sshHostDsaPriv ++ ".pub"
2147

    
2148
sshHostRsaPriv :: String
2149
sshHostRsaPriv = sshConfigDir ++ "/ssh_host_rsa_key"
2150

    
2151
sshHostRsaPub :: String
2152
sshHostRsaPub = sshHostRsaPriv ++ ".pub"
2153

    
2154
-- | Path generating random UUID
2155
randomUuidFile :: String
2156
randomUuidFile = ConstantUtils.randomUuidFile
2157

    
2158
-- * Auto-repair tag prefixes
2159

    
2160
autoRepairTagPrefix :: String
2161
autoRepairTagPrefix = "ganeti:watcher:autorepair:"
2162

    
2163
autoRepairTagEnabled :: String
2164
autoRepairTagEnabled = autoRepairTagPrefix
2165

    
2166
autoRepairTagPending :: String
2167
autoRepairTagPending = autoRepairTagPrefix ++ "pending:"
2168

    
2169
autoRepairTagResult :: String
2170
autoRepairTagResult = autoRepairTagPrefix ++ "result:"
2171

    
2172
autoRepairTagSuspended :: String
2173
autoRepairTagSuspended = autoRepairTagPrefix ++ "suspend:"
2174

    
2175
-- * Auto-repair levels
2176

    
2177
autoRepairFailover :: String
2178
autoRepairFailover = "failover"
2179

    
2180
autoRepairFixStorage :: String
2181
autoRepairFixStorage = "fix-storage"
2182

    
2183
autoRepairMigrate :: String
2184
autoRepairMigrate = "migrate"
2185

    
2186
autoRepairReinstall :: String
2187
autoRepairReinstall = "reinstall"
2188

    
2189
autoRepairAllTypes :: FrozenSet String
2190
autoRepairAllTypes =
2191
  ConstantUtils.mkSet [autoRepairFailover,
2192
                       autoRepairFixStorage,
2193
                       autoRepairMigrate,
2194
                       autoRepairReinstall]
2195

    
2196
-- * Auto-repair results
2197

    
2198
autoRepairEnoperm :: String
2199
autoRepairEnoperm = "enoperm"
2200

    
2201
autoRepairFailure :: String
2202
autoRepairFailure = "failure"
2203

    
2204
autoRepairSuccess :: String
2205
autoRepairSuccess = "success"
2206

    
2207
autoRepairAllResults :: FrozenSet String
2208
autoRepairAllResults =
2209
  ConstantUtils.mkSet [autoRepairEnoperm, autoRepairFailure, autoRepairSuccess]
2210

    
2211
-- | The version identifier for builtin data collectors
2212
builtinDataCollectorVersion :: String
2213
builtinDataCollectorVersion = "B"
2214

    
2215
-- | The reason trail opcode parameter name
2216
opcodeReason :: String
2217
opcodeReason = "reason"
2218

    
2219
diskstatsFile :: String
2220
diskstatsFile = "/proc/diskstats"
2221

    
2222
-- *  CPU load collector
2223

    
2224
statFile :: String
2225
statFile = "/proc/stat"
2226

    
2227
cpuavgloadBufferSize :: Int
2228
cpuavgloadBufferSize = 150
2229

    
2230
cpuavgloadWindowSize :: Int
2231
cpuavgloadWindowSize = 600
2232

    
2233
-- | Mond's variable for periodical data collection
2234
mondTimeInterval :: Int
2235
mondTimeInterval = 5
2236

    
2237
-- * Disk access modes
2238

    
2239
diskUserspace :: String
2240
diskUserspace = Types.diskAccessModeToRaw DiskUserspace
2241

    
2242
diskKernelspace :: String
2243
diskKernelspace = Types.diskAccessModeToRaw DiskKernelspace
2244

    
2245
diskValidAccessModes :: FrozenSet String
2246
diskValidAccessModes =
2247
  ConstantUtils.mkSet $ map Types.diskAccessModeToRaw [minBound..]
2248

    
2249
-- | Timeout for queue draining in upgrades
2250
upgradeQueueDrainTimeout :: Int
2251
upgradeQueueDrainTimeout = 36 * 60 * 60 -- 1.5 days
2252

    
2253
-- | Intervall at which the queue is polled during upgrades
2254
upgradeQueuePollInterval :: Int
2255
upgradeQueuePollInterval  = 10