/[cvs]/nfo/perl/libs/Data/Rap/Metadata.pm
ViewVC logotype

Diff of /nfo/perl/libs/Data/Rap/Metadata.pm

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

revision 1.1 by joko, Tue Feb 18 15:35:49 2003 UTC revision 1.4 by joko, Sun Jun 20 16:12:24 2004 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ----------------------------------------------------------------------  ## ----------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.4  2004/06/20 16:12:24  joko
6    ##  + sub indexTargets
7    ##  modified getTargetDetails to use cached target details
8    ##
9    ##  Revision 1.3  2003/03/29 07:13:19  joko
10    ##  better exception handling if target was not found in xml
11    ##
12    ##  Revision 1.2  2003/02/20 20:04:35  joko
13    ##  renamed methods
14    ##  - refactored xml-specific code to Data::Storage::Handler::XML
15    ##
16  ##  Revision 1.1  2003/02/18 15:35:49  joko  ##  Revision 1.1  2003/02/18 15:35:49  joko
17  ##  + initial commit  ##  + initial commit
18  ##  ##
# Line 15  use warnings; Line 26  use warnings;
26    
27    
28  use Data::Dumper;  use Data::Dumper;
29  use XML::Parser;  use DesignPattern::Object;
30  use XML::Parser::EasyTree;  use Storable;
 use XML::XPath;  
 #$XML::Parser::Easytree::Noempty=0;  
 #use XML::Simple;  
31    
32    
33  sub getTargetMetadata {  sub accessMetadata {
34    my $self = shift;    my $self = shift;
35    my $target = shift;  
36    #my $result = $self->queryXml("*/target[\@name=\"$target\"]", keyattr => [qw( name )], forcearray => 1);    # create instance of storage object once
37    my $keyattr = {    if (!$self->{__rap}->{metadbengine}) {
38      topic => 'name',      $self->{__rap}->{metadbengine} =
39      taskdef => 'name',        DesignPattern::Object->fromPackage('Data::Storage::Handler::XML', filename => $self->{__rap}->{filename} );
40      target => 'name',    }
41    };    
42    #my $result = $self->queryXml("*/target[\@name=\"$target\"]", keyattr => $keyattr, forcearray => 1);    return $self->{__rap}->{metadbengine};
43    $self->queryXml("*/target[\@name=\"$target\"]");  
   #return $self->_queryXml($self->{filename}, "target");  
   #print Dumper($result);  
   #return $result->{target};  
   #return $result->{target}->{$target};  
   #return $result;  
   $self->xml2easytree();  
   return $self->{payload};  
44  }  }
45    
46  sub readXmlOverview {  sub getTargetList {
47    my $self = shift;    my $self = shift;
48    
49    $self->log( "Reading Job Database from XML.", 'notice' );    $self->log( "Reading database of targets (dot) from XML.", 'notice' );
   
   #$self->{payload} = XMLin($self->{filename});  
   #my $result = $self->queryXml("*/target", forcearray => 1);  
   #my $result = $self->queryXml("*/target", keyattr =>[]);  
   $self->queryXml("*/target", keyattr => [qw( name )] );  
   $self->xml2simplehash();  
   #return $result;  
     
 }  
50    
51    sub queryXml {    # prepare access to metadata (assure instantiated storage handle)
52      my $self = shift;    my $mdbe = $self->accessMetadata();
     my $xpq = shift;  
     my $options = shift;  
53    
54      $self->log( "_queryXml( xpq='$xpq' ) ", 'info' );    $mdbe->sendQuery("*/target");
55      $mdbe->circumflex('result');  
56    
57      my $file = $self->{filename};    # checks  
58            if ($mdbe->isEmpty) {
59      if (! -e $file) {        $self->log("XML metadata was empty.", 'critical');
       $self->log("file not found: '$file'", 'error');  
60        return;        return;
61      }      }
62      
63      # trace
64        #print Dumper($self->{buffer});
65        #exit;
66    
67      # behaviour
68        #$self->xml2simplehash();
69        my $tree = $mdbe->toEasyTree();
70      #return $result;
71      
72      # trace
73        #print Dumper($tree);
74        #exit;
75      
76      # build result
77        my @targets;
78        foreach my $entry (@{$tree->{content}}) {
79          my $description = $entry->{content}->[0]->{content}->[0]->{content};
80          push @targets, { name => $entry->{attrib}->{name}, description => $description };
81        }
82    
83      #print "file: $file", "\n";    return \@targets;
84      #print "xpq: $xpq", "\n";    
85        }
     # 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";  
   
     $self->{buffer} = $buffer;  
       
   }  
86    
87    
88  sub xml2easytree {  sub getTargetDetails {
89    my $self = shift;    my $self = shift;
90      # convert xml data to native perl data structure    my $target = shift;
91        my $parser = XML::Parser->new( Style => 'EasyTree', Handlers => { Char => sub {} } );    my $options = shift;
92        my $data = $parser->parse($self->{buffer});    
93      # check cache and return result from there
94      my $hash = $data->[0];    if (my $result = $self->{cache}->{targets}->{$target} and not $options->{force}) {
95            return $result;
96      # trace    }
97        #print Dumper($hash);    
98        #exit;    # get metadata for single task from storage
99      my $mdbe = $self->accessMetadata();
100      $self->{payload} = $hash;    $mdbe->sendQuery("*/target[\@name=\"$target\"]");
101      
102      # FIXME: this is wrong behaviour! upper statement should return a proper
103      # result, which itself (already) has the method 'isEmpty' or similar...
104      if ($mdbe->isEmpty()) {
105        $self->log( "Target '$target' not found.", 'notice' );
106        return;
107      }
108      
109      my $tree = $mdbe->toEasyTree();
110      
111      # trace
112      #print Dumper($tree);
113      #exit;
114      
115      return $tree;
116  }  }
117    
118  sub xml2simplehash {  sub indexTargets {
119    my $self = shift;    my $self = shift;
120    $self->{payload} = XMLin($self->{buffer});    my $options = shift;
121      
122      my $filename = 'rap.xml.cache';
123      
124      if ($options->{build}) {
125        $self->log("Building index of Targets", 'notice');
126        # clear cache
127        delete $self->{cache}->{targets};
128        my $list = $self->getTargetList();
129        foreach my $target (@$list) {
130          $self->log("Reading target: $target->{name}", 'info');
131          my $details = $self->getTargetDetails($target->{name}, { force => 1 });
132          $self->{cache}->{targets}->{$target->{name}} = $details;
133        }
134        store $self->{cache}->{targets}, $filename;
135        
136      } elsif ($options->{load}) {
137        if (not -e $filename) {
138          return;
139        }
140        if ($self->{cache}->{targets} = retrieve($filename)) {
141          return 1;
142        }
143      
144      } else {
145        $self->log("Please call with options build or load", 'warning');
146      
147      }
148  }  }
149    
150  1;  1;
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed