#!/usr/bin/perl 
 
$argnum = $#ARGV+1; 
$PNAME = $ARGV[0]; 
$PID=$$; 
 
# thread 갯수를 얻어온다. 
sub getThreadNum 
{ 
  my($PID) = @_; 
  my $PROC = "/proc/$PID/status"; 
  my $thread=""; 
  my $line; 
  open(LFD, $PROC) || die "Process Status FAILURE |status=0\n"; 
 
  while($line=<LFD>) 
  { 
    if ($line =~ m/^Threads:/) 
    { 
      $line =~ s/\s+$//; 
      @_=split /:[ \t]+/,$line; 
      $thread=$_[1]; 
      close(LFD); 
      return atoi($thread); 
    } 
  } 
  close(LFD); 
} 
 
# 문자열을 int형 숫자로 변경한다. 
sub atoi 
{ 
    my $num; 
    foreach my $d (split(//, shift())) 
    { 
        $num = $num * 10 + $d; 
    } 
    return $num; 
} 
 
# ps를 이용해서 프로세스 목록을 얻어온다. 
# 목록중에 인자로 주어진 프로세스 이름과 같은 줄을 분석해서 
# 프로세스의 정보를 얻어낸다. 
open(FD, "ps aux |") || die "Process Status FAILURE |status=0\n"; 
$CpuUsage = 0.0; 
$MemUsage = 0.0; 
$MemSize = 0; 
$Pnum = 0; 
$TNum = 0; 
while($line = <FD>) 
{ 
  if ($line =~ m/$PNAME/) 
  { 
    if ($line =~ m/$0/) 
    { 
    } 
    else 
    { 
      @_ = split / +/,$line; 
      $CpuUsage = $CpuUsage + $_[2]; 
      $MemUsage += $_[3]; 
      $MemSize += $_[4]; 
      $TNum += getThreadNum($_[1]); 
      $Pnum++; 
    } 
  } 
} 
if ($Pnum == 0) 
{ 
    printf "Process Status OK |status=0\n"; 
    system("/etc/rc.d/init.d/named restart"); 
} 
else 
{ 
    printf "Process Status OK |status=1 cpu=%d mem=%d num=$Pnum size=%d thread=%d\n", $CpuUsage, $MemUsage, $MemSize, $TNum; 
}