+#***************************************************************************
+# _ _ ____ _
+# Project ___| | | | _ \| |
+# / __| | | | |_) | |
+# | (__| |_| | _ <| |___
+# \___|\___/|_| \_\_____|
+#
+# Copyright (C) 1998 - 2012, Daniel Stenberg, <daniel@haxx.se>, et al.
+#
+# This software is licensed as described in the file COPYING, which
+# you should have received as part of this distribution. The terms
+# are also available at http://curl.haxx.se/docs/copyright.html.
+#
+# You may opt to use, copy, modify, merge, publish, distribute and/or sell
+# copies of the Software, and permit persons to whom the Software is
+# furnished to do so, under the terms of the COPYING file.
+#
+# This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
+# KIND, either express or implied.
+#
+###########################################################################
#use strict;
my $warning=0;
my $trace=0;
+sub decode_base64 {
+ tr:A-Za-z0-9+/::cd; # remove non-base64 chars
+ tr:A-Za-z0-9+/: -_:; # convert to uuencoded format
+ my $len = pack("c", 32 + 0.75*length); # compute length byte
+ return unpack("u", $len . $_); # uudecode and print
+}
+
sub getpartattr {
# if $part is undefined (ie only one argument) then
# return the attributes of the section
) {
$inside++;
my $attr=$1;
- my @p=split("[\t]", $attr);
- my $assign;
-
- foreach $assign (@p) {
- # $assign is a 'name="contents"' pair
- if($assign =~ / *([^=]*)=\"([^\"]*)\"/) {
- # *with* quotes
- $hash{$1}=$2;
- }
- elsif($assign =~ / *([^=]*)=([^\"]*)/) {
- # *without* quotes
- $hash{$1}=$2;
- }
+ while($attr =~ s/ *([^=]*)= *(\"([^\"]*)\"|([^\> ]*))//) {
+ my ($var, $cont)=($1, $2);
+ $cont =~ s/^\"(.*)\"$/$1/;
+ $hash{$var}=$cont;
}
last;
}
+ # detect end of section when part wasn't found
+ elsif((1 ==$inside) && ($_ =~ /^ *\<\/$section\>/)) {
+ last;
+ }
elsif((2 ==$inside) && ($_ =~ /^ *\<\/$part/)) {
$inside--;
}
if(!$inside && ($_ =~ /^ *\<$section/)) {
$inside++;
}
- elsif((1 ==$inside) && ($_ =~ /^ *\<$part[ \>]/)) {
- if($_ =~ /$part .*base64=/) {
- # attempt to detect base64 encoded parts
+ elsif(($inside >= 1) && ($_ =~ /^ *\<$part[ \>]/)) {
+ if($inside > 1) {
+ push @this, $_;
+ }
+ elsif($_ =~ /$part [^>]*base64=/) {
+ # attempt to detect our base64 encoded part
$base64=1;
}
$inside++;
}
- elsif((2 ==$inside) && ($_ =~ /^ *\<\/$part/)) {
+ elsif(($inside >= 2) && ($_ =~ /^ *\<\/$part[ \>]/)) {
+ if($inside > 2) {
+ push @this, $_;
+ }
$inside--;
}
- elsif((1==$inside) && ($_ =~ /^ *\<\/$section/)) {
- if($trace) {
+ elsif(($inside >= 1) && ($_ =~ /^ *\<\/$section/)) {
+ if($trace && @this) {
print STDERR "*** getpart.pm: $section/$part returned data!\n";
}
- if(!@this && $warning) {
+ if($warning && !@this) {
print STDERR "*** getpart.pm: $section/$part returned empty!\n";
}
if($base64) {
}
return @this;
}
- elsif(2==$inside) {
+ elsif($inside >= 2) {
push @this, $_;
}
}
- if($warning) {
+ if($trace && @this) {
+ # section/part has data but end of section not detected,
+ # end of file implies end of section.
+ print STDERR "*** getpart.pm: $section/$part returned data!\n";
+ }
+ if($warning && !@this) {
+ # section/part does not exist or has no data without an end of
+ # section; end of file implies end of section.
print STDERR "*** getpart.pm: $section/$part returned empty!\n";
}
- return @this; #empty!
+ return @this;
+}
+
+sub partexists {
+ my ($section, $part)=@_;
+
+ my $inside = 0;
+
+ for(@xml) {
+ if(!$inside && ($_ =~ /^ *\<$section/)) {
+ $inside++;
+ }
+ elsif((1 == $inside) && ($_ =~ /^ *\<$part[ \>]/)) {
+ return 1; # exists
+ }
+ elsif((1 == $inside) && ($_ =~ /^ *\<\/$section/)) {
+ return 0; # does not exist
+ }
+ }
+ return 0; # does not exist
+}
+
+# Return entire document as list of lines
+sub getall {
+ return @xml;
}
sub loadtest {
sub compareparts {
my ($firstref, $secondref)=@_;
- my $sizefirst=scalar(@$firstref);
- my $sizesecond=scalar(@$secondref);
-
- my $first;
- my $second;
-
- for(1 .. $sizefirst) {
- my $index = $_ - 1;
- if($firstref->[$index] ne $secondref->[$index]) {
- (my $aa = $firstref->[$index]) =~ s/\r+\n$/\n/;
- (my $bb = $secondref->[$index]) =~ s/\r+\n$/\n/;
-
- $first .= $firstref->[$index];
- $second .= $secondref->[$index];
- }
- }
+ my $first = join("", @$firstref);
+ my $second = join("", @$secondref);
# we cannot compare arrays index per index since with the base64 chunks,
# they may not be "evenly" distributed
}
#
-# Load a specified file an return it as an array
+# Load a specified file and return it as an array
#
sub loadarray {
my ($filename)=@_;
return @array;
}
-#
-# Given two array references, this function will store them in two
-# temporary files, run 'diff' on them, store the result, remove the
-# temp files and return the diff output!
-#
+# Given two array references, this function will store them in two temporary
+# files, run 'diff' on them, store the result and return the diff output!
+
sub showdiff {
- my ($firstref, $secondref)=@_;
+ my ($logdir, $firstref, $secondref)=@_;
+
+ my $file1="$logdir/check-generated";
+ my $file2="$logdir/check-expected";
- my $file1=".generated";
- my $file2=".expected";
-
open(TEMP, ">$file1");
for(@$firstref) {
- print TEMP $_;
+ my $l = $_;
+ $l =~ s/\r/[CR]/g;
+ $l =~ s/\n/[LF]/g;
+ print TEMP $l;
+ print TEMP "\n";
}
close(TEMP);
open(TEMP, ">$file2");
for(@$secondref) {
- print TEMP $_;
+ my $l = $_;
+ $l =~ s/\r/[CR]/g;
+ $l =~ s/\n/[LF]/g;
+ print TEMP $l;
+ print TEMP "\n";
}
close(TEMP);
- my @out = `diff -u $file2 $file1`;
+ my @out = `diff -u $file2 $file1 2>/dev/null`;
+
+ if(!$out[0]) {
+ @out = `diff -c $file2 $file1 2>/dev/null`;
+ }
- unlink $file1, $file2;
return @out;
}