chat-adver.pl

来自「java开发的聊天室」· PL 代码 · 共 17 行

sub return_adver {
@adver=&readtxtfile($adverfile,1);
srand;
$ram=int(rand($#adver+1));
($mark,$chkadverfile,$markend,$last)=split(/↑/,$adver[$ram]);
@adverfile=&readtxtfile($chkadverfile,1);

foreach (@adverfile) {
   if ($_ =~ /<!--autorefresh-->/) {
      print "<META HTTP-EQUIV=REFRESH CONTENT='$reloadx;URL=$cgiurl?job=online$userinfo'>\n";
   }
   else {
      print "$_";
   } 
}
}
1;