use strict;
use autodie;
-my $host = shift @ARGV || die "usage: INFLUX=http://127.0.0.1:8086/write?db=snmp COMMUNITY=snmp-comminity $0 host";
+my $host = shift @ARGV || die "usage: INFLUX=http://127.0.0.1:8086/write?db=snmp COMMUNITY=snmp-community $0 host";
my $community = $ENV{COMMUNITY} || 'public';
my $influx = $ENV{INFLUX} || 'http://127.0.0.1:8086/write?db=snmp';
my $host_tags = $host;
$host_tags =~ s/\./,domain=/;
+my $last_hour = $hour;
+
while(<$ifstat>) {
chomp;
#warn "# [$_]\n";
@direction = map { s/\W+/_/g; s/^K//; $_ } @v;
} elsif ( $v[0] =~ m/^(\d\d):(\d\d):(\d\d)/ ) {
next unless $first_skipped++;
+
+ if ( $last_hour != $hour ) {
+ ($sec,$min,$hour,$dd,$mm,$yyyy) = localtime(time); $mm++;
+ $last_hour = $hour;
+ }
+
$hour = $1; $min = $2; $sec = $3; update_time;
reopen_curl;