client/meter/conntrack

   1 #!/usr/bin/env perl
   2
   3 require "common.pl";
   4
   5 open $fh, '<', '/proc/net/nf_conntrack' or die "$0: /proc/net/nf_conntrack: $!\n";
   6 while(<$fh>)
   7 {
   8         my ($af, $proto) = /^(\S+)\s+\S+\s+(\S+)/;
   9         $Conntrack{'af'}->{$af}++;
  10         $Conntrack{'proto'}->{$proto}++;
  11         for my $flag (/([A-Z_]+)/g)
  12         {
  13                 $Conntrack{'flag'}->{$flag}++;
  14         }
  15 }
  16 close $fh;
  17
  18
  19 open $fh, '-|', 'conntrack', '-S' or die "$0: $!\n";
  20 while(<$fh>)
  21 {
  22         s/cpu=\d+\s+//;
  23         while(s/^([^\s=]+)=(\d+)\s*//)
  24         {
  25                 $Conntrack{'stat'}->{$1} += $2;
  26         }
  27 }
  28 close $fh;
  29
  30
  31 svlhk_dump(\%Conntrack);