#
# $Id: Header.pm,v 1.9 2003/12/24 20:38:54 oratrc Exp $
#
package Oracle::Trace::Header;

use 5.008001;
use strict;
use warnings;
use Data::Dumper;
use File::Data;
use Oracle::Trace::Entry;

our @ISA = qw(Oracle::Trace::Entry);

our $VERSION = do { my @r = (q$Revision: 1.9 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };

my $DEBUG = $ENV{Oracle_Trace_DEBUG} || 0;

# Chunk

sub parse {
	my $self = shift;
	my $data = shift;
	$self->debug("incoming: ".Dumper($data)) if $DEBUG >= 3;
	my $i_line = 0;
	if ($data) {
		LINE:
		foreach my $line (split("\n", $data)) {
			$self->debug("line[".$i_line."] $line") if $DEBUG >= 2;
			$i_line++;
			next LINE if $line =~ /^\*\*\*\s+\d+/;
			CHUNK:	
			foreach my $c (split(',', $line)) {
				if ($c =~ /^\s*\**\s*([^-:]+)\s*?[-:]+\s*(.+)\s*$/) {
					my ($k, $v) = ($1, $2); 
					push @{$self->{_data}->{$k}}, $v;
				} elsif ($c =~ /^\s*(ORACLE_HOME)\s*=\s*(\S+)\s*$/i) {
					push @{$self->{_data}->{$1}}, $2;
				} elsif ($c =~ /^([:\\\/\w_]+?\w+\.trc)\s*$/i) {
					push @{$self->{_data}->{tracefile}}, $1;
				} elsif ($c =~ /^\s*(APPNAME)\s*mod=([\S]+)?\s*(.+)$/i) {
					push @{$self->{_data}->{$1}}, "$2 ($3)";
				} else {	
					push @{$self->{_data}{other}}, $c;
				}
			}
			# SESSION ID:(9.5) 2003-12-23 20:43:09.907
			#          (sid.serial#)
		}
	}
	$self->debug("_data: ".Dumper($self->{_data})) if $DEBUG >= 3;
	$self->debug("lines read: $i_line") if $DEBUG;
	return $self;
}

1;
__END__

=head1 NAME

Oracle::Trace::Header - Perl Module for parsing Oracle Trace Headers

=head1 SYNOPSIS

  use Oracle::Trace::Header;

  my $o_hdr = Oracle::Trace::Header->new($string)->parse;

  print "INSTANCE: ".$o_hdr->value('Instance_name');

=head1 DESCRIPTION

Module to parse Oracle Trace Headers.

=head2 EXPORT

None by default.


=head1 SEE ALSO

	http://www.rfi.net/oracle/trace/

=head1 AUTHOR

Richard Foley, E<lt>oracle.trace@rfi.netE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2003 by Richard Foley

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.1 or,
at your option, any later version of Perl 5 you may have available.

=cut