#!/usr/bin/perl ################################################################### # # Copyright 1997 Spinne, Inc. # # Primary author: Jeff Garzik # # use strict; my $StatsUpdatePeriod = 300; my $CacheStatusFile = "/var/tmp/inn-status-cache"; my (@html, @statbuf); @statbuf = stat($CacheStatusFile); if ((@statbuf) && ($statbuf[9] > (time - $StatsUpdatePeriod))) { print &read_text_file($CacheStatusFile); exit(0); } push (@html, <<"EOM"); Content-type: text/html Pragma: no-cache INN server info

INN server info

EOM my @uptime = `uptime`; chomp @uptime; push (@html, "Status updated on ", `date`, "
", @uptime, ""); push @html, "

INN mode

";

push @html, `/usr/news/bin/ctlinnd -t 120 mode`;

my @infeed = sort grep(!/:proc:/,
	       grep (!/:file/,
	         grep (!/conn:/,
		   grep (!/control:/,
		     `/usr/news/bin/ctlinnd -t 120 name ''`))));
my $incnt = $#infeed + 1;

push @html, "

Incoming feed connections ($incnt)

", "\n"; my (@feedstats, $feedn1, $align); foreach (@infeed) { @feedstats = split(/:/); next unless ($#feedstats > 1); push @html, ""; foreach $feedn1 (@feedstats) { $feedn1 =~ s/seconds//; $feedn1 =~ s/accepted//; $feedn1 =~ s/rejected//; $feedn1 =~ s/refused//; if ($feedn1 ne $feedstats[0]) { $align = "align=right"; } else { $align = ""; } push @html, ""; } push @html, "\n"; } my @outfeed = `/usr/news/bin/ctlinnd -t 120 feedinfo ''`; my $outcnt = $#outfeed + 1; my ($left, $right, $ftype, $rest); push @html, "
Host FD Seconds Accepted Refused Rejected
$feedn1"; if ($feedn1 eq $feedstats[$#feedstats]) { push @html, "
"; } push @html, "

Host	FD	Seconds	Accepted	Refused	Rejected
$feedn1"; if ($feedn1 eq $feedstats[$#feedstats]) { push @html, " "; } push @html, "

Outgoing feeds ($outcnt)

", "\n"; foreach (sort @outfeed) { chomp; if (($left, $right) = /^([^:]+):\s+(.*)$/) { if ($right =~ /funnel/) { $right =~ s/: .*$//; } if (($ftype, $rest) = ($right =~ /^\s*(\S+)\s*(.*)$/)) { push @html, "\n"; } else { push @html, "\n"; } } else { push @html, "\n"; } } my @readers = `ps -wax`; @readers = sort grep (/-\d+\.\d+\.\d+\.\d+ /, @readers); my $readercnt = $#readers + 1; push @html, "
Name Type Attributes
$left $ftype $rest
$left ? $right
$_

Name	Type	Attributes
$left	$ftype	$rest
$left	?	$right
	$_

Connected readers ($readercnt)

";

if ($readercnt > 0) {
  my ($rest, @processed);
  foreach (@readers) {
    if (($rest) = (/(\d+\.\d+\.\d+\.\d+ .*)$/)) {
      chomp $rest;
      push(@processed, $rest);
    }
  }

  foreach (sort @processed) {
    push @html, "$_\n";
  }
  
}

push @html, "

\n"; print @html; if (open(F, ">$CacheStatusFile")) { print F @html; close(F); } exit(0); sub read_text_file { my ($filename) = @_; my (@tmp); open(TEXT, $filename) || return (); @tmp = ; close(TEXT); return @tmp; }