14714: keep-balance uses cluster config
[arvados.git] / services / keep-balance / main.go
1 // Copyright (C) The Arvados Authors. All rights reserved.
2 //
3 // SPDX-License-Identifier: AGPL-3.0
4
5 package main
6
7 import (
8         "context"
9         "flag"
10         "fmt"
11         "io"
12         "log"
13         "os"
14
15         "git.curoverse.com/arvados.git/lib/config"
16         "git.curoverse.com/arvados.git/lib/service"
17         "git.curoverse.com/arvados.git/sdk/go/arvados"
18         "git.curoverse.com/arvados.git/sdk/go/ctxlog"
19         "github.com/sirupsen/logrus"
20 )
21
22 var (
23         version = "dev"
24         debugf  = func(string, ...interface{}) {}
25         command = service.Command(arvados.ServiceNameKeepbalance, newHandler)
26         options RunOptions
27 )
28
29 func newHandler(ctx context.Context, cluster *arvados.Cluster, _ string) service.Handler {
30         if !options.Once && cluster.Collections.BalancePeriod == arvados.Duration(0) {
31                 return service.ErrorHandler(ctx, cluster, fmt.Errorf("You must either run keep-balance with the -once flag, or set Collections.BalancePeriod in the config. "+
32                         "If using the legacy keep-balance.yml config, RunPeriod is the equivalant of Collections.BalancePeriod."))
33         }
34
35         ac, err := arvados.NewClientFromConfig(cluster)
36         if err != nil {
37                 return service.ErrorHandler(ctx, cluster, fmt.Errorf("error initializing client from cluster config: %s", err))
38         }
39
40         if cluster.SystemLogs.LogLevel == "debug" {
41                 debugf = log.Printf
42         }
43
44         srv := &Server{
45                 Cluster:    cluster,
46                 ArvClient:  ac,
47                 RunOptions: options,
48                 Metrics:    newMetrics(),
49         }
50
51         go srv.Start(ctx)
52         return srv
53 }
54
55 func main() {
56         os.Exit(runCommand(os.Args[0], os.Args[1:], os.Stdin, os.Stdout, os.Stderr))
57 }
58
59 func runCommand(prog string, args []string, stdin io.Reader, stdout, stderr io.Writer) int {
60         logger := ctxlog.FromContext(context.Background())
61
62         flags := flag.NewFlagSet(prog, flag.ExitOnError)
63         flags.BoolVar(&options.Once, "once", false,
64                 "balance once and then exit")
65         flags.BoolVar(&options.CommitPulls, "commit-pulls", false,
66                 "send pull requests (make more replicas of blocks that are underreplicated or are not in optimal rendezvous probe order)")
67         flags.BoolVar(&options.CommitTrash, "commit-trash", false,
68                 "send trash requests (delete unreferenced old blocks, and excess replicas of overreplicated blocks)")
69         flags.Bool("version", false, "Write version information to stdout and exit 0")
70         dumpFlag := flags.Bool("dump", false, "dump details for each block to stdout")
71
72         loader := config.NewLoader(os.Stdin, logger)
73         loader.SetupFlags(flags)
74
75         munged := loader.MungeLegacyConfigArgs(logger, args, "-legacy-keepbalance-config")
76         flags.Parse(munged)
77
78         if *dumpFlag {
79                 dumper := logrus.New()
80                 dumper.Out = os.Stdout
81                 dumper.Formatter = &logrus.TextFormatter{}
82                 options.Dumper = dumper
83         }
84
85         // Only pass along the version flag, which gets handled in RunCommand
86         args = nil
87         flags.Visit(func(f *flag.Flag) {
88                 if f.Name == "version" {
89                         args = append(args, "-"+f.Name, f.Value.String())
90                 }
91         })
92
93         return command.RunCommand(prog, args, stdin, stdout, stderr)
94 }