# SEBLload.def: Collects Siebel Crash Reports
# $Id: SEBLload.def,v 1.5 2012/01/03 13:34:48 mschenke Exp $
# ARCS: $Header: /home/cvs/cvs/RDA_4/src/scripting/lib/modules/SEBLload.def,v 1.5 2012/01/03 13:34:48 mschenke Exp $
#
# Change History
# 20120103  MSC  Change the copyright notice.

=head1 NAME

SEBLload - Collects Siebel Crash Reports

=head1 DESCRIPTION

This module retrieves the Siebel crash reports.

=cut

# Collect recent files
debug ' Inside LOAD module, gathering Siebel crash reports'
report siebel
prefix
{write '---+ Siebel Crash Reports'
 write 'Limited to Siebel crash reports produced in last 15 days%BR% '
 write '| *Report*|*Enterprise*|*Server*|*PID*|*Core Dump*|'
}
var $pat = concat('^',${CUR.GROUP},'_SIEBEL(\d+)_crash\.htm$')
loop $fil (grepDir(${OUT.C},$pat,'iptm15'))
{next !grepFile($fil,'^<!-- CRASH:','f')
 var (undef,$hom,$ent,$srv,$pid,$dmp) = split('\|',last)
 var ($uid) = match($bas = basename($fil),$pat)
 write '| [[',$bas,'][_blank][',$uid,']]|',$ent,' |',$srv,' |',$pid,' |',\
       $dmp,' |'
}
if isCreated(true)
 toc '2:[[',getFile(),'][rda_report][Siebel Crash Reports]]'

=head1 COPYRIGHT NOTICE

Copyright (c) 2002, 2012, 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