Data/Rap/Metadata.pm

## ----------------------------------------------------------------------
##  $Id: Metadata.pm,v 1.3 2003/03/29 07:13:19 joko Exp $
## ----------------------------------------------------------------------
##  $Log: Metadata.pm,v $
##  Revision 1.3  2003/03/29 07:13:19  joko
##  better exception handling if target was not found in xml
##
##  Revision 1.2  2003/02/20 20:04:35  joko
##  renamed methods
##  - refactored xml-specific code to Data::Storage::Handler::XML
##
##  Revision 1.1  2003/02/18 15:35:49  joko
##  + initial commit
##
## ----------------------------------------------------------------------


package Data::Rap::Metadata;

use strict;
use warnings;


use Data::Dumper;
use DesignPattern::Object;
use Storable;


sub accessMetadata {
  my $self = shift;

  # create instance of storage object once
  if (!$self->{__rap}->{metadbengine}) {
    $self->{__rap}->{metadbengine} = 
      DesignPattern::Object->fromPackage('Data::Storage::Handler::XML', filename => $self->{__rap}->{filename} );
  }
  
  return $self->{__rap}->{metadbengine};

}

sub getTargetList {
  my $self = shift;

  $self->log( "Reading database of targets (dot) from XML.", 'notice' );

  # prepare access to metadata (assure instantiated storage handle)
  my $mdbe = $self->accessMetadata();

  $mdbe->sendQuery("*/target");
  $mdbe->circumflex('result');  

  # checks  
    if ($mdbe->isEmpty) {
      $self->log("XML metadata was empty.", 'critical');
      return;
    }
  
  # trace
    #print Dumper($self->{buffer});
    #exit;

  # behaviour
    #$self->xml2simplehash();
    my $tree = $mdbe->toEasyTree();
  #return $result;
  
  # trace
    #print Dumper($tree);
    #exit;
  
  # build result
    my @targets;
    foreach my $entry (@{$tree->{content}}) {
      my $description = $entry->{content}->[0]->{content}->[0]->{content};
      push @targets, { name => $entry->{attrib}->{name}, description => $description };
    }

  return \@targets;
  
}


sub getTargetDetails {
  my $self = shift;
  my $target = shift;
  my $options = shift;
  
  # check cache and return result from there
  if (my $result = $self->{cache}->{targets}->{$target} and not $options->{force}) {
    return $result;
  }
  
  # get metadata for single task from storage
  my $mdbe = $self->accessMetadata();
  $mdbe->sendQuery("*/target[\@name=\"$target\"]");
  
  # FIXME: this is wrong behaviour! upper statement should return a proper
  # result, which itself (already) has the method 'isEmpty' or similar...
  if ($mdbe->isEmpty()) {
    $self->log( "Target '$target' not found.", 'notice' );
    return;
  }
  
  my $tree = $mdbe->toEasyTree();
  
  # trace
  #print Dumper($tree);
  #exit;
  
  return $tree;
}

sub indexTargets {
  my $self = shift;
  my $options = shift;
  
  my $filename = 'rap.xml.cache';
  
  if ($options->{build}) {
    $self->log("Building index of Targets", 'notice');
    # clear cache
    delete $self->{cache}->{targets};
    my $list = $self->getTargetList();
    foreach my $target (@$list) {
      $self->log("Reading target: $target->{name}", 'info');
      my $details = $self->getTargetDetails($target->{name}, { force => 1 });
      $self->{cache}->{targets}->{$target->{name}} = $details;
    }
    store $self->{cache}->{targets}, $filename;
    
  } elsif ($options->{load}) {
    if (not -e $filename) {
      return;
    }
    if ($self->{cache}->{targets} = retrieve($filename)) {
      return 1;
    }
  
  } else {
    $self->log("Please call with options build or load", 'warning');
  
  }
}

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