<BLOCKQUOTE><font size="1" face="Verdana, Tahoma, sans-serif">code:</font><HR><pre>
#!/usr/bin/perl
require "setup.pl";
sub header{
print "<html><head><meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1251\"><title>SOFT LIST</title>";
print "</head><body text=\"#005500\" font-family : Verdana; link=#005500 vlink=#005500 alink=#005500>";
}
$bufer=$ENV;
open (DATA,"$soft") || die "Не могу открыть файл $link_list_file для чтения";
@DATA=<DATA>;
close (DATA);
print "Content-type: text/html\n\n";
&header;
@DATA=reverse(@DATA);
foreach $list (@DATA)
{
($id,$name,$cnt,$link,$sol,$sz)=split(/\|\|/, $list);
print "<div align=center>
<table width=90%>
<tr>
<td align=center valign=bottom colspan=2 bgcolor=#B8F1CF>
<p align=center>
<strong> $name</strong></p>
</td>
</tr>
<tr>
<td colspan=2 ><p>$sol</p><p> </p>
</td>
</tr>
<tr>
<td width=50% bgcolor=#B8F1CF><p>$sz MB</p></td>
<td bgcolor=#B8F1CF><a href=\"$siteurl\?$id\">Download</a></td>
</tr>
</table>
</center></div>";
}
</pre><HR></BLOCKQUOTE>
Вот кажется этот код.
Новости дизайна |
Галереи |
О проекте |
RSS
Правила |
FAQ |
Поиск |
Наша команда |
Регистрация |
Вход
