#!/usr/bin/perl

use warnings;
use strict;

my $com1 = `ps -eaf | grep bpps | grep -v grep | awk '{print $1}'`;
my $com2;

if ($com1 eq 'weblogic') {
        print "bpps is running.\n";
} else {
        $com2 = `sh -c /export/home/weblogic/bai/bpps.sh start 2 > /dev/null 2>&1`;
}