# XPLRpost.ctl: Oracle Explorer post-treatments
# $Id: XPLRpost.ctl,v 1.8 2015/06/25 15:14:07 RDA Exp $
# ARCS: $Header: /home/cvs/cvs/RDA_8/src/scripting/lib/collect/EXPLORER/XPLRpost.ctl,v 1.8 2015/06/25 15:14:07 RDA Exp $
#
# Change History
# 20150625  MSC  Extend the package section.

=head1 NAME

XPLRpost - Regroups the Oracle Explorer post treatments

=cut

use Message

=head1 CONVERT SECTION

Converts the report in Oracle Explorer format.

=cut

section convert

debug ' Convert the Oracle Explorer reports'
call submitCommand('.','EXPLORER.CONVERT',directory => catDir(upDir(),upDir()))

=head1 PACKAGE SECTION

Packages the Oracle Explorer results.

=cut

section package

debug ' Package the Oracle Explorer results'
var $top = catDir(upDir(),upDir())
if ?submitCommand('.','PACKAGE.FILES',\
  directory => $top,\
  files     => [grepDir([$top],'^(\.+|rda)$','uv'),\
                grepDir([$top,'rda'],'^(\.+|work)$','uv')],\
  location  => catDir($top,upDir()),\
  name      => ${COL.PACKAGE.T_EXPLORER})->get_value('archive')
{var ($req,$arc) = (${CUR.O_REQUEST},last)
 echo 'Result archive: ',basename($arc)
 call $req->set_response('archive',$arc)
 if $req->get_first('attach')
  call $req->attach_file($arc)
}

=head1 RENDER SECTION

Renders the RDA reports.

=cut

section render

debug ' Render the RDA reports'
call submitCommand('.','RENDER.GEN_HTML')

=head1 UPLOAD SECTION

Uploads the Oracle Explorer results.

=cut

section upload

debug ' Upload the Oracle Explorer results'

=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