4.2 20051212102623 Red Hat Linux 9 Mutt Microsoft Windows 2000 Microsoft Windows Server 2003 Microsoft Exchange Server 2003 This is some crap ##

##

use XML::Twig; 


my $doc=new XML::Twig 
        ( 
                twig_roots => 
                { 
                        "definition" => \&parseEntry 
                } 
        ); 


sub parseEntry 
{ 
        my ($twig,$element)=@_; 


        my $id=$element->att("id"); 
        if ($id eq "OVAL3") 
        { 
                $element->flush(); 
                return 1; 
        } 


        $twig->purge(); 
        return 0; 



} 


$doc->parsefile("test.xml"); 
$doc->flush(); 

##

##

   
     
      Microsoft Windows 2000 
      Microsoft Windows Server 
2003 
      Microsoft Exchange Server 2003