[Nautilus-list] preliminary stress testing script

["Shahms E. King" <shahms shahms com>]

You asked and ye shall receive.

I just hacked up this perl script (using XML::DOM) to stress test all of
the schemas in /etc/gconf/schemas

it successfully crashed Galeon.
Doesn't really have any features to speak of other than, well, crashing
Galeon, which means it must be doing it's job.

Not recommended that you actually run this unless you want things to
break...

--Shahms


#!/usr/bin/perl -w
use XML::DOM;

my $parser = new XML::DOM::Parser;
my @keys;
foreach my $file (</etc/gconf/schemas/*>) {
  my $doc = $parser->parsefile($file);
  my $keys = $doc->getElementsByTagName("applyto");
  for ( my $i = 0; $i < $keys->getLength() ; $i++) {
    my $node = $keys->item($i)->getFirstChild();
    push (@keys, $node->getNodeValue);
  }
  $doc->dispose;
}

foreach my $key (@keys) {
  system("gconftool --break-key $key");
}