Editing Net-SNMP subagent

Jump to: navigation, search

Warning: You are not logged in. Your IP address will be publicly visible if you make any edits. If you log in or create an account, your edits will be attributed to your username, along with other benefits.

The edit can be undone. Please check the comparison below to verify that this is what you want to do, and then save the changes below to finish undoing the edit.
Latest revision Your text
Line 1: Line 1:
 
Here is snmp subagent to export UBC via SNMP protocol.
 
Here is snmp subagent to export UBC via SNMP protocol.
  
−
Author - n1ckname. License: GNU GPL v2.
+
Author - n1ckname
  
  
 
=== /etc/snmp/snmpagent.pl ===
 
=== /etc/snmp/snmpagent.pl ===
  
−
<source lang="perl">
+
  #!/usr/bin/perl  
−
#!/usr/bin/perl
+
 
−
 
+
  $program = $0;
−
$program = $0;
+
 
−
 
+
  use NetSNMP::OID (':all');
−
use NetSNMP::OID (':all');
+
  use NetSNMP::agent (':all');
−
use NetSNMP::agent (':all');
+
  use NetSNMP::ASN (':all');
−
use NetSNMP::ASN (':all');
+
  use Data::Dumper;
−
use Data::Dumper;
+
  my $debug = 0;
−
my $debug = 0;
+
  my @resName=qw(name vmguarpages tcpsndbuf othersockbuf physpages numfile numtcpsock numpty numsiginfo tcprcvbuf dcachesize numiptent numothersock privvmpages kmemsize numflock shmpages lockedpages dummy numproc oomguarpages dgramrcvbuf);
−
my @resName=qw(name vmguarpages tcpsndbuf othersockbuf physpages numfile numtcpsock numpty numsiginfo tcprcvbuf dcachesize numiptent numothersock privvmpages kmemsize numflock shmpages lockedpages dummy numproc oomguarpages dgramrcvbuf);
+
  my @catName=qw(held maxheld barrier limit failcnt);
−
my @catName=qw(held maxheld barrier limit failcnt);
+
  my %resIndex,%catIndex;
−
my %resIndex,%catIndex;
+
  @resIndex{@resName} = (0..$#resName);
−
@resIndex{@resName} = (0..$#resName);
+
  @catIndex{@catName} = (0..$#catName);
−
@catIndex{@catName} = (0..$#catName);
+
 
−
 
+
  sub handler {  
−
sub handler {
+
      my ($handler, $reg_info, $request_info, $requests) = @_;  
−
    my ($handler, $reg_info, $request_info, $requests) = @_;
+
      open(UB,"<$source");
−
    open(UB,"<$source");
+
      while(<UB>){
−
    while(<UB>){
+
          my %vmachine;
−
my %vmachine;
+
          if ( /\D*(\d+):[\s\t]+([a-z]+)[\t\s]+(\d+)[\t\s]+(\d+)[\t\s]+(\d+)[\t\s]+(\d+)[\t\s]+(\d+).*/ ){  
−
if ( /\D*(\d+):[\s\t]+([a-z]+)[\t\s]+(\d+)[\t\s]+(\d+)[\t\s]+(\d+)[\t\s]+(\d+)[\t\s]+(\d+).*/ ){
+
      $vid=$1;  
−
    $vid=$1;
+
      $beancounters{$vid}=\%vmachine ;  
−
    $beancounters{$vid}=\%vmachine ;
+
              ${beancounters{$vid}{0}}="www";
−
    ${beancounters{$vid}{0}}="www";
+
      open(CONF,"</etc/vz/conf/$vid.conf");
−
    open(CONF,"</etc/vz/conf/$vid.conf");
+
      my $name=$vid;
−
    my $name=$vid;
+
      while(<CONF>) {
−
    while(<CONF>) {
+
  if(/NAME[\s\t]?=[\s\t]?["]?([^"]+)["]?/)  {
−
if(/NAME[\s\t]?=[\s\t]?["]?([^"]+)["]?/)  {
+
      $name=$1;
−
    $name=$1;
+
      last;
−
    last;
+
      #"
−
    #"
+
  }
−
}
+
      }
−
    }
+
      ${beancounters{$vid}{0}}=$name;
−
    ${beancounters{$vid}{0}}=$name;
+
              $resource=$2 ;
−
    $resource=$2 ;
+
              $held=$3 ;
−
    $held=$3 ;
+
              $maxheld=$4 ;
−
    $maxheld=$4 ;
+
              $barrier=$5 ;
−
    $barrier=$5 ;
+
              $limit=$6 ;
−
    $limit=$6 ;
+
              $failcnt=$7 ;
−
    $failcnt=$7 ;
+
              ${beancounters{$vid}}{${resIndex{$resource}}}=[$held , $maxheld , $barrier , $limit ,$failcnt ];
−
    ${beancounters{$vid}}{${resIndex{$resource}}}=[$held , $maxheld , $barrier , $limit ,$failcnt ];
+
 
−
 
+
  }
−
}
+
          if ( /^[\W\d]+([a-z]+)[\t\s]+(\d+)[\t\s]+(\d+)[\t\s]+(\d+)[\t\s]+(\d+)[\t\s]+(\d+).*/ ) {
−
if ( /^[\W\d]+([a-z]+)[\t\s]+(\d+)[\t\s]+(\d+)[\t\s]+(\d+)[\t\s]+(\d+)[\t\s]+(\d+).*/ ) {
+
                  $resource=$1 ;
−
$resource=$1 ;
+
                  $held=$2 ;
−
$held=$2 ;
+
                  $maxheld=$3 ;
−
$maxheld=$3 ;
+
                  $barrier=$4 ;
−
$barrier=$4 ;
+
                  $limit=$5 ;
−
$limit=$5 ;
+
                  $failcnt=$6 ;
−
$failcnt=$6 ;
+
                  ${beancounters{$vid}}{${resIndex{$resource}}}=[$held , $maxheld , $barrier , $limit ,$failcnt ];
−
${beancounters{$vid}}{${resIndex{$resource}}}=[$held , $maxheld , $barrier , $limit ,$failcnt ];
+
          }
−
}
+
      }
−
    }
+
      close(UB);
−
    close(UB);
+
 
−
 
+
      for ( my $request = $requests; $request; $request = $request->next() ) {
−
    for ( my $request = $requests; $request; $request = $request->next() ) {
+
     
−
my $reqOID = $request->getOID();
+
          my $reqOID = $request->getOID();
−
my $reqMode = $request_info->getMode();
+
          my $reqMode = $request_info->getMode();
−
my $myOID = new NetSNMP::OID($OID);
+
  my $myOID = new NetSNMP::OID($OID);
−
#1.3.6.1.4.1.2021.51.ctcount = 5
+
  #1.3.6.1.4.1.2021.51.ctcount = 5
−
#1.3.6.1.4.1.2021.51.ct.101.name = www
+
  #1.3.6.1.4.1.2021.51.ct.101.name = www
−
#1.3.6.1.4.1.2021.51.ct.101.kmemsize.held = 458584
+
  #1.3.6.1.4.1.2021.51.ct.101.kmemsize.held = 458584
−
#1.3.6.1.4.1.2021.51.ct.101.kmemsize.maxheld = 1490364
+
  #1.3.6.1.4.1.2021.51.ct.101.kmemsize.maxheld = 1490364
−
#1.3.6.1.4.1.2021.51.ct.101.kmemsize.barrier = 11055923
+
  #1.3.6.1.4.1.2021.51.ct.101.kmemsize.barrier = 11055923
−
 
+
 
−
# $request->setValue(ASN_INTEGER, scalar keys (%beancounters));
+
  # $request->setValue(ASN_INTEGER, scalar keys (%beancounters));
−
 
+
 
−
if ($reqMode == MODE_GET) {
+
          if ($reqMode == MODE_GET) {
−
    print STDERR $reqOID." MODE_GET\n" if($debug);;
+
      print STDERR $reqOID." MODE_GET\n" if($debug);;
−
    if($reqOID == $myOID+".0"){
+
          if($reqOID == $myOID+".0"){
−
$request->setValue(ASN_INTEGER, scalar keys (%beancounters));
+
  $request->setValue(ASN_INTEGER, scalar keys (%beancounters));
−
    } elsif($reqOID =~ /$myOID\.([0-9]+)[\.]?([0-9]+)?[\.]?([0-9]+)?[\.]?([0-9]+)?/) {
+
      } elsif($reqOID =~ /$myOID\.([0-9]+)[\.]?([0-9]+)?[\.]?([0-9]+)?[\.]?([0-9]+)?/) {
−
 
+
 
−
my $typeReq=$1;
+
  my $typeReq=$1;
−
my $vzidReq=$2;
+
  my $vzidReq=$2;
−
my $resReq=$3;
+
  my $resReq=$3;
−
my $catReq=$4;
+
  my $catReq=$4;
−
my %vz;
+
  my %vz;
−
 
+
 
−
print STDERR "Type:$typeReq, VzID: $vzidReq, Res: $resReq/$resName[$resReq], Cat: $catReq/$catName[$catReq]\n" if($debug);;
+
 
−
 
+
  print STDERR "Type:$typeReq, VzID: $vzidReq, Res: $resReq/$resName[$resReq], Cat: $catReq/$catName[$catReq]\n" if($debug);;
−
if(!$vzidReq) {
+
 
−
    foreach $vzid (sort keys %beancounters) {
+
  if(!$vzidReq) {
−
$vzidReq=$vzid;
+
      foreach $vzid (sort keys %beancounters) {
−
last;
+
  $vzidReq=$vzid;
−
    }
+
  last;
−
}
+
      }
−
if(!$vzidReq || !exists(${beancounters{$vzidReq}})) {
+
  }
−
    $request->setError($request_info,SNMP_ERR_NOSUCHNAME);
+
  if(!$vzidReq || !exists(${beancounters{$vzidReq}})) {
−
    last;
+
      $request->setError($request_info,SNMP_ERR_NOSUCHNAME);
−
}
+
      last;
−
 
+
  }
−
%vz=%{${beancounters{$vzidReq}}};
+
 
−
 
+
  %vz=%{${beancounters{$vzidReq}}};
−
if((!defined($resReq) or $resReq == 0) && defined(${vz{0}})) {
+
 
−
    $request->setValue(ASN_OCTET_STR, "".${vz{0}});
+
  if((!defined($resReq) or $resReq == 0) && defined(${vz{0}})) {
−
} elsif(!defined($catReq) && defined(${vz{$resReq}[0]})) {
+
      $request->setValue(ASN_OCTET_STR, "".${vz{0}});
−
    $request->setValue(ASN_INTEGER, ${vz{$resReq}[0]});
+
  } elsif(!defined($catReq) && defined(${vz{$resReq}[0]})) {
−
 
+
      $request->setValue(ASN_INTEGER, ${vz{$resReq}[0]});
−
} elsif($catReq< $#catName && defined(${vz{$resReq}[$catReq]})) {
+
 
−
    if(9223372036854775807 == ${vz{$resReq}[$catReq+1]}) {
+
  } elsif($catReq< $#catName && defined(${vz{$resReq}[$catReq]})) {
−
$request->setValue(ASN_INTEGER,-1);
+
      if(9223372036854775807 == ${vz{$resReq}[$catReq+1]}) {
−
    } else {
+
  $request->setValue(ASN_INTEGER,-1);
−
$request->setValue(ASN_INTEGER,${vz{$resReq}[$catReq+1]});
+
      } else {
−
    }
+
  $request->setValue(ASN_INTEGER,${vz{$resReq}[$catReq+1]});
−
} elsif($resReq<scalar keys %vz && defined(${vz{$resReq+1}[0]})) {
+
      }
−
    if(9223372036854775807 == ${vz{$resReq}[$catReq+1]}) {
+
  } elsif($resReq<scalar keys %vz && defined(${vz{$resReq+1}[0]})) {
−
$request->setValue(ASN_INTEGER,-1);
+
      if(9223372036854775807 == ${vz{$resReq}[$catReq+1]}) {
−
    } else {
+
  $request->setValue(ASN_INTEGER,-1);
−
$request->setValue(ASN_INTEGER, ${vz{$resReq+1}[0]});
+
      } else {
−
    }
+
  $request->setValue(ASN_INTEGER, ${vz{$resReq+1}[0]});
−
} else  {
+
      }
−
    my $finish=1;
+
  } else  {
−
    foreach $vzid (sort keys %beancounters) {
+
      my $finish=1;
−
if($vzid > $vzidReq) {
+
      foreach $vzid (sort keys %beancounters) {
−
    %vz=%{${beancounters{$vzid}}};
+
  if($vzid > $vzidReq) {
−
    $vzidReq=$vzid;
+
      %vz=%{${beancounters{$vzid}}};
−
    $finish=0;
+
      $vzidReq=$vzid;
−
    last;
+
      $finish=0;
−
}
+
      last;
−
    }
+
  }
−
    if(!$finish)  {
+
      }
−
$request->setValue(ASN_INTEGER, "".${vz{0}});
+
      if(!$finish)  {
−
    }
+
  $request->setValue(ASN_INTEGER, "".${vz{0}});
−
}
+
      }
−
    }
+
  }
−
 
+
     
−
} elsif ($reqMode == MODE_GETNEXT) {
+
 
−
    print STDERR $reqOID." MODE_GETNEXT\n" if($debug);
+
      }
−
    if($reqOID < $myOID+".0"){
+
 
−
$request->setOID($OID.".0");
+
  } elsif ($reqMode == MODE_GETNEXT) {
−
$request->setValue(ASN_INTEGER, scalar keys (%beancounters));
+
      print STDERR $reqOID." MODE_GETNEXT\n" if($debug);
−
    } elsif($reqOID =~ /$myOID\.([0-9]+)[\.]?([0-9]+)?[\.]?([0-9]+)?[\.]?([0-9]+)?$/) {
+
          if($reqOID < $myOID+".0"){
−
my $typeReq=$1;
+
      $request->setOID($OID.".0");
−
my $vzidReq=$2;
+
  $request->setValue(ASN_INTEGER, scalar keys (%beancounters));
−
my $resReq=$3;
+
      } elsif($reqOID =~ /$myOID\.([0-9]+)[\.]?([0-9]+)?[\.]?([0-9]+)?[\.]?([0-9]+)?$/) {
−
my $catReq=$4;
+
  my $typeReq=$1;
−
my %vz;
+
  my $vzidReq=$2;
−
 
+
  my $resReq=$3;
−
print STDERR "Type:$typeReq, VzID: $vzidReq, Res: $resReq/$resName[$resReq], Cat: $catReq/$catName[$catReq]\n" if($debug);;
+
  my $catReq=$4;
−
 
+
  my %vz;
−
if(!$vzidReq) {
+
 
−
    foreach $vzid (sort keys %beancounters) {
+
  print STDERR "Type:$typeReq, VzID: $vzidReq, Res: $resReq/$resName[$resReq], Cat: $catReq/$catName[$catReq]\n" if($debug);;
−
$vzidReq=$vzid;
+
 
−
last;
+
  if(!$vzidReq) {
−
    }
+
      foreach $vzid (sort keys %beancounters) {
−
}
+
  $vzidReq=$vzid;
−
if(!$vzidReq || !exists(${beancounters{$vzidReq}})) {
+
  last;
−
    $request->setError($request_info,SNMP_ERR_NOSUCHNAME);
+
      }
−
    last;
+
  }
−
}
+
  if(!$vzidReq || !exists(${beancounters{$vzidReq}})) {
−
 
+
      $request->setError($request_info,SNMP_ERR_NOSUCHNAME);
−
 
+
      last;
−
%vz=%{${beancounters{$vzidReq}}};
+
  }
−
 
+
 
−
if(!defined($resReq) && defined(${vz{0}})) {
+
 
−
    $request->setOID($myOID.".1.".$vzidReq.".0");
+
  %vz=%{${beancounters{$vzidReq}}};
−
    $request->setValue(ASN_OCTET_STR, "".${vz{0}});
+
 
−
} elsif(!defined($catReq) && defined(${vz{$resReq}[0]})) {
+
  if(!defined($resReq) && defined(${vz{0}})) {
−
    $request->setOID($myOID.".1.".$vzidReq.".".$resReq.".0");
+
          $request->setOID($myOID.".1.".$vzidReq.".0");
−
    $request->setValue(ASN_INTEGER, ${vz{$resReq}[0]});
+
      $request->setValue(ASN_OCTET_STR, "".${vz{0}});
−
} elsif($catReq< $#catName && defined(${vz{$resReq}[$catReq]})) {
+
  } elsif(!defined($catReq) && defined(${vz{$resReq}[0]})) {
−
    $request->setOID($myOID.".1.".$vzidReq.".".$resReq.".".($catReq+1));
+
          $request->setOID($myOID.".1.".$vzidReq.".".$resReq.".0");
−
    if(9223372036854775807 == ${vz{$resReq}[$catReq+1]}) {
+
      $request->setValue(ASN_INTEGER, ${vz{$resReq}[0]});
−
$request->setValue(ASN_INTEGER,-1);
+
  } elsif($catReq< $#catName && defined(${vz{$resReq}[$catReq]})) {
−
    } else {
+
      $request->setOID($myOID.".1.".$vzidReq.".".$resReq.".".($catReq+1));
−
$request->setValue(ASN_INTEGER,${vz{$resReq}[$catReq+1]});
+
      if(9223372036854775807 == ${vz{$resReq}[$catReq+1]}) {
−
    }
+
  $request->setValue(ASN_INTEGER,-1);
−
} elsif($resReq<scalar keys %vz && defined(${vz{$resReq+1}[0]})) {
+
      } else {
−
    $request->setOID($myOID.".1.".$vzidReq.".".($resReq+1).".0");
+
  $request->setValue(ASN_INTEGER,${vz{$resReq}[$catReq+1]});
−
    if(9223372036854775807 == ${vz{$resReq}[$catReq+1]}) {
+
      }
−
$request->setValue(ASN_INTEGER,-1);
+
  } elsif($resReq<scalar keys %vz && defined(${vz{$resReq+1}[0]})) {
−
    } else {
+
      $request->setOID($myOID.".1.".$vzidReq.".".($resReq+1).".0");
−
$request->setValue(ASN_INTEGER, ${vz{$resReq+1}[0]});
+
      if(9223372036854775807 == ${vz{$resReq}[$catReq+1]}) {
−
    }
+
  $request->setValue(ASN_INTEGER,-1);
−
} else  {
+
      } else {
−
    my $finish=1;
+
  $request->setValue(ASN_INTEGER, ${vz{$resReq+1}[0]});
−
    foreach $vzid (sort keys %beancounters) {
+
      }
−
if($vzid > $vzidReq) {
+
  } else  {
−
    %vz=%{${beancounters{$vzid}}};
+
      my $finish=1;
−
    $vzidReq=$vzid;
+
      foreach $vzid (sort keys %beancounters) {
−
    $finish=0;
+
  if($vzid > $vzidReq) {
−
    last;
+
      %vz=%{${beancounters{$vzid}}};
−
}
+
      $vzidReq=$vzid;
−
    }
+
      $finish=0;
−
    if(!$finish)  {
+
      last;
−
$request->setOID($myOID.".1.".$vzidReq.".0.0");
+
  }
−
$request->setValue(ASN_OCTET_STR, ${vz{0}});
+
      }
−
    }
+
      if(!$finish)  {
−
}
+
  $request->setOID($myOID.".1.".$vzidReq.".0.0");
−
    }
+
  $request->setValue(ASN_OCTET_STR, ${vz{0}});
−
}
+
      }
−
    }
+
  }
−
}
+
      }
−
 
+
          }
−
{
+
      }
−
my $regoid = new NetSNMP::OID($OID);
+
  }  
−
$agent->register($program, $regoid, \&handler);
+
 
−
}
+
  {
−
 
+
          my $regoid = new NetSNMP::OID($OID);  
−
#eof // nick
+
          $agent->register($program, $regoid, \&handler);
−
</source>
+
  }
 +
 
 +
 
 +
 
 +
  #eof // nick
 +
 
 
=== /etc/snmp/snmpd.conf ===
 
=== /etc/snmp/snmpd.conf ===
  
Line 218: Line 223:
 
   perl $source = '/proc/user_beancounters';  
 
   perl $source = '/proc/user_beancounters';  
 
   perl do "/etc/snmp/snmpagent.pl";
 
   perl do "/etc/snmp/snmpagent.pl";
−
 
−
[[Category: Monitoring]]
 
−
[[Category: HOWTO]]
 
−
[[Category: UBC]]
 

Please note that all contributions to OpenVZ Virtuozzo Containers Wiki may be edited, altered, or removed by other contributors. If you don't want your writing to be edited mercilessly, then don't submit it here.
 If you are going to add external links to an article, read the External links policy first!

To edit this page, please answer the question that appears below (more info):

Cancel Editing help (opens in new window)
Retrieved from "https://wiki.openvz.org/Net-SNMP_subagent"