use LWP::UserAgent;
use DBI;
use POSIX;
+use Time::HiRes;
binmode STDOUT, ':utf8';
binmode STDERR, ':utf8';
use utf8;
}
sub run {
+ my $start = [Time::HiRes::gettimeofday];
+
@log = ();
skv_log("Siste sync startet: " . POSIX::ctime(time));
push @yellow_updates, serialize_skv_log_to_sheet();
sheet_batch_update($ua, $token, \@yellow_updates);
$dbh->commit;
+
+ my $elapsed = Time::HiRes::tv_interval($start);
+ printf "Tok %.0f ms.\n", 1e3 * $elapsed;
}
if ($#ARGV >= 0 && $ARGV[0] eq '--daemon') {