X-Git-Url: https://git.arvados.org/arvados.git/blobdiff_plain/d67d6c4e86ecc98d433c7f6da270cd9d43072dc0..c3d26486e5d4e4bd11964285a6fece4897120cf8:/services/crunchstat/crunchstat.go diff --git a/services/crunchstat/crunchstat.go b/services/crunchstat/crunchstat.go deleted file mode 100644 index 1a22e264f1..0000000000 --- a/services/crunchstat/crunchstat.go +++ /dev/null @@ -1,476 +0,0 @@ -package main - -import ( - "bufio" - "bytes" - "errors" - "flag" - "fmt" - "io" - "io/ioutil" - "log" - "os" - "os/exec" - "os/signal" - "strconv" - "strings" - "syscall" - "time" -) - -/* -#include -#include -#include -#include -*/ -import "C" - -// The above block of magic allows us to look up user_hz via _SC_CLK_TCK. - -type Cgroup struct { - root string - parent string - cid string -} - -var childLog = log.New(os.Stderr, "", 0) -var statLog = log.New(os.Stderr, "crunchstat: ", 0) - -const ( - MaxLogLine = 1 << 14 // Child stderr lines >16KiB will be split -) - -func CopyPipeToChildLog(in io.ReadCloser, done chan<- bool) { - reader := bufio.NewReaderSize(in, MaxLogLine) - var prefix string - for { - line, isPrefix, err := reader.ReadLine() - if err == io.EOF { - break - } else if err != nil { - statLog.Fatal("error reading child stderr:", err) - } - var suffix string - if isPrefix { - suffix = "[...]" - } - childLog.Print(prefix, string(line), suffix) - // Set up prefix for following line - if isPrefix { - prefix = "[...]" - } else { - prefix = "" - } - } - done <- true - in.Close() -} - -func ReadAllOrWarn(in *os.File) ([]byte, error) { - content, err := ioutil.ReadAll(in) - if err != nil { - statLog.Printf("error reading %s: %s\n", in.Name(), err) - } - return content, err -} - -var reportedStatFile = map[string]string{} - -// Open the cgroup stats file in /sys/fs corresponding to the target -// cgroup, and return an *os.File. If no stats file is available, -// return nil. -// -// TODO: Instead of trying all options, choose a process in the -// container, and read /proc/PID/cgroup to determine the appropriate -// cgroup root for the given statgroup. (This will avoid falling back -// to host-level stats during container setup and teardown.) -func OpenStatFile(cgroup Cgroup, statgroup string, stat string) (*os.File, error) { - var paths = []string{ - fmt.Sprintf("%s/%s/%s/%s/%s", cgroup.root, statgroup, cgroup.parent, cgroup.cid, stat), - fmt.Sprintf("%s/%s/%s/%s", cgroup.root, cgroup.parent, cgroup.cid, stat), - fmt.Sprintf("%s/%s/%s", cgroup.root, statgroup, stat), - fmt.Sprintf("%s/%s", cgroup.root, stat), - } - var path string - var file *os.File - var err error - for _, path = range paths { - file, err = os.Open(path) - if err == nil { - break - } else { - path = "" - } - } - if pathWas, ok := reportedStatFile[stat]; !ok || pathWas != path { - // Log whenever we start using a new/different cgroup - // stat file for a given statistic. This typically - // happens 1 to 3 times per statistic, depending on - // whether we happen to collect stats [a] before any - // processes have been created in the container and - // [b] after all contained processes have exited. - reportedStatFile[stat] = path - if path == "" { - statLog.Printf("error finding stats file: stat %s, statgroup %s, cid %s, parent %s, root %s\n", stat, statgroup, cgroup.cid, cgroup.parent, cgroup.root) - } else { - statLog.Printf("error reading stats from %s\n", path) - } - } - return file, err -} - -func GetContainerNetStats(cgroup Cgroup) (io.Reader, error) { - procsFile, err := OpenStatFile(cgroup, "cpuacct", "cgroup.procs") - if err != nil { - return nil, err - } - defer procsFile.Close() - reader := bufio.NewScanner(procsFile) - for reader.Scan() { - taskPid := reader.Text() - statsFilename := fmt.Sprintf("/proc/%s/net/dev", taskPid) - stats, err := ioutil.ReadFile(statsFilename) - if err != nil { - statLog.Printf("read %s: %s\n", statsFilename, err) - continue - } - return strings.NewReader(string(stats)), nil - } - return nil, errors.New("Could not read stats for any proc in container") -} - -type IoSample struct { - sampleTime time.Time - txBytes int64 - rxBytes int64 -} - -func DoBlkIoStats(cgroup Cgroup, lastSample map[string]IoSample) { - c, err := OpenStatFile(cgroup, "blkio", "blkio.io_service_bytes") - if err != nil { - return - } - defer c.Close() - b := bufio.NewScanner(c) - var sampleTime = time.Now() - newSamples := make(map[string]IoSample) - for b.Scan() { - var device, op string - var val int64 - if _, err := fmt.Sscanf(string(b.Text()), "%s %s %d", &device, &op, &val); err != nil { - continue - } - var thisSample IoSample - var ok bool - if thisSample, ok = newSamples[device]; !ok { - thisSample = IoSample{sampleTime, -1, -1} - } - switch op { - case "Read": - thisSample.rxBytes = val - case "Write": - thisSample.txBytes = val - } - newSamples[device] = thisSample - } - for dev, sample := range newSamples { - if sample.txBytes < 0 || sample.rxBytes < 0 { - continue - } - delta := "" - if prev, ok := lastSample[dev]; ok { - delta = fmt.Sprintf(" -- interval %.4f seconds %d write %d read", - sample.sampleTime.Sub(prev.sampleTime).Seconds(), - sample.txBytes-prev.txBytes, - sample.rxBytes-prev.rxBytes) - } - statLog.Printf("blkio:%s %d write %d read%s\n", dev, sample.txBytes, sample.rxBytes, delta) - lastSample[dev] = sample - } -} - -type MemSample struct { - sampleTime time.Time - memStat map[string]int64 -} - -func DoMemoryStats(cgroup Cgroup) { - c, err := OpenStatFile(cgroup, "memory", "memory.stat") - if err != nil { - return - } - defer c.Close() - b := bufio.NewScanner(c) - thisSample := MemSample{time.Now(), make(map[string]int64)} - wantStats := [...]string{"cache", "swap", "pgmajfault", "rss"} - for b.Scan() { - var stat string - var val int64 - if _, err := fmt.Sscanf(string(b.Text()), "%s %d", &stat, &val); err != nil { - continue - } - thisSample.memStat[stat] = val - } - var outstat bytes.Buffer - for _, key := range wantStats { - if val, ok := thisSample.memStat[key]; ok { - outstat.WriteString(fmt.Sprintf(" %d %s", val, key)) - } - } - statLog.Printf("mem%s\n", outstat.String()) -} - -func DoNetworkStats(cgroup Cgroup, lastSample map[string]IoSample) { - sampleTime := time.Now() - stats, err := GetContainerNetStats(cgroup) - if err != nil { - return - } - - scanner := bufio.NewScanner(stats) - for scanner.Scan() { - var ifName string - var rx, tx int64 - words := strings.Fields(scanner.Text()) - if len(words) != 17 { - // Skip lines with wrong format - continue - } - ifName = strings.TrimRight(words[0], ":") - if ifName == "lo" || ifName == "" { - // Skip loopback interface and lines with wrong format - continue - } - if tx, err = strconv.ParseInt(words[9], 10, 64); err != nil { - continue - } - if rx, err = strconv.ParseInt(words[1], 10, 64); err != nil { - continue - } - nextSample := IoSample{} - nextSample.sampleTime = sampleTime - nextSample.txBytes = tx - nextSample.rxBytes = rx - var delta string - if prev, ok := lastSample[ifName]; ok { - interval := nextSample.sampleTime.Sub(prev.sampleTime).Seconds() - delta = fmt.Sprintf(" -- interval %.4f seconds %d tx %d rx", - interval, - tx-prev.txBytes, - rx-prev.rxBytes) - } - statLog.Printf("net:%s %d tx %d rx%s\n", ifName, tx, rx, delta) - lastSample[ifName] = nextSample - } -} - -type CpuSample struct { - hasData bool // to distinguish the zero value from real data - sampleTime time.Time - user float64 - sys float64 - cpus int64 -} - -// Return the number of CPUs available in the container. Return 0 if -// we can't figure out the real number of CPUs. -func GetCpuCount(cgroup Cgroup) int64 { - cpusetFile, err := OpenStatFile(cgroup, "cpuset", "cpuset.cpus") - if err != nil { - return 0 - } - defer cpusetFile.Close() - b, err := ReadAllOrWarn(cpusetFile) - sp := strings.Split(string(b), ",") - cpus := int64(0) - for _, v := range sp { - var min, max int64 - n, _ := fmt.Sscanf(v, "%d-%d", &min, &max) - if n == 2 { - cpus += (max - min) + 1 - } else { - cpus += 1 - } - } - return cpus -} - -func DoCpuStats(cgroup Cgroup, lastSample *CpuSample) { - statFile, err := OpenStatFile(cgroup, "cpuacct", "cpuacct.stat") - if err != nil { - return - } - defer statFile.Close() - b, err := ReadAllOrWarn(statFile) - if err != nil { - return - } - - nextSample := CpuSample{true, time.Now(), 0, 0, GetCpuCount(cgroup)} - var userTicks, sysTicks int64 - fmt.Sscanf(string(b), "user %d\nsystem %d", &userTicks, &sysTicks) - user_hz := float64(C.sysconf(C._SC_CLK_TCK)) - nextSample.user = float64(userTicks) / user_hz - nextSample.sys = float64(sysTicks) / user_hz - - delta := "" - if lastSample.hasData { - delta = fmt.Sprintf(" -- interval %.4f seconds %.4f user %.4f sys", - nextSample.sampleTime.Sub(lastSample.sampleTime).Seconds(), - nextSample.user-lastSample.user, - nextSample.sys-lastSample.sys) - } - statLog.Printf("cpu %.4f user %.4f sys %d cpus%s\n", - nextSample.user, nextSample.sys, nextSample.cpus, delta) - *lastSample = nextSample -} - -func PollCgroupStats(cgroup Cgroup, poll int64, stop_poll_chan <-chan bool) { - var lastNetSample = map[string]IoSample{} - var lastDiskSample = map[string]IoSample{} - var lastCpuSample = CpuSample{} - - poll_chan := make(chan bool, 1) - go func() { - // Send periodic poll events. - poll_chan <- true - for { - time.Sleep(time.Duration(poll) * time.Millisecond) - poll_chan <- true - } - }() - for { - select { - case <-stop_poll_chan: - return - case <-poll_chan: - // Emit stats, then select again. - } - DoMemoryStats(cgroup) - DoCpuStats(cgroup, &lastCpuSample) - DoBlkIoStats(cgroup, lastDiskSample) - DoNetworkStats(cgroup, lastNetSample) - } -} - -func run(logger *log.Logger) error { - - var ( - cgroup_root string - cgroup_parent string - cgroup_cidfile string - wait int64 - poll int64 - ) - - flag.StringVar(&cgroup_root, "cgroup-root", "", "Root of cgroup tree") - flag.StringVar(&cgroup_parent, "cgroup-parent", "", "Name of container parent under cgroup") - flag.StringVar(&cgroup_cidfile, "cgroup-cid", "", "Path to container id file") - flag.Int64Var(&wait, "wait", 5, "Maximum time (in seconds) to wait for cid file to show up") - flag.Int64Var(&poll, "poll", 1000, "Polling frequency, in milliseconds") - - flag.Parse() - - if cgroup_root == "" { - statLog.Fatal("error: must provide -cgroup-root") - } - - finish_chan := make(chan bool) - defer close(finish_chan) - - var cmd *exec.Cmd - - if len(flag.Args()) > 0 { - // Set up subprocess - cmd = exec.Command(flag.Args()[0], flag.Args()[1:]...) - - childLog.Println("Running", flag.Args()) - - // Child process will use our stdin and stdout pipes - // (we close our copies below) - cmd.Stdin = os.Stdin - cmd.Stdout = os.Stdout - - // Forward SIGINT and SIGTERM to inner process - sigChan := make(chan os.Signal, 1) - go func(sig <-chan os.Signal) { - catch := <-sig - if cmd.Process != nil { - cmd.Process.Signal(catch) - } - statLog.Println("caught signal:", catch) - }(sigChan) - signal.Notify(sigChan, syscall.SIGTERM) - signal.Notify(sigChan, syscall.SIGINT) - - // Funnel stderr through our channel - stderr_pipe, err := cmd.StderrPipe() - if err != nil { - statLog.Fatalln("error in StderrPipe:", err) - } - go CopyPipeToChildLog(stderr_pipe, finish_chan) - - // Run subprocess - if err := cmd.Start(); err != nil { - statLog.Fatalln("error in cmd.Start:", err) - } - - // Close stdin/stdout in this (parent) process - os.Stdin.Close() - os.Stdout.Close() - } - - // Read the cid file - var container_id string - if cgroup_cidfile != "" { - // wait up to 'wait' seconds for the cid file to appear - ok := false - var i time.Duration - for i = 0; i < time.Duration(wait)*time.Second; i += (100 * time.Millisecond) { - cid, err := ioutil.ReadFile(cgroup_cidfile) - if err == nil && len(cid) > 0 { - ok = true - container_id = string(cid) - break - } - time.Sleep(100 * time.Millisecond) - } - if !ok { - statLog.Println("error reading cid file:", cgroup_cidfile) - } - } - - stop_poll_chan := make(chan bool, 1) - cgroup := Cgroup{cgroup_root, cgroup_parent, container_id} - go PollCgroupStats(cgroup, poll, stop_poll_chan) - - // When the child exits, tell the polling goroutine to stop. - defer func() { stop_poll_chan <- true }() - - // Wait for CopyPipeToChan to consume child's stderr pipe - <-finish_chan - - return cmd.Wait() -} - -func main() { - logger := log.New(os.Stderr, "crunchstat: ", 0) - if err := run(logger); err != nil { - if exiterr, ok := err.(*exec.ExitError); ok { - // The program has exited with an exit code != 0 - - // This works on both Unix and - // Windows. Although package syscall is - // generally platform dependent, WaitStatus is - // defined for both Unix and Windows and in - // both cases has an ExitStatus() method with - // the same signature. - if status, ok := exiterr.Sys().(syscall.WaitStatus); ok { - os.Exit(status.ExitStatus()) - } - } else { - statLog.Fatalln("error in cmd.Wait:", err) - } - } -}