Storage/Handler/XML.pm

## ------------------------------------------------------------------------
##  $Id: XML.pm,v 1.2 2003/02/21 07:58:48 joko Exp $
## ------------------------------------------------------------------------
##  $Log: XML.pm,v $
##  Revision 1.2  2003/02/21 07:58:48  joko
##  enhanced error detection
##
##  Revision 1.1  2003/02/20 20:20:54  joko
##  + initial commit
##
## ------------------------------------------------------------------------


package Data::Storage::Handler::XML;

use strict;
use warnings;

use base qw( 
  DesignPattern::Object
  DesignPattern::Logger
);


use Data::Dumper;
#use Data::Storage::Handler::File::Basic qw( s2f a2f f2s );
use XML::Simple;
use XML::Parser;
use XML::Parser::EasyTree;
use XML::XPath;
# TODO: use XML::Writer and/or XML::ValidWriter

sub sendQuery {
  my $self = shift;
  my $xpq = shift;
  my $options = shift;

  $self->log( "xpq='$xpq'", 'debug' );

  # trace
    #print Dumper($self);
    #exit;

  my $file = $self->{filename};
  
  if (!$file) {
    $self->log("No filename given.", 'error');
    return;
  }
  
  if (! -e $file) {
    $self->log("File not found: '$file'.", 'error');
    return;
  }

  #print "file: $file", "\n";
  #print "xpq: $xpq", "\n";
  
  # filter nodes by xpath-query
    my $xp = XML::XPath->new( filename => $file );
    my $nodeset = $xp->find($xpq);
  
  # build result xml
    my $buffer;
    foreach my $node ($nodeset->get_nodelist) {
      $buffer .= XML::XPath::XMLParser::as_string($node) . "\n\n";
    }
    #$buffer .= '';
    #$buffer = "<result>$buffer</result>";
  
  # trace
    #print $buffer, "\n";
    #exit;

  $self->{buffer} = $buffer;
  
}

sub getResult {
  my $self = shift;
  return $self->{buffer};
}

sub circumflex {
  my $self = shift;
  my $tag = shift;
  # mungle result payload
  $self->{buffer} = "<$tag>" . $self->{buffer} . "</$tag>" if $self->{buffer};
}

sub isEmpty {
  my $self = shift;
  return not defined $self->{buffer};
}

sub toEasyTree {
  my $self = shift;

    $XML::Parser::EasyTree::Noempty = 1;
    # what about ...
    #$XML::Parser::EasyTree::Latin = 1;
    # ... instead of an otherwise required 
    # "expand" with proper utf8/latin-conversion 
    # parameters set?

    # convert xml data to native perl data structure
      #my $parser = XML::Parser->new( Style => 'EasyTree', Handlers => { Char => sub { my $char = shift; print "char: ", Dumper($char), "\n"; } } );
      #my $parser = XML::Parser->new( Style => 'EasyTree', Handlers => { Char => sub {} } );
      my $parser = XML::Parser->new( Style => 'EasyTree' );
      my $data = $parser->parse($self->{buffer});

    # trace
      #print Dumper($data);
      #exit;

    # FIXME!?
    my $hash = $data->[0];
    
    # trace
      #print Dumper($hash);
      #exit;

    #$self->{payload} = $hash;
    return $hash;
    
}

sub toSimpleTree {
  my $self = shift;
  #print $self->{buffer};
  #exit;
  #$self->{payload} = XMLin($self->{buffer});
  return XMLin($self->{buffer});
}


1;
__END__
1	joko	1.1	## ------------------------------------------------------------------------
2	joko	1.3	## $Id: XML.pm,v 1.2 2003/02/21 07:58:48 joko Exp $
3	joko	1.1	## ------------------------------------------------------------------------
4	joko	1.2	## $Log: XML.pm,v $
5	joko	1.3	## Revision 1.2 2003/02/21 07:58:48 joko
6			## enhanced error detection
7			##
8	joko	1.2	## Revision 1.1 2003/02/20 20:20:54 joko
9			## + initial commit
10			##
11	joko	1.1	## ------------------------------------------------------------------------
12
13
14			package Data::Storage::Handler::XML;
15
16			use strict;
17			use warnings;
18
19			use base qw(
20			DesignPattern::Object
21			DesignPattern::Logger
22			);
23
24
25			use Data::Dumper;
26			#use Data::Storage::Handler::File::Basic qw( s2f a2f f2s );
27			use XML::Simple;
28			use XML::Parser;
29			use XML::Parser::EasyTree;
30			use XML::XPath;
31	joko	1.3	# TODO: use XML::Writer and/or XML::ValidWriter
32	joko	1.1
33			sub sendQuery {
34			my $self = shift;
35			my $xpq = shift;
36			my $options = shift;
37
38	joko	1.2	$self->log( "xpq='$xpq'", 'debug' );
39	joko	1.1
40			# trace
41			#print Dumper($self);
42			#exit;
43
44			my $file = $self->{filename};
45	joko	1.2
46			if (!$file) {
47			$self->log("No filename given.", 'error');
48			return;
49			}
50	joko	1.1
51			if (! -e $file) {
52			$self->log("File not found: '$file'.", 'error');
53			return;
54			}
55
56			#print "file: $file", "\n";
57			#print "xpq: $xpq", "\n";
58
59			# filter nodes by xpath-query
60			my $xp = XML::XPath->new( filename => $file );
61			my $nodeset = $xp->find($xpq);
62
63			# build result xml
64			my $buffer;
65			foreach my $node ($nodeset->get_nodelist) {
66			$buffer .= XML::XPath::XMLParser::as_string($node) . "\n\n";
67			}
68			#$buffer .= '';
69			#$buffer = "<result>$buffer</result>";
70
71			# trace
72			#print $buffer, "\n";
73			#exit;
74
75			$self->{buffer} = $buffer;
76
77			}
78
79			sub getResult {
80			my $self = shift;
81			return $self->{buffer};
82			}
83
84			sub circumflex {
85			my $self = shift;
86			my $tag = shift;
87			# mungle result payload
88			$self->{buffer} = "<$tag>" . $self->{buffer} . "</$tag>" if $self->{buffer};
89			}
90
91			sub isEmpty {
92			my $self = shift;
93			return not defined $self->{buffer};
94			}
95
96			sub toEasyTree {
97			my $self = shift;
98
99			$XML::Parser::EasyTree::Noempty = 1;
100	joko	1.3	# what about ...
101			#$XML::Parser::EasyTree::Latin = 1;
102			# ... instead of an otherwise required
103			# "expand" with proper utf8/latin-conversion
104			# parameters set?
105	joko	1.1
106			# convert xml data to native perl data structure
107			#my $parser = XML::Parser->new( Style => 'EasyTree', Handlers => { Char => sub { my $char = shift; print "char: ", Dumper($char), "\n"; } } );
108			#my $parser = XML::Parser->new( Style => 'EasyTree', Handlers => { Char => sub {} } );
109			my $parser = XML::Parser->new( Style => 'EasyTree' );
110			my $data = $parser->parse($self->{buffer});
111
112			# trace
113			#print Dumper($data);
114			#exit;
115
116			# FIXME!?
117			my $hash = $data->[0];
118
119			# trace
120			#print Dumper($hash);
121			#exit;
122
123			#$self->{payload} = $hash;
124			return $hash;
125
126			}
127
128			sub toSimpleTree {
129			my $self = shift;
130			#print $self->{buffer};
131			#exit;
132			#$self->{payload} = XMLin($self->{buffer});
133			return XMLin($self->{buffer});
134			}
135
136
137			1;
138			__END__
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26