/[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.2 by joko, Thu Feb 20 20:04:35 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ----------------------------------------------------------------------  ## ----------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.2  2003/02/20 20:04:35  joko
6    ##  renamed methods
7    ##  - refactored xml-specific code to Data::Storage::Handler::XML
8    ##
9  ##  Revision 1.1  2003/02/18 15:35:49  joko  ##  Revision 1.1  2003/02/18 15:35:49  joko
10  ##  + initial commit  ##  + initial commit
11  ##  ##
# Line 15  use warnings; Line 19  use warnings;
19    
20    
21  use Data::Dumper;  use Data::Dumper;
22  use XML::Parser;  use DesignPattern::Object;
 use XML::Parser::EasyTree;  
 use XML::XPath;  
 #$XML::Parser::Easytree::Noempty=0;  
 #use XML::Simple;  
23    
24    
25  sub getTargetMetadata {  sub accessMetadata {
26    my $self = shift;    my $self = shift;
27    my $target = shift;  
28    #my $result = $self->queryXml("*/target[\@name=\"$target\"]", keyattr => [qw( name )], forcearray => 1);    # create instance of storage object once
29    my $keyattr = {    if (!$self->{__rap}->{metadbengine}) {
30      topic => 'name',      $self->{__rap}->{metadbengine} =
31      taskdef => 'name',        DesignPattern::Object->fromPackage('Data::Storage::Handler::XML', filename => $self->{__rap}->{filename} );
32      target => 'name',    }
33    };    
34    #my $result = $self->queryXml("*/target[\@name=\"$target\"]", keyattr => $keyattr, forcearray => 1);    return $self->{__rap}->{metadbengine};
35    $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};  
36  }  }
37    
38  sub readXmlOverview {  sub getTargetList {
39    my $self = shift;    my $self = shift;
40    
41    $self->log( "Reading Job Database from XML.", 'notice' );    $self->log( "Reading Job Database from XML.", 'notice' );
42    
43    #$self->{payload} = XMLin($self->{filename});    # prepare access to metadata (assure instantiated storage handle)
44    #my $result = $self->queryXml("*/target", forcearray => 1);    my $mdbe = $self->accessMetadata();
45    #my $result = $self->queryXml("*/target", keyattr =>[]);  
46    $self->queryXml("*/target", keyattr => [qw( name )] );    $mdbe->sendQuery("*/target");
47    $self->xml2simplehash();    $mdbe->circumflex('result');  
   #return $result;  
     
 }  
48    
49    sub queryXml {    # checks  
50      my $self = shift;      if ($mdbe->isEmpty) {
51      my $xpq = shift;        $self->log("XML metadata was empty.", 'critical');
     my $options = shift;  
   
     $self->log( "_queryXml( xpq='$xpq' ) ", 'info' );  
   
     my $file = $self->{filename};  
       
     if (! -e $file) {  
       $self->log("file not found: '$file'", 'error');  
52        return;        return;
53      }      }
54      
55      # trace
56        #print Dumper($self->{buffer});
57        #exit;
58    
59      # behaviour
60        #$self->xml2simplehash();
61        my $tree = $mdbe->toEasyTree();
62      #return $result;
63      
64      # trace
65        #print Dumper($tree);
66        #exit;
67      
68      # build result
69        my @targets;
70        foreach my $entry (@{$tree->{content}}) {
71          my $description = $entry->{content}->[0]->{content}->[0]->{content};
72          push @targets, { name => $entry->{attrib}->{name}, description => $description };
73        }
74    
75      #print "file: $file", "\n";    return \@targets;
76      #print "xpq: $xpq", "\n";    
77        }
     # 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;  
       
   }  
78    
79    
80  sub xml2easytree {  sub getTargetDetails {
81    my $self = shift;    my $self = shift;
82      # convert xml data to native perl data structure    my $target = shift;
83        my $parser = XML::Parser->new( Style => 'EasyTree', Handlers => { Char => sub {} } );    my $mdbe = $self->accessMetadata();
84        my $data = $parser->parse($self->{buffer});    $mdbe->sendQuery("*/target[\@name=\"$target\"]");
85      my $tree = $mdbe->toEasyTree();
86      my $hash = $data->[0];    return $tree;
       
     # trace  
       #print Dumper($hash);  
       #exit;  
   
     $self->{payload} = $hash;  
87  }  }
88    
 sub xml2simplehash {  
   my $self = shift;  
   $self->{payload} = XMLin($self->{buffer});  
 }  
89    
90  1;  1;
91  __END__  __END__
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed