2012-01-27 14:58:33 +00:00
#!/usr/bin/perl -w
2012-04-10 16:52:25 +00:00
# (c) 2012 Joerg Mann / 1&1 Internet AG
2012-01-27 14:58:33 +00:00
#
2012-12-19 15:31:27 +00:00
# $Id: 219590ee4375f5c41f13f0b277146c9bf0ff94bf $
2012-08-17 11:23:40 +00:00
# last update at now ...
2012-01-27 14:58:33 +00:00
# TODO:
2012-09-28 12:27:08 +00:00
# check todo-global delete-logfiles
2012-12-05 15:53:59 +00:00
# check nachtaegliches join (log-v-4 ...), resize, delay, statusvalues
2012-09-28 12:27:08 +00:00
# check monitoring -> redesign statuscodes
2012-01-27 14:58:33 +00:00
2012-12-05 15:53:59 +00:00
# 20121201 - redesign debug-files and -messages
2012-12-13 15:02:37 +00:00
# 20121204 - add display todo counter
# 20121205 - add/update system entrys
# 20121206 - upgrade LogDelay/LogSpeed
# 20121210 - optimize same code
2012-12-19 15:31:27 +00:00
# 20121217 - resign versionlink, remove delay
# 20121219 - small fixes and layout
2012-12-05 15:53:59 +00:00
2012-01-27 14:58:33 +00:00
###
use warnings;
use strict;
use English;
2012-02-15 18:11:47 +00:00
use Getopt::Long;
2012-01-27 14:58:33 +00:00
use Term::ANSIColor;
2012-02-15 18:11:47 +00:00
use Date::Language;
2012-02-22 14:52:02 +00:00
use POSIX qw(strftime);
2012-06-08 09:16:55 +00:00
use File::Basename;
2012-01-27 14:58:33 +00:00
### defaults
2012-12-19 15:31:27 +00:00
my $version = "0.070-27";
my $alife_timeout = "30"; # sec for remote-nodes timeout
2012-09-28 12:27:08 +00:00
my $is_tty = 0;
my $mars_dir = '/mars';
my $himself = `uname -n` or die "cannot determine my network node name\n";
my $clearscreen = `clear`;
my $StatusCode = 'UpToDate';
my @StatusText = ();
my $NodeStatusCode = 'UpToDate';
my @NodeStatusText = ();
2012-01-27 14:58:33 +00:00
chomp $himself;
2012-12-19 15:31:27 +00:00
my $Color_blue = 'yellow';
my $Color_green = 'green';
2012-01-27 14:58:33 +00:00
### ARGV
2012-02-15 18:11:47 +00:00
# Optionen in Hash-Ref parsen
my $params = {};
2012-12-13 15:33:53 +00:00
GetOptions( $params, 'help', 'h', 'version', 'v', 'monitor', 'role', 'cstate', 'dstate', 'resource=s', 'system', 'interval=i', 'history', 'debug' );
2012-04-10 16:52:25 +00:00
2012-09-28 12:27:08 +00:00
### small help
sub display_help {
my $HelpText = shift;
print "$HelpText\n\n" if ($HelpText);
2012-06-05 14:34:37 +00:00
print "Usage: mars-status [--help]\n";
print "Usage: mars-status [--version]\n";
print "Usage: mars-status (without specification of parameters, an abstract of all the informations spent)\n";
2012-12-13 15:02:37 +00:00
print "Usage: mars-status [--resource <RESNAME>] [--interval <seconds>] | [--history] | [--debug ] | [--system]\n";
2012-09-28 12:27:08 +00:00
print "Usage: mars-status [--resource <RESNAME>] --monitor \n";
print "Usage: mars-status --resource <RESNAME> [--role | --cstate | --dstate]\n";
2012-06-05 14:34:37 +00:00
print " --resource : limits the display to the specified resource\n";
print " --interval : refreshes the display every second xxx\n";
print " --history : shows information about the log files, version numbers and their status\n";
2012-09-28 12:27:08 +00:00
print " --system : display mars-system informations\n";
2012-12-13 15:02:37 +00:00
print " --monitor : indicator to use for monitoring on all state (by local node only !)\n";
2012-09-28 12:27:08 +00:00
print " --role|--cstate|--dstate single state on lokal node\n";
2012-12-19 15:31:27 +00:00
print " --debug : additional display debug messages\n\n";
print "Usage small include rotate : mars-status --interval 2\n";
print "Usage monitoring : mars-status --monitor\n";
print "Usage monitoring drbd-linke : mars-status --cstate (or --dstate or --role)\n";
print "Usage full, include debug : mars-status --system --history --debug\n\n";
print "Advanced information are also available here: http://http://wiki.intranet.1and1.com/ ->ProjektTEC1603 ->TECITO.1735 -> MARS\n";
2012-06-05 14:34:37 +00:00
exit;
2012-02-15 18:11:47 +00:00
}
2012-09-28 12:27:08 +00:00
if($params->{help} || $params->{h} ) {
display_help;
}
2012-02-15 18:11:47 +00:00
# Farbe zuruecksetzen
$SIG{INT} = sub {
2012-06-05 14:34:37 +00:00
print color 'reset';
print $clearscreen;
exit;
2012-02-15 18:11:47 +00:00
};
2012-09-28 12:27:08 +00:00
#########################################################################################
2012-01-27 14:58:33 +00:00
### figure out TTY
my $tty = readlink '/dev/stdout';
while ( my $temp = readlink $tty ) {
2012-06-05 14:34:37 +00:00
$tty = $temp;
2012-01-27 14:58:33 +00:00
}
if ( $tty =~ /^\/dev\/pts\// ) {
2012-06-05 14:34:37 +00:00
$is_tty = 1;
2012-01-27 14:58:33 +00:00
} elsif ( $tty =~ /^\/dev\/tty/ ) {
2012-06-05 14:34:37 +00:00
$is_tty = 1;
2012-01-27 14:58:33 +00:00
}
2012-09-28 12:27:08 +00:00
2012-12-13 15:02:37 +00:00
#########################################################################################
2012-01-27 14:58:33 +00:00
### print color
2012-06-05 14:34:37 +00:00
sub print_screen {
2012-09-28 12:27:08 +00:00
my $Text = shift;
my $Color = shift;
my $Level = shift;
### default
if ( !$params->{'monitor'} && !$Level ){
$Color = 'FAINT' if (!$Color);
print color "$Color" if ( $is_tty );
print "$Text";
print color 'reset' if ( $is_tty );
2012-06-08 09:16:55 +00:00
2012-09-28 12:27:08 +00:00
### monitor
} elsif ( $params->{'monitor'} && $Level ) {
if ( $params->{'role'} && $Level eq 'Rmonitor' ) {
print "$Text\n";
exit;
} elsif ( $params->{'dstate'} && $Level eq 'Dmonitor' ) {
print "$Text\n";
exit;
} elsif ( $params->{'cstate'} && $Level eq 'Cmonitor' ) {
print "$Text\n";
exit;
} elsif ( !$params->{'role'} && !$params->{'dstate'} && !$params->{'cstate'}) {
print "$Text\n";
2012-06-08 09:16:55 +00:00
}
}
2012-01-27 14:58:33 +00:00
}
2012-09-28 12:27:08 +00:00
2012-12-13 15:02:37 +00:00
#########################################################################################
### read link
sub check_link {
my $dir = shift;
my $result = readlink $dir;
if ( !$result ) {
return 0;
} else {
return $result;
}
}
#########################################################################################
2012-01-27 14:58:33 +00:00
### read links
sub convert_link {
2012-06-05 14:34:37 +00:00
my $link = shift;
2012-12-13 15:02:37 +00:00
$link = check_link "$link";
2012-06-08 09:16:55 +00:00
if (( !$link ) || ( $link eq 0 )) {
2012-06-05 14:34:37 +00:00
print_screen "off", 'red';
} else {
2012-12-19 15:31:27 +00:00
print_screen "on", "$Color_green";
2012-06-05 14:34:37 +00:00
}
return $link;
2012-01-27 14:58:33 +00:00
}
2012-09-28 12:27:08 +00:00
2012-12-13 15:02:37 +00:00
#########################################################################################
2012-09-28 12:27:08 +00:00
### StatusCode
sub monitoring {
my $Code = shift;
my $Text = shift;
# UpToDate - eishokey
# UpDateIng - worker
# OutDate - replaying
# InvaliDate - syncing
# SwitchOff - SwitchOff
# Failed - system, network, uae.
# unknown - not joined
$Code = "UpToDate" if ( $Code eq '' );
# global
if ( $StatusCode ne 'UpToDate') {
$StatusCode = $Code;
}
# local-node
if ( $Code ne 'UpToDate' ) {
$NodeStatusCode = $Code;
}
push @StatusText, $Text;
push @NodeStatusText, $Text;
}
2012-01-27 14:58:33 +00:00
#########################################################################################
### sub display resource-partner
sub display_partner {
2012-12-13 15:02:37 +00:00
my %p = @_;
my $PRes = $p{ressource};
my $PName = $p{nodename};
my $PSize = $p{ressource_size};
my $ref_ResPartner = $p{res_partner};
my $ref_AULogfile = $p{res_AULogfile};
my $PStatus = check_link "$mars_dir/$PRes/primary";
my $PDevice = check_link "$mars_dir/$PRes/device-$PName";
my $Ljoined = check_link "$mars_dir/$PRes/device-$himself";
2012-06-05 14:34:37 +00:00
2012-12-13 15:02:37 +00:00
##########################################################################
### check status
2012-06-05 14:34:37 +00:00
if ( $PStatus eq $PName ) {
2012-12-19 15:31:27 +00:00
print_screen "Primary", "$Color_blue";
2012-09-28 12:27:08 +00:00
print_screen "Primary [$PRes on $PName]",'', 'Rmonitor';
monitoring '', "joined";
2012-06-05 14:34:37 +00:00
} else {
2012-01-27 14:58:33 +00:00
if ( $PDevice eq 0 ) {
2012-09-28 12:27:08 +00:00
print_screen "not joined",'red';
print_screen "not joined\n",'', 'Rmonitor';
print_screen " -> Resource is not joined to this node\n", 'red';
2012-12-13 15:02:37 +00:00
monitoring "unknown", "not joined";
2012-09-28 12:27:08 +00:00
return;
2012-06-05 14:34:37 +00:00
} else {
2012-12-19 15:31:27 +00:00
print_screen "Secondary", "$Color_blue";
2012-09-28 12:27:08 +00:00
print_screen "Secondary [$PRes on $PName]",'', 'Rmonitor';
2012-12-13 15:02:37 +00:00
monitoring "", "joined";
2012-01-27 14:58:33 +00:00
}
2012-06-05 14:34:37 +00:00
}
2012-09-28 12:27:08 +00:00
2012-12-13 15:02:37 +00:00
##########################################################################
### check alive
2012-06-05 14:34:37 +00:00
my @PAlive = lstat("$mars_dir/alive-$PName");
2012-12-13 15:02:37 +00:00
if ( !$PAlive[9] ) { $PAlive[9] = 0 };
2012-06-05 14:34:37 +00:00
my $PAlive = time()- $PAlive[9] - $alife_timeout;
2012-09-28 12:27:08 +00:00
print_screen ", System", '';
2012-06-05 14:34:37 +00:00
if ( $PAlive > 1 ) {
2012-09-28 12:27:08 +00:00
print_screen " unknown (last message before $PAlive sec) !!!\n", 'red';
2012-12-13 15:02:37 +00:00
monitoring "Failed", "not alive"
2012-06-05 14:34:37 +00:00
} else {
2012-12-19 15:31:27 +00:00
print_screen " alive\n", "$Color_green";
2012-12-13 15:02:37 +00:00
monitoring "", "alive";
2012-06-05 14:34:37 +00:00
}
2012-09-28 12:27:08 +00:00
2012-12-13 15:02:37 +00:00
##########################################################################
### check device
2012-09-28 12:27:08 +00:00
print_screen "\tDevices : Disk-Device ".check_link "$mars_dir/$PRes/data-$PName";
print_screen ", used as Mars-Device /dev/mars/$PDevice";
my $ASize = check_link "$mars_dir/$PRes/actsize-$PName";
if ( $PSize eq $ASize) {
print_screen ", not resized";
} else {
print_screen "\n\t\t---> HINT: resizing used ($PSize != $ASize)",'red';
}
2012-08-17 11:23:40 +00:00
2012-09-28 12:27:08 +00:00
2012-12-13 15:02:37 +00:00
##########################################################################
### check mountpint
2012-09-28 12:27:08 +00:00
if ( $himself eq $PName ) {
my $PUDevice = "/dev/mars/$PDevice";
if ( stat( $PUDevice) ) {
open my $fh, '<', '/proc/mounts' or die $!;
$PUDevice = ( grep { /^$PUDevice / } <$fh> )[0];
if ( $PUDevice ) {
$PUDevice = ( split / /, $PUDevice )[1];
2012-12-19 15:31:27 +00:00
print_screen " and mountet as $PUDevice\n", "$Color_blue";
2012-09-28 12:27:08 +00:00
} else {
2012-12-19 15:31:27 +00:00
print_screen "\n\t\t---> TODO: enable to mount\n", "$Color_green";
2012-09-28 12:27:08 +00:00
}
} else {
2012-12-19 15:31:27 +00:00
print_screen "\n\t\t---> HINT: unable to mount, Device is Secondary or mars is starting\n", "$Color_blue";
2012-09-28 12:27:08 +00:00
}
} else {
print_screen "\n";
2012-06-05 14:34:37 +00:00
}
$$ref_ResPartner++;
2012-12-13 15:02:37 +00:00
##########################################################################
### check sync
2012-09-28 12:27:08 +00:00
### sync - status
2012-08-17 11:23:40 +00:00
my $PSyncsize = check_link "$mars_dir/$PRes/syncstatus-$PName";
2012-12-13 15:02:37 +00:00
my $SStatus = sprintf("%.2f", ($PSyncsize / $PSize * 100));
2012-09-28 12:27:08 +00:00
print_screen (sprintf "\tSync : %s bytes (%.3fTB) synced = ", $PSyncsize, ( $PSyncsize/1024/1024/1024/1024));
### sync - speed
2012-12-13 15:02:37 +00:00
my $SSpeed = check_link "$mars_dir/$PRes/actual-$PName/sync_rate";
$SSpeed = sprintf ("%.2f", $SSpeed / 1024 / 1024);
2012-09-28 12:27:08 +00:00
if ( $SSpeed eq "0.00" ) {
$SSpeed = "%";
} else {
$SSpeed = "%, by $SSpeed mb/s";
}
### sync - results
if ( $SStatus < 100) {
print_screen "$SStatus$SSpeed\n";
print_screen "\t\t---> WORK: Sync in progress = ($SStatus% < 100.00%)\n", 'red';
2012-12-13 15:02:37 +00:00
monitoring "InvaliDate", "not in sync ($SStatus%)";
2012-09-28 12:27:08 +00:00
} else {
2012-12-19 15:31:27 +00:00
print_screen "$SStatus$SSpeed\n", "$Color_green";
2012-12-13 15:02:37 +00:00
monitoring "", "synced";
2012-08-17 11:23:40 +00:00
}
2012-09-28 12:27:08 +00:00
2012-12-13 15:02:37 +00:00
##########################################################################
2012-09-28 12:27:08 +00:00
### TODO: work by resize ...
#print "\n$PSize\n$PSyncsize\n$PName";
2012-08-17 11:23:40 +00:00
2012-12-13 15:02:37 +00:00
##########################################################################
### check logfile
2012-09-28 12:27:08 +00:00
### logfile - status
2012-06-05 14:34:37 +00:00
my @PLogFile = split (',', check_link "$mars_dir/$PRes/replay-$PName" );
my @PLogLink = split ("-", $PLogFile[0]);
2012-12-13 15:02:37 +00:00
### TODO: kein Logfile vorhanden ... mmh.
2012-06-05 14:34:37 +00:00
my $PLogName = "$PLogLink[0]-$PLogLink[1]";
my $PLogSize = -s "$mars_dir/$PRes/$PLogFile[0]";
2012-09-28 12:27:08 +00:00
if ( !$PLogFile[1] ) {
$PLogFile[1] = 0; $PLogFile[2] = 0;
}
2012-12-13 15:02:37 +00:00
$PLogSize = 0.0001 if (( !$PLogSize ) || ( $PLogSize eq 0 ));
2012-09-28 12:27:08 +00:00
my $LogSpeed = check_link "$mars_dir/$PRes/actual-$PName/file_rate";
2012-12-13 15:02:37 +00:00
$LogSpeed = sprintf ("%.2f", $LogSpeed / 1024 / 1024);
2012-12-19 15:31:27 +00:00
# ### logfile - delaytime
# my $LogDelay = "0.000000000";
# my $NewLogDelay = "0.000000000";
# my @LogDelayLink = lstat ("$mars_dir/$PRes/actual-$PName/timestamp");
# my @LogDelayTime = split (',', check_link "$mars_dir/$PRes/actual-$PName/timestamp");
2012-12-13 15:02:37 +00:00
2012-12-19 15:31:27 +00:00
# ### offset replay
# if (( $LogDelayTime[4] ) && ( $LogDelayTime[4] ne '0.000000000' )) {
# $LogDelay = $LogDelayLink[9] - $LogDelayTime[4];
# }
# ### offset newer logfile
# if ( ( $ref_AULogfile ) && !($PLogName eq $ref_AULogfile) ) {
# my @NewLogDelay = `ls $mars_dir/$PRes/$ref_AULogfile*`;
# $NewLogDelay[0] =~ s/\n//;
# @NewLogDelay = stat ("$NewLogDelay[0]");
# #$NewLogDelay = $NewLogDelay[9];
# $LogDelay = $LogDelayLink[9] - $NewLogDelay[9];
# }
# $LogDelay = strftime("%H:%M:%S", gmtime($LogDelay));
2012-12-13 15:02:37 +00:00
#print "*ld $LogDelay\n";
#print "#dl9 lstat - $LogDelayLink[9] - ".gmtime($LogDelayLink[9])."\n";
#print "#dl @LogDelayLink\n";
#print "#dt4 link - $LogDelayTime[4] - ".gmtime($LogDelayTime[4])."\n";
#print "#dt @LogDelayTime\n";
#print "#nl $NewLogDelay\n";
2012-12-19 15:31:27 +00:00
# ### log delay monitoring
# my $LogDelayMonitor = $LogDelay;
# my ($h,$m,$s) = split /:/, $LogDelayMonitor;
# $LogDelayMonitor = (($h*3600) + ($m*60) + $s);
# if ( $LogDelayMonitor eq 0 ) { # 0
# monitoring "UpToDate", "Delay $LogDelayMonitor sec";
# } elsif ( $LogDelayMonitor < 60 ) { # unter 1 min
# monitoring "UpDateIng", "Delay $LogDelayMonitor sec";
# } else { # rest
# monitoring "OutDate", "Delay $LogDelayMonitor sec";
# }
2012-09-28 12:27:08 +00:00
### logfile - results
2012-12-13 15:02:37 +00:00
print_screen (sprintf "\tLogfile : %s bytes (%.3fGB) in ", $PLogSize, ( $PLogSize/1024/1024/1024 ));
2012-12-19 15:31:27 +00:00
print_screen "$PLogName", "$Color_green";
2012-12-13 15:02:37 +00:00
print_screen " active";
print_screen ", received with $LogSpeed mb/s" if ( $LogSpeed ne "0.00" );
2012-12-19 15:31:27 +00:00
# print_screen ", Delay roughly $LogDelay - but not really sure ;)" if ( $LogDelay ne "00:00:00" );
2012-12-13 15:02:37 +00:00
print_screen "\n";
2012-09-28 12:27:08 +00:00
if ( $Ljoined eq "0" || $PLogSize eq "0.0001" ) {
print_screen "\t\t---> WORK: Logfile empty = (Size: $PLogSize)\n", 'red';
}
if ( ( $ref_AULogfile ) && !($PLogName eq $ref_AULogfile) ) {
print_screen "\t\t---> HINT: Logfile Version not actual = ($PLogName ! $ref_AULogfile)\n", 'red';
2012-06-05 14:34:37 +00:00
}
2012-01-27 14:58:33 +00:00
2012-12-13 15:02:37 +00:00
##########################################################################
### check replay ...
2012-09-28 12:27:08 +00:00
### replay - status
2012-06-05 14:34:37 +00:00
my $RStatus = sprintf("%.2f", ( $PLogFile[1] / $PLogSize * 100));
2012-12-13 15:02:37 +00:00
$RStatus = 0 if ( $Ljoined eq "0" || $PLogSize eq "1" );
$RStatus = 99.99 if (( $PLogFile[1] ne $PLogSize ) && ( $RStatus eq "100.00" ));
2012-09-28 12:27:08 +00:00
print_screen sprintf ("\tReplayed: %s bytes (%.3fGB) now replayed, Todo %d (%.3fGB) = ",
$PLogFile[1], ( $PLogFile[1]/1024/1024/1024 ), $PLogFile[2], ( $PLogFile[2]/1024/1024/1024 ));
### replay - speed
2012-12-19 15:31:27 +00:00
my $RSpeed = check_link "$mars_dir/$PRes/actual-$PName/replay_rate";
$RSpeed = sprintf ("%.2f", $RSpeed / 1024 / 1024);
2012-09-28 12:27:08 +00:00
if ( $RSpeed eq "0.00" ) {
$RSpeed = "%";
} else {
$RSpeed = "%, by $RSpeed mb/s";
}
2012-08-17 11:23:40 +00:00
2012-09-28 12:27:08 +00:00
### replay - results
if (( $RStatus < 1 ) && ( $PLogSize != 0.0001 )) {
print_screen "$RStatus$RSpeed\n";
print_screen "\t\t---> HINT: Replay not started, Logfile inactive = (Size: $PLogSize)\n", 'red';
monitoring "OutDate", "replay stopped";
2012-08-17 11:23:40 +00:00
2012-09-28 12:27:08 +00:00
} elsif (( $RStatus < 100 ) && ( $PLogSize != 0.0001 )) {
print_screen "$RStatus$RSpeed\n";
print_screen "\t\t---> WORK: Replay in progress = ($RStatus% < 100.00%)\n", 'red';
monitoring "UpDateIng", "replay running1";
2012-08-17 11:23:40 +00:00
2012-09-28 12:27:08 +00:00
} elsif ( $PLogFile[2] > 0 ) {
$RStatus = sprintf("%.2f", ($PLogFile[1]-$PLogFile[2])/$PLogFile[1] * 100);
print_screen "$RStatus$RSpeed\n", 'red';
monitoring "UpDateIng", "replay running2";
2012-01-27 14:58:33 +00:00
2012-09-28 12:27:08 +00:00
} elsif ( $PLogSize = 0.0001 ) {
$RStatus = "100.00";
2012-12-19 15:31:27 +00:00
print_screen "$RStatus$RSpeed\n", "$Color_green";
2012-09-28 12:27:08 +00:00
monitoring '', "replay wait";
2012-06-05 14:34:37 +00:00
2012-09-28 12:27:08 +00:00
} else {
2012-12-19 15:31:27 +00:00
print_screen "$RStatus% $RSpeed\n", "$Color_green";
2012-09-28 12:27:08 +00:00
monitoring '', "replaying";
}
2012-01-27 14:58:33 +00:00
2012-12-05 15:53:59 +00:00
### replay - hints
if ($PLogFile[2] != 0) {
2012-12-19 15:31:27 +00:00
print_screen "\t\t---> HINT: Replay-Todo is actualy $PLogFile[2], ", "$Color_blue";
2012-12-05 15:53:59 +00:00
if ( $PLogFile[2] < 0 ) {
print_screen "replaying backwards ??? Check this !!!\n", 'red';
} elsif ( $PLogFile[2] > 0 ) {
print_screen "mars it's working ...\n";
} else {
print_screen "replaying working unknown ... Check this !!!\n", 'red';
}
}
2012-06-05 14:34:37 +00:00
2012-12-13 15:02:37 +00:00
##########################################################################
### check actual
2012-09-28 12:27:08 +00:00
my $ActStatus = check_link "$mars_dir/$PRes/actual-$PName/is-primary";
if ( $ActStatus eq 1 ) {
print_screen "\tActual : Status=Primary, used Device=";
convert_link "$mars_dir/$PRes/actual-$PName/device-$PDevice";
print_screen "\n";
} else {
print_screen "\tActual : Status=Secondary, Syncstatus=";
convert_link "$mars_dir/$PRes/actual-$PName/copy-syncstatus-$PName";
print_screen ", Logfileupdate=";
convert_link "$mars_dir/$PRes/actual-$PName/logfile-update";
2012-06-08 09:16:55 +00:00
print_screen "\n";
2012-06-05 14:34:37 +00:00
}
2012-09-28 12:27:08 +00:00
2012-12-13 15:02:37 +00:00
##########################################################################
### check switches
2012-09-28 12:27:08 +00:00
my $SWStatus;
print_screen "\tSwitches: Attach=";
if ( readlink "$mars_dir/$PRes/todo-$PName/attach" eq 1 ) {
2012-12-19 15:31:27 +00:00
print_screen "on", "$Color_green";
2012-12-13 15:02:37 +00:00
monitoring "", "attached";
2012-09-28 12:27:08 +00:00
} else {
print_screen "off", 'red';
2012-12-13 15:02:37 +00:00
monitoring "SwitchOff", "attach off";
2012-09-28 12:27:08 +00:00
}
print_screen " [masked:" if ( $ActStatus eq 1 );
print_screen " Connect=";
if ( readlink "$mars_dir/$PRes/todo-$PName/connect" eq 1 ) {
2012-12-19 15:31:27 +00:00
print_screen "on", "$Color_green";
2012-12-13 15:02:37 +00:00
monitoring "", "connected";
2012-09-28 12:27:08 +00:00
} else {
print_screen "off", 'red';
2012-12-13 15:02:37 +00:00
monitoring "SwitchOff", "connect off";
2012-09-28 12:27:08 +00:00
}
print_screen " Sync=";
if ( readlink "$mars_dir/$PRes/todo-$PName/sync" eq 1 ) {
2012-12-19 15:31:27 +00:00
print_screen "on", "$Color_green";
2012-12-13 15:02:37 +00:00
monitoring "", "synced";
2012-09-28 12:27:08 +00:00
} else {
print_screen "off", 'red';
2012-12-13 15:02:37 +00:00
monitoring "SwitchOff", "sync off";
2012-09-28 12:27:08 +00:00
}
print_screen " AllowReplay=" ;
if ( readlink "$mars_dir/$PRes/todo-$PName/allow-replay" eq 1 ) {
2012-12-19 15:31:27 +00:00
print_screen "on", "$Color_green";
2012-12-13 15:02:37 +00:00
monitoring "", "replayed";
2012-09-28 12:27:08 +00:00
} else {
print_screen "off", 'red';
2012-12-13 15:02:37 +00:00
monitoring "SwitchOff", "replay off";
2012-09-28 12:27:08 +00:00
}
print_screen "]" if ( $ActStatus eq 1 );
print_screen "\n";
2012-12-13 15:02:37 +00:00
##########################################################################
2012-09-28 12:27:08 +00:00
### node status
my $NodeStatusText = '';
foreach (@NodeStatusText) {
$NodeStatusText = "$NodeStatusText($_)";
}
2012-12-13 15:02:37 +00:00
### normal-modus
2012-12-19 15:31:27 +00:00
# print_screen "\tStatus : $NodeStatusCode = $NodeStatusText\n", '';
2012-12-13 15:02:37 +00:00
### monitor-modus
2012-09-28 12:27:08 +00:00
print_screen "$NodeStatusCode [$NodeStatusText]", '', 'Dmonitor';
if ( $NodeStatusCode eq 'SwitchOff' ) {
print_screen "Disconnect [$PRes on $PName]", '', 'Cmonitor';
} else {
print_screen "Connect [$PRes on $PName]", '', 'Cmonitor';
}
2012-12-13 15:02:37 +00:00
### reset values
2012-09-28 12:27:08 +00:00
$NodeStatusCode = 'UpToDate';
@NodeStatusText = ();
2012-06-05 14:34:37 +00:00
return $PLogName;
2012-01-27 14:58:33 +00:00
}
2012-09-28 12:27:08 +00:00
#########################################################################################
### check ressources
sub check_ressource {
opendir my $dirhandle, $mars_dir or die "Cannot open $mars_dir: $!";
my @resources = grep { /^res/ && -d "$mars_dir/$_" } readdir $dirhandle;
if ( !@resources ) {
print_screen "---> HINT: no resources found\n", 'red';
next;
}
2012-12-13 15:02:37 +00:00
### read resources
2012-09-28 12:27:08 +00:00
foreach my $res (@resources) {
2012-12-13 15:02:37 +00:00
my $ResPartner = 0;
my $res_name = $res;
$res_name =~ s/^resource-//;
2012-09-28 12:27:08 +00:00
if ( $params->{'resource'} ) {
if (!( $params->{'resource'} eq $res_name)) {
next;
}
}
2012-12-13 15:02:37 +00:00
my $res_size = check_link "$mars_dir/$res/size";
2012-09-28 12:27:08 +00:00
if ( $res_size eq 0 ) { $res_size = 1 };
2012-12-13 15:02:37 +00:00
my $res_tbsize = ( $res_size) / 1024 / 1024 /1024 / 1024;
my $res_master = check_link "$mars_dir/$res/primary";
2012-09-28 12:27:08 +00:00
if ( $res_master eq 0 ) { $res_master = "unknown" };
#print_screen sprintf("-> check resource %s, with %d bytes (%.3fTB), Primary Node is %s\n", $res_name, $res_size, $res_tbsize, $res_master), 'bold';
print_screen sprintf("-> check resource %s, with %.3fTB, Primary Node is %s\n", $res_name, $res_tbsize, $res_master), 'bold';
### him self
print_screen " -> local Node ($himself) as ",'bold';
my $ActualUsedLogfile = display_partner(
ressource => $res,
nodename => $himself,
ressource_size => $res_size,
res_partner => \$ResPartner,
res_AULogfile => "",
);
# end him self
### joined (und nicht monitor)...
if (( $ResPartner eq 1 ) && ( !$params->{'monitor'} )) {
### partners
opendir my $server_dh, "$mars_dir/$res" or die "Cannot open $mars_dir/$res: $!";
my @servers = grep { /^data/ && readlink "$mars_dir/$res/$_" } readdir $server_dh;
@servers = sort (@servers);
foreach my $partner (@servers) {
$partner =~ s/^data-//;
if ( $partner eq $himself ) { next; }
print_screen " -> remote Node ($partner) as ", 'bold';
display_partner(
ressource => $res,
nodename => $partner,
ressource_size => $res_size,
res_partner => \$ResPartner,
res_AULogfile => $ActualUsedLogfile,
);
}
} # end joined
### modus
if ( $ResPartner eq 0 ) {
print_screen " -> modus for $res_name is remote ($ResPartner nodes)\n",'bold';
} elsif ( $ResPartner eq 1 ) {
print_screen " -> modus for $res_name is standalone ($ResPartner node)\n",'bold';
} else {
print_screen " -> modus for $res_name is clustered ($ResPartner nodes)\n ",'bold';
}
### resources history
if ( $params->{'history'} ) {
check_logfile( $res, $ResPartner );
}
2012-12-05 15:53:59 +00:00
### check resources debug
if ($params->{'debug'}) {
2012-12-19 15:31:27 +00:00
print_screen " -> $res-Debug:\n", "$Color_blue";
2012-12-13 15:02:37 +00:00
my $debug_res;
### TODO: small hack, read 3 files ...
$debug_res = check_debugfile("$res", "2.warn"); print_screen "$debug_res" if ( $debug_res );
$debug_res = check_debugfile("$res", "3.error"); print_screen "$debug_res" if ( $debug_res );
$debug_res = check_debugfile("$res", "4.fatal"); print_screen "$debug_res" if ( $debug_res );
2012-12-05 15:53:59 +00:00
}
2012-09-28 12:27:08 +00:00
} # end foreach
}
2012-01-27 14:58:33 +00:00
#########################################################################################
###
sub check_logfile {
2012-06-05 14:34:37 +00:00
my $LResource = shift;
my $LPartner = shift;
my $oldEqual = 0;
2012-12-19 15:31:27 +00:00
my $LogFailed = 0;
2012-06-05 14:34:37 +00:00
my $LogCount = 0;
2012-06-08 09:16:55 +00:00
my $LogCountSum = 0;
my $LogCountNow = 1;
2012-06-05 14:34:37 +00:00
my @logfile = <$mars_dir/$LResource/log*>;
2012-06-08 09:16:55 +00:00
### mal fix zaehlen ...
foreach (@logfile) {
$LogCountSum++;
}
2012-12-19 15:31:27 +00:00
print_screen " -> History Replay/Status\n", "$Color_blue";
### search all logfiles
2012-06-05 14:34:37 +00:00
foreach my $logfile (@logfile) {
my $LVersion = $logfile;
$LVersion =~ s/^.*log-([0-9]+)-.*$/$1/;
my $LogStatus = check_link "$logfile";
2012-12-19 15:31:27 +00:00
my $allEqual = 1; ### logfiles gleich
my $OldCheck; ### checksum from versionfile
my $OldSize; ### size from versionfile
2012-06-05 14:34:37 +00:00
if ( $LogStatus eq 0 ) {
2012-06-08 09:16:55 +00:00
### found logfile
2012-06-05 14:34:37 +00:00
my $LogSize = -s "$logfile";
2012-09-28 12:27:08 +00:00
if ( !$LogSize ) { $LogSize=0; }
2012-12-19 15:31:27 +00:00
### logfile stat-values
my @LogStat = stat ( $logfile );
$LogStat[10] = gmtime($LogStat[10]);
### quickfix ...
if ($LogStat[9] > $LogStat[8]) {
$LogStat[9] = $LogStat[9] - $LogStat[8];
} else {
$LogStat[9] = $LogStat[8] - $LogStat[9];
}
print_screen (sprintf "\tLogfile Version: $LVersion Size: $LogSize bytes (%.3fGB) from %s, include hypothetically %s sec\n",
($LogSize /1024/1024/1024), $LogStat[10], $LogStat[9]);
2012-06-05 14:34:37 +00:00
2012-12-19 15:31:27 +00:00
### search all logfile version
2012-06-05 14:34:37 +00:00
my @LVersion = <$mars_dir/$LResource/version-$LVersion*>;
foreach my $LVersion (@LVersion) {
2012-12-19 15:31:27 +00:00
### search version
my @LogDetail = split (',', check_link "$LVersion" );
my $LogServer = $LVersion;
### search size of logfile
my $ActLogSize = $LogSize - $LogDetail[2];
### search name of source
$LogServer =~ s/.*[0-9]-//;
2012-06-05 14:34:37 +00:00
$LogCount++;
2012-12-19 15:31:27 +00:00
### output
print_screen (sprintf "\t\tSource: $LogServer \tCheck: $LogDetail[0] \tTodo: %.3fGB \tReplayPosition: $LogDetail[2]\n", $ActLogSize/1024/1024/1024);
my @dummy = split (',', check_link "$mars_dir/$LResource/replay-$LogServer" );
@dummy = split ('-', $dummy[0]);
$dummy[0] = '$dummy[0]-$dummy[1]';
# print "* $mars_dir/$LResource/replay-$LogServer\n";
# print "* $dummy[0]\n";
### new versionfile
2012-06-05 14:34:37 +00:00
if ( !defined $OldCheck ) {
2012-12-19 15:31:27 +00:00
$OldCheck = $LogDetail[0];
$OldSize = $LogDetail[2];
$LogFailed = 0;
$allEqual = 1;
### checksum different
} elsif ( ($LogDetail[0] ne $OldCheck) and ( $LogDetail[2] eq $OldSize ) and ( $LogDetail[2] ne 0) ) {
print_screen "\t\t---> TODO: Logfiles has not equal Checksums and same size, check for SPLIT-BRAIN\n",'red';
$LogFailed = 1;
$allEqual = 0;
### value different
} elsif ( ($LogDetail[0] ne $OldCheck ) or ( $LogDetail[2] ne $OldSize ) ) {
$LogFailed = 1;
$allEqual = 0;
### eishokey
2012-06-05 14:34:37 +00:00
} else {
2012-12-19 15:31:27 +00:00
$LogFailed = 0;
$allEqual = 1;
2012-06-05 14:34:37 +00:00
}
2012-02-27 13:56:17 +00:00
2012-06-05 14:34:37 +00:00
} # end foreach
if ( $allEqual eq 1 ) {
$oldEqual = 1;
} else {
$oldEqual = 0;
}
2012-12-19 15:31:27 +00:00
# ### check relay active
# my @ReplayLogfile = `ls -l $mars_dir/$LResource/replay-* | grep $LVersion`;
# print "*** @ReplayLogfile\n";
#lrwxrwxrwx 1 root root 51 Dec 19 14:36 /mars/resource-Device-BS6/replay-istore-test-bap6 -> log-000007974-istore-test-bs6,1486362576,1806027520
#lrwxrwxrwx 1 root root 33 Dec 19 14:29 /mars/resource-Device-BS6/replay-istore-test-bs6 -> log-000007978-istore-test-bs6,0,0
#lrwxrwxrwx 1 root root 129 Dec 19 14:15 /mars/resource-Device-BS6/version-000007968-istore-test-bap6 -> fd6610adc6a0df858aac6d9eb81b571d,istore-test-bs6,3292390012,7968;3ce4b3f0610405fe65eec10eccbf5c54,istore-test-bs6,3292390600,7967
#lrwxrwxrwx 1 root root 129 Dec 19 14:14 /mars/resource-Device-BS6/version-000007968-istore-test-bs6 -> fd6610adc6a0df858aac6d9eb81b571d,istore-test-bs6,3292390012,7968;3ce4b3f0610405fe65eec10eccbf5c54,istore-test-bs6,3292390600,7967
2012-06-08 09:16:55 +00:00
### check Count Logfiles
2012-06-05 14:34:37 +00:00
if ( !($LogCount eq $LPartner) ) {
2012-06-08 09:16:55 +00:00
print_screen "\t\t---> TODO: Count of Logfiles different = (have:$LPartner found:$LogCount)\n", 'red';
2012-06-05 14:34:37 +00:00
$LogFailed = 1;
$oldEqual = 0;
2012-12-19 15:31:27 +00:00
} elsif ( `ls -l $mars_dir/$LResource/replay-* | grep $LVersion` ) {
print_screen "\t\t---> WORK: Logfiles are actual and used, Replay in progess...\n", 'red';
2012-06-08 09:16:55 +00:00
} elsif ( $LogFailed eq 1 ) {
2012-12-19 15:31:27 +00:00
print_screen "\t\t---> WORK: Logfiles has not equal Checksums and different size, Reception in progress ...\n", 'red';
} elsif ( $LogCountSum eq $LogCountNow ) {
print_screen "\t\t---> WORK: Logfiles are actual and unused(1).\n", "$Color_green";
} elsif (( $oldEqual eq 1 ) && ( $OldSize eq 0 )) {
print_screen "\t\t---> WORK: Logfiles are actual and unused(2).\n", "$Color_green";
} elsif ( $oldEqual eq 1 ) {
print_screen "\t\t---> WORK: Logfiles has all equal Sizes and Checksums, can be deleted ...\n", "$Color_green";
} else {
2012-06-08 09:16:55 +00:00
print_screen "\t\t---> TODO: Logfiles has same other errors - Please check History of Logfiles\n",'red';
2012-06-05 14:34:37 +00:00
}
2012-06-08 09:16:55 +00:00
### check delete infos
$logfile =~ m|/log-(.*)$|;
my $DelLogfile = "log-$1";
my @DeleteFiles = <$mars_dir/todo-global/delete-*>;
foreach my $DeleteFiles (@DeleteFiles) {
2012-09-28 12:27:08 +00:00
if (( !$DeleteFiles ) || ( !(readlink $DeleteFiles) )) {
2012-07-18 07:40:16 +00:00
$DeleteFiles = "n/a";
} else {
$DeleteFiles = basename (readlink $DeleteFiles);
}
2012-06-08 09:16:55 +00:00
if ( $DeleteFiles eq $DelLogfile ) {
2012-12-19 15:31:27 +00:00
print_screen "\t\t---> HINT: LogFile ist marked for delete ($DeleteFiles).\n", "$Color_green";
2012-06-08 09:16:55 +00:00
}
}
$LogCount=0;
2012-09-28 12:27:08 +00:00
2012-06-05 14:34:37 +00:00
} # end logstatus
2012-06-08 09:16:55 +00:00
$LogCountNow++;
2012-09-28 12:27:08 +00:00
2012-06-05 14:34:37 +00:00
} # end foreach
2012-01-27 14:58:33 +00:00
}
2012-06-08 09:16:55 +00:00
2012-02-22 14:52:02 +00:00
#########################################################################################
### diskfull
sub check_disk_is_full {
2012-06-05 14:34:37 +00:00
my @diskfull = glob("$mars_dir/rest-space-*");
my $diskfull_mars = "";
print_screen "-> Diskspace on Cluster:", 'bold';
if ( @diskfull ) {
2012-09-28 12:27:08 +00:00
foreach ( @diskfull ) {
2012-06-05 14:34:37 +00:00
my $diskfull_space = check_link "$_";
my $diskfull_system = $_;
$diskfull_system =~ s!/mars/rest-space-!!;
if ( $diskfull_space < 1 ) {
$diskfull_space = sprintf ("%.2f", $diskfull_space / 1024 );
if ( $diskfull_system eq $himself ) {
2012-09-28 12:27:08 +00:00
print_screen "\n\t-> TODO: Local Partition $mars_dir full ($diskfull_space kb Limit) !!! mars is stopping !!!\n\n", "red";
2012-06-05 14:34:37 +00:00
$diskfull_mars = "$diskfull_mars,$diskfull_system";
2012-09-28 12:27:08 +00:00
monitoring 'Failed', 'System: Mars-Disk full, MARS stopping';
2012-06-05 14:34:37 +00:00
} else {
2012-09-28 12:27:08 +00:00
print_screen "\n\t-> TODO: Remotesystem $diskfull_system have mars-disk full ($diskfull_space kb Limit) !!!\n\n", "red";
2012-06-05 14:34:37 +00:00
$diskfull_mars = "$diskfull_mars,$diskfull_system";
2012-09-28 12:27:08 +00:00
monitoring 'Failed', 'System: Remote-Mars-Disk full';
2012-06-05 14:34:37 +00:00
}
}
}
}
2012-09-28 12:27:08 +00:00
### TODO: /0
2012-06-05 14:34:37 +00:00
if ( !$diskfull_mars ) {
2012-12-19 15:31:27 +00:00
print_screen " ok\n", "$Color_green";
2012-06-05 14:34:37 +00:00
}
2012-02-22 14:52:02 +00:00
}
#########################################################################################
2012-12-05 15:53:59 +00:00
### check debug-files
sub check_debugfile {
2012-12-13 15:02:37 +00:00
### TODO: Fix Level
2012-12-05 15:53:59 +00:00
### 0.debug,1.info,2.warn,3.error,4.fatal,5.total
my $debug_dir = shift;
my $debug_level = shift;
my $debug_file = "$mars_dir/$debug_dir/$debug_level.status";
if ( open (MARS_DEBUG, "< $debug_file") ) {
my $mars_debug = "";
while ( <MARS_DEBUG> ) {
2012-06-05 14:34:37 +00:00
if ( m/^(\d+\.\d+)/ ) {
s/^(\d+\.\d+)/strftime("%a %b %e %H:%M:%S %Y:", localtime($1))/e;
} else {
$_ = localtime(0) . ': ' . $_;
}
2012-12-05 15:53:59 +00:00
s/MARS_DEBUG\s+//;
$mars_debug = "$mars_debug\t$_";
2012-06-05 14:34:37 +00:00
}
2012-12-05 15:53:59 +00:00
close MARS_DEBUG;
return "$mars_debug" if ( $mars_debug ne "");
2012-06-05 14:34:37 +00:00
}
2012-03-09 15:10:48 +00:00
}
2012-02-22 14:52:02 +00:00
#########################################################################################
2012-06-05 14:34:37 +00:00
### info version
sub info_version {
### module
my %mars_info;
open ( my $lsmod_handle,'-|','lsmod | grep mars' ) || die "blub ... $!";
if (!<$lsmod_handle>) {
print_screen "Module Mars not running\n",'red';
sleep(10);
next;
}
open ( my $modinfo_handle, '-|', 'modinfo mars' ) || die "cannot run modinfo mars: $!";
while ( my $line = <$modinfo_handle> ) {
chomp $line;
my ( $key, $value) = split /: +/, $line;
if ( $value) {
$mars_info{$key} = $value;
2012-04-10 16:52:25 +00:00
}
2012-06-05 14:34:37 +00:00
}
if ( $mars_info{author} eq "") {
print_screen "Module Mars not running\n",'red';
next;
}
### status
2012-12-19 15:31:27 +00:00
print_screen "MARS Status - $himself, $version", "$Color_blue";
if ( $params->{'resource'} ) { print_screen ", Ressource: $params->{'resource'}", "$Color_blue"; }
2012-06-08 09:16:55 +00:00
print_screen "\n";
2012-06-05 14:34:37 +00:00
### marsadm
my $MAVersion = qx"marsadm version";
2012-12-19 15:31:27 +00:00
print_screen "MARS Admin - $MAVersion", "$Color_blue";
2012-06-05 14:34:37 +00:00
### module
2012-12-19 15:31:27 +00:00
print_screen "MARS Module - $mars_info{version}\n", "$Color_blue";
2012-06-05 14:34:37 +00:00
### kernel
my $KVersion = '/proc/version';
open my $Kfh, '<', "$KVersion" or die $!;
$KVersion = ( grep { /^Linux/ } <$Kfh> )[0];
$KVersion = ( split / /, $KVersion )[2];
2012-12-19 15:31:27 +00:00
print_screen "MARS Kernel - $KVersion\n", "$Color_blue";
2012-06-05 14:34:37 +00:00
2012-06-08 09:16:55 +00:00
print_screen "-------------------------------------------------------------------------------\n";
2012-06-05 14:34:37 +00:00
}
2012-04-10 16:52:25 +00:00
2012-02-22 14:52:02 +00:00
2012-08-17 11:23:40 +00:00
#########################################################################################
### avg_limit
sub check_jammed {
my $jammed = check_link "$mars_dir/jammed-$himself";
print_screen "-> Mars-Transaktion ", 'bold';
if (( !$jammed ) || ( $jammed ne 0 )) {
2012-12-19 15:31:27 +00:00
print_screen "running normaly\n", "$Color_green";
2012-08-17 11:23:40 +00:00
} else {
print_screen "and Replication not runnunig !!!\n", 'red';
2012-09-28 12:27:08 +00:00
monitoring 'Failed', 'System: Replikation not running';
2012-08-17 11:23:40 +00:00
}
}
#########################################################################################
### limit's auslesen ...
sub check_limit {
2012-12-13 15:02:37 +00:00
my $LimitText = shift; # sol-text
my $LimitSolVar = shift; # sol-filename
my $LimitSolEin = shift; # sol-einheit
my $LimitIstVar = shift; # ist-filename
my $LimitIstEin = shift; # ist-einheit
### for better ...
2012-12-05 15:53:59 +00:00
$LimitSolVar = "" if (!$LimitSolVar);
$LimitIstVar = "" if (!$LimitIstVar);
$LimitSolEin = "" if (!$LimitSolEin);
$LimitIstEin = "" if (!$LimitIstEin);
2012-09-28 12:27:08 +00:00
### soll
2012-12-05 15:53:59 +00:00
my $mars_limit_sol;
if ( open (MARS_LIMIT, "< /proc/sys/mars/$LimitSolVar") ) {
2012-08-17 11:23:40 +00:00
while (<MARS_LIMIT>) {
2012-12-05 15:53:59 +00:00
$mars_limit_sol .= $_;
$mars_limit_sol =~ s/[\n\t]//g;
2012-08-17 11:23:40 +00:00
}
close MARS_LIMIT;
}
2012-09-28 12:27:08 +00:00
### ist
2012-12-05 15:53:59 +00:00
my $mars_limit_ist;
if ( open (MARS_LIMIT, "< /proc/sys/mars/$LimitIstVar") ) {
while (<MARS_LIMIT>) {
$mars_limit_ist .= $_;
$mars_limit_ist =~ s/[\n\t]//g;
2012-09-28 12:27:08 +00:00
}
2012-12-05 15:53:59 +00:00
close MARS_LIMIT;
}
2012-09-28 12:27:08 +00:00
### presently results
2012-12-05 15:53:59 +00:00
print_screen "-> $LimitText: ", 'bold';
if ( ($LimitSolVar) && !($LimitIstVar) ) {
2012-12-13 15:02:37 +00:00
### only sol & lamport_clock
2012-12-05 15:53:59 +00:00
if ( $LimitSolVar eq "lamport_clock" ) {
my $C_Time = $mars_limit_sol;
$C_Time =~ s/CURRENT_TIME=//;
$C_Time =~ s/lamport_now=.*//;
my $L_Time = $mars_limit_sol;
$L_Time =~ s/.*lamport_now=//;
$mars_limit_sol = sprintf("%.2f", $C_Time - $L_Time);
print_screen "$mars_limit_sol $LimitSolEin\n";
2012-12-13 15:02:37 +00:00
### only sol
2012-12-05 15:53:59 +00:00
} elsif ( $mars_limit_sol < 1 ) {
print_screen "is now unsed\n";
2012-09-28 12:27:08 +00:00
} else {
2012-12-05 15:53:59 +00:00
print_screen "is set to ";
print_screen "$mars_limit_sol $LimitSolEin\n", 'red';
2012-09-28 12:27:08 +00:00
}
2012-12-05 15:53:59 +00:00
} elsif ( !($LimitSolVar) && ($LimitIstVar) ) {
2012-12-13 15:02:37 +00:00
### only ist
2012-12-05 15:53:59 +00:00
if ( $mars_limit_ist < 1 ) {
print_screen "is actualy null\n";
2012-09-28 12:27:08 +00:00
} else {
2012-12-05 15:53:59 +00:00
print_screen "is actualy ";
print_screen "$mars_limit_ist $LimitIstEin\n", 'red';
2012-09-28 12:27:08 +00:00
}
2012-12-05 15:53:59 +00:00
} elsif ( ($LimitSolVar) && ($LimitIstVar) && ($mars_limit_sol < 1) ) {
2012-12-13 15:02:37 +00:00
### sol & ist = 0
2012-12-05 15:53:59 +00:00
print_screen "is actualy unused\n";
} else {
2012-12-13 15:02:37 +00:00
### sol & ist / rest ...
2012-12-05 15:53:59 +00:00
print_screen "is set to ";
print_screen "$mars_limit_sol $LimitSolEin", 'red';
print_screen ", actualy used ";
print_screen "$mars_limit_ist $LimitIstEin\n", 'red';
2012-08-17 11:23:40 +00:00
}
2012-12-05 15:53:59 +00:00
2012-08-17 11:23:40 +00:00
}
2012-12-13 15:02:37 +00:00
##############################################################################
2012-06-05 14:34:37 +00:00
### main loop ...
while(1) {
my $dateFormat = Date::Language->new('English');
### version only
if ( $params->{version} || $params->{v}) {
info_version;
exit 0;
}
2012-12-13 15:02:37 +00:00
##########################################################################
2012-06-05 14:34:37 +00:00
### main run
print $clearscreen;
2012-12-05 15:53:59 +00:00
### check !
# print "\nNOTE !!!\n********\nThe author does not guarantee this development-test-alpha-pre-beta-version, it is untested and certainly not fully functional. Use at your own risk ;)\n\n";
2012-09-28 12:27:08 +00:00
2012-12-13 15:02:37 +00:00
##########################################################################
### check and set monitor
### big monitor
2012-09-28 12:27:08 +00:00
if ( $params->{'monitor'} || $params->{'cstate'} || $params->{'dstate'} || $params->{'role'} ) {
$params->{'system'} = 1;
2012-06-08 09:16:55 +00:00
$params->{'history'} = 1;
2012-12-13 15:02:37 +00:00
### TODO: check!
2012-09-28 12:27:08 +00:00
$params->{'debug'} = 0;
$params->{'monitor'} = 1;
2012-06-08 09:16:55 +00:00
}
2012-12-13 15:02:37 +00:00
### small-monitor
2012-09-28 12:27:08 +00:00
if (( $params->{'cstate'} || $params->{'dstate'} || $params->{'role'} ) && ( !$params->{'resource'})) {
display_help "Syntax-Error: Option resource is missing by --cstate / --dstate / --role!";
}
2012-08-17 11:23:40 +00:00
2012-12-13 15:02:37 +00:00
##########################################################################
2012-06-05 14:34:37 +00:00
### read mars infos
2012-09-28 12:27:08 +00:00
info_version;
2012-06-05 14:34:37 +00:00
2012-12-13 15:02:37 +00:00
##########################################################################
### check system limits
2012-09-28 12:27:08 +00:00
if ( $params->{'system'} ) {
2012-12-13 15:02:37 +00:00
### text / sol-file / sol-einheit / ist-file / ist-einheit
2012-09-28 12:27:08 +00:00
my $mars_disk_space = `df '$mars_dir' | grep '$mars_dir'| awk '{print \$2}'`;
$mars_disk_space = sprintf("%01.2f", $mars_disk_space / 1024);
2012-12-05 15:53:59 +00:00
check_limit "AVG-Limit", "loadavg_limit", "loadavg";
check_limit "Memory-Limit", "mem_limit_percent", "%", "mem_used_raw_kb", "kb";
check_limit "Network-IO-Timeout", "network_io_timeout", "sec";
check_limit "Traffic Limit", "tuning/traffic_limit_kb", "kb/s", "tuning/traffic_rate_kb", "kb/s";
check_limit "Server-IO Limit", "tuning/server_io_limit_kb", "kb/s", "tuning/server_io_rate_kb", "kb/s";
check_limit "Delay say Overflow", "", "", "delay_say_on_overflow", "(on/off)";
check_limit "Statusfile Rollover", "", "", "statusfiles_rollover_sec", "sec";
check_limit "Flying IO Count", "", "", "io_flying_count";
check_limit "LoggerMemory", "", "", "logger_mem_used_kb", "kb";
check_limit "FreeSpaceLimit on /mars", "free_space_mb", "mb", "", "$mars_disk_space";
check_limit "FreeSpaceLimit LogDelete", "logdel_auto_gb", "gb";
check_limit "FreeSpaceLimit LogRotate", "logrot_auto_gb", "gb";
check_limit "LamportClockDifferenz", "lamport_clock", "sec";
2012-12-13 15:02:37 +00:00
### check system params
2012-08-17 11:23:40 +00:00
check_jammed;
2012-06-08 09:16:55 +00:00
check_disk_is_full;
2012-06-05 14:34:37 +00:00
}
2012-09-28 12:27:08 +00:00
2012-12-13 15:02:37 +00:00
##########################################################################
2012-06-05 14:34:37 +00:00
### check resources
check_ressource;
2012-09-28 12:27:08 +00:00
2012-12-13 15:02:37 +00:00
##########################################################################
2012-12-05 15:53:59 +00:00
### check global debug
if ($params->{'debug'}) {
2012-12-13 15:02:37 +00:00
print_screen "-> Main-Debug:\n", 'red';
my $debug_res;
$debug_res = check_debugfile("", "2.warn"); print_screen "$debug_res" if ( $debug_res );
$debug_res = check_debugfile("", "3.error"); print_screen "$debug_res" if ( $debug_res );
$debug_res = check_debugfile("", "4.fatal"); print_screen "$debug_res" if ( $debug_res );
2012-12-05 15:53:59 +00:00
}
2012-09-28 12:27:08 +00:00
2012-12-13 15:02:37 +00:00
##########################################################################
2012-06-08 09:16:55 +00:00
### end, exit for monitor
if ( $params->{'monitor'} ) {
2012-09-28 12:27:08 +00:00
if (( $StatusCode eq 'InvaliDate' || $StatusCode eq 'Failed' || $StatusCode eq 'OutDate' || $StatusCode eq 'SwitchOff' )) {
2012-06-08 09:16:55 +00:00
exit 1;
} else {
exit 0;
}
}
2012-09-28 12:27:08 +00:00
2012-12-13 15:02:37 +00:00
##########################################################################
2012-06-08 09:16:55 +00:00
### end, next loop
2012-06-05 14:34:37 +00:00
print color 'reset';
exit if (not $params->{'interval'});
sleep($params->{'interval'});
2012-08-17 11:23:40 +00:00
2012-01-27 14:58:33 +00:00
}
exit;
