Revision a8005e17 scripts/gnt-cluster

b/scripts/gnt-cluster
542 542
                          metavar="<node>", default=[])
543 543

  
544 544
commands = {
545
  'init': (InitCluster, ARGS_ONE,
545
  'init': (InitCluster, [ArgUnknown(min=1, max=1)],
546 546
           [DEBUG_OPT,
547 547
            make_option("-s", "--secondary-ip", dest="secondary_ip",
548 548
                        help="Specify the secondary ip for this node;"
......
603 603
            ],
604 604
           "[opts...] <cluster_name>",
605 605
           "Initialises a new cluster configuration"),
606
  'destroy': (DestroyCluster, ARGS_NONE,
606
  'destroy': (DestroyCluster, [],
607 607
              [DEBUG_OPT,
608 608
               make_option("--yes-do-it", dest="yes_do_it",
609 609
                           help="Destroy cluster",
610 610
                           action="store_true"),
611 611
              ],
612 612
              "", "Destroy cluster"),
613
  'rename': (RenameCluster, ARGS_ONE, [DEBUG_OPT, FORCE_OPT],
614
               "<new_name>",
615
               "Renames the cluster"),
616
  'redist-conf': (RedistributeConfig, ARGS_NONE, [DEBUG_OPT, SUBMIT_OPT],
613
  'rename': (RenameCluster, [ArgUnknown(min=1, max=1)],
614
             [DEBUG_OPT, FORCE_OPT],
615
             "<new_name>",
616
             "Renames the cluster"),
617
  'redist-conf': (RedistributeConfig, [], [DEBUG_OPT, SUBMIT_OPT],
617 618
                  "",
618 619
                  "Forces a push of the configuration file and ssconf files"
619 620
                  " to the nodes in the cluster"),
620
  'verify': (VerifyCluster, ARGS_NONE, [DEBUG_OPT,
621
  'verify': (VerifyCluster, [], [DEBUG_OPT,
621 622
             make_option("--no-nplus1-mem", dest="skip_nplusone_mem",
622 623
                         help="Skip N+1 memory redundancy tests",
623 624
                         action="store_true",
624 625
                         default=False,),
625 626
             ],
626 627
             "", "Does a check on the cluster configuration"),
627
  'verify-disks': (VerifyDisks, ARGS_NONE, [DEBUG_OPT],
628
  'verify-disks': (VerifyDisks, [], [DEBUG_OPT],
628 629
                   "", "Does a check on the cluster disk status"),
629
  'repair-disk-sizes': (RepairDiskSizes, ARGS_ANY, [DEBUG_OPT],
630
  'repair-disk-sizes': (RepairDiskSizes, [ArgInstance()], [DEBUG_OPT],
630 631
                   "", "Updates mismatches in recorded disk sizes"),
631
  'masterfailover': (MasterFailover, ARGS_NONE, [DEBUG_OPT,
632
  'masterfailover': (MasterFailover, [], [DEBUG_OPT,
632 633
                     make_option("--no-voting", dest="no_voting",
633 634
                                 help="Skip node agreement check (dangerous)",
634 635
                                 action="store_true",
635 636
                                 default=False,),
636 637
                     ],
637 638
                     "", "Makes the current node the master"),
638
  'version': (ShowClusterVersion, ARGS_NONE, [DEBUG_OPT],
639
  'version': (ShowClusterVersion, [], [DEBUG_OPT],
639 640
              "", "Shows the cluster version"),
640
  'getmaster': (ShowClusterMaster, ARGS_NONE, [DEBUG_OPT],
641
  'getmaster': (ShowClusterMaster, [], [DEBUG_OPT],
641 642
                "", "Shows the cluster master"),
642
  'copyfile': (ClusterCopyFile, ARGS_ONE, [DEBUG_OPT, node_option],
643
  'copyfile': (ClusterCopyFile, [ArgFile(min=1, max=1)],
644
               [DEBUG_OPT, node_option],
643 645
               "[-n node...] <filename>",
644 646
               "Copies a file to all (or only some) nodes"),
645
  'command': (RunClusterCommand, ARGS_ATLEAST(1), [DEBUG_OPT, node_option],
647
  'command': (RunClusterCommand, [ArgCommand(min=1)], [DEBUG_OPT, node_option],
646 648
              "[-n node...] <command>",
647 649
              "Runs a command on all (or only some) nodes"),
648
  'info': (ShowClusterConfig, ARGS_NONE, [DEBUG_OPT],
649
                 "", "Show cluster configuration"),
650
  'list-tags': (ListTags, ARGS_NONE,
650
  'info': (ShowClusterConfig, [], [DEBUG_OPT],
651
           "", "Show cluster configuration"),
652
  'list-tags': (ListTags, [],
651 653
                [DEBUG_OPT], "", "List the tags of the cluster"),
652
  'add-tags': (AddTags, ARGS_ANY, [DEBUG_OPT, TAG_SRC_OPT],
654
  'add-tags': (AddTags, [ArgUnknown()], [DEBUG_OPT, TAG_SRC_OPT],
653 655
               "tag...", "Add tags to the cluster"),
654
  'remove-tags': (RemoveTags, ARGS_ANY, [DEBUG_OPT, TAG_SRC_OPT],
656
  'remove-tags': (RemoveTags, [ArgUnknown()], [DEBUG_OPT, TAG_SRC_OPT],
655 657
                  "tag...", "Remove tags from the cluster"),
656
  'search-tags': (SearchTags, ARGS_ONE,
658
  'search-tags': (SearchTags, [ArgUnknown(min=1, max=1)],
657 659
                  [DEBUG_OPT], "", "Searches the tags on all objects on"
658 660
                  " the cluster for a given pattern (regex)"),
659
  'queue': (QueueOps, ARGS_ONE, [DEBUG_OPT],
661
  'queue': (QueueOps,
662
            [ArgChoice(min=1, max=1, choices=["drain", "undrain", "info"])],
663
            [DEBUG_OPT],
660 664
            "drain|undrain|info", "Change queue properties"),
661
  'modify': (SetClusterParams, ARGS_NONE,
665
  'modify': (SetClusterParams, [],
662 666
             [DEBUG_OPT,
663 667
              make_option("-g", "--vg-name", dest="vg_name",
664 668
                          help="Specify the volume group name "

Also available in: Unified diff