scripts/test_errors.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

#!/usr/bin/perl

my $file;
while ($file = shift @ARGV) {
    # print "Processing file $file...\n";
    open(IN, "$file") || die "Unable to open file $file";
    $state = "";
    $line=0;
    while(<IN>) {
	$line++;
	chomp;
	
	if($state eq "") {
	    if(/xmlSecError\((.*)/) {
		$state = "$file,$line," . $1;
	    }
	} else {
	    if(/(.*);/) {
		$_ = $state . $1;
		$state = "";

		while(/\t/) {
		    s/\t//;
		}
		while(/\, /) {
		    s/\, /\,/;
		}
		while(/\,/) {
		    s/\,/\;/;
		}		
		print "$_\n";
	    } else {
		$state = $state . $_;
	    }
	}
    }
    close IN;
}