* Handle summary being passed; guess log based on it.
}
else {
$status = $param{summary};
}
else {
$status = $param{summary};
+ $log = $status;
+ $log =~ s/\.summary$/.log/;
}
my $status_fh = new IO::File $status, 'r' or
warn "Unable to open $status for reading: $!" and return undef;
}
my $status_fh = new IO::File $status, 'r' or
warn "Unable to open $status for reading: $!" and return undef;
}
# Add log last modified time
$data{log_modified} = (stat($log))[9];
}
# Add log last modified time
$data{log_modified} = (stat($log))[9];
+ $date{location} = $location;
status => \%status,
days_until => 1,
);
status => \%status,
days_until => 1,
);
+ if ($days >= 0 and $status->{location} ne 'archive') {
$result .= ";\n<strong>Will be archived" . ( $days == 0 ? " today" : $days == 1 ? " in $days day" : " in $days days" ) . "</strong>";
}
}
$result .= ";\n<strong>Will be archived" . ( $days == 0 ? " today" : $days == 1 ? " in $days day" : " in $days days" ) . "</strong>";
}
}