/[cvs]/nfo/perl/libs/Data/Storage/Handler/XML.pm
ViewVC logotype

Diff of /nfo/perl/libs/Data/Storage/Handler/XML.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by joko, Thu Feb 20 20:20:54 2003 UTC revision 1.5 by joko, Fri Dec 5 04:52:40 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ------------------------------------------------------------------------  ## ------------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.5  2003/12/05 04:52:40  joko
6    ##  + minor update: changed some loglevel to debug
7    ##
8    ##  Revision 1.4  2003/06/06 03:58:13  joko
9    ##  minor updates to logging
10    ##
11    ##  Revision 1.3  2003/05/13 08:08:17  joko
12    ##  comments, todos
13    ##
14    ##  Revision 1.2  2003/02/21 07:58:48  joko
15    ##  enhanced error detection
16    ##
17  ##  Revision 1.1  2003/02/20 20:20:54  joko  ##  Revision 1.1  2003/02/20 20:20:54  joko
18  ##  + initial commit  ##  + initial commit
19  ##  ##
# Line 19  use base qw( Line 31  use base qw(
31  );  );
32    
33    
34    # TODO: Load them on demand!
35  use Data::Dumper;  use Data::Dumper;
36  #use Data::Storage::Handler::File::Basic qw( s2f a2f f2s );  #use Data::Storage::Handler::File::Basic qw( s2f a2f f2s );
37  use XML::Simple;  use XML::Simple;
38  use XML::Parser;  use XML::Parser;
39  use XML::Parser::EasyTree;  use XML::Parser::EasyTree;
40  use XML::XPath;  use XML::XPath;
41    # TODO: use XML::Writer and/or XML::ValidWriter
42    
43    
44    # get logger instance
45    my $logger = Log::Dispatch::Config->instance;
46    
47  sub sendQuery {  sub sendQuery {
48    my $self = shift;    my $self = shift;
49    my $xpq = shift;    my $xpq = shift;
50    my $options = shift;    my $options = shift;
51    
52    $self->log( "xpq='$xpq'", 'info' );    $self->log( "xpq='$xpq'", 'debug' );
53    
54    # trace    # trace
55      #print Dumper($self);      #print Dumper($self);
# Line 40  sub sendQuery { Line 57  sub sendQuery {
57    
58    my $file = $self->{filename};    my $file = $self->{filename};
59        
60      if (!$file) {
61        $logger->error("No filename given.");
62        return;
63      }
64      
65    if (! -e $file) {    if (! -e $file) {
66      $self->log("File not found: '$file'.", 'error');      $logger->error("File not found: '$file'.");
67      return;      return;
68    }    }
69    
70    #print "file: $file", "\n";    #print "file: $file", "\n";
71    #print "xpq: $xpq", "\n";    #print "xpq: $xpq", "\n";
72      
73      $logger->debug( __PACKAGE__ . "->sendQuery - File: $file, xpq: $xpq");
74    
75    # filter nodes by xpath-query    # filter nodes by xpath-query
76      my $xp = XML::XPath->new( filename => $file );      my $xp = XML::XPath->new( filename => $file );
77      my $nodeset = $xp->find($xpq);      my $nodeset = $xp->find($xpq);
# Line 89  sub toEasyTree { Line 113  sub toEasyTree {
113    my $self = shift;    my $self = shift;
114    
115      $XML::Parser::EasyTree::Noempty = 1;      $XML::Parser::EasyTree::Noempty = 1;
116        # what about ...
117        #$XML::Parser::EasyTree::Latin = 1;
118        # ... instead of an otherwise required
119        # "expand" with proper utf8/latin-conversion
120        # parameters set?
121    
122      # convert xml data to native perl data structure      # convert xml data to native perl data structure
123        #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 $char = shift; print "char: ", Dumper($char), "\n"; } } );
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.5
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed