Lines Matching refs:section
39 # return the attributes of the section
41 my ($section, $part)=@_;
46 # print "Section: $section, part: $part\n";
50 if(!$inside && ($_ =~ /^ *\<$section/)) {
66 # detect end of section when part wasn't found
67 elsif((1 ==$inside) && ($_ =~ /^ *\<\/$section\>/)) {
78 my ($section, $part)=@_;
84 # print "Section: $section, part: $part\n";
88 if(!$inside && ($_ =~ /^ *\<$section/)) {
107 elsif(($inside >= 1) && ($_ =~ /^ *\<\/$section/)) {
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,
129 # end of file implies end of section.
130 print STDERR "*** getpart.pm: $section/$part returned data!\n";
133 # section/part does not exist or has no data without an end of
134 # section; end of file implies end of section.
135 print STDERR "*** getpart.pm: $section/$part returned empty!\n";
141 my ($section, $part)=@_;
146 if(!$inside && ($_ =~ /^ *\<$section/)) {
152 elsif((1 == $inside) && ($_ =~ /^ *\<\/$section/)) {
