# DCiwps.ctl:318:Collects Oracle iPlanet Web Proxy Server Information
# $Id: DCiwps.ctl,v 1.4 2014/02/05 13:58:04 RDA Exp $
# ARCS: $Header: /home/cvs/cvs/RDA_8/src/scripting/lib/collect/OFM/DCiwps.ctl,v 1.4 2014/02/05 13:58:04 RDA Exp $
#
# Change History
# 20140205  KRA  Support multiple instances collection.

=head1 NAME

OFM:DCiwps - Collects Oracle iPlanet Web Proxy Server Information

=head1 DESCRIPTION

This module collects Oracle iPlanet Web Proxy Server-related information. The
module covers Oracle iPlanet Web Proxy Server Release 4.x and later.

The following reports can be generated and are regrouped under
C<iPlanet Web Proxy Server>:

=head1 REPORTS

=cut

echo tput('bold'),'Processing OFM.IWPS module ...',tput('off')

# Initialization
var $INS_ROOT  = ${D_INSTANCE_ROOT:''}
var $IWPS_HOME = ${D_HOME:''}
var $TAIL      = ${DFT.N_TAIL:1000}

var $TOC = '%TOC%'
var $TOP = '[[#Top][Back to top]]'
pretoc '1:iPlanet Web Proxy Server'

# Load the common macros
run RDA:library()

=head1 IPLANET WEB PROXY SERVER INFORMATION

=head2 version_info - Version Information

Gathers Oracle iPlanet Web Proxy Server version information.

=cut

debug ' Inside IWPS module, gathering version information'
pretoc '2:Server Information'
if ?testFile('f',catFile($IWPS_HOME,'bin','proxy','bin',${AS.EXE:'proxyd'}))
{report version_info
 var $cmd = concat(lastCommand(),' -v')
 prefix
 {write '---+ Oracle iPlanet Web Proxy Server Version Information'
  write '---## Using: ',encode($cmd)
 }
 call writeCommand(concat($cmd,' 2>&1'))
 if isCreated(true)
  toc '3:[[',getFile(),'][rda_report][Version Information]]'
}

=head2 Configuration Files

Gathers Administration Server-related configuration files.

=cut

if ?testDir('d',$IWPS_HOME)
{debug ' Inside IWPS module, collecting the admin configuration files'
 pretoc '3:Configuration Files'
 call sort_files(4,0,\
   grepDir(catDir($IWPS_HOME,'proxy-admserv','config'),'^\.+$','pv'))
 unpretoc

=head2 Log Files

Gathers Administration Server-related log files.

=cut

 debug ' Inside IWPS module, collecting the admin log files'
 pretoc '3:Log Files'
 call sort_files(4,$TAIL,\
   grepDir(catDir($IWPS_HOME,'proxy-admserv','logs'),'^\.+$','pv'))
 unpretoc
}
unpretoc

=head1 WEB PROXY SERVER INSTANCE INFORMATION

=head2 Configuration Files

Gathers Web Proxy Server instance-related configuration files.

=cut

loop $ins (@{T_INSTANCES})
{debug ' Inside IWPS module, analyzing instance ',$ins
 var $top = catDir($INS_ROOT,$ins)
 pretoc "2:'",$ins,"' Instance"

 debug '  - collecting the configuration files'
 pretoc '3:Configuration Files'
 call sort_files(4,0,grepDir(catDir($top,'config'),'^\.+$','pv'))
 unpretoc

=head2 Log Files

Gathers Web Proxy Server instance-related log files.

=cut

 debug '  - collecting the log files'
 pretoc '3:Log Files'
 call sort_files(4,$TAIL,grepDir(catDir($top,'logs'),'^\.+$','pv'))
 unpretoc 2
}

unpretoc

=head1 SEE ALSO

L<RDA:library|collect::RDA:library>

=begin credits

=over 10

=item RDA 4.26: Jeff Brown.

=item RDA 8.03: Ramakrishnan Madaparambath.

=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