<loop code=perl db=my_db>
$url=convert_url($Download_Now);
out <<EOF;
<b><a href="javascript:auf('http://baseportal.de/cgi-bin/baseportal.pl?htx=/Nick_Mash/counter&urlgo=$url&downlId=$_id')">$Title</a></b><br><br>By $Artist<br>
Downloads:...$Download_Range<br>
<font size="2">File Found At:
$Found_At<br>
Last downloaded at $Last_Visit MEZ<br>
</a><font color="#FF3300" size="3">
if ($urlgo =~ /ragers/)
{
out "<p><a href=$urlgo.MP3><img src=\"http://www.rockabillymp3.com/images/filefinder.gif\" width=\"180\" height=\"60\" border=\"0\"></a></p>";
}
if ($urlgo =~ /goinape/)
{
out "<p><a href=$urlgo.MP3><img src=\"http://www.rockabillymp3.com/images/filefinder.gif\" width=\"180\" height=\"60\" border=\"0\"></a></p>";
}
if ($urlgo =~ /vitaminic/)
{
out "<p><a href=$urlgo><img src=\"http://www.rockabillymp3.com/images/filefinder.gif\" width=\"180\" height=\"60\" border=\"0\"></a></p>";
}
else
{
out "<p><a href=$urlgo.mp3><img src=\"http://www.rockabillymp3.com/images/filefinder.gif\" width=\"180\" height=\"60\" border=\"0\"></a></p>";
}
</perl>
<font color="#66FF00" font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><font size="1">
Powered by <a href="http://www.rockabillymp3.com" target="_blank">rockabillymp3.com!
$sek=7200;
$gesperrt=0;
$ip1=$_REMOTE_ADDR;
$jetztzeit=time;
$zeitschranke=$jetztzeit - $sek;
del "zeit<$zeitschranke","sperre";
get "ip==$ip1","sperre";
while(get_next("sperre"))
{
if ($sperre_link_id==$downlId)
{
$gesperrt=1;
}
}
if ($gesperrt == 0)
{
put ["ip",$ip1,"zeit",$jetztzeit,"sperre_link_id",$downlId],"sperre";
get "Id==$downlId","my_db";
$Download_Range++;
mod "Id==$_id", ["Download_Range", $Download_Range,"Last_Visit",datum("jetzt")],"my_db";
}
</perl>
