Re: [Fwd] Re: Size limit

[Graham B. <gb...@po...>]

On Wed, Oct 09, 2002 at 04:39:32PM +0100, Graham Barr wrote:
> From: Carlos Fuentes Bermejo <car...@re...>
> Subject: Re: Size limit
> 
> Can you please send me an example of use?, I haven't seen any function
> to import DSML in the documentation.

Here is a short script that reads a DSML file and reproduces it
on the output by going via Net::LDAP::DSML

  my $writer = Net::LDAP::DSML->new;
  $writer->start_dsml;
  my $sax = Net::LDAP::DSML->new(
    entry => sub { $writer->write_entry($_[0]) },
    schema => sub { $writer->write_schema($_[0]) },
  );
  my $rdr = XML::SAX::Expat->new(Handler => $sax);
  $rdr->parse_file(\*STDIN);

  $writer->end_dsml;

Graham.