trunk/sgml-howto/condition.pl

#!/usr/bin/perl

use XML::DOM;
use strict;

$::valuetokeep = shift (@ARGV);
my $filename = shift (@ARGV);

$::debug = 1;

if ((! $filename) or (! $::valuetokeep)) {
    die "Usage: $0 valuetokeep filename\n";
}

my $parser = new XML::DOM::Parser;
my $doc = $parser->parsefile ($filename);
my $root = $doc->getDocumentElement;
my $attributes;

&scanChildren ($root->getChildNodes);
$doc->printToFileHandle (\*STDOUT);


sub scanChildren {
    my (@children) = @_;
    my ($child);
  child:
    foreach $child (@children) {
        if ($child->getNodeType == ELEMENT_NODE) {
            my ($found, $nocondition);
            my $versionequal = $child->getAttribute ("debianversionequal");
            my $versionmin = $child->getAttribute ("debianversionmin");
            my $versionmax = $child->getAttribute ("debianversionmax");
            if ($versionequal) {
                if ($versionmin or $versionmax) {
                    die "Cannot have Version-min or Version-max with Version-equal";
                }
                if ($versionequal == $::valuetokeep) {
                    $found = 1;
                }
            }
            elsif ($versionmin) {
                if ($versionmin <= $::valuetokeep) {
                    if ($versionmax and ($versionmax >= $::valuetokeep)) {
                        $found = 1;
                    }
                    elsif (! $versionmax) {
                        $found = 1;
                    }
                }
            }    
            elsif ($versionmax) {
                if ($versionmax >= $::valuetokeep) {
                    $found = 1;
                }
            }
            else {
                # No attribute, no condition
                $nocondition = 1;
                $found = 1;
            }
            if (! $found) {
                $child->getParentNode->removeChild ($child);
            }
            &scanChildren ($child->getChildNodes);
        }
    }
}
1	#!/usr/bin/perl
2
3	use XML::DOM;
4	use strict;
5
6	$::valuetokeep = shift (@ARGV);
7	my $filename = shift (@ARGV);
8
9	$::debug = 1;
10
11	if ((! $filename) or (! $::valuetokeep)) {
12	die "Usage: $0 valuetokeep filename\n";
13	}
14
15	my $parser = new XML::DOM::Parser;
16	my $doc = $parser->parsefile ($filename);
17	my $root = $doc->getDocumentElement;
18	my $attributes;
19
20	&scanChildren ($root->getChildNodes);
21	$doc->printToFileHandle (\*STDOUT);
22
23
24	sub scanChildren {
25	my (@children) = @_;
26	my ($child);
27	child:
28	foreach $child (@children) {
29	if ($child->getNodeType == ELEMENT_NODE) {
30	my ($found, $nocondition);
31	my $versionequal = $child->getAttribute ("debianversionequal");
32	my $versionmin = $child->getAttribute ("debianversionmin");
33	my $versionmax = $child->getAttribute ("debianversionmax");
34	if ($versionequal) {
35	if ($versionmin or $versionmax) {
36	die "Cannot have Version-min or Version-max with Version-equal";
37	}
38	if ($versionequal == $::valuetokeep) {
39	$found = 1;
40	}
41	}
42	elsif ($versionmin) {
43	if ($versionmin <= $::valuetokeep) {
44	if ($versionmax and ($versionmax >= $::valuetokeep)) {
45	$found = 1;
46	}
47	elsif (! $versionmax) {
48	$found = 1;
49	}
50	}
51	}
52	elsif ($versionmax) {
53	if ($versionmax >= $::valuetokeep) {
54	$found = 1;
55	}
56	}
57	else {
58	# No attribute, no condition
59	$nocondition = 1;
60	$found = 1;
61	}
62	if (! $found) {
63	$child->getParentNode->removeChild ($child);
64	}
65	&scanChildren ($child->getChildNodes);
66	}
67	}
68	}