#441 change localtime to gmtime

This commit is contained in:
Oliver Gorwits
2018-10-19 14:49:03 +01:00
parent 00ac3cff4a
commit 779e0a618d
4 changed files with 8 additions and 8 deletions

View File

@@ -137,7 +137,7 @@ foreach my $host (@hostlist) {
if ($queue_only) { if ($queue_only) {
jq_insert( \@job_specs ); jq_insert( \@job_specs );
info sprintf '%s: queued %s jobs at %s', info sprintf '%s: queued %s jobs at %s',
$action, (scalar @job_specs), scalar localtime; $action, (scalar @job_specs), scalar gmtime;
} }
else { else {
foreach my $spec (@job_specs) { foreach my $spec (@job_specs) {
@@ -152,7 +152,7 @@ else {
# do job # do job
try { try {
info sprintf '%s: %s started at %s', info sprintf '%s: %s started at %s',
$action, $actiontext, scalar localtime; $action, $actiontext, scalar gmtime;
$worker->run($job); $worker->run($job);
} }
catch { catch {
@@ -168,7 +168,7 @@ else {
); );
} }
info sprintf '%s: finished at %s', $action, scalar localtime; info sprintf '%s: finished at %s', $action, scalar gmtime;
info sprintf '%s: status %s: %s', $action, $job->status, $job->log; info sprintf '%s: status %s: %s', $action, $job->status, $job->log;
$exitstatus = 1 if !$exitstatus and $job->status ne 'done'; $exitstatus = 1 if !$exitstatus and $job->status ne 'done';
} }

View File

@@ -27,7 +27,7 @@ sub worker_body {
next unless defined $job; next unless defined $job;
try { try {
$job->started(scalar localtime); $job->started(scalar gmtime);
prctl sprintf 'nd2: #%s poll: #%s: %s', prctl sprintf 'nd2: #%s poll: #%s: %s',
$wid, $job->id, $job->display_name; $wid, $job->id, $job->display_name;
info sprintf "pol (%s): starting %s job(%s) at %s", info sprintf "pol (%s): starting %s job(%s) at %s",
@@ -48,7 +48,7 @@ sub worker_body {
sub close_job { sub close_job {
my ($self, $job) = @_; my ($self, $job) = @_;
my $now = scalar localtime; my $now = scalar gmtime;
info sprintf "pol (%s): wrapping up %s job(%s) - status %s at %s", info sprintf "pol (%s): wrapping up %s job(%s) - status %s at %s",
$self->wid, $job->action, $job->id, $job->status, $now; $self->wid, $job->action, $job->id, $job->status, $now;

View File

@@ -62,7 +62,7 @@ Creates netmap of network.
sub graph { sub graph {
my %CONFIG = %{ setting('graph') }; my %CONFIG = %{ setting('graph') };
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(); my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime();
my $month = sprintf("%d%02d",$year+1900,$mon+1); my $month = sprintf("%d%02d",$year+1900,$mon+1);
info "graph() - Creating Graphs"; info "graph() - Creating Graphs";

View File

@@ -3,7 +3,7 @@ package App::Netdisco::Util::Statistics;
use Dancer qw/:syntax :script/; use Dancer qw/:syntax :script/;
use Dancer::Plugin::DBIC 'schema'; use Dancer::Plugin::DBIC 'schema';
use Time::Piece; # for OO localtime use Time::Piece; # for OO gmtime
use base 'Exporter'; use base 'Exporter';
our @EXPORT = (); our @EXPORT = ();
@@ -40,7 +40,7 @@ sub update_stats {
$schema->txn_do(sub { $schema->txn_do(sub {
$schema->resultset('Statistics')->update_or_create({ $schema->resultset('Statistics')->update_or_create({
day => localtime->ymd, day => gmtime->ymd,
device_count => device_count =>
$schema->resultset('Device')->count_rs->as_query, $schema->resultset('Device')->count_rs->as_query,