detecting status of job daemon 2

[ksbrace]

Hello,
I have been asked to write a script to detect the status of job daemons. I was wondering if Perl is the best way and if there is a site that might already have this script? thanks

 

[PaulTEG]

@results=`ps -whatever switches`
foreach (@results) {
(@items=split (/ /,$_);
foreach $item (@items) {
print "$item\t";
}
print "\n";
}

Should be a good starting point
HTH
--Paul

 

[ksbrace]

Paul,
Thanks for the start. I have the listing of jobs. I would like to truncate the listing to just the job name instead of entire path. For example, my script returns:
0:00 /test/a59_5/dir/exe/jobd ama_prod

I would just like it to return ama_prod. Is there a Right function or something that would truncate everything before jobd? thanks again!

 

[PaulTEG]

replace
(@items=split (/ /,$_);
foreach $item (@items) {
print "$item\t";
}
with
(@items=split (/ /,$_);
print "$item[0]\t$item[2]\n";

HTH
--Paul

It's important in life to always strike a happy medium, so if you see someone with a crystal ball, and a smile on their face ...

 

[ksbrace]

ok, thanks for your help. I have the correct list of jobs that I wanted to get. Now I need to cross check them w/the master list to determine if they are running or not. I'm just not sure how to exit the for loop if it's found. This is what I have:

#!/bin/perl
@results = `ps -ef | grep jobd`;
@testJobs = ("aua_prod","aua_dev","alf_prod","alf_dev","bsc_prod","bsc_dev","cer_prod","cer_dev","cng_prod","cng_dev","can_prod","can_dev","del_prod","del_dev","eri_prod","eri_dev","fin_prod","fin_dev","fre_prod","fre_dev","gen_prod","gen_dev","gcc_prod","gcc_dev","jam_prod","jam_dev","jef_prod","jef_dev","mon_prod","mon_dev","one_prod","one_dev","pot_prod","pot_dev","pur_prod","pur_dev","rcc_prod","rcc_dev","sth_prod","sth_dev","sul_prod","sul_dev","uls_prod","uls_dev","exl_dev")
@stopJobs;
foreach $item (@results) {
  @runningJobs;
  $job = substr($item,-9,9);
  $job =~ s/^\s+(.*?)\s+$/$1/;
  $job =~ s/\s//g;
  push(@runningJobs,$job);

  &checkJobs(@runningJobs);
}

sub checkJobs(@rJobs) {
    $flag = false;
    for($i = 0; $i < $#testJobs; $i++; ) {

         for($j = 0; $j < $#rJobs; $j++; ) {
    #foreach $tJob (@testJobs){
        #foreach $rJob ( @rJobs) {
          if($testJobs[$i] == $rJobs[$j]) {
            $flag = true;
          }#if


         }#for
          if ($flag != true) {
             push(@stoppedJobs, $testJobs[$i]);
          }
    }#for
}#checkJobs()
#print &quot;@stoppedJobs \n&quot;;

 

[h011ywood]

What loop are you trying to stop???

on another note...
Double loops aren't necessary.

foreach $job (@testJobs){
unless( grep /$job/, @rJobs ){
push @stoppedJobs, $job;
}
}

 

[ksbrace]

ok, thanks for the help on the unless. I'm now getting two compilation errors on the red lines.

syntax error at detectJobs.pl line 5, near "$item ("
syntax error at detectJobs.pl line 13, near "}"

[\code]
#!/bin/perl
@results = `ps -ef | grep jobd`;
@testJobs = ("aua_prod","aua_dev","alf_prod","alf_dev","bsc_prod","bsc_dev","cer_prod","cer_dev","cng_prod","cng_dev","can_prod","can_dev","del_prod","del_dev","eri_prod","eri_dev","fin_prod","fin_dev","fre_prod","fre_dev","gen_prod","gen_dev","gcc_prod","gcc_dev","jam_prod","jam_dev","jef_prod","jef_dev","mon_prod","mon_dev","one_prod","one_dev","pot_prod","pot_dev","pur_prod","pur_dev","rcc_prod","rcc_dev","sth_prod","sth_dev","sul_prod","sul_dev","uls_prod","uls_dev","exl_dev")

[COLOR=red]foreach $item (@results) {[/color]
  @runningJobs;
  $job = substr($item,-9,9);
  $job =~ s/^\s+(.*?)\s+$/$1/;
  $job =~ s/\s//g;
  push(@runningJobs,$job);
  &checkJobs(@runningJobs);
 print "@stoppedJobs \n" ;
[COLOR=red]}[/color]

sub checkJobs(@rJobs) {
    foreach $job (@testJobs){
      unless( grep /$job/, @rJobs ){
        push @stoppedJobs, $job;
      }
    }
}

 

[h011ywood]

ahh, i see what you mean now by stopping the loop
This should do it....

sub checkJobs{
my (@rJobs) = @_;
foreach $job (@testJobs){
unless( grep /$job/, @rJobs ){
push @stoppedJobs, $job;
}
}
}

 

[h011ywood]

semi colon after your @testJobs array.

 

[PaulTEG]

#!/bin/perl
@results = `ps -ef | grep jobd`;
@testJobs = ("aua_prod","aua_dev","alf_prod","alf_dev","bsc_prod","bsc_dev","cer_prod","cer_dev","cng_prod","cng_dev","can_prod",
"can_dev","del_prod","del_dev","eri_prod","eri_dev","fin_prod","fin_dev","fre_prod","fre_dev","gen_prod","gen_dev",
"gcc_prod","gcc_dev","jam_prod","jam_dev","jef_prod","jef_dev","mon_prod","mon_dev","one_prod","one_dev","pot_prod",
"pot_dev","pur_prod","pur_dev","rcc_prod","rcc_dev","sth_prod","sth_dev","sul_prod","sul_dev","uls_prod","uls_dev",
"exl_dev")
#would probably be best to read these jobs from an external file, so it can be updated by an external interface

foreach $item (@results) {
  @runningJobs;                   #what are you doing here, redeclaring an array?
  $job = substr($item,-9,9);      #the substr will be quicker than split
  $job =~ s/^\s+(.*?)\s+$/$1/;    # 
  $job =~ s/\s//g;                #
  push(@runningJobs,$job);        #

  &checkJobs(@runningJobs);
}

sub checkJobs(@rJobs) {
  $flag = false;
  foreach $job (@rJobs) {
    foreach $tjob (@testJobs) {
      if ($tjob eq $job) {
        push (@stoppedJobs, $job);
      }
    }
  }
}

Should do it

It's important in life to always strike a happy medium, so if you see someone with a crystal ball, and a smile on their face ...

 

[ksbrace]

Paul,
Thanks. are you saying I don't need to put the array declaration inside the foreach loop or I don't need the declaration at all?

 

[h011ywood]

#!/bin/perl
@results = `ps -ef | grep jobd`;
@runningJobs = ();
@testJobs = ("aua_prod","aua_dev","alf_prod","alf_dev","bsc_prod","bsc_dev","cer_prod","cer_dev","cng_prod","cng_dev","can_prod",
"can_dev","del_prod","del_dev","eri_prod","eri_dev","fin_prod","fin_dev","fre_prod","fre_dev","gen_prod","gen_dev",
"gcc_prod","gcc_dev","jam_prod","jam_dev","jef_prod","jef_dev","mon_prod","mon_dev","one_prod","one_dev","pot_prod",
"pot_dev","pur_prod","pur_dev","rcc_prod","rcc_dev","sth_prod","sth_dev","sul_prod","sul_dev","uls_prod","uls_dev",
"exl_dev"

foreach $item (@results) {
$job = substr($item,-9,9);
push(@runningJobs,$job);
}

&checkJobs(@runningJobs);

sub checkJobs() {
my (@rJobs) = @_;
foreach $job (@testJobs) {
unless(grep /$job/, @rJobs ){
push (@stoppedJobs, $job);
}
}
}
}

 

[ksbrace]

h011ywood,PaulTEG
Thanks a lot for your help!!! I really appreciate it. I still have to add the functionality to email the stoppedJobs to the person in charge of these jobs.

 

[PaulTEG]

Declare your array once, not redeclare for each item

Wuz al I waz sain'
--Paul

 

[ksbrace]

I keep getting this error:
Can't find string terminator "EOF" anywhere before EOF at detectJobs.pl line 48.

#!/usr/local/bin/perl
@results = `ps -ef | grep jobd`;
@testJobs = ("aua_prod","aua_dev","alf_prod","alf_dev","bsc_prod","bsc_dev","cer_prod","cer_dev","cng_prod","cng_dev","can_prod",
"can_dev","del_prod","del_dev","eri_prod","eri_dev","fin_prod","fin_dev","fre_prod","fre_dev","gen_prod","gen_dev",
"gcc_prod","gcc_dev","jam_prod","jam_dev","jef_prod","jef_dev","mon_prod","mon_dev","one_prod","one_dev","pot_prod",
"pot_dev","pur_prod","pur_dev","rcc_prod","rcc_dev","sth_prod","sth_dev","sul_prod","sul_dev","uls_prod","uls_dev",
"exl_dev","ksb_dev");
#would probably be best to read these jobs from an external file, so it can be updated by an external interface
@stoppedJobs = ();
@runningJobs = ();
$mailprogram = "/bin/mailx";
$sendto = "ksbrace@hotmail.com";
$from = "detectJobs.pl_script";
$subject = "Jobs are not running";

foreach $item (@results) {

  $job = substr($item,-9,9);      #the substr will be quicker than split
  $job =~ s/^\s+(.*?)\s+$/$1/;    #
  $job =~ s/\s//g;                #
  push(@runningJobs,$job);        #


}
&checkJobs(@runningJobs);
$numStoppedJobs = @stoppedJobs;
if(numStoppedJobs > 0 ) {
  sendMail();
print "@stoppedJobs \n";

sub checkJobs{
   my (@rJobs) = @_;
   foreach $job (@testJobs){
      unless( grep /$job/, @rJobs ){
         push @stoppedJobs, $job;
      }
   }
}

sub sendMail(){
  #-t option takes the headersfrom the lines following the mail
  #command -oi options prevent a period at the beginning of a line
  # from meaning end of input.
  open(MAIL, "|$mailprogram -t -oi") || die "Can't open mail program: $!\n";
  print MAIL "To: $sendto\n";
  print MAIL "From: $from\n";
  print MAIL "Subject: $subject\n\n";

print MAIL <<EOF; #start a &quot;here document&quot;

        The following are jobs that didn't start:
        @stoppedJobs;
        EOF
  close MAIL;
  
  }

 

[PaulTEG]

#!/usr/local/bin/perl
@results = `ps -ef | grep jobd`;
@testJobs = ("aua_prod","aua_dev","alf_prod","alf_dev","bsc_prod","bsc_dev","cer_prod","cer_dev","cng_prod","cng_dev","can_prod",
"can_dev","del_prod","del_dev","eri_prod","eri_dev","fin_prod","fin_dev","fre_prod","fre_dev","gen_prod","gen_dev",
"gcc_prod","gcc_dev","jam_prod","jam_dev","jef_prod","jef_dev","mon_prod","mon_dev","one_prod","one_dev","pot_prod",
"pot_dev","pur_prod","pur_dev","rcc_prod","rcc_dev","sth_prod","sth_dev","sul_prod","sul_dev","uls_prod","uls_dev",
"exl_dev","ksb_dev");
#would probably be best to read these jobs from an external file, so it can be updated by an external interface
@stoppedJobs = ();
@runningJobs = ();
$mailprogram = "/bin/mailx";
$sendto = "ksbrace@hotmail.com";
$from = "detectJobs.pl_script";
$subject = "Jobs are not running";

foreach $item (@results) {

  $job = substr($item,-9,9);      #the substr will be quicker than split
  $job =~ s/^\s+(.*?)\s+$/$1/;    #
  $job =~ s/\s//g;                #
  push(@runningJobs,$job);        #


}
&checkJobs(@runningJobs);
$numStoppedJobs = @stoppedJobs;
if(numStoppedJobs > 0 ) {
  sendMail();
  print "@stoppedJobs \n";
} #add this bracket

sub checkJobs{
   my (@rJobs) = @_;
   foreach $job (@testJobs){
      unless( grep /$job/, @rJobs ){
         push @stoppedJobs, $job;
      }
   }
}

sub sendMail() {
  #-t option takes the headersfrom the lines following the mail
  #command -oi options prevent a period at the beginning of a line
  # from meaning end of input.
  open(MAIL, "|$mailprogram -t -oi") || die "Can't open mail program: $!\n";
  print MAIL "To: $sendto\n";
  print MAIL "From: $from\n";
  print MAIL "Subject: $subject\n\n";

        print MAIL <<&quot;EOF&quot;; #use this one
#        print MAIL <<EOF;   #start a &quot;here document&quot;
        The following are jobs that didn't start:
        @stoppedJobs;
EOF
  close MAIL;
  
  }

There's a missing right bracket from your if statement, as well as the syntax

print MAIL <<&quot;EOF&quot;;

HTH
--Paul

 

[h011ywood]

Not sure what the problem is. I threw the print <<EOF into a piece of code, at the top. I ran it once, and it printed. I ran it again, and again, and now nothing prints, with the same error. You can always surround the code with &quot;&quot;'s. Its a solution.

 

[h011ywood]

Paul,

I tried that, still prints out the same error.

Hwood

 

[ksbrace]

ok, I got it to work, only to find out that sendmail isn't set up. I was told to switch to mailx.

#!/usr/local/bin/perl
@results = `ps -ef | grep jobd`;
@testJobs = ("aua_prod","aua_dev","alf_prod","alf_dev","bsc_prod","bsc_dev","cer_prod","cer_dev","cng_prod","cng_dev","can_prod",
"can_dev","del_prod","del_dev","eri_prod","eri_dev","fin_prod","fin_dev","fre_prod","fre_dev","gen_prod","gen_dev",
"gcc_prod","gcc_dev","jam_prod","jam_dev","jef_prod","jef_dev","mon_prod","mon_dev","one_prod","one_dev","pot_prod",
"pot_dev","pur_prod","pur_dev","rcc_prod","rcc_dev","sth_prod","sth_dev","sul_prod","sul_dev","uls_prod","uls_dev",
"exl_dev","ksb_dev");
#would probably be best to read these jobs from an external file, so it can be updated by an external interface
@stoppedJobs = ();
@runningJobs = ();
$mailprogram = "/usr/lib/sendmail";
$sendto = "kelly.brace@itec.mail.suny.edu";
$from = "kelly.brace@itec.mail.suny.edu";
$subject = "Jobs are not running";

foreach $item (@results) {

  $job = substr($item,-9,9);      #the substr will be quicker than split
  $job =~ s/^\s+(.*?)\s+$/$1/;    #
  $job =~ s/\s//g;                #
  push(@runningJobs,$job);        #


}
&checkJobs(@runningJobs);
$numStoppedJobs = @stoppedJobs;

if($numStoppedJobs > 0 ) {

  sendMail();
  print "sent mail";
}
print "@stoppedJobs \n";

sub checkJobs{
   my (@rJobs) = @_;
   foreach $job (@testJobs){
      unless( grep /$job/, @rJobs ){
         push @stoppedJobs, $job;
      }
   }
}

sub sendMail(){
  #-t option takes the headers from the lines following the mail
  #command -oi options prevent a period at the beginning of a line
  # from meaning end of input.
  open(MAIL, "|$mailprogram -t -oi") || die "Can't open mail program: $!\n";
  print MAIL "To: $sendto\n";
  print MAIL "From: $from\n";
  print MAIL "Subject: $subject\n\n";
  print MAIL <<EOF;
        &quot;The following are jobs that didn't start:
@stoppedJobs;
EOF
close(MAIL);
  }