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(($inside >= 1) && ($_ =~ /^ *\<$part[ \>]/)) {
95 elsif($_ =~ /$part [^>]*base64=/) {
96 # attempt to detect our base64 encoded part
101 elsif(($inside >= 2) && ($_ =~ /^ *\<\/$part[ \>]/)) {
109 print STDERR "*** getpart.pm: $section/$part returned data!\n";
112 print STDERR "*** getpart.pm: $section/$part returned empty!\n";
128 # section/part has data but end of section not detected,
130 print STDERR "*** getpart.pm: $section/$part returned data!\n";
133 # section/part does not exist or has no data without an end of
135 print STDERR "*** getpart.pm: $section/$part returned empty!\n";
141 my ($section, $part)=@_;
149 elsif((1 == $inside) && ($_ =~ /^ *\<$part[ \>]/)) {
