Added check_ora_sap_mounts.pl
Added check_ora_sap_mounts.pl
This commit is contained in:
Patrick Van der Veken
parent
4c8183722f
commit
8e1e5ebf90
169
check_ora_sap_mounts/check_ora_sap_mounts.pl
Normal file
169
check_ora_sap_mounts/check_ora_sap_mounts.pl
Normal file
@ -0,0 +1,169 @@
|
||||
#!/bin/env perl
|
||||
#******************************************************************************
|
||||
# @(#) check_ora_sap_mounts.pl
|
||||
#******************************************************************************
|
||||
# @(#) Copyright (C) 2012 by KUDOS BVBA <info@kudos.be>. All rights reserved.
|
||||
#
|
||||
# This program is a free software; you can redistribute it and/or modify
|
||||
# it under the same terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful, but WITHOUT
|
||||
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
|
||||
# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details
|
||||
#******************************************************************************
|
||||
# @(#) MAIN: check_ora_sap_mounts.pl
|
||||
# DOES: evaluates the mount options of the Oracle filesystems on remote systems
|
||||
# to those of a defined standard for HP-UX systems
|
||||
# EXPECTS: N/A
|
||||
# REQUIRES: N/A
|
||||
#******************************************************************************
|
||||
|
||||
#******************************************************************************
|
||||
# PRAGMA's & LIBRARIES
|
||||
#******************************************************************************
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
|
||||
#******************************************************************************
|
||||
# DATA structures
|
||||
#******************************************************************************
|
||||
|
||||
# ------------------------- CONFIGURATION starts here -------------------------
|
||||
# path to file containing list of database hosts to check
|
||||
my $hosts_list = '/root/myhosts.list';
|
||||
# common parent directory for SAP filesystems
|
||||
my $parent_dir = '/oracle';
|
||||
# path to output report file
|
||||
my $output_file = "/var/log/$0.lst";
|
||||
# oracle mount point standards
|
||||
my %standard_opts = (
|
||||
'ora_redo' => ['delaylog', 'nodatainlog', 'convosync=direct', 'mincache=direct', 'largefiles'],
|
||||
'sap_redo' => ['delaylog', 'nodatainlog', 'largefiles'],
|
||||
'ora_arch' => ['delaylog', 'nodatainlog', 'convosync=direct', 'mincache=direct', 'largefiles'],
|
||||
'ora_data' => ['delaylog', 'nodatainlog', 'convosync=direct', 'mincache=direct', 'largefiles'],
|
||||
'ora_prog' => ['delaylog', 'nodatainlog', 'largefiles'],
|
||||
'ora_fra' => ['delaylog', 'nodatainlog', 'convosync=direct', 'mincache=direct', 'largefiles'],
|
||||
'ora_ulog' => ['delaylog', 'nodatainlog', 'largefiles']
|
||||
);
|
||||
# ------------------------- CONFIGURATION ends here ---------------------------
|
||||
my %ora_mounts = ();
|
||||
my (@server_data, @mount_bits) = ();
|
||||
my ($remote_command, $server, $server_data);
|
||||
|
||||
|
||||
#******************************************************************************
|
||||
# MAIN routine
|
||||
#******************************************************************************
|
||||
|
||||
# -----------------------------------------------------------------------------
|
||||
# Get oracle mount point info on each server
|
||||
# -----------------------------------------------------------------------------
|
||||
|
||||
print "INFO: fetching mount info from remove servers ...\n";
|
||||
open (SRV_LIST, $hosts_file) or die ("ERROR: opening file: $!");
|
||||
while (<SRV_LIST>) {
|
||||
$server = $_;
|
||||
$server =~ s/\n//g;
|
||||
$remote_command = "/usr/sbin/mount | /usr/bin/grep -E -e '^".${parent_dir}."'";
|
||||
print "INFO: polling $server ...\n";
|
||||
@server_data = `ssh -q -o ConnectTimeout=10 $server $remote_command`;
|
||||
if (@server_data) {
|
||||
foreach $server_data (@server_data) {
|
||||
my $fs;
|
||||
chomp ($server_data);
|
||||
# take out the irrelevant bits (fields 0,2,3 kept)
|
||||
@mount_bits = split (/\s/, $server_data);
|
||||
$fs = $mount_bits[0];
|
||||
$ora_mounts{$server}{$fs} = $mount_bits[3];
|
||||
}
|
||||
} else {
|
||||
print "ERROR: no output returned from $server!\n"
|
||||
}
|
||||
}
|
||||
close (SRV_LIST);
|
||||
|
||||
# -----------------------------------------------------------------------------
|
||||
# Process collected mount info (serialized)
|
||||
# -----------------------------------------------------------------------------
|
||||
|
||||
print "INFO: checking mount options for all Oracle FS (see: $output_file) ...\n";
|
||||
open (ORA_MOUNTS, ">$output_file") or die ("ERROR: opening file: $!");
|
||||
foreach my $server (sort keys %ora_mounts) {
|
||||
foreach my $fs (sort keys %{$ora_mounts{$server}}) {
|
||||
my ($fs_type, $all_opts);
|
||||
my (@mount_opts, @all_opts, @only_in_standard, @only_in_mount);
|
||||
my $only_in_standard = ''; my $only_in_mount = '';
|
||||
my (%only_standard_tmp, %only_mount_tmp);
|
||||
|
||||
# which kind of FS is it?
|
||||
if ($fs =~ m#${parent_dir}/.*/[0-9]+#) {
|
||||
$fs_type = 'ora_prog';
|
||||
} elsif ($fs =~ m#${parent_dir}/.*/(ora|sap)arch# || $fs =~ m#${parent_dir}/.*/buffer#
|
||||
|| $fs =~ m#${parent_dir}/(ora|sap)arch/.*#) {
|
||||
$fs_type = 'ora_arch';
|
||||
} elsif ($fs =~ m#${parent_dir}/(.*)/origlogA# || $fs =~ m#${parent_dir}/(.*)/origlogB#
|
||||
|| $fs =~ m#${parent_dir}/(.*)/mirrlogA# || $fs =~ m#${parent_dir}/(.*)/mirrlogB#
|
||||
|| $fs =~ m#${parent_dir}/oraredo/(.*)#) {
|
||||
# SAP or Oracle instance?
|
||||
if (defined ($1)) {
|
||||
if (length ($1) == 3) {
|
||||
$fs_type = 'sap_redo';
|
||||
} else {
|
||||
$fs_type = 'ora_redo';
|
||||
}
|
||||
} else {
|
||||
$fs_type = 'ora_redo';
|
||||
}
|
||||
} elsif ($fs =~ m#${parent_dir}/.*data.*#) {
|
||||
$fs_type = 'ora_data';
|
||||
} elsif ($fs =~ m#${parent_dir}/.*/orafra# || $fs =~ m#${parent_dir}/orafra/.*#) {
|
||||
$fs_type = 'ora_fra';
|
||||
|
||||
} else {
|
||||
$fs_type = 'unknown';
|
||||
}
|
||||
|
||||
# check against standard
|
||||
if ($fs_type eq 'unknown') {
|
||||
print ORA_MOUNTS "$server:$fs:$fs_type:NOT_CHECKED:$ora_mounts{$server}{$fs}\n";
|
||||
} else {
|
||||
@all_opts = split (/,/, $ora_mounts{$server}{$fs});
|
||||
# discard irrelevant opts for comparison
|
||||
foreach $all_opts (@all_opts) {
|
||||
unless ($all_opts =~ /ioerror=.*/ || $all_opts =~ /dev=.*/) {
|
||||
push (@mount_opts, $all_opts);
|
||||
}
|
||||
}
|
||||
%only_standard_tmp = map {$_=>1} @mount_opts;
|
||||
@only_in_standard = grep { !$only_standard_tmp{$_} } @{$standard_opts{$fs_type}};
|
||||
if (@only_in_standard) {
|
||||
foreach my $entry (@only_in_standard) { $only_in_standard .= $entry."(-)," };
|
||||
}
|
||||
chop ($only_in_standard) if ($only_in_standard);
|
||||
|
||||
%only_mount_tmp = map {$_=>1} @{$standard_opts{$fs_type}};
|
||||
@only_in_mount = grep { !$only_mount_tmp{$_} } @mount_opts;
|
||||
if (@only_in_mount) {
|
||||
foreach my $entry (@only_in_mount) { $only_in_mount .= $entry."(+)," };
|
||||
}
|
||||
chop ($only_in_mount) if ($only_in_mount);
|
||||
|
||||
if (@only_in_standard || @only_in_mount) {
|
||||
print ORA_MOUNTS "$server:$fs:$fs_type:NOK:$only_in_standard:$only_in_mount\n";
|
||||
} else {
|
||||
print ORA_MOUNTS "$server:$fs:$fs_type:OK\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
close (ORA_MOUNTS);
|
||||
|
||||
exit (0);
|
||||
|
||||
#******************************************************************************
|
||||
# END of script
|
||||
#******************************************************************************
|
||||
Loading…
x
Reference in New Issue
Block a user