Lines Matching refs:part
46 my ($section, $part)=@_;
58 if((1 ==$inside) && ( ($_ =~ /^ *\<$part([^>]*)/) ||
59 !(defined($part)) )
75 elsif((2 ==$inside) && ($_ =~ /^ *\<\/$part/)) {
83 my ($section, $part)=@_;
96 elsif(($inside >= 1) && ($_ =~ /^ *\<$part[ \>]/)) {
100 elsif($_ =~ /$part [^>]*base64=/) {
104 elsif($_ =~ /$part [^>]*hex=/) {
110 elsif(($inside >= 2) && ($_ =~ /^ *\<\/$part[ \>]/)) {
118 print STDERR "$xmlfile:$line:1: error: missing </$part> tag before </$section>\n";
122 print STDERR "*** getpart.pm: $section/$part returned data!\n";
125 print STDERR "*** getpart.pm: $section/$part returned empty!\n";
150 print STDERR "*** getpart.pm: $section/$part returned data!\n";
155 print STDERR "*** getpart.pm: $section/$part returned empty!\n";
161 my ($section, $part)=@_;
169 elsif((1 == $inside) && ($_ =~ /^ *\<$part[ \>]/)) {