#!/usr/local/bin/perl # # Script to read in the 'stats.backend' file from a Tornado Front End server # The output is identical to the HTML output of 'okaybye.pl' # Written by Jamie Wilson - wilson88@yahoo.com # $input = $ARGV[0]; $output = $ARGV[1]; if (!$input || !$output) { print "\nUsage: be_stats.pl \n"; exit; } open (INPUT, "<$input"); open (OUTPUT, ">$output"); print OUTPUT < news statistics summary

news statistics summary

Generated at EOP print OUTPUT scalar localtime; print OUTPUT <

Tornado Front End stats.backend Information

EOP while () { chomp; @line = split(/\s+/, $_); $line[0]= scalar localtime $line[0]; print OUTPUT ""; foreach (@line) { if ( $line[13] > 0 || $line[14] > 10000) { print OUTPUT <$_ EOP $alert = 1; } else { print OUTPUT <$_ EOP } } print OUTPUT "" } print OUTPUT < EOP close (INPUT); close (OUTPUT); # This part is optional, "alert" will be defined above if certain events occur. # In this case, if the 13th column in stats.detailed (number of times the FE could not # connect to the BE) is > 0, or the 14th column (article backlog from the BE) is > 10000 then that is bad, # and you could do something here, like e-mail someone who can look into it. # if ($alert) { # Do Something # }

Timestamp	Backend Number	Fetch Priority	Articles Found	Articles Failed	Headers Found	Headers Failed	TCP Received	Shared Received	Header Bytes	Connection Available	Highest Connection Count	Connection Pool	Connection Not Available	Backlog	Name	Connections