CVS: ispman/bin ispman.getProcessInfo,NONE,1.1

Update of /cvsroot/ispman/ispman/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv27723

Added Files:
	ispman.getProcessInfo 
Log Message:
script to examine process

--- NEW FILE ---
#!/usr/bin/perl
BEGIN {
   use FindBin; unshift @INC, ($FindBin::Bin , "$FindBin::Bin/../lib", "$FindBin::Bin/../conf");
   unless ($ARGV[0]){
          print "Please provide a process id\n";
          exit;
   }
}


use ISPMan;
my $ispman=ISPMan->new();
my $pid=$ARGV[0];
my $entry=$ispman->getEntry($ispman->getProcessesBranchDN(), "ispmanPid=$pid", [], "sub");
$entry->dump() if $entry;





-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf