X-Git-Url: https://git.arvados.org/arvados.git/blobdiff_plain/e4b791cbe3536f08fbb5df10cf8de11c2d816e04..6d6a0b0f7d5780c92c865ba2e6979195510c27b2:/services/crunch-dispatch-local/crunch-dispatch-local.go diff --git a/services/crunch-dispatch-local/crunch-dispatch-local.go b/services/crunch-dispatch-local/crunch-dispatch-local.go index 9fb4cb9bad..279327ba18 100644 --- a/services/crunch-dispatch-local/crunch-dispatch-local.go +++ b/services/crunch-dispatch-local/crunch-dispatch-local.go @@ -1,14 +1,30 @@ +// Copyright (C) The Arvados Authors. All rights reserved. +// +// SPDX-License-Identifier: AGPL-3.0 + package main +// Dispatcher service for Crunch that runs containers locally. + import ( + "context" "flag" - "git.curoverse.com/arvados.git/sdk/go/arvadosclient" + "fmt" "log" "os" "os/exec" + "os/signal" + "sync" + "syscall" "time" + + "git.curoverse.com/arvados.git/sdk/go/arvados" + "git.curoverse.com/arvados.git/sdk/go/arvadosclient" + "git.curoverse.com/arvados.git/sdk/go/dispatch" ) +var version = "dev" + func main() { err := doMain() if err != nil { @@ -16,7 +32,12 @@ func main() { } } -var arv arvadosclient.ArvadosClient +var ( + runningCmds map[string]*exec.Cmd + runningCmdsMutex sync.Mutex + waitGroup sync.WaitGroup + crunchRunCommand *string +) func doMain() error { flags := flag.NewFlagSet("crunch-dispatch-local", flag.ExitOnError) @@ -26,151 +47,161 @@ func doMain() error { 10, "Interval in seconds to poll for queued containers") - priorityPollInterval := flags.Int( - "container-priority-poll-interval", - 60, - "Interval in seconds to check priority of a dispatched container") - - crunchRunCommand := flags.String( + crunchRunCommand = flags.String( "crunch-run-command", "/usr/bin/crunch-run", "Crunch command to run container") + getVersion := flags.Bool( + "version", + false, + "Print version information and exit.") + // Parse args; omit the first arg which is the command name flags.Parse(os.Args[1:]) - var err error - arv, err = arvadosclient.MakeArvadosClient() - if err != nil { - return err + // Print version information if requested + if *getVersion { + fmt.Printf("crunch-dispatch-local %s\n", version) + return nil } - // channel to terminate - doneProcessing = make(chan bool) + log.Printf("crunch-dispatch-local %s started", version) - // run all queued containers - runQueuedContainers(*pollInterval, *priorityPollInterval, *crunchRunCommand) - return nil -} - -var doneProcessing chan bool + runningCmds = make(map[string]*exec.Cmd) -// Poll for queued containers using pollInterval. -// Invoke dispatchLocal for each ticker cycle, which will run all the queued containers. -// -// Any errors encountered are logged but the program would continue to run (not exit). -// This is because, once one or more child processes are running, -// we would need to wait for them complete. -func runQueuedContainers(pollInterval, priorityPollInterval int, crunchRunCommand string) { - ticker := time.NewTicker(time.Duration(pollInterval) * time.Second) - - for { - select { - case <-ticker.C: - dispatchLocal(priorityPollInterval, crunchRunCommand) - case <-doneProcessing: - ticker.Stop() - return - } + arv, err := arvadosclient.MakeArvadosClient() + if err != nil { + log.Printf("Error making Arvados client: %v", err) + return err } -} + arv.Retries = 25 -// Container data -type Container struct { - UUID string `json:"uuid"` - State string `json:"state"` - Priority int `json:"priority"` -} - -// ContainerList is a list of the containers from api -type ContainerList struct { - ItemsAvailable int `json:"items_available"` - Items []Container `json:"items"` -} - -// Get the list of queued containers from API server and invoke run for each container. -func dispatchLocal(priorityPollInterval int, crunchRunCommand string) { - params := arvadosclient.Dict{ - "filters": [][]string{[]string{"state", "=", "Queued"}}, + dispatcher := dispatch.Dispatcher{ + Arv: arv, + RunContainer: run, + PollPeriod: time.Duration(*pollInterval) * time.Second, } - var containers ContainerList - err := arv.List("containers", params, &containers) + ctx, cancel := context.WithCancel(context.Background()) + err = dispatcher.Run(ctx) if err != nil { - log.Printf("Error getting list of queued containers: %q", err) - return + return err } - for i := 0; i < containers.ItemsAvailable; i++ { - log.Printf("About to run queued container %v", containers.Items[i].UUID) - go run(containers.Items[i].UUID, crunchRunCommand, priorityPollInterval) - } -} + c := make(chan os.Signal, 1) + signal.Notify(c, os.Interrupt, syscall.SIGTERM, syscall.SIGQUIT) + sig := <-c + log.Printf("Received %s, shutting down", sig) + signal.Stop(c) + + cancel() -// Run queued container: -// Set container state to locked (TBD) -// Run container using the given crunch-run command -// Set the container state to Running -// If the container priority becomes zero while crunch job is still running, terminate it. -func run(uuid string, crunchRunCommand string, priorityPollInterval int) { - cmd := exec.Command(crunchRunCommand, "--job", uuid) - - cmd.Stdin = nil - cmd.Stderr = os.Stderr - cmd.Stdout = os.Stderr - if err := cmd.Start(); err != nil { - log.Printf("Error running container for %v: %q", uuid, err) - return + runningCmdsMutex.Lock() + // Finished dispatching; interrupt any crunch jobs that are still running + for _, cmd := range runningCmds { + cmd.Process.Signal(os.Interrupt) } + runningCmdsMutex.Unlock() - log.Printf("Started container run for %v", uuid) + // Wait for all running crunch jobs to complete / terminate + waitGroup.Wait() - err := arv.Update("containers", uuid, - arvadosclient.Dict{ - "container": arvadosclient.Dict{"state": "Running"}}, - nil) - if err != nil { - log.Printf("Error updating container state to 'Running' for %v: %q", uuid, err) - } + return nil +} + +func startFunc(container arvados.Container, cmd *exec.Cmd) error { + return cmd.Start() +} - // Terminate the runner if container priority becomes zero - priorityTicker := time.NewTicker(time.Duration(priorityPollInterval) * time.Second) - go func() { - for { - select { - case <-priorityTicker.C: - var container Container - err := arv.Get("containers", uuid, nil, &container) - if err != nil { - log.Printf("Error getting container info for %v: %q", uuid, err) - } else { - if container.Priority == 0 { - priorityTicker.Stop() - cmd.Process.Kill() - return +var startCmd = startFunc + +// Run a container. +// +// If the container is Locked, start a new crunch-run process and wait until +// crunch-run completes. If the priority is set to zero, set an interrupt +// signal to the crunch-run process. +// +// If the container is in any other state, or is not Complete/Cancelled after +// crunch-run terminates, mark the container as Cancelled. +func run(dispatcher *dispatch.Dispatcher, + container arvados.Container, + status <-chan arvados.Container) { + + uuid := container.UUID + + if container.State == dispatch.Locked { + waitGroup.Add(1) + + cmd := exec.Command(*crunchRunCommand, uuid) + cmd.Stdin = nil + cmd.Stderr = os.Stderr + cmd.Stdout = os.Stderr + + log.Printf("Starting container %v", uuid) + + // Add this crunch job to the list of runningCmds only if we + // succeed in starting crunch-run. + + runningCmdsMutex.Lock() + if err := startCmd(container, cmd); err != nil { + runningCmdsMutex.Unlock() + log.Printf("Error starting %v for %v: %q", *crunchRunCommand, uuid, err) + dispatcher.UpdateState(uuid, dispatch.Cancelled) + } else { + runningCmds[uuid] = cmd + runningCmdsMutex.Unlock() + + // Need to wait for crunch-run to exit + done := make(chan struct{}) + + go func() { + if _, err := cmd.Process.Wait(); err != nil { + log.Printf("Error while waiting for crunch job to finish for %v: %q", uuid, err) + } + log.Printf("sending done") + done <- struct{}{} + }() + + Loop: + for { + select { + case <-done: + break Loop + case c := <-status: + // Interrupt the child process if priority changes to 0 + if (c.State == dispatch.Locked || c.State == dispatch.Running) && c.Priority == 0 { + log.Printf("Sending SIGINT to pid %d to cancel container %v", cmd.Process.Pid, uuid) + cmd.Process.Signal(os.Interrupt) } } } + close(done) + + log.Printf("Finished container run for %v", uuid) + + // Remove the crunch job from runningCmds + runningCmdsMutex.Lock() + delete(runningCmds, uuid) + runningCmdsMutex.Unlock() } - }() + waitGroup.Done() + } - // Wait for the process to exit - if _, err := cmd.Process.Wait(); err != nil { - log.Printf("Error while waiting for process to finish for %v: %q", uuid, err) + // If the container is not finalized, then change it to "Cancelled". + err := dispatcher.Arv.Get("containers", uuid, nil, &container) + if err != nil { + log.Printf("Error getting final container state: %v", err) + } + if container.State == dispatch.Locked || container.State == dispatch.Running { + log.Printf("After %s process termination, container state for %v is %q. Updating it to %q", + *crunchRunCommand, container.State, uuid, dispatch.Cancelled) + dispatcher.UpdateState(uuid, dispatch.Cancelled) } - priorityTicker.Stop() - - var container Container - err = arv.Get("containers", uuid, nil, &container) - if container.State == "Running" { - log.Printf("After crunch-run process termination, the state is still 'Running' for %v. Updating it to 'Complete'", uuid) - err = arv.Update("containers", uuid, - arvadosclient.Dict{ - "container": arvadosclient.Dict{"state": "Complete"}}, - &container) - if err != nil { - log.Printf("Error updating container state to Complete for %v: %q", uuid, err) - } + // drain any subsequent status changes + for range status { } + + log.Printf("Finalized container %v", uuid) }