# BCwin32.ctl: Windows Specific Code for Background Collection (Sampling) # $Id: BCwin32.ctl,v 1.2 2013/10/30 07:18:47 RDA Exp $ # ARCS: $Header: /home/cvs/cvs/RDA_8/src/scripting/lib/collect/SAMPLE/BCwin32.ctl,v 1.2 2013/10/30 07:18:47 RDA Exp $ # # Change History # 20120609 MSC Initial RDA 5 version. =head1 NAME SAMPLE:BCwin32 - Submodule for Windows-Specific Background Collections =head1 DESCRIPTION This module contains the operating system-specific code for the sampling modules. =cut # Make the module persistent keep $KEEP_BLOCK # Get the calling module var ($MODULE,$FACTOR) = @arg import $TOC,$TOP #------------------------------------------------------------------------------ =head1 CONTRIBUTION TO THE NPRF MODULE Collected information: =over 4 =item o C =item o C =back =cut if compare('eq',$MODULE,'NPRF') {# Collect the performance information #thread #{import $FACTOR # report iostat # call writeCommand('iostat -x 1 1',true,$FACTOR) #} #thread #{import $FACTOR # report lsof # call writeCommand('lsof -S 2',true,$FACTOR) #} #thread #{import $FACTOR # report mpstat # call writeCommand('mpstat -P ALL',true,$FACTOR) #} thread {import $FACTOR report netstat call writeCommand('netstat -s',true,$FACTOR) } thread {import $FACTOR report ps call writeCommand('tasklist /V',true,$FACTOR) } #thread #{import $FACTOR # report top # call writeCommand('top -b -n 1',true,$FACTOR) #} #thread #{import $FACTOR # report uptime # call writeCommand('uptime',true,$FACTOR) #} #thread #{import $FACTOR # report vmstat # call writeCommand('vmstat 1 1',true,$FACTOR) #} # Specify the trace route command var \$CMD = $arg[2] var $CMD = 'tracert %s' } #------------------------------------------------------------------------------ =head1 CONTRIBUTION TO THE RPRF MODULE Not applicable =cut elsif compare('eq',$MODULE,'RPRF') { } #------------------------------------------------------------------------------ =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