my $total_time = timestr($td);
$total_time =~ s/^([\.0-9]+) wallclock.*/$1/;
$total_time = &convert_time($total_time*1000);
- my $logfile_str = join(',', @log_files);
+ my $logfile_str = $log_files[0];
+ if ($#log_files > 0) {
+ $logfile_str .= ', ..., ' . $log_files[-1]
+ }
print $fh qq{
- Global informations --------------------------------------------------
my $total_time = timestr($td);
$total_time =~ s/^([\.0-9]+) wallclock.*/$1/;
$total_time = &convert_time($total_time*1000);
- my $logfile_str = join(',', @log_files);
+ my $logfile_str = $log_files[0];
+ if ($#log_files > 0) {
+ $logfile_str .= ', ..., ' . $log_files[-1]
+ }
print $fh qq{
- Global informations --------------------------------------------------
my $total_time = timestr($td);
$total_time =~ s/^([\.0-9]+) wallclock.*/$1/;
$total_time = &convert_time($total_time*1000);
- my $logfile_str = join(',', @log_files);
+ my $logfile_str = $log_files[0];
+ if ($#log_files > 0) {
+ $logfile_str .= ', ..., ' . $log_files[-1]
+ }
print $fh qq{
<div class="information">
<ul>
my $total_time = timestr($td);
$total_time =~ s/^([\.0-9]+) wallclock.*/$1/;
$total_time = &convert_time($total_time*1000);
- my $logfile_str = join(',', @log_files);
+ my $logfile_str = $log_files[0];
+ if ($#log_files > 0) {
+ $logfile_str .= ', ..., ' . $log_files[-1]
+ }
print $fh qq{
<div class="information">
<ul>