bagder: curl-www/docs vulntable.pl,NONE,1.1

Update of /cvsroot/curl/curl-www/docs
In directory labb:/tmp/cvs-serv11353

Added Files:
	vulntable.pl 
Log Message:
add the missing script


--- NEW FILE: vulntable.pl ---
#!/usr/bin/perl

# un-preprocessed _changes-file as input

# datestamp, first vulnerable version, last vulnerable version
my @vuln = ("20060320|7.15.0|7.15.2",
            "BID15756|7.11.2|7.15.0",
            "BID15102|7.10.6|7.14.1",
            "BID12616|7.3   |7.13.0",
            "BID12615|7.10.6|7.13.0",
            "BID8432 |7.1   |7.10.6",
            "BID1804 |6.0   |7.4   ",
            );
            
sub vernum {
    my ($ver)=@_;
    my @v = split('\.', $ver);
    return ($v[0] << 16) | ($v[1] << 8) | $v[2];
}

print "<table>";
sub head {
    print "<tr class=\"tabletop\"><th>Version</th>";
    for(@vuln) {
        my ($id, $start, $stop)=split('\|');
        $id =~ s/ //;
        print "<th><a href=\"/docs/security.html\#$id\">$id</a></th>";
    }
    print "</tr>\n";
}

head();

my $l;

while(<STDIN>) {
    if($_ =~ /^SUBTITLE\(Fixed in ([0-9.]*)/) {
        my $str=$1;
        my $this = vernum($str);

        my @v;
        my $vnum;
        my $i;
        for(@vuln) {
            my ($id, $start, $stop)=split('\|');

            #print "CHECK $start <= $this <= $stop\n";

            if(($this >= vernum($start)) &&
               ($this <= vernum($stop))) {
                # vulnerable
                $v[$i]=1; # this one
            }
            $i++;
        }
        printf "<tr class=\"%s\"><td>$str</td>", $l&1?"even":"odd";
        for my $i (0 .. scalar(@vuln)-1 ) {
            printf("<td>%s</td>", $v[$i]?"yes":"&nbsp;");
        }
        print "</tr>\n";

        if(!(++$l % 20)) {
            head();
        }

    }
}

print "</table>\n";