Saturday, May 11 2002

use XML::SAX::Writer;



use XML::Directory::SAX;



use XML::Filter::XML_Directory_2RSS;







my $writer = XML::SAX::Writer->new();



my $rss    = XML::Filter::XML_Directory_2RSS->new(Handler=>$writer);







$rss->exclude(exclude=>["RCS"],ending=>["~"]);







my $directory = XML::Directory::SAX->new(Handler=>$rss,



                                         detail=>2,



                                         depth=>1);







$directory->order_by("a");



$directory->parse_dir("/path/to/aaronland.net");