projects
/
collectd.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'collectd-4.3' into collectd-4.4
[collectd.git]
/
bindings
/
perl
/
Collectd
/
Unixsock.pm
diff --git
a/bindings/perl/Collectd/Unixsock.pm
b/bindings/perl/Collectd/Unixsock.pm
index
f21ebfe
..
29fac3e
100644
(file)
--- a/
bindings/perl/Collectd/Unixsock.pm
+++ b/
bindings/perl/Collectd/Unixsock.pm
@@
-236,6
+236,12
@@
sub putval
my $msg;
my $identifier;
my $values;
my $msg;
my $identifier;
my $values;
+ my $interval = "";
+
+ if (defined $args{'interval'})
+ {
+ $interval = ' interval=' . $args{'interval'};
+ }
$identifier = _create_identifier (\%args) or return;
if (!$args{'values'})
$identifier = _create_identifier (\%args) or return;
if (!$args{'values'})
@@
-254,7
+260,7
@@
sub putval
$values = join (':', $time, map { defined ($_) ? $_ : 'U' } (@{$args{'values'}}));
}
$values = join (':', $time, map { defined ($_) ? $_ : 'U' } (@{$args{'values'}}));
}
- $msg = "PUTVAL $identifier $values\n";
+ $msg = "PUTVAL $identifier
$interval
$values\n";
#print "-> $msg";
send ($fh, $msg, 0) or confess ("send: $!");
$msg = undef;
#print "-> $msg";
send ($fh, $msg, 0) or confess ("send: $!");
$msg = undef;