Exporting Custom Output
Introduction
With Version 2.6.0 comes a redesign of the mechanism for producing custom
output through the use of --export. In fact enough flexibility has
been added that code for producing s-expressions as well as
vmstat output have now been moved to 2 external files named
sexpr.ph and vmstat.ph both of which can now be found in
/opt/hp/collectl along with a new format called list-oriented
which can be delivered via lexpr.ph. The reason anyone should care
is that now if you want to produce your own exportable form of output and
be able to print it locally, make it available to another program over a
socket or even write to a local file and still be able to log to raw
and/or plot formats, you get that all that functionality for free.
How It Works
The interface to all this is really quite simple. At the command line the user
types collectl --export name[,options] [--expdir dirname] where:
- name both names a file to be required by collectl as well as
the name of the entry points to both an initialization routine as well as one
that produces the output
- options specifies an optional list of arguments that are passed to both
routines to do with whatever they wish
- dirname is available for specifying an alternative to the directory
specified by -f
Perhaps the best way to see how all this works is with a simple example and
it turns out that vmstat.ph is small enough to meet that need. You
can also refer to the others as well.
This first section gets called almost immediately by collectl after reading
in the various user switches. This is the place to catch switch errors
and since this routine always requires -scm we'll just hardcode it
to that and reject any user entered ones. It is named for out module followed
by Init.
sub vmstatInit
{
error("'vmstat' doesn't support --expdir") if $expDir ne '';
error("-s not allowed with 'vmstat'") if $userSubsys ne '';
error("-f requires either --rawtoo or -P") if $filename ne '' && !$rawtooFlag && !$plotFlag;
error("-P or --rawtoo require -f") if $filename eq '' && ($rawtooFlag || $plotFlag);
$subsys=$userSubsys='cm';
}
Next we define the output routine, with the same base name as that
of our included file.
The if statement uses collectl's standard idiom for printing headers
based on the number of lines printed and whether or not the user wants only a
singleheader, no header or even to clear the screen between headers. If you
do not want/need all these features it's perfectly fine to use a more simplifed
header printing mechanism, such as the one is sexpr.ph.
sub vmstat
{
my $line;
if (($headerRepeat==0 && !$headersPrinted) || ($headerRepeat>0 && ($totalCounter % $headerRepeat)==1))
{
$line= "${cls}#${miniBlanks}procs ---------------memory (KB)--------------- --swaps-- -----io---- --system-- ----cpu-----\n";
$line.="#$miniDateTime r b swpd free buff cache inact active si so bi bo in cs us sy id wa\n";
}
Next comes the handling of optional date/time prefixes that I stole from
printTerm() in formatit.ph which can be controlled
by various switch options. Again, if you have no intent of supporting these
you can even put in error handling in your initialization routine
or simply ignore the switches.
my $datetime='';
if ($options=~/[dDTm]/)
{
($ss, $mm, $hh, $mday, $mon, $year)=localtime($lastSecs);
$datetime=sprintf("%02d:%02d:%02d", $hh, $mm, $ss);
$datetime=sprintf("%02d/%02d %s", $mon+1, $mday, $datetime) if $options=~/d/;
$datetime=sprintf("%04d%02d%02d %s", $year+1900, $mon+1, $mday, $datetime) if $options=~/D/;
$datetime.=".$usecs" if ($options=~/m/);
$datetime.=" ";
}
Here we build the actual output, noting that we're not really printing
anything yet, but rather building up a string (which may contain the header)
that we will print in one shot.
my $i=$NumCpus;
my $usr=$userP[$i]+$niceP[$i];
my $sys=$sysP[$i]+$irqP[$i]+$softP[$i]+$stealP[$i];
$line.=sprintf("%s %2d %2d %6s %6s %6s %6s %6s %6s %4d %4d %5d %5d %4d %5d %2d %2d %3d %2d\n",
$datetime, $procsRun, $procsBlock,
cvt($swapUsed,6,1,1), cvt($memFree,6,1,1), cvt($memBuf,6,1,1),
cvt($memCached,6,1,1), cvt($inactive,6,1,1), cvt($active,6,1,1),
$swapin/$intSecs, $swapout/$intSecs, $pagein/$intSecs, $pageout/$intSecs,
$intrpt/$intSecs, $ctxt/$intSecs,
$usr, $sys, $idleP[$i], $waitP[$i]);
Finally comes the output. There is actually a lot of latitude here and in this case
we're caling printText() which will send the output to the terminal or over a
socket. It will not write to a local file as does sexpr or lexpr, but if you
want to see how to do that, refer to them. As with all perl require files, they must
return true and therefore the final statement that consists of the digit 1.
Try running it and you'll see all the pagination and time formats work just as they
do with standard output formats.