# DCnperf.ctl:E800:Samples Performance Information (root not required)
# $Id: DCnperf.ctl,v 1.3 2015/01/19 15:29:08 RDA Exp $
# ARCS: $Header: /home/cvs/cvs/RDA_8/src/scripting/lib/collect/SAMPLE/DCnperf.ctl,v 1.3 2015/01/19 15:29:08 RDA Exp $
#
# Change History
# 20150119  MSC  Change the factor settings.

use Lock

=head1 NAME

SAMPLE:NPERF - Samples Performance Data (root not required)

=head1 DESCRIPTION

This module performs the operating system performance data sampling for the RDA
process. In most platforms, you can run this module without root privileges.

=cut

# Only execute the module in sampling mode
if !${RUN.SAMPLE.N_CURRENT}
 return

# Initialization
var $NET_FACTOR = ${R_NET_FACTOR:1}
var $OS_FACTOR  = ${R_OS_FACTOR:1}
var $TRACEROUTE

var $TOC = '%TOC%'
var $TOP = '[[#Top][Back to top]]'

=head2 System Performance

Gets a performance overview (platform-specific code).

=cut

run &{check(getOsName(),\
  'aix',            'SAMPLE:BCaix',\
  'darwin',         'SAMPLE:BCdarwin',\
  'dec_osf',        'SAMPLE:BCosf',\
  'dynixptx',       'SAMPLE:BCptx',\
  'hpux',           'SAMPLE:BChpux',\
  'linux',          'SAMPLE:BClinux',\
  'solaris',        'SAMPLE:BCsunos',\
  cond(isCygwin(),  'SAMPLE:BCunix',\
       isUnix(),    'SAMPLE:BCunix',\
       isWindows(), 'SAMPLE:BCwin32'))}('NPRF',$OS_FACTOR,\$TRACEROUTE)

=head2 Trace Route Information

Optionally, you can collect trace route information to specified hosts. Those
tests are not necessarily executed for each sample.

=cut

if ${B_TRACEROUTE}
{if !expr('%',${RUN.SAMPLE.N_COUNT},${N_RATE:5})
 {job
  {if lock('trc',true)
   {import $NET_FACTOR,$TRACEROUTE
    output >> S,trace
    write '---+ ', ${RUN.SAMPLE.N_CURRENT}
    loop $val (@{T_HOSTS})
     call writeCommand(sprintf($TRACEROUTE,$val),true,$NET_FACTOR)
    close
    call unlock('trc')
   }
  }
 }
}

=head1 SEE ALSO

L<SAMPLE:BCaix|collect::SAMPLE:BCaix>,
L<SAMPLE:BChpux|collect::SAMPLE:BCdarwin>,
L<SAMPLE:BChpux|collect::SAMPLE:BChpux>,
L<SAMPLE:BClinux|collect::SAMPLE:BClinux>,
L<SAMPLE:BCosf|collect::SAMPLE:BCosf>,
L<SAMPLE:BCptx|collect::SAMPLE:BCptx>,
L<SAMPLE:BCsunos|collect::SAMPLE:BCsunos>,
L<SAMPLE:BCunix|collect::SAMPLE:BCunix>,
L<SAMPLE:BCwin32|collect::SAMPLE:BCwin32>,
L<SAMPLE:DCsample|collect::SAMPLE:DCsample>

=begin credits

=over 14

=item OSwatcher:    Carl Davis.

=item shtriage:     Greg Marsden.

=item sys_watcher:  John Sobecki.

=back

=end credits

=head1 COPYRIGHT NOTICE

Copyright (c) 2002, 2016, Oracle and/or its affiliates. All rights reserved.

=head1 TRADEMARK NOTICE

Oracle and Java are registered trademarks of Oracle and/or its
affiliates. Other names may be trademarks of their respective owners.

=cut