Lines Matching refs:part
93 my ($section, $part)=@_;
105 if((1 ==$inside) && ( ($_ =~ /^ *\<$part ([^>]*)/) ||
106 !(defined($part)) )
122 elsif((2 ==$inside) && ($_ =~ /^ *\<\/$part/)) {
131 my ($section, $part)=@_;
144 elsif(($inside >= 1) && ($_ =~ /^ *\<$part[ \>]/)) {
148 elsif($_ =~ /$part [^>]*base64=/) {
152 elsif($_ =~ /$part [^>]*hex=/) {
158 elsif(($inside >= 2) && ($_ =~ /^ *\<\/$part[ \>]/)) {
166 print STDERR "$xmlfile:$line:1: error: missing </$part> tag before </$section>\n";
170 print STDERR "*** getpart.pm: $section/$part returned data!\n";
173 print STDERR "*** getpart.pm: $section/$part returned empty!\n";
198 print STDERR "*** getpart.pm: $section/$part returned data!\n";
203 print STDERR "*** getpart.pm: $section/$part returned empty!\n";
210 my ($section, $part)=@_;
218 elsif((1 == $inside) && ($_ =~ /^ *\<$part[ \>]/)) {
