Commit fb402d60 authored by bnachtw's avatar bnachtw
Browse files

typos, sm184 added

parent 5a443ef0
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
# script for getting status of TSM-DB for Monitoring-Website # script for getting status of TSM-DB for Monitoring-Website
# DB2 based TSM / ISP only # DB2 based TSM / ISP only
# #
# (C) 2014 GWD Göttingen, Bjørn Nachtwey # (C) 2014 -2018 GWD Göttingen, Bjørn Nachtwey
# mailto:bjoern.nachtwey@gwdg.de # mailto:bjoern.nachtwey@gwdg.de
# #
############################################################################## ##############################################################################
...@@ -16,12 +16,14 @@ ...@@ -16,12 +16,14 @@
# date version remark # date version remark
# 2014-08-12 0.9 initial coding # 2014-08-12 0.9 initial coding
# 2017-03-09 0.9.5 removed parts for TSM5, moved constants to top of file # 2017-03-09 0.9.5 removed parts for TSM5, moved constants to top of file
# 2018-01-10 0.9.5.1 typos, sm184 and TSM-MI added
# #
############################################################################## ##############################################################################
use warnings; use warnings;
use strict; use strict;
use Time::Piece; use Time::Piece;
############################################################################## ##############################################################################
############################################################################## ##############################################################################
# F I L L I N Y O U R S E T T I N G S H E R E # F I L L I N Y O U R S E T T I N G S H E R E
...@@ -42,16 +44,17 @@ my $outputpath = "/TSM/Monitoring/www/Serverstatus/databasestatus.html"; ...@@ -42,16 +44,17 @@ my $outputpath = "/TSM/Monitoring/www/Serverstatus/databasestatus.html";
############################################################################## ##############################################################################
# F U R T H E R S E T T I N G S # F U R T H E R S E T T I N G S
############################################################################## ##############################################################################
my @serverlist = qw /tsm110 tsm112 tsm113 tsm130 tsm131 tsm180 tsm182 tsm230 tsm231 tsm232 tsm233 tsm234 lm101 lm201/; # list of new servers my @serverlist = qw /tsm110 tsm112 tsm113 tsm130 tsm131 tsm180 tsm182 tsm184 tsm230 tsm231 tsm232 tsm233 tsm234 lm101 lm201 lm202 tsm-mi/; # list of new servers
# # some settings for tabbed output # # some settings for tabbed output
my $widewidth = 20; my $widewidth = 20;
my $midwidth = 15; my $midwidth = 15;
# # some threshold values # # some threshold values
my $db_util_warn = 70; my $db_util_warn = 70;
my $db_util_crit = 95; my $db_util_crit = 95;
my $db_ext_warn = 10; my $db_ext_warn = 10;
my $db_ext_crit = 5; my $db_ext_crit = 5;
############################################################################## ##############################################################################
############################################################################## ##############################################################################
# E N D O F S E T T I N G S # E N D O F S E T T I N G S
...@@ -114,10 +117,10 @@ printf STATFILE "TSM Server State -- Database: %s</CENTER></FONT></P>\n", $date; ...@@ -114,10 +117,10 @@ printf STATFILE "TSM Server State -- Database: %s</CENTER></FONT></P>\n", $date;
printf STATFILE "<p style=\"font-family:monospace\">\n"; printf STATFILE "<p style=\"font-family:monospace\">\n";
printf STATFILE "<HR NOSHADE>\n"; printf STATFILE "<HR NOSHADE>\n";
printf STATFILE "<FONT COLOR=\"#000000\" FACE=\"monospace\" SIZE=\"4\">\n"; printf STATFILE "<FONT COLOR=\"#000000\" FACE=\"monospace\" SIZE=\"4\">\n";
printf STATFILE "Servername" . "&nbsp;" x ($widewidth - length("Serverame") + 1); printf STATFILE "Servername" . "&nbsp;" x ($widewidth - length("Serverame") + 1);
printf STATFILE "current size (GB)" . "&nbsp;" x ($widewidth - length("current size (GB)") + 1); printf STATFILE "current size (GB)" . "&nbsp;" x ($widewidth - length("current size (GB)") + 1);
printf STATFILE "utilized (GB)" . "&nbsp;" x ($midwidth - length("utilized (GB)") + 1); printf STATFILE "utilized (GB)" . "&nbsp;" x ($midwidth - length("utilized (GB)") + 1);
printf STATFILE "free (%%)" . "&nbsp;" x ($widewidth - length("free (%%)") + 0); printf STATFILE "free (%%)" . "&nbsp;" x ($widewidth - length("free (%%)") + 0);
printf STATFILE "Date of last ReOrg" . "&nbsp;" x ($widewidth - length("Date of last ReOrg") + 1); printf STATFILE "Date of last ReOrg" . "&nbsp;" x ($widewidth - length("Date of last ReOrg") + 1);
printf STATFILE "Date of last Backup" . "&nbsp;" x ($widewidth - length("Date of last Backup") + 1); printf STATFILE "Date of last Backup" . "&nbsp;" x ($widewidth - length("Date of last Backup") + 1);
printf STATFILE "<br>" . "\n"; printf STATFILE "<br>" . "\n";
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment