Commit fb402d60 authored by bnachtw's avatar bnachtw
Browse files

typos, sm184 added

parent 5a443ef0
......@@ -7,7 +7,7 @@
# script for getting status of TSM-DB for Monitoring-Website
# 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
#
##############################################################################
......@@ -16,12 +16,14 @@
# date version remark
# 2014-08-12 0.9 initial coding
# 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 strict;
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
......@@ -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
##############################################################################
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
my $widewidth = 20;
my $midwidth = 15;
my $widewidth = 20;
my $midwidth = 15;
# # some threshold values
my $db_util_warn = 70;
my $db_util_crit = 95;
my $db_ext_warn = 10;
my $db_ext_crit = 5;
##############################################################################
##############################################################################
# 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;
printf STATFILE "<p style=\"font-family:monospace\">\n";
printf STATFILE "<HR NOSHADE>\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 "utilized (GB)" . "&nbsp;" x ($midwidth - length("utilized (GB)") + 1);
printf STATFILE "free (%%)" . "&nbsp;" x ($widewidth - length("free (%%)") + 0);
printf STATFILE "utilized (GB)" . "&nbsp;" x ($midwidth - length("utilized (GB)") + 1);
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 Backup" . "&nbsp;" x ($widewidth - length("Date of last Backup") + 1);
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