Storage/Handler/AutoSymbol.pm

## -------------------------------------------------------------------------
##  $Id: XML.pm,v 1.2 2003/02/21 07:58:48 joko Exp $
## -------------------------------------------------------------------------
##  $Log: XML.pm,v $
## -------------------------------------------------------------------------


package Data::Storage::Handler::AutoSymbol;

use strict;
use warnings;

use base qw( 
  DesignPattern::Object
  DesignPattern::Logger
  Data::Storage::Handler::Abstract
);


use Data::Dumper;


sub sendQuery_tmp {
  my $self = shift;
  my $xpq = shift;
  my $options = shift;

  $self->log( "xpq='$xpq'", 'debug' );

  # trace
    #print Dumper($self);
    #exit;

  my $file = $self->{filename};
  
  if (!$file) {
    $self->log("No filename given.", 'error');
    return;
  }
  
  if (! -e $file) {
    $self->log("File not found: '$file'.", 'error');
    return;
  }

  #print "file: $file", "\n";
  #print "xpq: $xpq", "\n";
  
  # 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";
    #exit;

  $self->{buffer} = $buffer;
  
}

sub getResult_tmp {
  my $self = shift;
  return $self->{buffer};
}

sub isEmpty_tmp {
  my $self = shift;
  return not defined $self->{buffer};
}

sub getChildNodes {
  my $self = shift;

  my $storage = $self->{storage};

  my $nodes;
  if (not ref $storage) {
    $nodes = [ $storage ];
  } elsif (ref $storage eq 'HASH') {
    $nodes = [ sort keys %$storage ];
  }
  
  return $nodes;

}

1;
__END__
1	## -------------------------------------------------------------------------
2	## $Id: XML.pm,v 1.2 2003/02/21 07:58:48 joko Exp $
3	## -------------------------------------------------------------------------
4	## $Log: XML.pm,v $
5	## -------------------------------------------------------------------------
6
7
8	package Data::Storage::Handler::AutoSymbol;
9
10	use strict;
11	use warnings;
12
13	use base qw(
14	DesignPattern::Object
15	DesignPattern::Logger
16	Data::Storage::Handler::Abstract
17	);
18
19
20	use Data::Dumper;
21
22
23	sub sendQuery_tmp {
24	my $self = shift;
25	my $xpq = shift;
26	my $options = shift;
27
28	$self->log( "xpq='$xpq'", 'debug' );
29
30	# trace
31	#print Dumper($self);
32	#exit;
33
34	my $file = $self->{filename};
35
36	if (!$file) {
37	$self->log("No filename given.", 'error');
38	return;
39	}
40
41	if (! -e $file) {
42	$self->log("File not found: '$file'.", 'error');
43	return;
44	}
45
46	#print "file: $file", "\n";
47	#print "xpq: $xpq", "\n";
48
49	# filter nodes by xpath-query
50	my $xp = XML::XPath->new( filename => $file );
51	my $nodeset = $xp->find($xpq);
52
53	# build result xml
54	my $buffer;
55	foreach my $node ($nodeset->get_nodelist) {
56	$buffer .= XML::XPath::XMLParser::as_string($node) . "\n\n";
57	}
58	#$buffer .= '';
59	#$buffer = "<result>$buffer</result>";
60
61	# trace
62	#print $buffer, "\n";
63	#exit;
64
65	$self->{buffer} = $buffer;
66
67	}
68
69	sub getResult_tmp {
70	my $self = shift;
71	return $self->{buffer};
72	}
73
74	sub isEmpty_tmp {
75	my $self = shift;
76	return not defined $self->{buffer};
77	}
78
79	sub getChildNodes {
80	my $self = shift;
81
82	my $storage = $self->{storage};
83
84	my $nodes;
85	if (not ref $storage) {
86	$nodes = [ $storage ];
87	} elsif (ref $storage eq 'HASH') {
88	$nodes = [ sort keys %$storage ];
89	}
90
91	return $nodes;
92
93	}
94
95	1;
96	__END__
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26