my %inode2name;
my $nameCnt = 0;
(my $fDisp = "${EscHTML($f)}") =~ s/ / /g;
- $fileStr .= "<tr><td align=left>$fDisp</td>";
- my($colSpan, $url, $inode, $type, $tdColor);
+ $fileStr .= "<tr><td align=\"left\" class=\"histView\">$fDisp</td>";\r
+ my($colSpan, $url, $inode, $type);\r
+ my $tdClass = ' class="histView"';\r
for ( $i = 0 ; $i < @Backups ; $i++ ) {
my($path);
if ( $colSpan > 0 ) {
$colSpan++;
next;
}
- $fileStr .= "<td align=center colspan=$colSpan$tdColor>"
+ $fileStr .= "<td align=center colspan=$colSpan$tdClass>"\r
. "$url</td>";
$colSpan = 0;
- $tdColor = "";
+ $tdClass = ' class="histView"';\r
}
if ( !defined($hist->{$f}[$i]) ) {
$colSpan = 1;
$url = " ";
$inode = -3; # special value for missing
- $tdColor = ' bgcolor="#ffffaa"';
+ $tdClass = ' class="histViewMis"';\r
next;
}
if ( $dir eq "" ) {
$colSpan = 1;
}
if ( $colSpan > 0 ) {
- $fileStr .= "<td align=center colspan=$colSpan$tdColor>$url</td>";
+ $fileStr .= "<td align=center colspan=$colSpan$tdClass>$url</td>";\r
$colSpan = 0;
}
$fileStr .= "</tr>\n";
$dirDisplay =~ s{//+}{/}g;
$dirDisplay =~ s{/+$}{}g;
$dirDisplay = "/" if ( $dirDisplay eq "" );
-
- Header(eval("qq{$Lang->{DirHistory_backup_for__host}}"));
-
- print (eval("qq{$Lang->{DirHistory_for__host}}"));
-
+ my $content = eval("qq{$Lang->{DirHistory_for__host}}");\r
+ Header(eval("qq{$Lang->{DirHistory_backup_for__host}}"), $content);\r
Trailer();
}