cmd/gitbayd/maint.go

125 lines · 3620 bytes

  1package main
  2
  3import (
  4	"fmt"
  5	"os"
  6	"os/exec"
  7	"time"
  8
  9	"github.com/spf13/cobra"
 10
 11	"gitbay.org/gitbay/internal/config"
 12	"gitbay.org/gitbay/internal/control"
 13	"gitbay.org/gitbay/internal/gitutil"
 14	"gitbay.org/gitbay/internal/lfs"
 15	"gitbay.org/gitbay/internal/store"
 16)
 17
 18func gcCmd() *cobra.Command {
 19	var repoPath string
 20	var aggressive, withLFS bool
 21	cmd := &cobra.Command{
 22		Use:   "gc",
 23		Short: "repack and prune repositories (git gc); --lfs removes unreferenced LFS objects",
 24		RunE: func(cmd *cobra.Command, args []string) error {
 25			cfg, err := config.Load(configPath)
 26			if err != nil {
 27				return err
 28			}
 29			st, err := openStore(cfg)
 30			if err != nil {
 31				return err
 32			}
 33			defer st.Close()
 34
 35			var repos []store.Repo
 36			if repoPath != "" {
 37				r, err := st.RepoByPath(repoPath)
 38				if err != nil {
 39					return fmt.Errorf("no repository %q", repoPath)
 40				}
 41				repos = []store.Repo{r}
 42			} else if repos, err = st.ListAllRepos(); err != nil {
 43				return err
 44			}
 45
 46			var before, after int64
 47			for _, r := range repos {
 48				dir := control.RepoDir(cfg.Server.Root, r.OwnerName, r.Name)
 49				b := gitutil.DirSize(dir)
 50				gcArgs := []string{"-C", dir, "gc", "--quiet"}
 51				if aggressive {
 52					gcArgs = append(gcArgs, "--aggressive")
 53				}
 54				if out, err := exec.Command("git", gcArgs...).CombinedOutput(); err != nil {
 55					fmt.Fprintf(os.Stderr, "%s: gc failed: %v\n%s", r.Path(), err, out)
 56					continue
 57				}
 58				a := gitutil.DirSize(dir)
 59				before, after = before+b, after+a
 60				fmt.Printf("%s\t%s -> %s\n", r.Path(), human(b), human(a))
 61			}
 62			fmt.Printf("total\t%s -> %s (freed %s)\n", human(before), human(after), human(before-after))
 63			if !withLFS {
 64				return nil
 65			}
 66			return gcLFS(cfg, st)
 67		},
 68	}
 69	cmd.Flags().StringVar(&repoPath, "repo", "", "one repository (owner/name) instead of all")
 70	cmd.Flags().BoolVar(&aggressive, "aggressive", false, "more thorough repack (slow; rarely needed)")
 71	cmd.Flags().BoolVar(&withLFS, "lfs", false, "also remove LFS objects no repository references (older than a day)")
 72	return cmd
 73}
 74
 75func human(b int64) string {
 76	switch {
 77	case b >= 1<<30:
 78		return fmt.Sprintf("%.1f GiB", float64(b)/(1<<30))
 79	case b >= 1<<20:
 80		return fmt.Sprintf("%.1f MiB", float64(b)/(1<<20))
 81	case b >= 1<<10:
 82		return fmt.Sprintf("%.1f KiB", float64(b)/(1<<10))
 83	default:
 84		return fmt.Sprintf("%d B", b)
 85	}
 86}
 87
 88// lfsOrphanAge keeps an object uploaded ahead of the push that references
 89// it: git lfs uploads first and pushes second.
 90const lfsOrphanAge = 24 * time.Hour
 91
 92// gcLFS removes LFS objects no repository's pointers name. Every
 93// repository is scanned, whatever --repo said: an object is shared across
 94// repositories by content, so only the whole set says it is unreferenced.
 95func gcLFS(cfg config.Config, st *store.Store) error {
 96	repos, err := st.ListAllRepos()
 97	if err != nil {
 98		return err
 99	}
100	referenced := map[string]bool{}
101	for _, r := range repos {
102		oids, err := gitutil.LFSPointerOIDs(control.RepoDir(cfg.Server.Root, r.OwnerName, r.Name))
103		if err != nil {
104			return fmt.Errorf("%s: scanning for LFS pointers: %w", r.Path(), err)
105		}
106		for _, o := range oids {
107			referenced[o] = true
108		}
109	}
110	blobs := lfs.LocalStore{Root: lfs.RootFor(cfg.LFS.Root, cfg.Server.Root)}
111	orphans, err := blobs.Orphans(referenced, lfsOrphanAge)
112	if err != nil {
113		return err
114	}
115	var freed int64
116	for _, o := range orphans {
117		if err := blobs.Delete(o.OID); err != nil {
118			fmt.Fprintf(os.Stderr, "lfs %s: %v\n", o.OID, err)
119			continue
120		}
121		freed += o.Size
122	}
123	fmt.Printf("lfs\t%d referenced, removed %d orphans (%s)\n", len(referenced), len(orphans), human(freed))
124	return nil
125}