Contents

#!/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;
}

Version data entries

2 entries across 2 versions & 1 rubygems

Version	Path
xmlsec-shim-1.2.18.2	vendor/xmlsec1-1.2.18/scripts/test_errors.pl
xmlsec-shim-1.2.18.1	vendor/xmlsec1-1.2.18/scripts/test_errors.pl