more succint proctitles

This commit is contained in:
Oliver Gorwits
2017-06-27 22:33:32 +01:00
parent 828fee2d9f
commit f64f69bb83
4 changed files with 10 additions and 12 deletions

View File

@@ -39,7 +39,7 @@ sub worker_body {
my $wid = $self->wid;
unless (setting('schedule')) {
prctl sprintf 'netdisco-backend: worker #%s scheduler: inactive', $wid;
prctl sprintf 'nd2: #%s sched: inactive', $wid;
return debug "sch ($wid): no need for scheduler... quitting"
}
@@ -47,11 +47,11 @@ sub worker_body {
# sleep until some point in the next minute
my $naptime = 60 - (time % 60) + int(rand(45));
prctl sprintf 'netdisco-backend: worker #%s scheduler: idle', $wid;
prctl sprintf 'nd2: #%s sched: idle', $wid;
debug "sched ($wid): sleeping for $naptime seconds";
sleep $naptime;
prctl sprintf 'netdisco-backend: worker #%s scheduler: queueing', $wid;
prctl sprintf 'nd2: #%s sched: queueing', $wid;
# NB next_time() returns the next *after* win_start
my $win_start = time - (time % 60) - 1;