| 2 |
## $Id$ |
## $Id$ |
| 3 |
## ------------------------------------------------------------------------ |
## ------------------------------------------------------------------------ |
| 4 |
## $Log$ |
## $Log$ |
| 5 |
|
## Revision 1.3 2003/05/13 08:08:17 joko |
| 6 |
|
## comments, todos |
| 7 |
|
## |
| 8 |
## Revision 1.2 2003/02/21 07:58:48 joko |
## Revision 1.2 2003/02/21 07:58:48 joko |
| 9 |
## enhanced error detection |
## enhanced error detection |
| 10 |
## |
## |
| 31 |
use XML::Parser; |
use XML::Parser; |
| 32 |
use XML::Parser::EasyTree; |
use XML::Parser::EasyTree; |
| 33 |
use XML::XPath; |
use XML::XPath; |
| 34 |
|
# TODO: use XML::Writer and/or XML::ValidWriter |
| 35 |
|
|
| 36 |
sub sendQuery { |
sub sendQuery { |
| 37 |
my $self = shift; |
my $self = shift; |
| 100 |
my $self = shift; |
my $self = shift; |
| 101 |
|
|
| 102 |
$XML::Parser::EasyTree::Noempty = 1; |
$XML::Parser::EasyTree::Noempty = 1; |
| 103 |
|
# what about ... |
| 104 |
|
#$XML::Parser::EasyTree::Latin = 1; |
| 105 |
|
# ... instead of an otherwise required |
| 106 |
|
# "expand" with proper utf8/latin-conversion |
| 107 |
|
# parameters set? |
| 108 |
|
|
| 109 |
# convert xml data to native perl data structure |
# convert xml data to native perl data structure |
| 110 |
#my $parser = XML::Parser->new( Style => 'EasyTree', Handlers => { Char => sub { my $char = shift; print "char: ", Dumper($char), "\n"; } } ); |
#my $parser = XML::Parser->new( Style => 'EasyTree', Handlers => { Char => sub { my $char = shift; print "char: ", Dumper($char), "\n"; } } ); |