# LDjrockt.ctl: Collects Oracle JRockit Reports
# $Id: LDjrockt.ctl,v 1.4 2015/08/21 15:30:22 RDA Exp $
# ARCS: $Header: /home/cvs/cvs/RDA_8/src/scripting/lib/collect/OFM/LDjrockt.ctl,v 1.4 2015/08/21 15:30:22 RDA Exp $
#
# Change History
# 20150821  MSC  Improve time consistency.

=head1 NAME

OFM:LDjrockt - Collects Oracle JRockit Reports

=head1 DESCRIPTION

=head2 jrockit - Oracle JRockit

This module gathers reports generated by the Oracle JRockit tool during the
last 15 days.

=cut

# Set the abbreviation and purge old reports
call setAbbr('OFM_JROCKIT_')
call purge('E','.',15,0)

# Collect tools reports
debug ' Inside LOAD module, gathering JRockit tool reports'
report jrockit
prefix
{write '---+ Oracle JRockit Reports'
 write '| *Process Identifier*| *Size*|*Last Modification*|'
}
var $pat = concat('^',${CUR.W_PREFIX},'p(\d+)_result\.txt$')
loop $fil (grepDir(${OUT.E},$pat,'ipt'))
{var ($pid) = match($bas = basename($fil),$pat,true)
 write '| [[../extern/',replace($bas,'\.txt$','.htm'),'][_blank][',$pid,']]| ',\
       getSize($fil),'|',getLastModify($fil,'<UTC>'),' |'
}
if isCreated(true)
 toc '2:[[',getFile(),'][rda_report][Oracle JRockit]]'

=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