$tmp= &get_multi_line_field($jobxtrabody," WinSolve log file created ","Exit");
&write_file (1,$zipchart,"@$tmp");
sub get_multi_line_field($$){
my ($jobxtrabody,$start,$end,$opt) = @_;
my @field;
open(MEFJOB, "<$jobxtrabody") || error("[get_single_line_field()] Cannot open MEF job extra body file : $jobxtrabody");
while( <MEFJOB> ) {
if ($_ =~ /^(\s)*$start/) {
$_=~ s/$start//;
push(@field,trim($_)."\n");
while( <MEFJOB> ) {
if($opt!=1){next if /^(\s)*$/}
last if /^(\s)*$end/;
push(@field,trim($_)."\n");
}
close(MEFJOB);
return \@field;
}
}
error("[get_multi_line_field()] Failed to read field $start");
close(MEFJOB);
}