|
|
@rem = '@goto endofperl';
use Getopt::Long;use Time::Local;
$USAGE = "Usage: $0 [-sort=xxx] datafile
Process the output of \"ntfrsutl sets\" and summarize the connection state.
-sort=send -- sort outbound connections by the send delta -sort=clean -- sort outbound connections by the cleanup delta -sort=name -- sort outbound connections by the server name -sort=lmt -- sort outbound connections by the leading minus trailing index value. -sort=lastjointime -- sort outbound connections by the last join time. (default) -sort=lastvvjoin -- sort outbound connections by the last version vector join time.
";
die $USAGE unless @ARGV;
printf("\n\n");
$cstatename[0] = "Init";$cstatename[1] = "Unjoined";$cstatename[2] = "Start";$cstatename[3] = "Starting";$cstatename[4] = "Scanning";$cstatename[5] = "SendJoin";$cstatename[6] = "WaitJoin";$cstatename[7] = "Joined";$cstatename[8] = "Unjoining";$cstatename[9] = "Deleted";
$vvjoinmode = " ";$InFile = "";$HaveData = 0;$argsort = "lastjointime";
&GetOptions("sort=s" => \$argsort);
$argsort = lc($argsort);if (!($argsort =~ m/send|clean|name|lmt|lastjointime|lastvvjoin/)) { print "Error: Invalid -sort param: $argsort using name\n"; $argsort = "name";}
printf "Report generated at %s\n\n", scalar localtime;printf "Outbound connections sorted by: %s\n\n", $argsort;
while (<>) {
if ($InFile ne $ARGV) { $InFile = $ARGV; $modtime = (stat $InFile)[9]; printf("Processing file %s Modify Time: %s\n\n", $InFile, scalar localtime($modtime)); $infilelist = $infilelist . " " . $InFile; $linenumber = 0; } $linenumber++;
chop;
($func, @a) = split(":"); if (($func eq "") || ($func =~ m/^#/)) {next;}
if ($func =~ m/^ DNS Name/) { printf("%s\n", $_); next; }
if ($func =~ m/^ Replica/) { # # start of new Replica set. Print out prev data. # if ($HaveData) {&PrintData();}
if ($replica ne "") { #output any summary state for previous replica and reset &PrintSummary(); }
($junk, $replica) = split;
printf("%s\n", $_); next; }
if ($func =~ m/^ Member/) {($junk, $junk2, $member) = split; next; } if ($func =~ m/^ ServiceState/) {($junk, $servicestate) = split(":"); next;} if ($func =~ m/^ CnfFlags/) {($CnfFlags) = m/\[(.*)\]/; next;} if ($func =~ m/^ Root /) {($RootPath) = m/\: (.*)/; next;} if ($func =~ m/^ Stage /) {($StagePath) = m/\: (.*)/; next;} if ($func =~ m/^ FileFilter /) {($FileFilter) = m/\: (.*)/; next;} if ($func =~ m/^ DirFilter /) {($DirFilter) = m/\: (.*)/; next;}
if ($func =~ m/^ OutLogSeq/) {($junk, $outlogseq) = split(":"); next;} if ($func =~ m/^ OutLogJTx/) {($junk, $outlogjtx) = split(":"); next; }
if ($func =~ m/PartSrvName/) {($junk, $PartSrvName) = split(":"); $HaveData = 1; next;} if ($func =~ m/^ State/) {($junk, $cstate) = split(":"); next;} if ($func =~ m/Inbound/) {($junk, $Inbound) = split(":"); $Inbound = ($Inbound eq " FALSE") ? "Out" : "In "; next;} if ($func =~ m/PartnerMinor/) {($junk, $PartnerMinor) = split(":"); next;} if ($func =~ m/LastJoinTime/) {($junk, $LastJoinTime) = split(" : "); next;} if ($func =~ m/^ State/) {($junk, $olstate) = split(":"); next;} if ($func =~ m/^ CoTx /) {($junk, $junk2, $cotx) = split; next;} if ($func =~ m/^ CoLx /) {($junk, $junk2, $colx) = split; next;} if ($func =~ m/^ Flags/) {if (m/VvjoinMode/) {$vvjoinmode = "-vv";} next;} if ($func =~ m/^ OutstandingCos/) {($junk, $junk2, $OutstandingCos) = split; next;} if ($func =~ m/AckVersion/) {($junk, $AckVersion) = split(" : "); next;}
# # start of new connection. Print out prev data. # if ($func =~ m/^ Cxtion/) {if ($HaveData) {&PrintData();} next; }
next;}
## output last record#if ($HaveData) {&PrintData();}
if ($replica ne "") { #output any summary state for previous replica and reset &PrintSummary();}
exit;
sub PrintData {
my $outstr, $instr, $i, $key, $mon, $day, $year, $datestr, $hr, $min, $sec;
# # Index the output result by the sort key. Zero extend the key. # Default is to sort by name. # $key = "0000000000"; $datestr = "none";
if ($Inbound eq "In ") { $instr = sprintf("%-20s %3s %-9s%3s %2s %26s\n", $PartSrvName, $Inbound, $cstatename[$cstate], $vvjoinmode, $PartnerMinor, $LastJoinTime); if ($argsort eq "lastjointime") {$datestr = $LastJoinTime;}; } else { $outstr = sprintf("%-20s %3s %-9s%3s %2s %26s %-14s %8s %-6d %8s %-6d %3d %2s %26s\n", $PartSrvName, $Inbound, $cstatename[$cstate], $vvjoinmode, $PartnerMinor, $LastJoinTime, $olstate, $colx, $outlogseq-$colx, $cotx, $cotx-$outlogjtx, $colx-$cotx, $OutstandingCos, $AckVersion);
if ($argsort eq "send") {$i = $outlogseq-$colx; $key = substr("0000000000".$i, -10);} if ($argsort eq "clean") {$i = $cotx-$outlogjtx; $key = substr("0000000000".$i, -10);} if ($argsort eq "lmt") {$i = $colx-$cotx; $key = substr("0000000000".$i, -10);} if ($argsort eq "lastjointime") {$datestr = $LastJoinTime;}; if ($argsort eq "lastvvjoin") {$datestr = $AckVersion;}; }
# # sort by date applies to both the inbound and outbound connections. # if ($datestr ne "none") { # Oct 18, 2000 ($mon, $day, $year) = lc($datestr) =~ m/(jan|feb|mar|apr|may|jun|jul|aug|sep|oct|nov|dec)\s*(\d*).*(\d\d\d\d)/; ($hr, $min, $sec) = $datestr =~ m/(\d\d):(\d\d):(\d\d)/; $i = 0; if ($mon ne "") { $mon = index("janfebmaraprmayjunjulaugsepoctnovdec", $mon) / 3; if ($year eq "1601") {$year = 1900;} $i = timelocal($sec, $min, $hr, $day, $mon, $year-1900); } $key = substr("000000000000".$i, -12); }
# # combine key with name to distinguish duplicates. # if ($Inbound eq "In ") { if ($argsort ne "lastjointime") {$key = "0000000000";} $inhash{$key . $PartSrvName} = $instr; } else { $outhash{$key . $PartSrvName} = $outstr; } $HaveData = 0; $Inbound = ""; $vvjoinmode = " ";}
sub PrintSummary {
my $i;
$i = 0;
&PrintHeader();
# # Print the summary report and free the storage for the next replica set. # foreach $param (sort keys(%inhash)) { printf("%s", $inhash{$param}); $i++; }
undef %inhash;
if ($i >= 20) {printf "\f"; &PrintHeader();}
foreach $param (sort keys(%outhash)) { printf("%s", $outhash{$param}); $i++; }
if ($i >= 40) {printf "\f";} print ("\n\n");
undef %outhash;}
sub PrintHeader {
printf(" Member: %-12s ServiceState: %-16s OutLogSeqNum: %-8s OutlogCleanup: %-8s Delta: %-8d\n", $member, $servicestate, $outlogseq, $outlogjtx, $outlogseq-$outlogjtx); printf(" Config Flags: %s\n", $CnfFlags); printf(" Root Path : %s\n", $RootPath); printf(" Staging Path: %s\n", $StagePath); printf(" File Filter : %s\n", $FileFilter); printf(" Dir Filter : %s\n\n",$DirFilter);
printf(" Send Cleanup Cos \n"); printf(" Partner I/O State Rev LastJoinTime OLog State Leadx Delta Trailx Delta LMT Out Last VVJoin\n\n"); # A0ZONA1\A0004100$ Out Joined 3 OLP_AT_QUOTA 422352 146 422225 7552 127 7 Wed Oct 18, 2000 06:00:00
}
# Rev history-# 1/19/01 - allow inbound connection sort by LastJoinTime.# - special case year 1601.
__END__:endofperl@perl %~dpn0.cmd %*
|
