";
print OUT "";
print OUT "\n";
print OUT " | ";
print OUT " | ";
FORL: for ($i=$commlen-1;$i>=0;$i--) {
@info = split("___",$commentslines[$i]);
$commrun = $info[0];
$info[1]=~s/\r/
/g;
if ($commrun==$runNr) {
# print OUT "Run $runNr | ";
print OUT "";
last FORL;
}
else {
if ($commrun<$runNr) {
# print OUT " \n";
print OUT " | ";
last FORL;
}
}
}
print OUT " | ";
print OUT "";
print OUT "\n";
# print OUT " \n";
print OUT "\n";
print OUT " | ";
print OUT " | ";
print OUT "\n";
$imcount=0;
$vallen=scalar(@value);
for ($i=9; $i<$vallen; $i++) {
$tmp = ($runNr-$runNr%100)/100;
$imagesdir = "images$tmp";
if ($nrLines-$index>20) {
$valueX=$value[$i];
$valueX=~s/jpg/gif/;
if (-e "$progdir/$imagesdir/$valueX") {
$command="rm -f $progdir/$imagesdir/$valueX";
system($command);
}
}
else {
$value[$i]=~s/jpg/gif/;
}
$imcount++;
print OUT "$value[$i] ";
if ($imcount%2 == 0) {
print OUT " \n";
}
}
print OUT " \n";
open(ADD_IM,"<$add_im");
@add_imlines=;
chomp(@add_imlines);
close(ADD_IM);
$add_imlen = scalar(@add_imlines);
$addcount=0;
FORL: for ($i=0;$i<$add_imlen;$i++) {
# $tmp = ($runNr-$runNr%100)/100;
$imagesdir = "additional_images$runNr";
@info = split("___",$add_imlines[$i]);
$add_imrun = $info[0];
if ($add_imrun==$runNr) {
$addcount++;
print OUT "$info[1] ";
if ($addcount%2 == 0) {
print OUT " \n";
}
}
}
print OUT " |