news.cgi

在线播放音乐系统 下载请看readme.txt和install.txt文件

#!/usr/bin/perl
require "f:/hndns/music/setup.cgi";     # NT系统此处改为绝对路径
print "Content-type: text/html\n\n";

$newdata="$cgidir/new.txt";
open(FILE,"$newdata")||die $!;
@lines=<FILE>;
close(FILE);
for($inti=1;$inti<=$news;$inti++){
$line=@lines[$inti-1];
$line=~s/\n//g;
($l,$m,$t,$d)=split(/\|/,$line);
$t=~ s/\'//g;
$t=~s/\;//g;
$top="$top◆<a href=$cgiurl/search.cgi?ss=$l target=_blank>$m</a>...[$t]<br>";
}

$list.="<table><tr><td>";
$list.="$top";
$list.="</td></tr></table>"; 
print "document.write('$list')\n";