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

=head1 NAME

OFM:LDjvm - Collects Oracle Java Virtual Machine Reports

=head1 DESCRIPTION

=head2 jvm - Oracle Java Virtual Machine

This module gathers reports generated by the Oracle Java Virtual Machine tool
during the last 15 days.

=cut

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

# Collect tools reports
debug ' Inside LOAD module, gathering jvm tool reports'
report jvm
prefix
{write '---+ Oracle Java Virtual Machine 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 Java Virtual Machine]]'

=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