FilesExpand file tree

 master

/

load.pl

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

37 lines (30 loc) · 1.23 KB

 master

/

load.pl

Top

File metadata and controls

• Code
• Blame

37 lines (30 loc) · 1.23 KB

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

#!/usr/local/bin/perl -w

use strict;

use Sys::Hostname;

###############################################

# #

# Check for data load calc times #

# #

# Martin Colello #

# 08/08/2012 #

# #

###############################################

chomp(my $server = hostname());

chomp(my $gl = `cat /opt/Hyperion/data/planning/SapPBU/logs/SapPBU_GL_load.log | grep SapAggGL.csc`);

chomp(my $skf = `cat /opt/Hyperion/data/planning/SapPBU/logs/SapPBU_SKF_load.log | grep SapAggST.csc`);

chomp(my $date = `date`);

my $color = 'green'; # Set default status to green.

my $test = 'load';

my $results = "\n\n";

$results .= "Calc Times\n\n";

$gl =~ /\[(\d+\.\d+)\]/;

$gl = $1;

$skf =~ /\[(\d+\.\d+)\]/;

$skf = $1;

$results .= "gl : $gl\n";

$results .= "skf : $skf\n";

$results .= "\n\n";

my $machine = "$server,amkor,com";

my $line = "status $machine.$test $color $results";

#print "$line\n";

system("echo \"$line\" | /usr/local/admin/scripts/hobbit/send_to_hobbit.ksh");