Lines Matching refs:part
11 # you should have received as part of this distribution. The terms
38 # if $part is undefined (ie only one argument) then
41 my ($section, $part)=@_;
46 # print "Section: $section, part: $part\n";
53 if((1 ==$inside) && ( ($_ =~ /^ *\<$part([^>]*)/) ||
54 !(defined($part)) )
66 # detect end of section when part wasn't found
70 elsif((2 ==$inside) && ($_ =~ /^ *\<\/$part/)) {
78 my ($section, $part)=@_;
84 # print "Section: $section, part: $part\n";
91 elsif((1 ==$inside) && ($_ =~ /^ *\<$part[ \>]/)) {
92 if($_ =~ /$part [^>]*base64=/) {
98 elsif((2 ==$inside) && ($_ =~ /^ *\<\/$part/)) {
103 print STDERR "*** getpart.pm: $section/$part returned data!\n";
106 print STDERR "*** getpart.pm: $section/$part returned empty!\n";
122 print STDERR "*** getpart.pm: $section/$part returned empty!\n";