#!/usr/local/bin/perl #------------------------------------------------------# # 本程序為Yuzi工作室提供 # Yuzi論壇3000 免費版 v3.47 # # # 此程式由 台北抒情夜 中文化 # # 中文化版本 : v3.47b5 # 日期 : 2001.2.11 # 中文化作者 : 台北抒情夜站長 DC # # 台北抒情夜 http://www.ttt.idv.tw # #------------------------------------------------------# require "setup.cgi"; ###################### ## 以下部分不需修改 ## ###################### open(TITLES,"$filepath/list/bbs"); @hastitles=; close(TITLES); for ($i=0; $i<8; $i++){ $hastitle=@hastitles[$i]; if($hastitle ne ""){ ($rcomment)=split(/\t/,$hastitle); $rcomment=~ s/\n//g; open(TITLES,"$filepath/list/$rcomment"); $m=; close(TITLES); ($rtitles,$rthistime,$rusername,$nr)=split(/\t/,$m); $new="$new

$rtitles
$nr
發佈時間 $rthistime

"; } } print "Content-type: text/html\n\n"; print <公告欄
　
$new EOF ######################### END OF SCRIPT #########################