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