Rev 1 |
|
Rev 27 |
Line 72... |
|
Line 72... |
} |
|
} |
$num=@res; |
|
$num=@res; |
for ($nn=$num;$nn<$count;$nn++) { print IDXFILE "\n1## <td></td><td></td>";} |
|
for ($nn=$num;$nn<$count;$nn++) { print IDXFILE "\n1## <td></td><td></td>";} |
|
|
|
@res = grep /cpu/, @db; |
|
@res = grep /cpu/, @db; |
|
|
print IDXFILE " |
|
|
2## <td>"; |
for (@res) { |
|
for (@res) { |
($link_name = $_) =~ s/_/:/; |
|
($link_name = $_) =~ s/_/:/; |
print IDXFILE " |
|
print IDXFILE " |
2## <td><a href=\"",$MODNAME,"/$_.html\"><img src=\"system/thumb-$_.",$IMAGEFORMAT,"\"></a></td> |
|
2## <a href=\"",$MODNAME,"/$_.html\"><img src=\"system/thumb-$_.",$IMAGEFORMAT,"\"></a> |
2## <td valign=top><a href=\"",$MODNAME,"/$_.html\">$link_name</a></td>"; |
|
2## <a href=\"",$MODNAME,"/$_.html\">$link_name</a>"; |
|
|
} |
|
|
print IDXFILE " |
|
|
2## </td>"; |
|
|
for ($i = 0; $i < 2 * @res - 1; ++$i) { |
|
|
print IDXFILE " |
|
|
2## <td></td>"; |
} |
|
} |
$num=@res; |
|
$num=@res; |
for ($nn=$num;$nn<$count;$nn++) { print IDXFILE "\n2## <td></td><td></td>";} |
|
for ($nn=$num;$nn<$count;$nn++) { print IDXFILE "\n2## <td></td><td></td>";} |
|
|
|
@res = grep /load/, @db; |
|
@res = grep /load/, @db; |