server/metriccd

   1 #!/usr/bin/env perl
   2
   3 use Data::Dumper;
   4 use Socket;
   5
   6 $metric_basedir = "/var/log/metriccd";
   7
   8 sub kvesc
   9 {
  10         my $s = shift;
  11         if($s =~ /[\s""]/)
  12         {
  13                 $s =~ s/[""]/sprintf '\\x%02X', ord $&/eg;
  14                 $s = "\"$s\"";
  15         }
  16         return $s;
  17 }
  18
  19 $FileHandle = undef;
  20 $REMOTE_HOST = $ENV{'REMOTE_HOST'};
  21 %Param = ();
  22
  23 my ($hostname, $aliases, $addrtype, $addrlength, @addrs) = gethostbyaddr(inet_aton($REMOTE_HOST), AF_INET);
  24 $Param{'hostname'} = $hostname if $hostname;
  25
  26 while(<STDIN>)
  27 {
  28         chomp;
  29         if(/^([^\t]+)\t([^\t]+)(?:\t(\d+)|)$/ or /^([^ ]+) ([^ ]+)(?: (\d+)|)$/)
  30         {
  31                 my ($metric, $data, $timestamp) = ($1, $2, $3);
  32                 $timestamp = time unless $timestamp;
  33
  34                 if(not $FileHandle)
  35                 {
  36                         mkdir $metric_basedir;
  37                         mkdir "$metric_basedir/by-host";
  38                         open $FileHandle, '>>', "$metric_basedir/by-host/$REMOTE_HOST";
  39                 }
  40
  41                 my $params = join '', map {"\t$_=".kvesc($Param{$_})} keys %Param;
  42                 print {$FileHandle} "$metric\t$data\t$timestamp$params\n";
  43         }
  44 }