return $time;
}
+my $tags = $ENV{TAGS};
+$tags = ",$tags" unless $tags =~ m/^,/;
+
while(<>) {
chomp;
next if /^$/;
next if $measurement =~ /top3/; # FIXME this isn't parsed yet
#XXX { cols => \@cols, vals => \@vals };
- print "atop_$measurement,host=$host";
+ print "atop_$measurement,host=$host$tags";
my $d = " ";
foreach my $i ( 0 .. $#cols ) {
if ( my $c = $cols[$i] ) {