2 |
## $Id$ |
## $Id$ |
3 |
## ------------------------------------------------------------------------ |
## ------------------------------------------------------------------------ |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.5 2003/12/05 04:52:40 joko |
6 |
|
## + minor update: changed some loglevel to debug |
7 |
|
## |
8 |
## Revision 1.4 2003/06/06 03:58:13 joko |
## Revision 1.4 2003/06/06 03:58:13 joko |
9 |
## minor updates to logging |
## minor updates to logging |
10 |
## |
## |
31 |
); |
); |
32 |
|
|
33 |
|
|
34 |
|
# TODO: Load them on demand! |
35 |
use Data::Dumper; |
use Data::Dumper; |
36 |
#use Data::Storage::Handler::File::Basic qw( s2f a2f f2s ); |
#use Data::Storage::Handler::File::Basic qw( s2f a2f f2s ); |
37 |
use XML::Simple; |
use XML::Simple; |
70 |
#print "file: $file", "\n"; |
#print "file: $file", "\n"; |
71 |
#print "xpq: $xpq", "\n"; |
#print "xpq: $xpq", "\n"; |
72 |
|
|
73 |
$logger->info( __PACKAGE__ . "->sendQuery - File: $file, xpq: $xpq"); |
$logger->debug( __PACKAGE__ . "->sendQuery - File: $file, xpq: $xpq"); |
74 |
|
|
75 |
# filter nodes by xpath-query |
# filter nodes by xpath-query |
76 |
my $xp = XML::XPath->new( filename => $file ); |
my $xp = XML::XPath->new( filename => $file ); |