[Orca-checkins] rev 209 - in branches/orca/import_orca_services_2.0: lib data_gatherers/orca_services

sean at seanoneill.info sean at seanoneill.info
Sun Mar 9 08:40:12 PST 2003


Author: sean at seanoneill.info
Date: 2003-03-09 08:39:55 -0800 (Sun, 09 Mar 2003)
New Revision: 209

Added:
   branches/orca/import_orca_services_2.0/data_gatherers/orca_services/Orca_Services.cfg.in
   branches/orca/import_orca_services_2.0/data_gatherers/orca_services/Orca_Services.pl.in
   branches/orca/import_orca_services_2.0/data_gatherers/orca_services/Orca_Services_running.pl.in
   branches/orca/import_orca_services_2.0/data_gatherers/orca_services/S99Orca_Services.sh.in
   branches/orca/import_orca_services_2.0/data_gatherers/orca_services/restart_Orca_Services.sh.in
   branches/orca/import_orca_services_2.0/data_gatherers/orca_services/stop_Orca_Services.sh.in
   branches/orca/import_orca_services_2.0/lib/Orca_Services/
Removed:
   branches/orca/import_orca_services_2.0/data_gatherers/orca_services/S99orca_services.sh.in
   branches/orca/import_orca_services_2.0/data_gatherers/orca_services/orca_services.cfg.in
   branches/orca/import_orca_services_2.0/data_gatherers/orca_services/orca_services.pl.in
   branches/orca/import_orca_services_2.0/data_gatherers/orca_services/orca_services_running.pl.in
   branches/orca/import_orca_services_2.0/data_gatherers/orca_services/restart_orca_services.sh.in
   branches/orca/import_orca_services_2.0/data_gatherers/orca_services/stop_orca_services.sh.in
   branches/orca/import_orca_services_2.0/lib/Orca_services/
Modified:
   branches/orca/import_orca_services_2.0/data_gatherers/orca_services/start_orca_services.sh.in
   branches/orca/import_orca_services_2.0/lib/Makefile.in
Log:
In branches/orca/import_orca_services_2.0:

Moved:
   data_gatherers/orca_services/S99orca_services.sh.in
   data_gatherers/orca_services/orca_services.cfg.in
   data_gatherers/orca_services/orca_services.pl.in
   data_gatherers/orca_services/orca_services_running.pl.in
   data_gatherers/orca_services/restart_orca_services.sh.in
   data_gatherers/orca_services/stop_orca_services.sh.in

   lib/Orca_services/ -> lib/Orca_Services/

Modified:
   data_gatherers/orca_services/start_orca_services.sh.in

Log:
* Various file in data_gatherers/orca_services/ moved so that orca_services
  changed to Orca_Services in filename.

* lib/Orca_services/ -> lib/Orca_Services/
  At Sjaak's and Blair's request, moved lib/Orca_services/ to lib/Orca_Services/

* data_gathers/orca_services/start_orca_services.sh.in
  All references to orca_services changed to Orca_Services
  PSCMD variable value for Solaris changed to "ps -ef"


Modified: branches/orca/import_orca_services_2.0/lib/Makefile.in
==============================================================================
--- branches/orca/import_orca_services_2.0/lib/Makefile.in	(original)
+++ branches/orca/import_orca_services_2.0/lib/Makefile.in	2003-03-09 08:40:09.000000000 -0800
@@ -30,7 +30,7 @@
 	$(MKDIR) $(libdir)/Orca
 	$(MKDIR) $(libdir)/SE/3.2.1
 	$(MKDIR) $(libdir)/SE/3.3
-	$(MKDIR) $(libdir)/Orca_services
+	$(MKDIR) $(libdir)/Orca_Services
 	@for f in Orca/*.pm; do \
 	  echo $(INSTALL) -m 0644 $$f $(libdir)/Orca; \
 	  $(INSTALL) -m 0644 $$f $(libdir)/Orca; \
@@ -50,9 +50,9 @@
 	  echo $(INSTALL) -m 0644 $$f $(libdir)/SE/3.3; \
 	  $(INSTALL) -m 0644 $$f $(libdir)/SE/3.3; \
 	done
-	@for f in Orca_services/*; do \
-	  echo $(INSTALL) -m 0644 $$f $(libdir)/Orca_services; \
-	  $(INSTALL) -m 0644 $$f $(libdir)/Orca_services; \
+	@for f in Orca_Services/*; do \
+	  echo $(INSTALL) -m 0644 $$f $(libdir)/Orca_Services; \
+	  $(INSTALL) -m 0644 $$f $(libdir)/Orca_Services; \
 	done
 
 clean:

Copied: Orca_Services (from rev 207, branches/orca/import_orca_services_2.0/lib/Orca_services)

Modified: branches/orca/import_orca_services_2.0/data_gatherers/orca_services/start_orca_services.sh.in
==============================================================================
--- branches/orca/import_orca_services_2.0/data_gatherers/orca_services/start_orca_services.sh.in	(original)
+++ branches/orca/import_orca_services_2.0/data_gatherers/orca_services/start_orca_services.sh.in	2003-03-09 08:40:09.000000000 -0800
@@ -1,6 +1,6 @@
 #!/bin/sh
 
-# This script runs orca_services with the proper options for your site.
+# This script runs Orca_Services with the proper options for your site.
 
 # Define program locations that will be needed.
 prefix=@prefix@
@@ -9,7 +9,7 @@
 AWK=@AWK@
 CUT=@CUT@
 UNAME=@UNAME@
-ORCA_SERVICES_DIR=@VAR_DIR@/orca_services
+ORCA_SERVICES_DIR=@VAR_DIR@/Orca_Services
 
 # Get the hostname without the fully qualified part; that is, trim off
 # anything past the first `.'.
@@ -17,9 +17,9 @@
 
 OPERSYS=`$UNAME -s`
 if test "${OPERSYS}" = "Linux"; then
-    PSCMD="/bin/ps"
+    PSCMD="/bin/ps auxww"
 else
-    PSCMD="/usr/ucb/ps" # Solaris
+    PSCMD="/usr/bin/ps -ef" # Solaris
 fi
 
 # The directory these files go into is $ORCA_SERVICES_DIR/HOSTNAME
@@ -28,8 +28,8 @@
 # Export the environmental variables.
 export OUTDIR
 
-# Check if orca_services is already running.
-pids=`$PSCMD auxww | $AWK '/orca_services/ && !/awk/ && !/start_orca_services/ && !/daemon/ && !/ \/etc\/init\.d/ && !/ \/etc\/rc/ {print $2}'`
+# Check if Orca_Services is already running.
+pids=`$PSCMD | $AWK '/Orca_Services/ && !/awk/ && !/start_Orca_Services/ && !/daemon/ && !/ \/etc\/init\.d/ && !/ \/etc\/rc/ {print $2}'`
 if test "$pids" != ""; then
   echo "Orca_Services already running.  Exiting."
   exit 1
@@ -54,15 +54,15 @@
 # Now start the logging.
 echo "Starting logging"
 HOSTNAME=`hostname`
-if test -f "$libdir/orca_services.$HOSTNAME"; then
-    $libdir/orca_services `cat $libdir/orca_services.$HOSTNAME`
+if test -f "$libdir/Orca_Services.$HOSTNAME"; then
+    $libdir/Orca_Services `cat $libdir/Orca_Services.$HOSTNAME`
 else
-    $libdir/orca_services
+    $libdir/Orca_Services
 fi
 
-### # Write the PID of orca_services to a file to make killing easier.
+### # Write the PID of Orca_Services to a file to make killing easier.
 ### pid=$!
-### echo $pid > $OUTDIR/orca_services.pid
+### echo $pid > $OUTDIR/Orca_Services.pid
 
-# Sleep for a couple of seconds to allow any orca_services warnings to appear.
+# Sleep for a couple of seconds to allow any Orca_Services warnings to appear.
 sleep 5

Copied: Orca_Services_running.pl.in (from rev 207, branches/orca/import_orca_services_2.0/data_gatherers/orca_services/orca_services_running.pl.in)

Copied: Orca_Services.pl.in (from rev 207, branches/orca/import_orca_services_2.0/data_gatherers/orca_services/orca_services.pl.in)

Copied: restart_Orca_Services.sh.in (from rev 207, branches/orca/import_orca_services_2.0/data_gatherers/orca_services/restart_orca_services.sh.in)

Copied: stop_Orca_Services.sh.in (from rev 207, branches/orca/import_orca_services_2.0/data_gatherers/orca_services/stop_orca_services.sh.in)

Copied: Orca_Services.cfg.in (from rev 207, branches/orca/import_orca_services_2.0/data_gatherers/orca_services/orca_services.cfg.in)

Copied: S99Orca_Services.sh.in (from rev 207, branches/orca/import_orca_services_2.0/data_gatherers/orca_services/S99orca_services.sh.in)

Deleted: branches/orca/import_orca_services_2.0/data_gatherers/orca_services/orca_services.pl.in
==============================================================================
--- branches/orca/import_orca_services_2.0/data_gatherers/orca_services/orca_services.pl.in	(original)
+++ branches/orca/import_orca_services_2.0/data_gatherers/orca_services/orca_services.pl.in	2003-03-09 08:40:09.000000000 -0800
@@ -1,281 +0,0 @@
-# orca_services.pl, a log generating services usage monitor
-#
-# This program logs many different services usage to a log file
-# for later processing.
-#
-# Author: Sjaak Westdijk <westdijk at fastmail.fm>
-#
-# thanks to :
-#     Carlos Canau <Carlos.Canau at KPNQwest.pt>
-#     Jose Carlos Pereira <Jose.Pereira at KPNQwest.pt>
-#
-# Most code is adapted from Orca_servcies 1.X written by Carlos Canau
-#
-# Portions ported to perl from Orcallator.se written by Blair Zajac
-# other portions adapted from several other open source scripts
-#
-#
-# BUGS:
-#
-#
-# TODO:
-#
-#
-# LICENSE:
-#         GPL.
-#         (c) 2003      Sjaak Westdijk
-#         (c) 2000-2002 Carlos Canau & Jose Carlos Pereira
-#
-#
-# DISCLAIMER:
-#            you use this program at your own and complete risk
-#            if you don't agree with that then delete it
-#
-
-# Set the location of the Orca_Services modules.
-BEGIN {
-	my $prefix      = "@prefix@";
-	my $exec_prefix = "@exec_prefix@";
-	my $libdir      = "@libdir@";
-	unshift(@INC, $libdir);
-}
-
-#
-# which standard modules to use
-#
-require 5.004;
-use Fcntl;
-use Getopt::Long;                                 # option handler
-use POSIX;                                        # useful functions
-use IO::Handle;
-use IO::File;
-
-#
-# which Orca_Services modules to use
-#
-use Orca_Services::Vars;
-use Orca_Services::Utils;
-use Orca_Services::Output;
-use Orca_Services::Sendmail;
-#use Orca_Services::Dns;
-use Orca_Services::Mailq;
-use Orca_Services::Http;
-#use Orca_Services::Nntp;
-#use Orca_Services::Pop;
-use Orca_Services::Slapd;
-#use Orca_Services::MeritRad;
-#use Orca_Services::Radius;
-
-#
-# See if the modules load succesfully
-#
-if ($Options{debug}) {
-	while ( ($service, $params) = each %Services) {
-		print "$service:\n";
-		while ( ($par, $val) = each %$params) {
-			print "\t$par=$val\n";
-		}
-		print "\n";	
-	}
-}
-
-#
-# Get the options
-#
-GetOptions(%PrgOptions) || usage();
-usage() if $Options{help};
-
-#
-# Look if the options succesfully set
-#
-if ($Options{debug}) {
-	while ( ($options) = each %PrgOptions) {
-		print "$options => $PrgOptions{$options}\n";
-	}
-	print "\n";	
-
-	while ( ($options) = each %Options) {
-		print "$options => $Options{$options}\n";
-	}
-	print "\n";	
-}
-
-if ($Options{debug} == 0) {
-	exit if fork;
-}
-
-#
-# Create the ouput dir structure
-#
-system ("mkdir $Options{outputdir} 2>/dev/null");             # ignore return value
-system ("chmod 0755 $Options{outputdir} 2>/dev/null");        # if you can change these
-                                                     # two systems bye the perl
-                                                     # syscall ... :-)
-system ("mkdir $Options{outputdir}/$nodename 2>/dev/null");   # ignore return value
-system ("chmod 0755 $Options{outputdir}/$nodename 2>/dev/null");
-
-&logit ("ready (pid $$)");
-if (open(P, "> $Options{pidfile}")) {
-	print P "$$\n";
-	close P;
-} else {
-	&logit("can't save pid (can't write to \`$Options{pidfile}')");
-	warn "$progname: can't save pid (can't write to \`$Options{pidfile}')\n";
-}
-
-
-
-#
-# init the services
-#
-print "Initializing : ";
-while ( ($service) = each %Services) {
-	if ($Services{$service}{File} !~ /^off$/i) {
-		my $func= $Services{$service}{Init};
-		if ($func eq "") {
-			next;
-		}
-		$Services{$service}{Ok} = &$func($Services{$service}{File});
-	}
-	print "$service($Services{$service}{Ok}) ";
-}
-print "\n";	
-
-while () {
-	my $outputfile_ok = 0;
-	my ($now, $sleep_till);
-
-	$now        = time;
-	$sleep_till = ($now/$Options{interval}) * $Options{interval};
-	while ($sleep_till < $now + $Options{interval}*0.5) {
-		$sleep_till += $Options{interval};
-	}
-
-	&measure_head ($now);
-
-	#
-	# Init the services vars
-	#
-	while ( ($service) = each %Services) {
-		if ($Services{$service}{Ok} == 0) {
-			my $func= $Services{$service}{Init_Vars};
-			if ($func eq "") {
-				next;
-			}
-			&$func();
-		}
-	}
-
-	#
-	# call the measure routines...
-	# 
-	&measure ($sleep_till);
-
-	while ( ($service) = each %Services) {
-		if ($Services{$service}{Ok} == 0) {
-			my $func= $Services{$service}{Put};
-			if ($func eq "") {
-				next;
-			}
-			&$func();
-		}
-	}
-
-	$outputfile_ok = &check_output ("$Options{outputdir}/$nodename");
-
-	&flush_output ();
-
-}
-
-# got here ? how ??
-exit 0;
-
-#
-# The usage stuff
-#
-sub usage {
-	print "Usage: $progname [options]\n";
-	print "($progname uses the GNU extended POSIX option format)\n";
-	print "\n";
-
-	while ( ($helpline) = each %HelpText) {
-		print "$HelpText{$helpline} $helpline)\n";
-	}
-	print "--help, --version this option summary\n";
-
-	print "\n";
-	print "Note: use filename 'off' to turn off the specific service\n";
-	print "\n";
-	print " This is $progname version $VERSION\n";
-	print "\n";
-
-	exit;
-}
-
-#
-# Cycle several measurables
-#
-# usage: &measure( $sleep_till );
-#
-sub measure () {
-	my ($sleep_till) = @_;
-	$now = time;
-
-	while ($now < $sleep_till) {
-		printf "MEASURE: sleeping for 5\n" if $Options{debug};
-		sleep(5);
-		$now = time;
-
-		# measure...
-		while ( ($service) = each %Services) {
-			if ($Services{$service}{Ok} == 0 && $Services{$service}{External} == 0) {
-				my $func= $Services{$service}{Measure};
-				if ($func eq "") {
-					next;
-				}
-				&$func();
-			}
-		}
-		# measure...
-
-		$now = time;
-	} # while ($now < $sleep_till)
-
-	#
-	# put in the end... calls external prog.
-	#
-	while ( ($service) = each %Services) {
-		if ($Services{$service}{Ok} == 0 && $Services{$service}{External} == 1) {
-			my $func= $Services{$service}{Measure};
-			if ($func eq "") {
-				next;
-			}
-			&$func();
-		}
-		#
-		# some internal services has something extra to check
-		#
-		if (defined($Services{$service}{Extra})) {
-			my $func= $Services{$service}{Extra};
-			if ($func eq "") {
-				next;
-			}
-			&$func();
-		}
-	}
-
-	return 0;
-}
-
-#
-# measure_head -- put first values
-#
-# usage: &measure_head($time)
-#
-sub measure_head() {
-	my ($time) = @_;
-
-	$now_string = strftime "%T", localtime;
-	&put_output(" timestamp", sprintf("%10d", $time));
-	&put_output("locltime", $now_string);
-}

Deleted: branches/orca/import_orca_services_2.0/data_gatherers/orca_services/orca_services_running.pl.in
==============================================================================
--- branches/orca/import_orca_services_2.0/data_gatherers/orca_services/orca_services_running.pl.in	(original)
+++ branches/orca/import_orca_services_2.0/data_gatherers/orca_services/orca_services_running.pl.in	2003-03-09 08:40:09.000000000 -0800
@@ -1,41 +0,0 @@
-# orca_services_running: warn if orca_services files are not up to date.
-#
-# Copyright (C) 2000 Carlos Canau and KPNQwest Portugal
-# Copyright (C) 1998, 1999 Blair Zajac and Yahoo!, Inc.
-
-use strict;
-use POSIX qw(strftime);
-
-# Set this to the list of directories that contain the output from
-# percoservices.se.
-my @stats_dirs = ('@VAR_DIR@/orca_services');
-
-foreach my $stats_dir (@stats_dirs) {
-
-  die "$0: unable to change to `$stats_dir'" unless chdir $stats_dir;
-
-  die "$0: unable to open `.' for reading: $!\n" unless opendir(DIR, '.');
-
-  my @hosts = sort grep { $_ !~ /^\./ } readdir(DIR);
-
-  closedir(DIR);
-
-  print "Now in $stats_dir\n";
-
-  my $percol = strftime("percol-%Y-%m-%d", localtime());
-
-  foreach my $host (@hosts) {
-    my $file = "$host/$percol";
-    unless (-f $file) {
-      warn "$0: $file does not exist.\n";
-      next;
-    }
-    my $age = (-M $file)*(24*60);
-    if ( $age > 8) {
-      $file= sprintf "%35s", $file;
-      $age = sprintf "%8.2f", $age;
-      warn "$0: $file is $age minutes old.\n";
-      next;
-    }
-  }
-}

Deleted: branches/orca/import_orca_services_2.0/data_gatherers/orca_services/restart_orca_services.sh.in
==============================================================================
--- branches/orca/import_orca_services_2.0/data_gatherers/orca_services/restart_orca_services.sh.in	(original)
+++ branches/orca/import_orca_services_2.0/data_gatherers/orca_services/restart_orca_services.sh.in	2003-03-09 08:40:09.000000000 -0800
@@ -1,12 +0,0 @@
-#!/bin/sh
-
-# This stops and restarts orca_services.
-prefix=@prefix@
-exec_prefix=@exec_prefix@
-bindir=@bindir@
-
-# Kill any running orca_servicess.
-$bindir/stop_orca_services
-
-# Start the orca_services.
-$bindir/start_orca_services

Deleted: branches/orca/import_orca_services_2.0/data_gatherers/orca_services/stop_orca_services.sh.in
==============================================================================
--- branches/orca/import_orca_services_2.0/data_gatherers/orca_services/stop_orca_services.sh.in	(original)
+++ branches/orca/import_orca_services_2.0/data_gatherers/orca_services/stop_orca_services.sh.in	2003-03-09 08:40:09.000000000 -0800
@@ -1,30 +0,0 @@
-#!/bin/sh
-
-AWK=@AWK@
-UNAME=/usr/bin/uname
-
-OPERSYS=`$UNAME -s`
-
-# Kill any running orcallators.
-if test "${OPERSYS}" = "Linux"; then
-    PSCMD="/bin/ps"
-else
-    PSCMD="/usr/ucb/ps" # Solaris
-fi
-
-pids=`$PSCMD auxww | $AWK '/orca_services/ && !/awk/ && !/stop_orca_services/ && !/ \/etc\/init\.d/ && !/ \/etc\/rc/ {print $2}'`
-if test "$pids" != ""; then
-  echo "Killing pids $pids."
-  kill -HUP $pids
-  sleep 1
-  pids=`$PSCMD auxww | $AWK '/orca_services/ && !/awk/ && !/stop_orca_services/ && !/ \/etc\/init\.d/ && !/ \/etc\/rc/ {print $2}'`
-  if test "$pids" != ""; then
-    kill -TERM $pids
-    sleep 1
-    pids=`$PSCMD auxww | $AWK '/orca_services/ && !/awk/ && !/stop_orca_services/ && !/ \/etc\/init\.d/ && !/ \/etc\/rc/ {print $2}'`
-    if test "$pids" != ""; then
-      kill -9 $pids
-      sleep 1
-    fi
-  fi
-fi

Deleted: branches/orca/import_orca_services_2.0/data_gatherers/orca_services/S99orca_services.sh.in
==============================================================================
--- branches/orca/import_orca_services_2.0/data_gatherers/orca_services/S99orca_services.sh.in	(original)
+++ branches/orca/import_orca_services_2.0/data_gatherers/orca_services/S99orca_services.sh.in	2003-03-09 08:40:09.000000000 -0800
@@ -1,31 +0,0 @@
-#!/bin/sh
-
-prefix=@prefix@
-exec_prefix=@exec_prefix@
-bindir=@bindir@
-
-case "$1" in
-'start')
-	if [ -x $bindir/start_orca_services.sh ]; then
-		umask 022
-		$bindir/start_orca_services.sh
-	else
-		echo "$0: $bindir/start_orca_services.sh does not exist or is not executable."
-	fi
-	;;
-
-'stop')
-	if [ -x $bindir/stop_orca_services.sh ]; then
-		$bindir/stop_orca_services.sh
-	else
-		echo "$0: $bindir/stop_orca_services.sh does not exist or is not executable."
-	fi
-	;;
-
-*)
-	echo "Usage: $0 { start | stop }"
-	exit 1
-	;;
-
-esac
-exit 0

Deleted: branches/orca/import_orca_services_2.0/data_gatherers/orca_services/orca_services.cfg.in
==============================================================================
--- branches/orca/import_orca_services_2.0/data_gatherers/orca_services/orca_services.cfg.in	(original)
+++ branches/orca/import_orca_services_2.0/data_gatherers/orca_services/orca_services.cfg.in	2003-03-09 08:40:09.000000000 -0800
@@ -1,594 +0,0 @@
-# Orca configuration file for orca_services files.
-
-# Require at least this version of Orca.
-require			0.27
-
-# base_dir is prepended to the paths find_files, html_dir, rrd_dir,
-# and state_file only if the path does not match the regular
-# expression ^\\?\.{0,2}/, which matches /, ./, ../, and \./.
-base_dir		@RRD_DIR@/orca_services
-
-# rrd_dir specifies the location of the generated RRD data files.  If
-# rrd_dir is a relative path, then it is made relative to base_dir if
-# base_dir is set.
-rrd_dir			.
-
-# state_file specifies the location of the state file that remembers
-# the modification time of each source data file.  If state_file is a
-# relative path, then it is made relative to base_dir is base_dir is
-# set.
-state_file		orca.state
-html_dir		@HTML_DIR@/orca_services
-
-# By default create .meta tag files for all PNGs or GIFs so that the
-# web browser will automatically reload them.
-expire_images		1
-
-# Find files at the following times:
-#    0:10 to pick up new orca_services files for the new day.
-#    1:00 to pick up late comer orca_services files for the new day.
-#    6:00 to pick up new files before the working day.
-#   12:00 to pick up new files during the working day.
-#   19:00 to pick up new files after the working day.
-find_times		0:10 1:00 6:00 12:00 19:00
-
-# This defines the email address of people to warn when a file that is
-# being updated constantly stops being updated.  For mathematical
-# expressions use the word `interval' to get the interval number for
-# the data source.
-warn_email		root at localhost
-late_interval		interval + 30
-
-# These parameters specify which plots to generate.
-generate_hourly_plot	1
-generate_daily_plot	1
-generate_weekly_plot	1
-generate_monthly_plot	1
-generate_quarterly_plot	1
-generate_yearly_plot	1
-
-# This defines where the find the source data files and the format of
-# those files.  Notes about the fields:
-# find_files
-#   You'll notice that all but the first () has the form (?:...).
-#   This tells Perl to match the expression but not save the matched
-#   text in the $1, $2, variables.  Orca uses the matched text to
-#   generate a subgroup name, which is used to place files into
-#   different subgroups.  Here, only the hostname should be used to
-#   generate a subgroup name, hence all the (?:...) for matching
-#   anything else.
-# interval
-#   The interval here must match the interval used by orca_services to
-#   record data.  Do not change this, as it has an effect on the
-#   generated RRD data files.
-group orca_services {
-find_files		@VAR_DIR@/orca_services/(.*)/(?:(?:orca_services)|(?:orcaservices))-\d{4}-\d{2}-\d{2}(?:-\d{3,})?(?:\.(?:Z|gz|bz2))?
-column_description	first_line
-date_source		column_name timestamp
-interval		300
-reopen			1
-filename_compare	sub {
-			  my ($ay, $am, $ad) = $a =~ /-(\d{4})-(\d\d)-(\d\d)/;
-			  my ($by, $bm, $bd) = $b =~ /-(\d{4})-(\d\d)-(\d\d)/;
-			  if (my $c = (( $ay       <=>  $by) ||
-			               ( $am       <=>  $bm) ||
-			               (($ad >> 3) <=> ($bd >> 3)))) {
-			    return 2*$c;
-			  }
-			  $ad <=> $bd;
-			}
-}
-
-#
-# ATTENTION: change this to your values
-#
-html_top_title		Orca_services Status
-
-#
-# ATTENTION: change this to your values
-#
-html_page_header <h3>Put your site's logo here.</h3>
-
-html_page_footer
-  <spacer type=vertical size=20>
-  <font face="Arial,Helvetica">
-    These plots brought to you by your local system administrator.
-  </font>
-
-
-plot {
-title			%g SMTP Mail Queue
-source			orca_services
-data			mailq_total
-legend			Msgs. in queue (5m)
-y_legend		Number of Messages
-line_type		line2
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html#SMTP_Mail_Queue
-}
-
-plot {
-title			%g SMTP Messages in 5 minutes
-source			orca_services
-data			smtp_from
-data			smtp_sent
-legend			Messages In (5m)
-legend			Messages Out (5m)
-y_legend		Number of Messages
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html#SMTP_Messages_in_5_minutes
-}
-
-plot {
-title			%g SMTP Virus & Spam in 5 minutes
-source			orca_services
-data			smtp_virus
-data			smtp_spam
-legend			Virus (5m)
-legend			Spam Messages (5m)
-y_legend		Number of Messages
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html
-}
-
-plot {
-title			%g SMTP Failed
-source			orca_services
-data			smtp_torf
-data			smtp_c_ml
-data			smtp_c_rt
-data			smtp_ntfs
-legend			Temp or Fatal Error (5m)
-legend			Check Mail (5m)
-legend			Check Rcpt (5m)
-legend			Portmaster Notifies (5m)
-y_legend		Number of Messages
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html#SMTP_Failed
-}
-
-plot {
-title			%g SMTP Size
-source			orca_services
-data			smtp_sizes
-data			smtp_tops
-line_type		area
-line_type		line1
-legend			5 min average
-legend			Peak 5 minute
-y_legend		Message size (bytes)
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html#SMTP_Size
-}
-
-plot {
-title			%g SMTP Delay
-source			orca_services
-data			smtp_delay
-data			smtp_maxd
-line_type		area
-line_type		line1
-legend			5 min average
-legend			Peak 5 minute
-y_legend		Message Delay (seconds)
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html#SMTP_Delay
-}
-
-plot {
-title			%g SMTP Retries and Queueing
-source			orca_services
-data			smtp_rtrs
-data			smtp_queued
-legend			Retries (5m)
-legend			Messages Queued (5m)
-y_legend		Number of Messages
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html#SMTP_Retries_and_Queueing
-}
-
-plot {
-title			%g SMTP DSN and Undefs
-source			orca_services
-data			smtp_dsns
-data			smtp_undf
-legend			Number of DSNs (5m)
-legend			Undefined log (5m)
-y_legend		Number of Messages
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html#SMTP_DSN_and_Undefs
-}
-
-plot {
-title			%g SMTP Over Quota in 5 minutes
-source			orca_services
-data			smtp_overquota
-legend			Over Quota (5m)
-y_legend		Number of Messages
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html
-}
-
-
-
-
-plot {
-title			%g MERIT RADIUS AUTH in 5 minutes
-source			orca_services
-data			radius_auth
-data			radius_auth_ok
-data			radius_auth_nok
-legend			Auth (5m)
-legend			Auth OK (5m)
-legend			Auth FAILED (5m)
-y_legend		Number of Auth Packets
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html#MERIT_RADIUS_AUTH_in_5_minutes
-}
-
-plot {
-title			%g MERIT RADIUS ACCT in 5 minutes
-source			orca_services
-data			radius_acct_start
-data			radius_acct_stop
-legend			Start records (5m)
-legend			Stop records (5m)
-y_legend		Number of Acct Packets
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html#MERIT_RADIUS_ACCT_in_5_minutes
-}
-
-plot {
-title			%g MERIT RADIUS REMOTE AUTH in 5 minutes
-source			orca_services
-data			radius_rem_auth
-data			radius_rem_auth_ok
-data			radius_rem_auth_nok
-legend			Remote Auth (5m)
-legend			Remote Auth OK (5m)
-legend			Remote Auth FAILED (5m)
-y_legend		Number of Remote Auth Packets
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html#MERIT_RADIUS_REMOTE_AUTH_in_5_minutes
-}
-
-plot {
-title			%g MERIT RADIUS UNDEFS in 5 minutes
-source			orca_services
-data			radius_undefs
-legend			Undef lines (5m)
-y_legend		Number of undef lines
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html#MERIT_RADIUS_UNDEFS_in_5_minutes
-}
-
-
-
-plot {
-title			%g POP SESSIONS in 5 minutes
-source			orca_services
-data			pop_connect
-data			pop_login
-data			pop_logout
-legend			Connect (5m)
-legend			Login (5m)
-legend			Logout (5m)
-y_legend		Units in 5 minutes
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html#POP_SESSIONS_in_5_minutes
-}
-
-plot {
-title			%g POP DENIED in 5 minutes
-source			orca_services
-data			pop_failure
-data			pop_refused
-legend			Failures (5m)
-legend			Refused (5m)
-y_legend		Units in 5 minutes
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html#POP_DENIED_in_5_minutes
-}
-
-plot {
-title			%g POP FAILURES in 5 minutes
-source			orca_services
-data			pop_net_error
-data			pop_local_error
-legend			Network errors (5m)
-legend			Local errors (5m)
-y_legend		Units in 5 minutes
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html#POP_FAILURES_in_5_minutes
-}
-
-plot {
-title			%g POP UNDEFS in 5 minutes
-source			orca_services
-data			pop_undefs
-legend			Undefs (5m)
-y_legend		Units in 5 minutes
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html#POP_UNDEFS_in_5_minutes
-}
-
-plot {
-title			%g Radius time usage
-source			orca_services
-line_type		line2
-data			rad_time / 60
-legend			Time consumption (5 min)
-y_legend		Minutes
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html#Radius_time_usage
-}
-
-plot {
-title			%g Radius accumulated time usage
-source			orca_services
-line_type		line2
-data			radius_inc_time / 60
-legend			Time consumption (5 min)
-y_legend		Minutes
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html#Radius_time_usage
-}
-
-plot {
-title			%g Radius sessions
-source			orca_services
-line_type		line2
-data			rad_sessions
-legend			Number of Sessions (5 min)
-y_legend		Terminated Sessions
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html#Radius_sessions
-}
-
-plot {
-title			%g Radius accumulated sessions
-source			orca_services
-line_type		line2
-data			radius_inc_sessions
-legend			Number of Sessions (5 min)
-y_legend		Terminated Sessions
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html#Radius_sessions
-}
-
-
-
-plot {
-title			%g NAMED CPU Usage in 10 minutes
-source			orca_services
-data			dns_cpu_u
-data			dns_cpu_s
-data			dns_ccpu_u
-data			dns_ccpu_s
-line_type		line2
-line_type		line2
-line_type		line2
-line_type		line2
-legend			User
-legend			System
-legend			Child User
-legend			Child System
-y_legend		Seconds in 10 minutes
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html#NAMED_CPU_Usage_in_1_hour
-}
-
-plot {
-title			%g NAMED Major queries
-source			orca_services
-data			dns_a
-data			dns_ptr
-data			dns_mx
-data			dns_any
-line_type		line2
-line_type		line2
-line_type		line2
-line_type		line2
-legend			A
-legend			PTR
-legend			MX
-legend			ANY
-y_legend		Units in 10 minutes
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html#NAMED_Major_queries
-}
-
-plot {
-title			%g NAMED Minor queries
-source			orca_services
-data			dns_ns
-data			dns_soa
-data			dns_axfr
-data			dns_aaaa
-data			dns_other
-line_type		line2
-line_type		line2
-line_type		line2
-line_type		line2
-line_type		line2
-legend			NS
-legend			SOA
-legend			AXFR
-legend			AAAA
-legend			OTHER
-y_legend		Units in 10 minutes
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html#NAMED_Minor_queries
-}
-
-plot {
-title			%g NAMED Received
-source			orca_services
-data			dns_rr
-data			dns_rq
-data			dns_rother
-line_type		line2
-line_type		line2
-line_type		line2
-legend			R-Responses
-legend			R-Queries
-legend			R-OTHER
-y_legend		Units in 10 minutes
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html#NAMED_Received
-}
-
-plot {
-title			%g NAMED Sent
-source			orca_services
-data			dns_sans
-data			dns_snaans
-data			dns_snxd
-data			dns_sother
-line_type		line2
-line_type		line2
-line_type		line2
-line_type		line2
-legend			S-Answer
-legend			S-NA Answer
-legend			S-Negative
-legend			S-OTHER
-y_legend		Units in 10 minutes
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html#NAMED_Sent
-}
-
-plot {
-title			%g HTTP Processes
-source			orca_services
-data			http_procs
-line_type		line2
-legend			HTTP Processes
-y_legend		Number of processes
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html#HTTP_Processes
-}
-
-plot {
-title			%g HTTP requests
-source			orca_services
-data			http_hits
-data			http_condgets
-data			http_gets
-data			http_heads
-data			http_posts
-data			http_errors
-data			http_undefs
-line_type		line2
-line_type		line2
-line_type		line2
-line_type		line2
-line_type		line2
-line_type		line2
-line_type		line2
-legend			HIT
-legend			cond GET
-legend			GET
-legend			HEAD
-legend			POST
-legend			Errors
-legend			Undefs
-y_legend		Units in 5 minutes
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html#HTTP_requests
-}
-
-plot {
-title			%g HTTP Bps
-source			orca_services
-data			http_Bps
-line_type		line2
-legend			HTTP bandwidth
-y_legend		BYTES per Second
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html#HTTP_Bps
-}
-
-plot {
-title			%g HTTP request size
-source			orca_services
-data			http_1k * 100
-data			http_10k * 100
-data			http_100k * 100
-data			http_1000k * 100
-data			http_1M * 100
-line_type		area
-line_type		stack
-line_type		stack
-line_type		stack
-line_type		stack
-legend			% of < 1Kb requests
-legend			% of < 10Kb requests
-legend			% of < 100Kb requests
-legend			% of < 1000Kb requests
-legend			% of > 1Mb requests
-y_legend		Percent
-data_min		0
-data_max		120
-href			http://o-s.kpnqwest.pt/orca_services.html#HTTP_request_size
-}
-
-
-
-plot {
-title			%g NNTP Statistics in 5 minutes
-source			orca_services
-data			nntpcache_connects
-data			nntpcache_groups
-data			nntpcache_articles
-legend			Connects (5m)
-legend			GROUPs (5m)
-legend			ARTICLEs (5m)
-y_legend		Units in 5 minutes
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html
-}
-
-plot {
-title			%g SLAPD Statistics in 5 minutes
-source			orca_services
-data			slapd_binds
-data			slapd_searchs
-legend			BINDs (5m)
-legend			SRCHs (5m)
-y_legend		Units in 5 minutes
-data_min		0
-data_max		U
-href			http://o-s.kpnqwest.pt/orca_services.html
-}
-



More information about the Orca-checkins mailing list