#!/usr/local/bin/perl
#------------------------------------------------------#
#                 本程序為Yuzi工作室提供 
#                Yuzi論壇3000 免費版 v3.47             
#                                                      
#                                                      
#                此程式由 台北抒情夜 中文化            
#                                                      
#    中文化版本 : v3.47b5                              
#    日期       : 2001.2.11                            
#    中文化作者 : 台北抒情夜站長 DC                    
#                                                      
#    台北抒情夜 http://www.ttt.idv.tw                  
#                                                      
#------------------------------------------------------#
require "setup.cgi";
######################
## 以下部分不需修改 ##
######################
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
else {
$buffer = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
$FORM{$name} = $value;
}
$id= $FORM{'id'};
open(TITLES,"$filepath/list/$id/bbs");
@hastitles=<TITLES>;
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/$id/$rcomment");
$m=<TITLES>;
close(TITLES);
($rtitles,$rthistime)=split(/\t/,$m);
$rtitles=~ s/"//g;
($rthistime)=split(/\./,$rthistime);
$new="$new○ <a href=$ym/bbs.cgi?menu=show&id=$id&slttitle=$rcomment target=_blank>$rtitles</a> $rthistime<br>";
}
}
print "Content-type: text/html\n\n";
print <<EOF;
document.write("很抱歉..飛喵喵註冊已滿上限一百萬人,舊版即將停止使用,請至新版註冊網址為 http://www.flymeow.idv.tw/flymeow/Forum2/index.php");
EOF
######################### END OF SCRIPT #########################