yotsubanome.php

   1 <?php
   2 /*＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
   3 　　　　四葉の芽画像掲示板
   4
   5 yotsubanome.php*/$ver = "v0.7.8.1.0004 β lot.100404";/*
   6
   7 これがコアシステムです。　四葉の芽スクリプト
   8 このスクリプトはレッツPHP!<http://php.s3.to/>のgazou.phpを改造したものです。
   9 配布条件はレッツPHP!に準じます。改造、再配布は自由にどうぞ。
  10 このスクリプトに関する質問はレッツPHP!にしないようにお願いします。
  11 最新版は<http://4ch.irc.su/+4/script/>で配布しています。
  12 ご質問は準備板＠四葉の芽<http://4ch.irc.su/+4/test/>までどうぞ。
  13
  14 --【スパーキー（④ ^ヮ^）】◆FCr.DTJy2k◆◆/ODv/gdbGrBJVTTiLB/IBFugUUM=◆四葉の芽◇ちゃんねる ## 管理者 ##
  15 ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
  16 */
  17 define("PIXMICAT_VER", 'yotsubanome '.$ver); // 版本資訊文字
  18 /*
  19 Pixmicat! : 圖咪貓貼圖版程式
  20 http://pixmicat.openfoundry.org/
  21 版權所有 © 2005-2009 Pixmicat! Development Team
  22
  23 版權聲明：
  24 此程式是基於レッツPHP!<http://php.s3.to/>的gazou.php、
  25 双葉ちゃん<http://www.2chan.net>的futaba.php所改寫之衍生著作程式，屬於自由軟體，
  26 以The Clarified Artistic License作為發佈授權條款。
  27 您可以遵照The Clarified Artistic License來自由使用、散播、修改或製成衍生著作。
  28 更詳細的條款及定義請參考隨附"LICENSE"條款副本。
  29
  30 發佈這一程式的目的是希望它有用，但沒有任何擔保，甚至沒有適合特定目的而隱含的擔保。
  31 關於此程式相關的問題請不要詢問レッツPHP!及双葉ちゃん。
  32
  33 如果您沒有隨著程式收到一份The Clarified Artistic License副本，
  34 請瀏覽http://pixmicat.openfoundry.org/license/以取得一份。
  35
  36 最低運行需求：
  37 PHP 4.3.0 / 27 December 2002
  38 GD Version 2.0.28 / 21 July 2004
  39
  40 建議運行環境：
  41 PHP 4.4.9 或更高版本並開啟 GD 和 Zlib 支援，如支援 ImageMagick 建議使用
  42 安裝 PHP 編譯快取套件 (如eAccelerator, XCache, APC) 或其他快取套件 (如memcached) 更佳
  43 如伺服器支援 SQLite, MySQL, PostgreSQL 等請盡量使用
  44
  45 設置方法：
  46 根目錄的權限請設為777，
  47 首先將pixmicat.php執行過一遍，必要的檔案和資料夾權限皆會自動設定，
  48 自動設定完成後請刪除或註解起來此檔案底部之init(); // ←■■！程式環境初始化(略)一行，
  49 然後再執行一遍pixmicat.php，即完成初始化程序，可以開始使用。
  50
  51 細部的設定請打開config.php參考註解修改，另有 Wiki (http://pixmicat.wikidot.com/pmcuse:config)
  52 說明條目可資參考。
  53 */
  54
  55 /* Enviorment Settings */
  56 // Do not change unless you renamed the directories
  57 define("PHP_DIRECTORY", '../test/'); // yotsubanome "C:\windows\system\"
  58
  59 /* Include */
  60 include_once(PHP_DIRECTORY.'lib/lib_env.php'); // Enviorment Settings
  61 include_once(PHP_DIRECTORY.'config.php'); // 引入設定檔
  62 include_once(PHP_DIRECTORY.'lib/lib_language.php'); // 引入語系
  63 include_once(PHP_DIRECTORY.'lib/lib_common.php'); // 引入共通函式檔案
  64 include_once(PHP_DIRECTORY.'lib/lib_fileio.php'); // 引入FileIO
  65 include_once(PHP_DIRECTORY.'lib/lib_pio.php'); // 引入PIO
  66 include_once(PHP_DIRECTORY.'lib/lib_pms.php'); // 引入PMS
  67 include_once(PHP_DIRECTORY.'lib/lib_pte.php'); // 引入PTE外部函式庫
  68
  69 $PTE = new PTELibrary(TEMPLATE_FILE); // PTE Library
  70
  71 if(version_compare(PHP_VERSION, '5.0.0', '>=')){ // PHP5+
  72         set_error_handler('PMCCore_errorHandler', E_ERROR | E_WARNING | E_USER_ERROR); // Handle Errors
  73 }else{
  74         //---- set_error_handler('PMCCore_errorHandler');
  75         error_reporting(E_ALL); // show all errors for debugging
  76 }
  77
  78 /* Lockdown [prevents posting] */
  79 if(file_exists(PHP_DIRECTORY.'lockdown')){
  80         if($_POST['mode'] == 'usrdel' || $_GET['mode'] == 'latest' || $_GET['res']){
  81                 echo "";
  82         }else{
  83                 die('Posting temporarily disabled. Come back later!<br/>&mdash;四葉の芽チーム');
  84         }
  85 }
  86
  87 /* 更新記錄檔檔案／輸出討論串 */
  88 /* ログの全体更新 */
  89 function updatelog($resno=0,$page_num=-1,$single_page=false){
  90         global $config, $PIO, $FileIO, $PTE, $PMS, $language, $LIMIT_SENSOR, $style_bar;
  91
  92         $adminMode = adminAuthenticate('check') && $page_num != -1 && !$single_page; // 前端管理模式
  93         $adminFunc = ''; // 前端管理選擇
  94         if($adminMode){
  95                 $adminFunc = '<select name="func"><option value="delete">'._T('admin_delete').'</option>';
  96                 $funclist = array();
  97                 $PMS->useModuleMethods('AdminFunction', array('add', &$funclist, null, null)); // "AdminFunction" Hook Point
  98                 foreach($funclist as $f) $adminFunc .= '<option value="'.$f[0].'">'.$f[1].'</option>'."\n";
  99                 $adminFunc .= '</select>';
 100         }
 101         $resno = intval($resno); // 編號數字化
 102         $page_start = $page_end = 0; // 靜態頁面編號
 103         $inner_for_count = 1; // 內部迴圈執行次數
 104         $RES_start = $RES_amount = $hiddenReply = $tree_count = $hiddenImage = $hiddenImagP = 0;
 105         $hiddenImagRP = 1; // o++
 106         $kill_sensor = $old_sensor = false; // 預測系統啟動旗標
 107         $arr_kill = $arr_old = array(); // 過舊編號陣列
 108         $pte_vals = array('{$THREADFRONT}'=>'','{$THREADREAR}'=>'','{$SELF}'=>PHP_SELF,
 109                 '{$DEL_HEAD_TEXT}' => '<input type="hidden" name="mode" value="usrdel" />'._T('del_head'),
 110                 '{$DEL_IMG_ONLY_FIELD}' => '<input type="checkbox" name="onlyimgdel" id="onlyimgdel" value="on" />',
 111                 '{$DEL_IMG_ONLY_TEXT}' => _T('del_img_only'),
 112                 '{$DEL_PASS_TEXT}' => ($adminMode ? $adminFunc : '')._T('del_pass'),
 113                 '{$DEL_PASS_FIELD}' => '<input class="inputtext" type="password" name="pwd" size="8" value="" />',
 114                 '{$DEL_SUBMIT_BTN}' => '<input type="submit" value="'._T('del_btn').'" />');
 115         if(is_file(DATA_DIR.CSV_SS)) $pte_vals += array('{$STYLE_BAR}' => '<br />Style '.$style_bar);
 116
 117         if($resno) $pte_vals['{$RESTO}'] = $resno;
 118
 119         if(!$resno){
 120                 if($page_num==-1){ // remake模式 (PHP動態輸出多頁份)
 121                         $threads = $PIO->fetchThreadList(); // 取得全討論串列表
 122                         $PMS->useModuleMethods('ThreadOrder', array($resno,$page_num,$single_page,&$threads)); // "ThreadOrder" Hook Point
 123                         $threads_count = count($threads);
 124                         $inner_for_count = $threads_count > PAGE_DEF ? PAGE_DEF : $threads_count;
 125                         $page_end = ceil($threads_count / PAGE_DEF) - 1; // 頁面編號最後值
 126                 }else{ // 討論串分頁模式 (PHP動態輸出一頁份)
 127                         $threads_count = $PIO->threadCount(); // 討論串個數
 128                         //---- if($page_num < 0 || ($page_num * PAGE_DEF) >= $threads_count) error(_T('page_not_found')); // $page_num超過範圍
 129                         //++++---- Page 0 bug fix
 130                         if($page_num!=0) if($page_num < 0 || ($page_num * PAGE_DEF) >= $threads_count) error(_T('page_not_found')); // $page_num超過範圍
 131                         //++++----
 132                         $page_start = $page_end = $page_num; // 設定靜態頁面編號
 133                         $threads = $PIO->fetchThreadList($page_num * PAGE_DEF, PAGE_DEF); // 取出分頁後的討論串首篇列表
 134                         $PMS->useModuleMethods('ThreadOrder', array($resno,$page_num,$single_page,&$threads)); // "ThreadOrder" Hook Point
 135                         $inner_for_count = count($threads); // 討論串個數就是迴圈次數
 136                 }
 137         }else{
 138                 if(!$PIO->isThread($resno)){ error(_T('thread_not_found')); }
 139                 $AllRes = isset($_GET['page_num']) && $_GET['page_num']=='all'; // 是否使用 ALL 全部輸出
 140
 141                 // 計算回應分頁範圍
 142                 $tree_count = $PIO->postCount($resno) - 1; // 討論串回應個數
 143                 if($tree_count && RE_PAGE_DEF){ // 有回應且RE_PAGE_DEF > 0才做分頁動作
 144                         if($page_num==='all'){ // show all
 145                                 $page_num = 0;
 146                                 $RES_start = 1;
 147                                 $RES_amount = $tree_count;
 148                         }else{
 149                                 if($page_num==='RE_PAGE_MAX') $page_num = ceil($tree_count / RE_PAGE_DEF) - 1; // 特殊值：最末頁
 150                                 if($page_num < 0) $page_num = 0; // 負數
 151                                 if($page_num * RE_PAGE_DEF >= $tree_count) error(_T('page_not_found'));
 152                                 $RES_start = $page_num * RE_PAGE_DEF + 1; // 開始
 153                                 $RES_amount = RE_PAGE_DEF; // 取幾個
 154                         }
 155                 }elseif($page_num > 0) error(_T('page_not_found')); // 沒有回應的情況只允許page_num = 0 或負數
 156                 else{ $RES_start = 1; $RES_amount = $tree_count; $page_num = 0; } // 輸出全部回應
 157
 158                 if(USE_RE_CACHE && !$adminMode){ // 檢查快取是否仍可使用 / 頁面有無更動
 159                         $cacheETag = md5(($AllRes ? 'all' : $page_num).'-'.$tree_count); // 最新狀態快取用 ETag
 160                         $cacheFile = './cache/'.$resno.'-'.($AllRes ? 'all' : $page_num).'.'; // 暫存快取檔位置
 161                         $cacheGzipPrefix = extension_loaded('zlib') ? 'compress.zlib://' : ''; // 支援 Zlib Compression Stream 就使用
 162                         $cacheControl = isset($_SERVER['HTTP_CACHE_CONTROL']) ? $_SERVER['HTTP_CACHE_CONTROL'] : ''; // 瀏覽器快取控制
 163                         if(isset($_SERVER['HTTP_IF_NONE_MATCH']) && $_SERVER['HTTP_IF_NONE_MATCH'] == '"'.$cacheETag.'"'){ // 再度瀏覽而快取無更動
 164                                 header('HTTP/1.1 304 Not Modified');
 165                                 header('ETag: "'.$cacheETag.'"');
 166                                 return;
 167                         }elseif(file_exists($cacheFile.$cacheETag) && $cacheControl != 'no-cache'){ // 有(更新的)暫存快取檔存在 (未強制no-cache)
 168                                 header('X-Cache: HIT from Pixmicat');
 169                                 header('ETag: "'.$cacheETag.'"');
 170                                 header('Connection: close');
 171                                 readfile($cacheGzipPrefix.$cacheFile.$cacheETag); return;
 172                         }else{
 173                                 header('X-Cache: MISS from Pixmicat');
 174                         }
 175                 }
 176         }
 177
 178         //++++---- Page 0 bug fix
 179         if($tree_count==0 && $page_end==-1) $page_end = 0;
 180         //++++----
 181         // 預測過舊文章和將被刪除檔案
 182         if(PIOSensor::check('predict', $LIMIT_SENSOR)){ // 是否需要預測
 183                 $old_sensor = true; // 標記打開
 184                 $arr_old = array_flip(PIOSensor::listee('predict', $LIMIT_SENSOR)); // 過舊文章陣列
 185         }
 186         $tmp_total_size = total_size(); // 目前附加圖檔使用量
 187         $tmp_STORAGE_MAX = STORAGE_MAX * (($tmp_total_size >= STORAGE_MAX) ? 1 : 0.96); // 預估上限值
 188         if(STORAGE_LIMIT && STORAGE_MAX > 0 && ($tmp_total_size >= $tmp_STORAGE_MAX)){
 189                 $kill_sensor = true; // 標記打開
 190                 $arr_kill = $PIO->delOldAttachments($tmp_total_size, $tmp_STORAGE_MAX); // 過舊附檔陣列
 191         }
 192
 193         $PMS->useModuleMethods('ThreadFront', array(&$pte_vals['{$THREADFRONT}'], $resno)); // "ThreadFront" Hook Point
 194         $PMS->useModuleMethods('ThreadRear', array(&$pte_vals['{$THREADREAR}'], $resno)); // "ThreadRear" Hook Point
 195
 196         // 生成靜態頁面一頁份內容
 197         for($page = $page_start; $page <= $page_end; $page++){
 198                 $dat = ''; $pte_vals['{$THREADS}'] = '';
 199                 head($dat, $resno);
 200                 form($dat, $resno);
 201                 // 輸出討論串內容
 202                 for($i = 0; $i < $inner_for_count; $i++){
 203                         // 取出討論串編號
 204                         if($resno) $tID = $resno; // 單討論串輸出 (回應模式)
 205                         else{
 206                                 if($page_num == -1 && ($page * PAGE_DEF + $i) >= $threads_count) break; // remake 超出索引代表已全部完成
 207                                 $tID = ($page_start==$page_end) ? $threads[$i] : $threads[$page * PAGE_DEF + $i]; // 一頁內容 (一般模式) / 多頁內容 (remake模式)
 208                                 $tree_count = $PIO->postCount($tID) - 1; // 討論串回應個數
 209                                 $RES_start = $tree_count - RE_DEF + 1; if($RES_start < 1) $RES_start = 1; // 開始
 210                                 $RES_amount = RE_DEF; // 取幾個
 211                                 $hiddenReply = $RES_start - 1; // 被隱藏回應數
 212                         }
 213
 214                         // $RES_start, $RES_amount 拿去算新討論串結構 (分頁後, 部分回應隱藏)
 215                         $tree = $PIO->fetchPostList($tID); // 整個討論串樹狀結構
 216                         $tree_cut = array_slice($tree, $RES_start, $RES_amount); array_unshift($tree_cut, $tID); // 取出特定範圍回應
 217                         $posts = $PIO->fetchPosts($tree_cut); // 取得文章架構內容
 218                         $posts_img = $PIO->fetchPosts($tree); // o++
 219                         $pte_vals['{$THREADS}'] .= arrangeThread($PTE, $tree, $tree_cut, $posts, $hiddenReply, $resno, $arr_kill, $arr_old, $kill_sensor, $old_sensor, true, $adminMode, $hiddenImage, $hiddenImagP, $hiddenImagRP, $posts_img); // 交給這個函式去搞討論串印出
 220                 }
 221                 $pte_vals['{$PAGENAV}'] = '<div id="page_switch">';
 222
 223                 // 換頁判斷
 224                 $prev = ($resno ? $page_num : $page) - 1;
 225                 $next = ($resno ? $page_num : $page) + 1;
 226                 if($resno){ // 回應分頁
 227                         if(RE_PAGE_DEF > 0){ // 回應分頁開啟
 228                                 $pte_vals['{$PAGENAV}'] .= '<table class="pages" border="1"><tr><td style="white-space: nowrap;">';
 229                                 $pte_vals['{$PAGENAV}'] .= ($prev >= 0) ? '<a href="'.PHP_SELF.'?res='.$resno.'&amp;page_num='.$prev.'">'._T('prev_page').'</a>' : _T('first_page');
 230                                 $pte_vals['{$PAGENAV}'] .= "</td><td>";
 231                                 if($tree_count==0) $pte_vals['{$PAGENAV}'] .= '[<b>0</b>] '; // 無回應
 232                                 else{
 233                                         for($i = 0, $len = $tree_count / RE_PAGE_DEF; $i < $len; $i++){
 234                                                 if(!$AllRes && $page_num==$i) $pte_vals['{$PAGENAV}'] .= '[<b>'.$i.'</b>] ';
 235                                                 else $pte_vals['{$PAGENAV}'] .= '[<a href="'.PHP_SELF.'?res='.$resno.'&amp;page_num='.$i.'">'.$i.'</a>] ';
 236                                         }
 237                                         $pte_vals['{$PAGENAV}'] .= $AllRes ? '[<b>'._T('all_pages').'</b>] ' : ($tree_count > RE_PAGE_DEF ? '[<a href="'.PHP_SELF.'?res='.$resno.'&amp;page_num=all">'._T('all_pages').'</a>] ' : '');
 238                                 }
 239                                 $pte_vals['{$PAGENAV}'] .= '</td><td style="white-space: nowrap;">';
 240                                 $pte_vals['{$PAGENAV}'] .= (!$AllRes && $tree_count > $next * RE_PAGE_DEF) ? '<a href="'.PHP_SELF.'?res='.$resno.'&amp;page_num='.$next.'">'._T('next_page').'</a>' : _T('last_page');
 241                                 $pte_vals['{$PAGENAV}'] .= '</td></tr></table>'."\n";
 242                         }
 243                 }else{ // 一般分頁
 244                         $pte_vals['{$PAGENAV}'] .= '<table class="pages" border="1"><tr>';
 245                         if($prev >= 0){
 246                                 if(!$adminMode && $prev==0) $pte_vals['{$PAGENAV}'] .= '<td><form action="'.PHP_SELF2.'" method="get">';
 247                                 else{
 248                                         if($adminMode || (STATIC_HTML_UNTIL != -1) && ($prev > STATIC_HTML_UNTIL)) $pte_vals['{$PAGENAV}'] .= '<td><form action="'.PHP_SELF.'?page_num='.$prev.'" method="post">';
 249                                         else $pte_vals['{$PAGENAV}'] .= '<td><form action="'.$prev.PHP_EXT.'" method="get">';
 250                                 }
 251                                 $pte_vals['{$PAGENAV}'] .= '<div><input type="submit" value="'._T('prev_page').'" /></div></form></td>';
 252                         }else $pte_vals['{$PAGENAV}'] .= '<td style="white-space: nowrap;">'._T('first_page').'</td>';
 253                         $pte_vals['{$PAGENAV}'] .= '<td>';
 254                         for($i = 0, $len = $threads_count / PAGE_DEF; $i < $len; $i++){
 255                                 if($page==$i) $pte_vals['{$PAGENAV}'] .= "[<b>".$i."</b>] ";
 256                                 else{
 257                                         $pageNext = ($i==$next) ? ' rel="next"' : '';
 258                                         if(!$adminMode && $i==0) $pte_vals['{$PAGENAV}'] .= '[<a href="'.PHP_SELF2.'?">0</a>] ';
 259                                         elseif($adminMode || (STATIC_HTML_UNTIL != -1 && $i > STATIC_HTML_UNTIL)) $pte_vals['{$PAGENAV}'] .= '[<a href="'.PHP_SELF.'?page_num='.$i.'"'.$pageNext.'>'.$i.'</a>] ';
 260                                         else $pte_vals['{$PAGENAV}'] .= '[<a href="'.$i.PHP_EXT.'?"'.$pageNext.'>'.$i.'</a>] ';
 261                                 }
 262                         }
 263                         $pte_vals['{$PAGENAV}'] .= '</td>';
 264                         if($threads_count > $next * PAGE_DEF){
 265                                 if($adminMode || (STATIC_HTML_UNTIL != -1) && ($next > STATIC_HTML_UNTIL)) $pte_vals['{$PAGENAV}'] .= '<td><form action="'.PHP_SELF.'?page_num='.$next.'" method="post">';
 266                                 else $pte_vals['{$PAGENAV}'] .= '<td><form action="'.$next.PHP_EXT.'" method="get">';
 267                                 $pte_vals['{$PAGENAV}'] .= '<div><input type="submit" value="'._T('next_page').'" /></div></form></td>';
 268                         }else $pte_vals['{$PAGENAV}'] .= '<td style="white-space: nowrap;">'._T('last_page').'</td>';
 269                         $pte_vals['{$PAGENAV}'] .= '</tr></table>'."\n";
 270                 }
 271                 $pte_vals['{$PAGENAV}'] .= '<br style="clear: left;" />
 272 </div>';
 273                 $dat .= $PTE->ParseBlock('MAIN', $pte_vals);
 274                 foot($dat); // the foot is a special core function wwww --sparky4
 275
 276                 // 存檔 / 輸出
 277                 if($single_page || ($page_num == -1 && !$resno)){ // 靜態快取頁面生成
 278                         if($page==0) $logfilename = PHP_SELF2;
 279                         else $logfilename = $page.PHP_EXT;
 280                         $fp = fopen($logfilename, 'w');
 281                         stream_set_write_buffer($fp, 0);
 282                         fwrite($fp, $dat);
 283                         fclose($fp);
 284                         @chmod($logfilename, 0666);
 285                         if(STATIC_HTML_UNTIL != -1 && STATIC_HTML_UNTIL==$page) break; // 頁面數目限制
 286                 }else{ // PHP 輸出 (回應模式/一般動態輸出)
 287                         if(USE_RE_CACHE && !$adminMode && $resno && !isset($_GET['upseries'])){ // 更新快取
 288                                 if($oldCaches = glob($cacheFile.'*')){
 289                                         foreach($oldCaches as $o) unlink($o); // 刪除舊快取
 290                                 }
 291                                 $fp = fopen($cacheGzipPrefix.$cacheFile.$cacheETag, 'w');
 292                                 fwrite($fp, $dat);
 293                                 fclose($fp);
 294                                 @chmod($cacheFile.$cacheETag, 0666);
 295                                 header('ETag: "'.$cacheETag.'"');
 296                                 header('Connection: close');
 297                         }
 298                         echo $dat;
 299                         break;
 300                 }
 301         }
 302 }
 303
 304 /* 輸出討論串架構 */
 305 function arrangeThread($PTE, $tree, $tree_cut, $posts, $hiddenReply, $resno=0, $arr_kill, $arr_old, $kill_sensor, $old_sensor, $showquotelink=true, $adminMode=false, $hiddenImage, $hiddenImagP, $hiddenImagRP, $posts_img){
 306         global $config, $PIO, $FileIO, $PMS, $language;
 307
 308         $thdat = ''; // 討論串輸出碼
 309         $posts_count = count($posts); // 迴圈次數
 310         if($hiddenReply) $posts_img_count = count($posts_img); // o++
 311         if(gettype($tree_cut) == 'array') $tree_cut = array_flip($tree_cut); // array_flip + isset 搜尋法
 312         if(gettype($tree) == 'array') $tree_clone = array_flip($tree);
 313         if($hiddenReply){ // o++
 314                 // $o = 0 (首篇), $o = 1～n (回應) //++++----
 315                 for($o = 0; $o < $posts_img_count; $o++){ // o++
 316                         extract($posts_img[$o]); // o++
 317                         if($ext && $FileIO->imageExists($tim.$ext)) $hiddenImage++; // o++ all images in thread
 318                 }
 319                 // $oo = 0 (首篇), $oo = 1～n (回應) //++++----
 320                 for($oo = 0; $oo < $posts_count; $oo++){ // o++
 321                         extract($posts[$oo]); // o++
 322                         if($oo) if($ext && $FileIO->imageExists($tim.$ext)) $hiddenImagP++; // o++ reply images in index
 323                         elseif(!$ext && !$FileIO->imageExists($tim.$ext)) $hiddenImagRP = 0; // o++ opening thread image in index
 324                 }
 325
 326                 // A little math is done to get the total number of omitted images
 327                 $hiddenImgs = ($hiddenImage - $hiddenImagP) - $hiddenImagRP; // o++
 328         }
 329
 330         // Actually beginning the REAL post extraction
 331         // $i = 0 (首篇), $i = 1～n (回應)
 332         for($i = 0; $i < $posts_count; $i++){
 333                 $imgsrc = $img_thumb = $imgwh_bar = $imgfn_bar = '';
 334                 $IMG_BAR = $REPLYBTN = $QUOTEBTN = $WARN_OLD = $WARN_BEKILL = $WARN_ENDREPLY = $WARN_HIDEPOST = '';
 335                 extract($posts[$i]); // 取出討論串文章內容設定變數
 336
 337                 if($no == 0) break; // Do not display post 0
 338
 339                 // 設定欄位值
 340                 $name = str_replace('&'.TRIP_KEY, '&amp;'.TRIP_KEY, $name); // 避免 &#xxxx; 後面被視為 Trip 留下 & 造成解析錯誤
 341                 if(CLEAR_SAGE) $email = preg_replace('/^sage( *)/i', '', trim($email)); // 清除E-mail中的「sage」關鍵字
 342                 // Tripcode indicator // t++ //++++----
 343                 // This may be a blob of code but it apparently works >< please help me here
 344                 $tripkeycount = substr_count($name, TRIP_KEY);
 345                 /*if($config['ALLOW_NONAME']==3){
 346                         if($name) $name = '';
 347                         if($tripkeycount) $name = '';
 348                         if($email) $now = "<a href=\"mailto:$email\" class=\"linkmail\">$now</a>";
 349                 }else
 350                 */if($config['ALLOW_NONAME']==2){ // 強制砍名
 351                         if($tripkeycount==1) $name = preg_match('/(\\'.TRIP_KEY.'.{10})/', $name, $matches) ? '<span class="postertrip">'.$matches[1].'</span>' : '';
 352                         if($tripkeycount==2) $name = preg_match('/(\\'.TRIP_KEY.TRIP_KEY.'.{16})/', $name, $matches) ? '<span class="postertrip">'.$matches[1].'</span>' : '';
 353                         if($tripkeycount==3) $name = preg_match('/(\\'.TRIP_KEY.'.{32})/', $name, $matches) ? '<span class="postertrip">'.$matches[1].'</span>' : '';
 354                         if($email) $now = "<a href=\"mailto:$email\" class=\"linkmail\">$now</a>";
 355                 }else{
 356                         if($tripkeycount==1) $name = preg_replace('/(\\'.TRIP_KEY.'.{10})/', '<span class="postertrip">$1</span>', $name); // Trip取消粗體
 357                         if($tripkeycount==2) $name = preg_replace('/(\\'.TRIP_KEY.TRIP_KEY.'.{16})/', '<span class="postertrip">$1</span>', $name); // Trip取消粗體
 358                         if($tripkeycount==3) $name = preg_replace('/(\\'.TRIP_KEY.'.{32})/', '<span class="postertrip">$1</span>', $name); // Trip取消粗體
 359                         if($email) $name = "<a href=\"mailto:$email\" class=\"linkmail\">$name</a>";
 360                 }
 361
 362                 if(AUTO_LINK) $com = auto_link($com);
 363                 $com = quoteLight($com);
 364                 $com = quoteLight2($com);
 365                 if(!$resno && $config['LINE_NUMBER']) list($com, $abbreviated) = abbreviate($com, $config['LINE_NUMBER']);
 366                 if(isset($abbreviated) && $abbreviated && $config['LINE_NUMBER']) $com .= '<br /><span class="abbrev">'._T('long_comment').'<a href="'.PHP_SELF.'?res='.$tree[0].'#r'.$no.'">'._T('long_here').'</a>'._T('long_see').'</span>';
 367
 368                 if(USE_QUOTESYSTEM && $i){ // 啟用引用瀏覽系統
 369                         if(preg_match_all('/((?:&gt;|＞)+)(?:No\.)?(\d+)/i', $com, $matches, PREG_SET_ORDER)){ // 找尋>>No.xxx
 370                                 $matches_unique = array();
 371                                 foreach($matches as $val){ if(!in_array($val, $matches_unique)) array_push($matches_unique, $val); }
 372                                 foreach($matches_unique as $val){
 373                                         if(isset($tree_clone[$val[2]])){
 374                                                 $r_page = $tree_clone[$val[2]]; // 引用回應在整體討論串中的位置
 375                                                 // 在此頁顯示區間內，輸出錨點即可
 376                                                 if(isset($tree_cut[$val[2]])) $com = str_replace($val[0], '<span class="reflink"><a class="qlink" href="#r'.$val[2].'" onclick="replyhl('.$val[2].');">'.$val[0].'</a></span>', $com);
 377                                                 // 非此頁顯示區間，輸出完整頁面位置
 378                                                 else $com = str_replace($val[0], '<span class="reflink"><a class="qlink" href="'.PHP_SELF.'?res='.$tree[0].(RE_PAGE_DEF ? '&amp;page_num='.floor(($r_page - 1) / RE_PAGE_DEF) : '').'#r'.$val[2].'">'.$val[0].'</a></span>', $com);
 379                                         }
 380                                 }
 381                         }
 382                 }
 383
 384                 // 設定附加圖檔顯示
 385                 if($ext && !$FileIO->imageExists($tim.$ext)){
 386                         $imgsrc = '<img src="'.ICON_DIR.'filedeleted.gif" class="img" alt="'.$imgsize.'" title="'.$imgsize.'" />';
 387                 }elseif($ext && $FileIO->imageExists($tim.$ext)){
 388                         $imageURL = $FileIO->getImageURL($tim.$ext); // image URL
 389                         $thumbURL = $FileIO->getImageURL($tim.'s.jpg'); // thumb URL
 390
 391                         //----$imgsrc = '<a href="'.$imageURL.'" rel="_blank"><img src="'.ICON_DIR.'nothumb.gif" class="img" alt="'.$imgsize.'" title="'.$imgsize.'" /></a>'; // 預設顯示圖樣式 (無預覽圖時)
 392                         $imgsrc = '<a href="'.$imageURL.'" rel="_blank"><span class="tn_reply" title="'.$imgsize.'">'._T('nothumb').'</span></a>'; // 預設顯示圖樣式 (無預覽圖時)
 393                         if($tw && $th){
 394                                 if($FileIO->imageExists($tim.'s.jpg')){ // 有預覽圖
 395                                         $img_thumb = '<br /><small><span class="thumbnailmsg">'._T('img_sample').'</span></small>';
 396                                         $imgsrc = '<a href="'.$imageURL.'" rel="_blank"><img src="'.$thumbURL.'" style="width: '.$tw.'px; height: '.$th.'px;" class="img" alt="'.$imgsize.'" title="'.$imgsize.'" /></a>';
 397                                 }elseif($ext=='.swf') $imgsrc = ''; // swf檔案不需預覽圖
 398                         }
 399                         if(SHOW_IMGWH) $imgwh_bar = ', '.$imgw.'x'.$imgh; // 顯示附加圖檔之原檔長寬尺寸
 400                         if(SHOW_FILENAME){
 401                                 $longname = $shortname = '';
 402                                 if($filename){
 403                                         $longname = $filename.$ext;
 404                                         if(strlen($filename) > 40) $shortname = substr($filename, 0, 40).'(....)'.$ext;
 405                                         else $shortname = $longname;
 406                                 }
 407                         }
 408                         if($longname) $imgfn_bar = ', <span title="'.$longname.'">'.$shortname.'</span>';
 409                         $IMG_BAR = '<span class="filesize">'._T('img_filename').'<a href="'.$imageURL.'" rel="_blank">'.$tim.$ext.'</a>-('.$imgsize.$imgwh_bar.$imgfn_bar.')</span>'.$img_thumb;
 410                 }
 411
 412                 // 設定回應 / 引用連結
 413                 if($resno){ // 回應模式
 414                         if($showquotelink) $QUOTEBTN = '<span class="reflink"><a href="'.PHP_SELF.'?res='.$tree[0].'#r'.$no.'" onclick="return replyhl('.$no.');">No.</a><a href="javascript:quote('.$no.');" class="qlink">'.$no.'</a></span>';
 415                         else $QUOTEBTN = '<span class="reflink"><a href="'.PHP_SELF.'?res='.$tree[0].'#r'.$no.'" onclick="return replyhl('.$no.');">No.</a><a href="'.PHP_SELF.'?res='.$tree.'&amp;page_num=all#r'.$no.'" class="qlink">'.$no.'</a></span>';
 416                 }else{
 417                         if(!$i) $REPLYBTN = '[<a href="'.PHP_SELF.'?res='.$no.'">'._T('reply_btn').'</a>]'; // 首篇
 418                         $QUOTEBTN = '<span class="reflink"><a href="'.PHP_SELF.'?res='.$tree[0].'#r'.$no.'">No.</a><a href="'.PHP_SELF.'?res='.$tree[0].'#q'.$no.'" class="qlink">'.$no.'</a></span>';
 419                 }
 420                 if($adminMode){ // 前端管理模式
 421                         $modFunc = '';
 422                         $PMS->useModuleMethods('AdminList', array(&$modFunc, $posts[$i], $resto)); // "AdminList" Hook Point
 423                         $QUOTEBTN .= $modFunc;
 424                 }
 425
 426                 // 設定討論串屬性
 427                 if(STORAGE_LIMIT && $kill_sensor) if(isset($arr_kill[$no])) $WARN_BEKILL = '<span class="warn_txt">'._T('warn_sizelimit').'</span><br />'."\n"; // 預測刪除過大檔
 428                 if(!$i){ // 首篇 Only
 429                         if($old_sensor) if(isset($arr_old[$no])) $WARN_OLD = '<span class="oldpost">'._T('warn_oldthread').'</span><br />'."\n"; // 快要被刪除的提示
 430                         $flgh = $PIO->getPostStatus($status);
 431                         if($flgh->exists('TS')) $WARN_ENDREPLY = '<span class="warn_txt">'._T('warn_locked').'</span><br />'."\n"; // 被標記為禁止回應
 432                         if($hiddenReply) $WARN_HIDEPOST = '<span class="omittedposts">'._res($hiddenReply, $hiddenImgs)._T('notice_omitted_reply').'</span><br />'."\n"; // 有隱藏的回應
 433                 }
 434
 435                 // 對類別標籤作自動連結
 436                 if(USE_CATEGORY){
 437                         $ary_category = explode(',', str_replace('&#44;', ',', $category)); $ary_category = array_map('trim', $ary_category);
 438                         $ary_category_count = count($ary_category);
 439                         $ary_category2 = array();
 440                         for($p = 0; $p < $ary_category_count; $p++){
 441                                 if($c = $ary_category[$p]) $ary_category2[] = '<a href="'.PHP_SELF.'?mode=category&amp;c='.urlencode($c).'">'.$c.'</a>';
 442                         }
 443                         $category = implode(', ', $ary_category2);
 444                 }else $category = '';
 445
 446                 // 最終輸出處
 447                 if($i){ // 回應
 448                         $arrLabels = array('{$NO}'=>$no, '{$SUB}'=>$sub, '{$NAME}'=>$name, '{$NOW}'=>$now, '{$COM}'=>$com, '{$CATEGORY}'=>$category, '{$QUOTEBTN}'=>$QUOTEBTN, '{$IMG_BAR}'=>$IMG_BAR, '{$IMG_SRC}'=>$imgsrc, '{$WARN_BEKILL}'=>$WARN_BEKILL, '{$QUOTEBTN}'=>$QUOTEBTN, '{$NAME_TEXT}'=>_T('post_name'), '{$CATEGORY_TEXT}'=>_T('post_category'), '{$SELF}'=>PHP_SELF);
 449                         if($resno) $arrLabels['{$RESTO}']=$resno;
 450                         $PMS->useModuleMethods('ThreadReply', array(&$arrLabels, $posts[$i], $resno)); // "ThreadReply" Hook Point
 451                         $thdat .= $PTE->ParseBlock('REPLY',$arrLabels);
 452                 }else{ // 首篇
 453                         $arrLabels = array('{$NO}'=>$no, '{$SUB}'=>$sub, '{$NAME}'=>$name, '{$NOW}'=>$now, '{$COM}'=>$com, '{$CATEGORY}'=>$category, '{$QUOTEBTN}'=>$QUOTEBTN, '{$REPLYBTN}'=>$REPLYBTN, '{$IMG_BAR}'=>$IMG_BAR, '{$IMG_SRC}'=>$imgsrc, '{$WARN_OLD}'=>$WARN_OLD, '{$WARN_BEKILL}'=>$WARN_BEKILL, '{$WARN_ENDREPLY}'=>$WARN_ENDREPLY, '{$WARN_HIDEPOST}'=>$WARN_HIDEPOST, '{$NAME_TEXT}'=>_T('post_name'), '{$CATEGORY_TEXT}'=>_T('post_category'), '{$SELF}'=>PHP_SELF);
 454                         if($resno) $arrLabels['{$RESTO}']=$resno;
 455                         $PMS->useModuleMethods('ThreadPost', array(&$arrLabels, $posts[$i], $resno)); // "ThreadPost" Hook Point
 456                         $thdat .= $PTE->ParseBlock('THREAD',$arrLabels);
 457                 }
 458         }
 459         $thdat .= $PTE->ParseBlock('THREADSEPARATE',($resno)?array('{$RESTO}'=>$resno):array());
 460         return $thdat;
 461 }
 462
 463 /* 寫入記錄檔 */
 464 /* 記事書き込み */
 465 function regist(){
 466         global $config, $PIO, $FileIO, $PMS, $language, $BAD_STRING, $BAD_FILEMD5, $BAD_IPADDR, $LIMIT_SENSOR;
 467         $dest = ''; $mes = ''; $up_incomplete = 0; $is_admin = false;
 468         $path = realpath('.').DIRECTORY_SEPARATOR; // 此目錄的絕對位置
 469
 470         if($_SERVER['REQUEST_METHOD'] != 'POST') error(_T('regist_notpost')); // 非正規POST方式
 471         // 欄位陷阱
 472         $FTname = isset($_POST['name']) ? $_POST['name'] : '';
 473         $FTemail = isset($_POST['email']) ? $_POST['email'] : '';
 474         $FTsub = isset($_POST['sub']) ? $_POST['sub'] : '';
 475         $FTcom = isset($_POST['com']) ? $_POST['com'] : '';
 476         $FTreply = isset($_POST['reply']) ? $_POST['reply'] : '';
 477         if($FTname != 'spammer' || $FTemail != 'foo@foo.bar' || $FTsub != 'DO NOT FIX THIS' || $FTcom != 'EID OG SMAPS' || $FTreply != '') error(_T('regist_nospam'));
 478
 479         $name = isset($_POST[FT_NAME]) ? CleanStr($_POST[FT_NAME]) : '';
 480         $email = isset($_POST[FT_EMAIL]) ? CleanStr($_POST[FT_EMAIL]) : '';
 481         $sub = isset($_POST[FT_SUBJECT]) ? CleanStr($_POST[FT_SUBJECT]) : '';
 482         $com = isset($_POST[FT_COMMENT]) ? $_POST[FT_COMMENT] : '';
 483         $pwd = isset($_POST['pwd']) ? $_POST['pwd'] : '';
 484         $category = isset($_POST['category']) ? CleanStr($_POST['category']) : '';
 485         $resto = isset($_POST['resto']) ? intval($_POST['resto']) : 0;
 486         $upfile = isset($_FILES['upfile']['tmp_name']) ? $_FILES['upfile']['tmp_name'] : '';
 487         $upfile_path = isset($_POST['upfile_path']) ? $_POST['upfile_path'] : '';
 488         $upfile_name = isset($_FILES['upfile']['name']) ? $_FILES['upfile']['name'] : false;
 489         $ext_ = ereg_replace("^.*\\.", ".", $upfile_name); // filename extention
 490         $basename = basename($upfile_name, $ext_); // filename
 491         $filename = isset($basename) ? CleanStr($basename) : ''; // cleaned filename
 492         $upfile_status = isset($_FILES['upfile']['error']) ? $_FILES['upfile']['error'] : 4;
 493         $pwdc = isset($_COOKIE['pwdc']) ? $_COOKIE['pwdc'] : '';
 494         $ip = getREMOTE_ADDR(); $host = gethostbyaddr($ip);
 495
 496         $PMS->useModuleMethods('RegistBegin', array(&$name, &$email, &$sub, &$com, array('file'=>&$upfile, 'path'=>&$upfile_path, 'name'=>&$upfile_name, 'status'=>&$upfile_status), array('ip'=>$ip, 'host'=>$host), $resto)); // "RegistBegin" Hook Point
 497         // 封鎖：IP/Hostname/DNSBL 檢查機能
 498         $baninfo = '';
 499         if(BanIPHostDNSBLCheck($ip, $host, $baninfo)) error(_T('regist_ipfiltered', $baninfo));
 500         // 封鎖：限制出現之文字
 501         foreach($BAD_STRING as $value){
 502                 if(strpos($com, $value)!==false || strpos($sub, $value)!==false || strpos($name, $value)!==false || strpos($email, $value)!==false){
 503                         error(_T('regist_wordfiltered'));
 504                 }
 505         }
 506
 507         // 檢查是否輸入櫻花日文假名
 508         foreach(array($name, $email, $sub, $com) as $anti) if(anti_sakura($anti)) error(_T('regist_sakuradetected'));
 509
 510         // 時間
 511         $time = time();
 512         $tim = $time.substr(microtime(),2,3);
 513         $tome = time()+0*60*60;
 514
 515         // 判斷上傳狀態
 516         switch($upfile_status){
 517                 case 1:
 518                         error(_T('regist_upload_exceedphp'));
 519                         break;
 520                 case 2:
 521                         error(_T('regist_upload_exceedcustom'));
 522                         break;
 523                 case 3:
 524                         error(_T('regist_upload_incompelete'));
 525                         break;
 526                 case 6:
 527                         error(_T('regist_upload_direrror'));
 528                         break;
 529                 case 4: // 無上傳
 530                         if(NO_TEXTONLY == 2){
 531                                 if(!$resto) error(_T('regist_upload_noimg'));
 532                         }elseif(NO_TEXTONLY == 1){
 533                                 if(!$resto && !isset($_POST['noimg'])) error(_T('regist_upload_noimg'));
 534                         }
 535                         break;
 536                 case 0: // 上傳正常
 537                 default:
 538         }
 539
 540         // 如果有上傳檔案則處理附加圖檔
 541         if($upfile && (@is_uploaded_file($upfile) || @is_file($upfile))){
 542                 // 一‧先儲存檔案
 543                 $dest = $path.TEMP_DIR.$tim.'.temp';
 544                 @move_uploaded_file($upfile, $dest) or @copy($upfile, $dest);
 545                 @chmod($dest, 0666);
 546                 if(!is_file($dest)) error(_T('regist_upload_filenotfound'), $dest);
 547
 548                 // 二‧判斷上傳附加圖檔途中是否有中斷
 549                 $upsizeTTL = $_SERVER['CONTENT_LENGTH'];
 550                 if(isset($_FILES['upfile'])){ // 有傳輸資料才需要計算，避免作白工
 551                         $upsizeHDR = 0;
 552                         // 檔案路徑：IE附完整路徑，故得從隱藏表單取得
 553                         $tmp_upfile_path = $upfile_name;
 554                         if($upfile_path) $tmp_upfile_path = get_magic_quotes_gpc() ? stripslashes($upfile_path) : $upfile_path;
 555                         list(,$boundary) = explode('=', $_SERVER['CONTENT_TYPE']);
 556                         foreach($_POST as $header => $value){ // 表單欄位傳送資料
 557                                 $upsizeHDR += strlen('--'.$boundary."\r\n");
 558                                 $upsizeHDR += strlen('Content-Disposition: form-data; name="'.$header.'"'."\r\n\r\n".(get_magic_quotes_gpc()?stripslashes($value):$value)."\r\n");
 559                         }
 560                         // 附加圖檔欄位傳送資料
 561                         $upsizeHDR += strlen('--'.$boundary."\r\n");
 562                         $upsizeHDR += strlen('Content-Disposition: form-data; name="upfile"; filename="'.$tmp_upfile_path."\"\r\n".'Content-Type: '.$_FILES['upfile']['type']."\r\n\r\n");
 563                         $upsizeHDR += strlen("\r\n--".$boundary."--\r\n");
 564                         $upsizeHDR += $_FILES['upfile']['size']; // 傳送附加圖檔資料量
 565                         // 上傳位元組差值超過 HTTP_UPLOAD_DIFF：上傳附加圖檔不完全
 566                         if(($upsizeTTL - $upsizeHDR) > HTTP_UPLOAD_DIFF){
 567                                 if(KILL_INCOMPLETE_UPLOAD){
 568                                         unlink($dest);
 569                                         die(_T('regist_upload_killincomp')); // 給瀏覽器的提示，假如使用者還看的到的話才不會納悶
 570                                 }else $up_incomplete = 1;
 571                         }
 572                 }
 573
 574                 // 三‧檢查是否為可接受的檔案
 575                 $size = @getimagesize($dest);
 576                 if(!is_array($size)) error(_T('regist_upload_notimage'), $dest); // $size不為陣列就不是圖檔
 577                 $imgsize = @filesize($dest); // 檔案大小
 578                 if(!$config['KB']) $imgsize .= ' B'; // Bytes only
 579                 else $imgsize = ($imgsize>=1024) ? (int)($imgsize/1024).' KB' : $imgsize.' B'; // KB和B的判別
 580                 switch($size[2]){ // 判斷上傳附加圖檔之格式
 581                         case 1 : $ext = ".gif"; break;
 582                         case 2 : $ext = ".jpg"; break;
 583                         case 3 : $ext = ".png"; break;
 584                         case 4 : $ext = ".swf"; break;
 585                         case 5 : $ext = ".psd"; break;
 586                         case 6 : $ext = ".bmp"; break;
 587                         case 7 : $ext = ".tiff"; break;
 588                         case 8 : $ext = ".tiff"; break;
 589                         case 9 : $ext = ".jpc"; break;
 590                         case 10 : $ext = ".jp2"; break;
 591                         case 11 : $ext = ".jpx"; break;
 592                         case 12 : $ext = ".jb2"; break;
 593                         case 13 : $ext = ".swf"; break;
 594                         case 14 : $ext = ".aiff"; break;
 595                         case 15 : $ext = ".wbmp"; break;
 596                         case 16 : $ext = ".xbm"; break; // I add more media support (^^,)
 597                         default : $ext = ".xxxx"; error(_T('regist_upload_notsupport'), $dest);
 598                 }
 599                 $allow_exts = explode('|', strtolower(ALLOW_UPLOAD_EXT)); // 接受之附加圖檔副檔名
 600                 if(array_search(substr($ext, 1), $allow_exts)===false) error(_T('regist_upload_notsupport'), $dest); // 並無在接受副檔名之列
 601                 // 封鎖設定：限制上傳附加圖檔之MD5檢查碼
 602                 $md5chksum = md5_file($dest); // 檔案MD5
 603                 if(array_search($md5chksum, $BAD_FILEMD5)!==FALSE) error(_T('regist_upload_blocked'), $dest); // 在封鎖設定內則阻擋
 604
 605                 // 四‧計算附加圖檔圖檔縮圖顯示尺寸 //++++---- <- the comment from pixmicat team is broken here
 606                 $W = $imgW = $size[0];
 607                 $H = $imgH = $size[1];
 608                 $MAXW = $resto ? MAX_RW : MAX_W;
 609                 $MAXH = $resto ? MAX_RH : MAX_H;
 610                 if($W > $MAXW || $H > $MAXH){
 611                         $W2 = $MAXW / $W;
 612                         $H2 = $MAXH / $H;
 613                         $key = ($W2 < $H2) ? $W2 : $H2;
 614                         $W = ceil($W * $key);
 615                         $H = ceil($H * $key);
 616                 }
 617                 $mes = _T('regist_uploaded', CleanStr($upfile_name));
 618         }
 619
 620         // 檢查表單欄位內容並修整
 621         if(strlen($name) > 100) error(_T('regist_nametoolong'), $dest);
 622         if(strlen($email) > 100) error(_T('regist_emailtoolong'), $dest);
 623         if(strlen($sub) > 100) error(_T('regist_topictoolong'), $dest);
 624         if(strlen($resto) > 10) error(_T('regist_longthreadnum'), $dest);
 625
 626         // E-mail / 標題修整
 627         $email = str_replace("\r\n", '', $email); $sub = str_replace("\r\n", '', $sub);
 628
 629         // Tripcode area--------------------------------------------------------------------------------
 630         if($name){
 631                 // 名稱修整
 632                 $name = str_replace(TRIP_KEY, TRIP_KEY_FAKE, $name); // 防止トリップ偽造
 633                 $name = str_replace($config['CAP.SUFFIX'], $config['CAP.SUFFIX.FAKE'], $name); // 防止管理員キャップ偽造
 634                 $name = str_replace("\r\n", '', $name);
 635                 $nameOri = $name; // 名稱
 636                 // トリップ
 637                 //----if(preg_match('/(.*?)[#＃](.*)/u', $name, $regs)){ // トリップ(Trip)機能
 638                         //----$name = $nameOri = $regs[1]; $cap = strtr($regs[2], array('&amp;'=>'&'));
 639                         //----$salt = preg_replace('/[^\.-z]/', '.', substr($cap.'H.', 1, 2));
 640                         //----$salt = strtr($salt, ':;<=>?@[\\]^_`', 'ABCDEFGabcdef');
 641                         //----$name = $name.TRIP_KEY.substr(crypt($cap, $salt), -10);
 642                 if(preg_match('/(.*?)[#＃](.*)/u', $name, $regs)){ // トリップ(Trip)機能
 643                         $name = str_replace("&#", "&%%%%%%", $name); # otherwise HTML numeric entities screw up explode()!
 644                         list($name, $trip, $sectrip) = str_replace("&&", "&%%%%%%", explode("#", $name));
 645
 646                         if($trip != ''){
 647                                 if(function_exists("iconv")) $trip = iconv("UTF-8", "SHIFT_JIS//TRANSLIT", $trip); // convert to Windows Japanese #&#65355;&#65345;&#65357;&#65353;
 648                                 $salt = strtr(preg_replace('/[^\.-z]/', '.', substr($trip.'H.', 1, 2)), ':;<=>?@[\\]^_`', 'ABCDEFGabcdef');
 649                                 $metrip = TRIP_KEY.substr(crypt($trip, $salt), -10);
 650                         }else $metrip = '';
 651                         if($sectrip != ''){
 652                                 if(function_exists("iconv")) $sectrip = iconv("UTF-8", "SHIFT_JIS//TRANSLIT", $sectrip); // convert to Windows Japanese #&#65355;&#65345;&#65357;&#65353;
 653                                 $salt = "LOLLOLOLOLOLOLOLOLOLOLOLOLOLOLOLMEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"; # this is ONLY used if the host doesn't have openssl # I don't know a better way to get random data
 654                                 if(file_exists(SALTFILE)){ # already generated a key
 655                                         $salt = file_get_contents(SALTFILE);
 656                                 }else{
 657                                         system("openssl rand 448 > '".SALTFILE, $err);
 658                                         if($err === 0){
 659                                                 if(chmod(SALTFILE,0400)){
 660                                                         $salt = file_get_contents(SALTFILE);
 661                                                 }else{
 662                                                         $donk = IDSEED;
 663                                                         $fp = fopen(SALTFILE, "w");
 664                                                         fputs($fp, $donk);
 665                                                         fclose($fp);
 666                                                 }
 667                                         }
 668                                 }
 669                                 $sha = base64_encode(pack("H*", sha1($sectrip.$salt)));
 670                                 $sha = substr($sha, 0, 16);
 671                                 $metrip .= TRIP_KEY.TRIP_KEY.$sha;
 672                         }
 673                         // Tripcode filter
 674                         //++++if(file_exists(FILTER_DIR)){
 675                                 //++++include(FILTER_DIR.'trip.php');
 676                         //++++}
 677                         //----"</b></font><font class=\"postertrip\">".
 678                         $name .= $metrip;
 679                 }
 680                 if($config['CAP.ENABLE'] && preg_match('/(.*?)[#＃](.*)/u', $email, $aregs)){ // 管理員キャップ(Cap)機能
 681                         $acap_name = $nameOri; $acap_pwd = strtr($aregs[2], array('&amp;'=>'&'));
 682                         if($acap_name==$config['CAP.NAME'] && $acap_pwd==$config['CAP.PASSWORD']){
 683                                 $name = '<span class="admin_cap">'.$name.$config['CAP.SUFFIX'].'</span>';
 684                                 $is_admin = true;
 685                                 $email = $aregs[1]; // 去除 #xx 密碼
 686                         }
 687                 }
 688                 if(!$is_admin){ // 非管理員
 689                         $name = str_replace(_T('admin'), '"'._T('admin').'"', $name);
 690                         $name = str_replace(_T('deletor'), '"'._T('deletor').'"', $name);
 691                 }
 692                 $name = str_replace('&'.TRIP_KEY, '&amp;'.TRIP_KEY, $name); // 避免 &#xxxx; 後面被視為 Trip 留下 & 造成解析錯誤
 693         }
 694         // End of Tripcode area--------------------------------------------------------------------------
 695
 696         // 內文修整
 697         if((strlen($com) > COMM_MAX) && !$is_admin) error(_T('regist_commenttoolong'), $dest);
 698         $com = CleanStr($com, $is_admin); // 引入$is_admin參數是因為當管理員キャップ啟動時，允許管理員依config設定是否使用HTML
 699         if(!$com && $upfile_status==4) error(_T('regist_withoutcomment'));
 700         $com = str_replace(array("\r\n", "\r"), "\n", $com); $com = ereg_replace("\n((　| )*\n){4,}", "\n", $com);
 701         if(!BR_CHECK || substr_count($com,"\n") < BR_CHECK) $com = nl2br($com); // 換行字元用<br />代替
 702         $com = str_replace("\n", '', $com); // 若還有\n換行字元則取消換行
 703         // 預設的內容
 704         if(!$name || ereg("^[ |　|]*$", $name)){
 705                 if($config['ALLOW_NONAME']) $name = $config['DEFAULT_NONAME'];
 706                 else error(_T('regist_withoutname'), $dest);
 707         }
 708         if(!$sub || ereg("^[ |　|]*$", $sub)){
 709                 if($config['ALLOW_NOSUB']) $sub = $config['DEFAULT_NOTITLE'];
 710                 else error(_T('regist_withoutsubject'), $dest);
 711         }
 712         if(!$com || ereg("^[ |　|\t]*$", $com)){
 713                 if($config['ALLOW_NOCOM']) $com = $config['DEFAULT_NOCOMMENT'];
 714                 else error(_T('regist_withoutcomment'), $dest);
 715         }
 716         // 修整標籤樣式
 717         if($category && USE_CATEGORY){
 718                 $category = explode(',', $category); // 把標籤拆成陣列
 719                 $category = ','.implode(',', array_map('trim', $category)).','; // 去空白再合併為單一字串 (左右含,便可以直接以,XX,形式搜尋)
 720         }else{ $category = ''; }
 721         if($up_incomplete) $com .= '<br /><br /><span class="warn_txt">'._T('notice_incompletefile').'</span>'; // 上傳附加圖檔不完全的提示
 722
 723         // 密碼和時間的樣式
 724         if($pwd=='') if($config['ALLOW_NOPASS']) error(_T('regist_withoutpassword'), $dest); else $pwd = ($pwdc=='') ? substr(rand(),0,8) : $pwdc;
 725         $pass = $pwd ? substr(md5($pwd), 2, 8) : '*'; // 生成真正儲存判斷用的密碼
 726         $youbi = array(_T('sun'),_T('mon'),_T('tue'),_T('wed'),_T('thu'),_T('fri'),_T('sat'));
 727 //----  $yd = $youbi[gmdate('w', $time+TIME_ZONE*60*60)];
 728         $yd = $youbi[date('w', $tome)];
 729 //----  $now = gmdate('y/m/d', $time+TIME_ZONE*60*60).'('.(string)$yd.')'.gmdate('H:i', $time+TIME_ZONE*60*60);
 730         $now = date($config['DATE_FORMAT'], $tome).'('.(string)$yd.')'.date($config['TIME_FORMAT'], $tome);
 731
 732 //----  if(DISP_ID){ // 顯示ID
 733 //----          if($email && DISP_ID==1) $now .= ' ID:????';
 734 //----          else $now .= ' ID:'.substr(crypt(md5(getREMOTE_ADDR().IDSEED.gmdate('Ymd', $time+TIME_ZONE*60*60)),'id'), -8);
 735 //----  }
 736         if(DISP_ID){ // 顯示ID
 737                 if($email&&DISP_ID==1) $now .= " ID:????";
 738                 else $now .= " ID:".substr(crypt(md5(getREMOTE_ADDR().IDSEED.date($config['DATE_FORMAT'], $tome)),'id'), -8);
 739         }
 740
 741         // 連續投稿 / 相同附加圖檔檢查
 742         $checkcount = 50; // 預設檢查50筆資料
 743         $pwdc = substr(md5($pwdc), 2, 8); // Cookies密碼
 744         if($PIO->isSuccessivePost($checkcount, $com, $time, $pass, $pwdc, $host, $upfile_name)) error(_T('regist_successivepost'), $dest); // 連續投稿檢查
 745         if($dest){ if($PIO->isDuplicateAttachment($checkcount, $md5chksum)) error(_T('regist_duplicatefile'), $dest); } // 相同附加圖檔檢查
 746         if($resto) $ThreadExistsBefore = $PIO->isThread($resto);
 747
 748         // 舊文章刪除處理
 749         if(PIOSensor::check('delete', $LIMIT_SENSOR)){
 750                 $delarr = PIOSensor::listee('delete', $LIMIT_SENSOR);
 751                 if(count($delarr)){
 752                         deleteCache($delarr);
 753                         $PMS->useModuleMethods('PostOnDeletion', array($delarr, 'recycle')); // "PostOnDeletion" Hook Point
 754                         $files = $PIO->removePosts($delarr);
 755                         if(count($files)) $FileIO->deleteImage($files);
 756                 }
 757         }
 758
 759         // 附加圖檔容量限制功能啟動：刪除過大檔
 760         if(STORAGE_LIMIT && STORAGE_MAX > 0){
 761                 $tmp_total_size = total_size(); // 取得目前附加圖檔使用量
 762                 if($tmp_total_size > STORAGE_MAX){
 763                         $files = $PIO->delOldAttachments($tmp_total_size, STORAGE_MAX, false);
 764                         $FileIO->deleteImage($files);
 765                 }
 766         }
 767
 768         // 判斷欲回應的文章是不是剛剛被刪掉了
 769         if($resto){
 770                 if($ThreadExistsBefore){ // 欲回應的討論串是否存在
 771                         if(!$PIO->isThread($resto)){ // 被回應的討論串存在但已被刪
 772                                 // 提前更新資料來源，此筆新增亦不紀錄
 773                                 $PIO->dbCommit();
 774                                 updatelog();
 775                                 error(_T('regist_threaddeleted'), $dest);
 776                         }else{ // 檢查是否討論串被設為禁止回應 (順便取出原討論串的貼文時間)
 777                                 $post = $PIO->fetchPosts($resto); // [特殊] 取單篇文章內容，但是回傳的$post同樣靠[$i]切換文章！
 778                                 list($chkstatus, $chktime) = array($post[0]['status'], $post[0]['tim']);
 779                                 $chktime = substr($chktime, 0, -3); // 拿掉微秒 (後面三個字元)
 780                                 $flgh = $PIO->getPostStatus($chkstatus);
 781                                 if($flgh->exists('TS')) error(_T('regist_threadlocked'), $dest);
 782                         }
 783                 }else error(_T('thread_not_found'), $dest); // 不存在
 784         }
 785
 786         // 計算某些欄位值
 787         $no = $PIO->getLastPostNo('beforeCommit') + 1;
 788         isset($ext) ? 0 : $ext = '';
 789         isset($imgW) ? 0 : $imgW = 0;
 790         isset($imgH) ? 0 : $imgH = 0;
 791         isset($imgsize) ? 0 : $imgsize = '';
 792         isset($W) ? 0 : $W = 0;
 793         isset($H) ? 0 : $H = 0;
 794         isset($md5chksum) ? 0 : $md5chksum = '';
 795         $age = false;
 796         $status = '';
 797         if(USE_UPSERIES && stristr($email, 'noko')){
 798                 $email = false;
 799                 $noko = true;
 800         }else $noko = false;
 801         if($resto){
 802                 if(!stristr($email, 'sage') && ($PIO->postCount($resto) <= MAX_RES || MAX_RES==0)){
 803                         if(!MAX_AGE_TIME || (($time - $chktime) < (MAX_AGE_TIME * 60 * 60))) $age = true; // 討論串並無過期，推文
 804                 }
 805         }
 806         $PMS->useModuleMethods('RegistBeforeCommit', array(&$name, &$email, &$sub, &$com, &$category, &$age, $dest, $resto, array($W, $H, $imgW, $imgH), &$status)); // "RegistBeforeCommit" Hook Point
 807
 808         // 正式寫入儲存
 809         $PIO->addPost($no,$resto,$md5chksum,$category,$tim,$ext,$imgW,$imgH,$imgsize,$filename,$W,$H,$pass,$now,$name,$email,$sub,$com,$host,$age,$status);
 810 //----  $PIO->addPost($no,$now,$name,$email,$sub,$com,$age,$status,$host,$pwd,$ext,$W,$H,$tim,$md5chksum,$imgsize,$filename,$imgW,$imgH,$category,$resto);
 811         $PIO->dbCommit();
 812         $lastno = $PIO->getLastPostNo('afterCommit'); // 取得此新文章編號
 813         $PMS->useModuleMethods('RegistAfterCommit', array($lastno, $resto, $name, $email, $sub, $com)); // "RegistAfterCommit" Hook Point
 814
 815         // noko in cookie
 816         if($noko) $email = 'noko';
 817
 818         // Cookies儲存：密碼與E-mail部分，期限是一週
 819         setcookie('pwdc', $pwd, time()+7*24*3600, '/');
 820         setcookie('emailc', $email, time()+7*24*3600, '/');
 821         total_size(true); // 刪除舊容量快取
 822         if($dest && is_file($dest)){
 823                 $destFile = $path.IMG_DIR.$tim.$ext; // 圖檔儲存位置
 824                 $thumbFile = $path.THUMB_DIR.$tim.'s.jpg'; // 預覽圖儲存位置
 825                 rename($dest, $destFile);
 826                 if(USE_THUMB !== 0){ // 生成預覽圖
 827                         $thumbType = USE_THUMB; if(USE_THUMB==1){ $thumbType = 'gd'; } // 與舊設定相容
 828                         require(PHP_DIRECTORY.'lib/thumb/thumb.'.$thumbType.'.php');
 829                         $thObj = new ThumbWrapper($destFile, $imgW, $imgH);
 830                         $thObj->setThumbnailConfig($W, $H, THUMB_Q);
 831                         $thObj->makeThumbnailtoFile($thumbFile);
 832                         @chmod($thumbFile, 0666);
 833                         unset($thObj);
 834                 }
 835                 if($FileIO->uploadImage()){ // 支援上傳圖片至其他伺服器
 836                         if(file_exists($destFile)) $FileIO->uploadImage($tim.$ext, $destFile, filesize($destFile));
 837                         if(file_exists($thumbFile)) $FileIO->uploadImage($tim.'s.jpg', $thumbFile, filesize($thumbFile));
 838                 }
 839         }
 840         updatelog();
 841
 842         // 引導使用者至新頁面
 843         $RedirURL = PHP_SELF2.'?'.$tim; // 定義儲存資料後轉址目標
 844         if(isset($_POST['up_series']) || $noko){ // 勾選連貼機能
 845                 if($resto) $RedirURL = PHP_SELF.'?res='.$resto.'&amp;upseries=1'; // 回應後繼續轉回此主題下
 846                 else{
 847                         $RedirURL = PHP_SELF.'?res='.$lastno.'&amp;upseries=1'; // 新增主題後繼續轉到此主題下
 848                 }
 849         }
 850         $RedirforJS = strtr($RedirURL, array("&amp;"=>"&")); // JavaScript用轉址目標
 851
 852         echo '<?xml version="1.0" encoding="UTF-8"?>'."\n";
 853         echo <<< _REDIR_
 854 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
 855 <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="'.PIXMICAT_LANGUAGE.'">
 856 <head>
 857 <title></title>
 858 <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
 859 <meta http-equiv="Refresh" content="1;URL=$RedirURL" />
 860 <script type="text/javascript">
 861 // Redirection (use JS)
 862 // <![CDATA[
 863 function redir(){
 864         location.href = "$RedirforJS";
 865 }
 866 setTimeout("redir()", 1000);
 867 // ]]>
 868 </script>
 869 </head>
 870 <body>
 871 <div>
 872 _REDIR_;
 873 echo _T('regist_redirect',$mes,$RedirURL).'</div>
 874 </body>
 875 </html>';
 876 }
 877
 878 /* 使用者刪除 */
 879 /* ユーザー削除 */
 880 function usrdel(){
 881         global $PIO, $FileIO, $PMS, $language;
 882         // $pwd: 使用者輸入值, $pwdc: Cookie記錄密碼
 883         $pwd = isset($_POST['pwd']) ? $_POST['pwd'] : '';
 884         $pwdc = isset($_COOKIE['pwdc']) ? $_COOKIE['pwdc'] : '';
 885         $onlyimgdel = isset($_POST['onlyimgdel']) ? $_POST['onlyimgdel'] : '';
 886         $delno = array();
 887         reset($_POST);
 888         while($item = each($_POST)){ if($item[1]=='delete' && $item[0] != 'func') array_push($delno, $item[0]); }
 889         $haveperm = ($pwd==ADMIN_PASS) || adminAuthenticate('check');
 890         if($haveperm && isset($_POST['func'])){ // 前端管理功能
 891                 $message = '';
 892                 $PMS->useModuleMethods('AdminFunction', array('run', $delno, $_POST['func'], &$message)); // "AdminFunction" Hook Point
 893                 if($_POST['func'] != 'delete'){
 894                         if(isset($_SERVER['HTTP_REFERER'])){
 895                                 header('HTTP/1.1 302 Moved Temporarily');
 896                                 header('Location: '.$_SERVER['HTTP_REFERER']);
 897                         }
 898                         exit(); // 僅執行AdminFunction，終止刪除動作
 899                 }
 900         }
 901         $PMS->useModuleMethods('Authenticate', array($pwd,'userdel',&$haveperm));
 902
 903         if($pwd=='' && $pwdc!='') $pwd = $pwdc;
 904         $pwd_md5 = substr(md5($pwd),2,8);
 905         $host = gethostbyaddr(getREMOTE_ADDR());
 906         $search_flag = $delflag = false;
 907
 908         if(!count($delno)) error(_T('del_notchecked'));
 909
 910         $delposts = array(); // 真正符合刪除條件文章
 911         $posts = $PIO->fetchPosts($delno);
 912         foreach($posts as $post){
 913                 if($pwd_md5==$post['pwd'] || $host==$post['host'] || $haveperm){
 914                         $search_flag = true; // 有搜尋到
 915                         array_push($delposts, $post['no']);
 916                 }
 917         }
 918         if($search_flag){
 919                 if(!$onlyimgdel) $PMS->useModuleMethods('PostOnDeletion', array($delposts, 'frontend')); // "PostOnDeletion" Hook Point
 920                 $files = $onlyimgdel ? $PIO->removeAttachments($delposts) : $PIO->removePosts($delposts);
 921                 $FileIO->deleteImage($files);
 922                 deleteCache($delposts);
 923                 total_size(true); // 刪除容量快取
 924                 $PIO->dbCommit();
 925         }else error(_T('del_wrongpwornotfound'));
 926         if(isset($_POST['func']) && $_POST['func'] == 'delete'){ // 前端管理刪除文章返回管理頁面
 927                 if(isset($_SERVER['HTTP_REFERER'])){
 928                         header('HTTP/1.1 302 Moved Temporarily');
 929                         header('Location: '.$_SERVER['HTTP_REFERER']);
 930                 }
 931                 exit();
 932         }
 933 }
 934
 935 /* 管理員密碼認證 */
 936 /* パス認証 */
 937 function valid(){
 938         global $PMS, $language;
 939         $pass = isset($_POST['pass']) ? $_POST['pass'] : ''; // 管理者密碼
 940         $haveperm = false;
 941         $isCheck = adminAuthenticate('check'); // 登入是否正確
 942         if(!$isCheck && $pass){
 943                 $haveperm = ($pass == ADMIN_PASS);
 944                 $PMS->useModuleMethods('Authenticate', array($pass,'admin',&$haveperm));
 945                 if($haveperm){ adminAuthenticate('login'); $isCheck = true; }
 946                 else error(_T('admin_wrongpassword'));
 947         }
 948         $dat = '';
 949         head($dat);
 950         $links = '[<a href="'.PHP_SELF2.'?'.time().'">'._T('return').'</a>] [<a href="'.PHP_SELF.'?mode=remake">'._T('admin_remake').'</a>] [<a href="'.PHP_SELF.'?page_num=0">'._T('admin_frontendmanage').'</a>]';
 951         $PMS->useModuleMethods('LinksAboveBar', array(&$links,'admin',$isCheck)); // LinksAboveBar hook point
 952         $dat .= '<div id="bannerlink">'.$links.'</div><div id="banner"><div class="passvalid">'._T('admin_top').'</div>
 953 </div>
 954 <form action="'.PHP_SELF.'" method="post" id="adminform">
 955 <div id="admin-check" style="text-align: center;">
 956 ';//----class="bar_admin"
 957         echo $dat;
 958         if(!$isCheck){
 959                 echo '<br />
 960 <input type="radio" name="admin" value="del" checked="checked" />'._T('admin_manageposts').'
 961 <input type="radio" name="admin" value="optimize" />'._T('admin_optimize').'
 962 <input type="radio" name="admin" value="check" />'._T('admin_check').'
 963 <input type="radio" name="admin" value="repair" />'._T('admin_repair').'
 964 <input type="radio" name="admin" value="export" />'._T('admin_export').'
 965 <input type="radio" name="admin" value="stylesheets" />'._T('admin_stylesheets').'<p />
 966 <input type="hidden" name="mode" value="admin" />
 967 <input class="inputtext" type="password" name="pass" size="8" />
 968 <input type="submit" value="'._T('admin_verify_btn').'" />
 969 </div>
 970 </form>';
 971                 die("\n</body>\n</html>");
 972         }elseif(!isset($_REQUEST['admin'])){
 973                 echo '<br />
 974 <input type="radio" name="admin" value="del" checked="checked" />'._T('admin_manageposts').'
 975 <input type="radio" name="admin" value="optimize" />'._T('admin_optimize').'
 976 <input type="radio" name="admin" value="check" />'._T('admin_check').'
 977 <input type="radio" name="admin" value="repair" />'._T('admin_repair').'
 978 <input type="radio" name="admin" value="export" />'._T('admin_export').'
 979 <input type="radio" name="admin" value="stylesheets" />'._T('admin_stylesheets').'
 980 <input type="radio" name="admin" value="logout" />'._T('admin_logout').'<p />
 981 <input type="hidden" name="mode" value="admin" />
 982 <input type="submit" value="'._T('admin_submit_btn').'" />
 983 </div>
 984 </form>';
 985                 die("\n</body>\n</html>");
 986         }
 987 }
 988
 989 /* 管理文章模式 */
 990 /* 管理者削除 */
 991 function admindel(){
 992         global $PIO, $FileIO, $PMS, $language;
 993
 994         $pass = isset($_POST['pass']) ? $_POST['pass'] : ''; // 管理者密碼
 995         $page = isset($_REQUEST['page']) ? $_REQUEST['page'] : 0; // 切換頁數
 996         $onlyimgdel = isset($_POST['onlyimgdel']) ? $_POST['onlyimgdel'] : ''; // 只刪圖
 997         $modFunc = '';
 998         $delno = $thsno = array();
 999         $delflag = isset($_POST['func']) && ($_POST['func'] == 'delete') && isset($_POST['clist']); // 是否有「刪除」勾選
1000         $thsflag = isset($_POST['stop']); // 是否有「停止」勾選
1001         $is_modified = false; // 是否改寫檔案
1002         $message = ''; // 操作後顯示訊息
1003
1004         if(isset($_POST['func']) && isset($_POST['clist']))
1005                 $PMS->useModuleMethods('AdminFunction', array('run', $_POST['clist'], $_POST['func'], &$message)); // "AdminFunction" Hook Point
1006
1007         // 刪除文章區塊
1008         if($delflag){
1009                 //if(!adminAuthenticate('check')) error(_T('admin_wrongpassword'));
1010
1011                 $delno = array_merge($delno, $_POST['clist']);
1012                 if($onlyimgdel != 'on') $PMS->useModuleMethods('PostOnDeletion', array($delno, 'backend')); // "PostOnDeletion" Hook Point
1013                 $files = ($onlyimgdel != 'on') ? $PIO->removePosts($delno) : $PIO->removeAttachments($delno);
1014                 $FileIO->deleteImage($files);
1015                 deleteCache($delno);
1016                 total_size(true); // 刪除容量快取
1017                 $is_modified = true;
1018         }
1019         // 討論串停止區塊
1020         if($thsflag){
1021                 //if(!adminAuthenticate('check')) error(_T('admin_wrongpassword'));
1022
1023                 $thsno = array_merge($thsno, $_POST['stop']);
1024                 $threads = $PIO->fetchPosts($thsno); // 取得文章
1025                 foreach($threads as $th){
1026                         $flgh = $PIO->getPostStatus($th['status']);
1027                         $flgh->toggle('TS');
1028                         $PIO->setPostStatus($th['no'], $flgh->toString());
1029                 }
1030                 $is_modified = true;
1031         }
1032         if(($delflag || $thsflag) && $is_modified) $PIO->dbCommit(); // 無論如何都有檔案操作，回寫檔案
1033
1034         $line = $PIO->fetchPostList(0, $page * ADMIN_PAGE_DEF, ADMIN_PAGE_DEF); // 分頁過的文章列表
1035         $posts_count = count($line); // 迴圈次數
1036         $posts = $PIO->fetchPosts($line); // 文章內容陣列
1037
1038         echo '<input type="hidden" name="mode" value="admin" />
1039 <input type="hidden" name="admin" value="del" />
1040 <div style="text-align: left;">'._T('admin_notices').'</div>
1041 <div>'.$message.'</div>
1042 <table border="1" cellspacing="0" style="margin: 0px auto;">
1043 <tr class="managehead">'._T('admin_list_header').'</tr>
1044 ';
1045
1046         for($j = 0; $j < $posts_count; $j++){
1047                 $bg = ($j % 2) ? 'row1' : 'row2'; // 背景顏色
1048                 extract($posts[$j]);
1049
1050                 if($no == 0) break; // Do not display post 0
1051
1052                 // 修改欄位樣式
1053                 $now = preg_replace('/.{2}\/(.{5})\(.+?\)(.{5}).*/', '$1 $2', $now);
1054                 $name = htmlspecialchars(str_cut(html_entity_decode(strip_tags($name)), 8));
1055                 $sub = htmlspecialchars(str_cut(html_entity_decode($sub), 8));
1056                 if($email) $name = "<a href=\"mailto:$email\">$name</a>";
1057                 $com = str_replace('<br />',' ',$com);
1058                 $com = htmlspecialchars(str_cut(html_entity_decode($com), 20));
1059
1060                 // 討論串首篇停止勾選框 及 模組功能
1061                 $modFunc = $THstop = ' ';
1062                 $PMS->useModuleMethods('AdminList', array(&$modFunc, $posts[$j], $resto)); // "AdminList" Hook Point
1063                 if($resto==0){ // $resto = 0 (即討論串首篇)
1064                         $flgh = $PIO->getPostStatus($status);
1065                         $THstop = '<input type="checkbox" name="stop[]" value="'.$no.'" />'.($flgh->exists('TS') ? _T('admin_stop_btn') : '');
1066                 }
1067
1068                 // 從記錄抽出附加圖檔使用量並生成連結
1069                 if($ext && $FileIO->imageExists($tim.$ext)){
1070                         $clip = '<a href="'.$FileIO->getImageURL($tim.$ext).'" rel="_blank">'.$tim.$ext.'</a>';
1071                         $size = $FileIO->getImageFilesize($tim.$ext);
1072                         if($FileIO->imageExists($tim.'s.jpg')) $size += $FileIO->getImageFilesize($tim.'s.jpg');
1073                 }else{
1074                         $clip = $md5chksum = '--';
1075                         $size = 0;
1076                 }
1077
1078                 // 印出介面
1079                 echo <<< _ADMINEOF_
1080 <tr class="$bg" align="left">
1081 <th align="center">$modFunc</th><th align="center">$THstop</th><th><input type="checkbox" name="clist[]" value="$no" />$no</th><td><small>$now</small></td><td>$sub</td><td><b>$name</b></td><td><small>$com</small></td><td>$host</td><td align="center">$clip ($size)<br />$md5chksum</td>
1082 </tr>
1083
1084 _ADMINEOF_;
1085         }
1086         echo '</table>
1087 <p>
1088 <select name="func"><option value="delete">'._T('admin_delete').'</option>';
1089         $funclist = array();
1090         $PMS->useModuleMethods('AdminFunction', array('add', &$funclist, null, null)); // "AdminFunction" Hook Point
1091         foreach($funclist as $f) echo '<option value="'.$f[0].'">'.$f[1].'</option>';
1092         echo '</select>
1093 <input type="submit" value="'._T('admin_submit_btn').'" /> <input type="reset" value="'._T('admin_reset_btn').'" /> [<input type="checkbox" name="onlyimgdel" id="onlyimgdel" value="on" /><label for="onlyimgdel">'._T('del_img_only').'</label>]</p>
1094 <p>'._T('admin_totalsize',total_size()).'</p>
1095 </div>
1096 </form>
1097 <hr />
1098 ';
1099
1100         $countline = $PIO->postCount(); // 總文章數
1101         $page_max = ceil($countline / ADMIN_PAGE_DEF) - 1; // 總頁數
1102         echo '<table class="pages" border="1" style="float: left;"><tr>';
1103         if($page) echo '<td><a href="'.PHP_SELF.'?mode=admin&amp;admin=del&amp;page='.($page - 1).'">'._T('prev_page').'</a></td>';
1104         else echo '<td style="white-space: nowrap;">'._T('first_page').'</td>';
1105         echo '<td>';
1106         for($i = 0; $i <= $page_max; $i++){
1107                 if($i==$page) echo '[<b>'.$i.'</b>] ';
1108                 else echo '[<a href="'.PHP_SELF.'?mode=admin&amp;admin=del&amp;page='.$i.'">'.$i.'</a>] ';
1109         }
1110         echo '</td>';
1111         if($page < $page_max) echo '<td><a href="'.PHP_SELF.'?mode=admin&amp;admin=del&amp;page='.($page + 1).'">'._T('next_page').'</a></td>';
1112         else echo '<td style="white-space: nowrap;">'._T('last_page').'</td>';
1113         die('</tr></table><br/><br/>
1114 </body>
1115 </html>');
1116 }
1117
1118 /* manage_css */
1119 // http://www.magmagateau.com/fuukaba/ is the source of the code below
1120 function manage_css(){
1121         global $PMS, $language;
1122         $order = array(); $line = '';
1123
1124         // Handle submission
1125         if(isset($_POST['order']) || isset($_POST['new'])){
1126                 $default = $_POST['default'];
1127
1128                 if(isset($_POST['order'])){
1129                         $dupid = false;
1130                         $order = $_POST['order'];
1131                         $ids = array();
1132                         $id = 0;
1133                         $name = '';
1134                         if(count($order) > 1){
1135                                 foreach($order as $name => $id) $ids[$id]++;
1136                                 foreach($ids as $idu => $count){
1137                                         if($idu < 1 || $count == 1) continue;
1138                                         foreach($order as $name => $id) if($id == $idu) $dupid = true;
1139                                 }
1140                                 if($dupid){
1141                                         ksort($order); // Yes, we're going to wimp out and reset it alphabetically.
1142                                         $go = 0;
1143                                         foreach($order as $name => $id) $go++;
1144                                         $order[$name] = $go;
1145                                 }
1146                         }
1147                         $order = array_flip($order);
1148                 }
1149
1150                 // Find out if a new stylesheet entry has been added
1151                 if(is_array($_POST['new'])){
1152                         $new_path = $_POST['new']['path'];
1153                         $new_name = $_POST['new']['name'];
1154                         $new_order = $_POST['new']['order'];
1155                         if($new_path != '' && $new_name != '') $order[$new_order] = $new_name;
1156                         if($default == 'new') $default = $new_name;
1157                 }
1158
1159                 ksort($order);
1160
1161                 // Get existing stylesheet entries
1162                 foreach($order as $id => $name){
1163                         if(!$id) continue;
1164                         if(!$_POST['path'][$name]) continue;
1165                         $temp['path'][$name] = $_POST['path'][$name];
1166                         $temp['names'][$name] = $name;
1167                         $temp['short'][$name] = $_POST['short'][$name];
1168                         $temp['order'][$name] = $id;
1169                 }
1170
1171                 // Get newly added stylesheet entries
1172                 if(is_array($_POST['new'])){
1173                         $temp['path'][$new_name] = $_POST['new']['path'];
1174                         $temp['names'][$new_name] = $new_name;
1175                         $temp['short'][$new_name] = $_POST['new']['short'];
1176                         $temp['order'][$new_name] = $new_order;
1177                 }
1178
1179                 // Build CSV lines
1180                 foreach($order as $id => $name){
1181                         if(!$id) continue; // Ignore Display order 0
1182                         $line   .= $name.','.$temp['short'][$name].','.$temp['path'][$name].',';
1183                         $line   .= ($name == $default) ? 'default,' : ',';
1184                         $line   .= "\n";
1185                 }
1186
1187                 $style_dat = DATA_DIR.CSV_SS;
1188
1189                 // Success messages
1190                 $action = (file_exists($style_dat)) ? _t('admin_updated') : _t('admin_created');
1191                 //---- $delete = (@unlink(CSS_DIR.CSVSS)) ? ' - <span class="warning">'.str_replace('[file]', CSS_DIR.CSVSS, _t('admin_deleted')).'</span>' : false;
1192                 $fp = fopen($style_dat, 'w+');
1193                 set_file_buffer($fp, 0);
1194                 rewind($fp);
1195                 fputs($fp, $line);
1196                 fclose($fp);
1197                 @chmod($style_dat, 0666);
1198                 echo '<div class="bar_managecss">'.str_replace('[file]', $style_dat, _t('admin_updated'))./*----$delete.*/'</div>';
1199         }
1200
1201         // Editing messages
1202         if(file_exists(DATA_DIR.CSV_SS)){
1203                 $style_data = DATA_DIR.CSV_SS;
1204                 $style_mode = _t('admin_editing');
1205 //----  }else{
1206 //----          $style_data = CSS_DIR.CSVSS;
1207 //----          $style_mode = _t('admin_imported');
1208         }
1209         echo '<div class="banner"><table width="100%"><tr><th class="bar_managecss">
1210 '.str_replace('[file]', $style_data, $style_mode).'
1211 </th></tr></table></div>';
1212
1213         echo '<div class="postlists">
1214 <input type="hidden" name="mode" value="admin" />
1215 <input type="hidden" name="admin" value="stylesheets" />
1216 <table width="100%" border="1" cellspacing="0">';
1217
1218         // Read data from R4+(CSV)
1219         if(file_exists(DATA_DIR.CSV_SS)){
1220                 $style_data = DATA_DIR.CSV_SS;
1221                 $lines = explode("\n", file_get_contents($style_data));
1222                 $j = 0;
1223                 $lines = array_diff($lines, array(''));
1224                 if(count($lines)){
1225                         echo '<tr class="managehead"><th colspan="2">'._t('admin_is_default').'</th><th>'._t('admin_fullname').'</th><th>'._t('admin_shortname').'</th><th>'._t('admin_dispid').'</th></tr>';
1226                 }
1227                 foreach($lines as $null => $line){
1228                         if($line != ''){ // Line has data
1229                                 list($style_name, $style_short, $style_file, $style_rel) = explode(',', $line);
1230                                 $j++; // For alternating <tr> BG colour
1231
1232                                 $style_path = CSS_DIR.$style_file;
1233
1234                                 if(file_exists($style_path)){
1235                                         if($style_rel) $style_rel = ' checked="checked"';
1236                                         else $style_rel = false;
1237                                         $class = ($j % 2) ? 'row1' : 'row2'; // BG colour
1238                                         echo '<tr class="'.$class.'"><td align="left" colspan="2"><label><input name="default" type="radio"'.$style_rel.' value="'.$style_name.'" /> '.$style_path.'</label><input type="hidden" name="path['.$style_name.']" value="'.$style_file.'" /></td><td align="left">'.$style_name.'</td><td align="left"><input name="short['.$style_name.']" value="'.$style_short.'" size="5" /></td><td align="left"><label><input name="order['.$style_name.']" size="2" value="'.$j.'" /></label></td></tr>';
1239                                 }
1240                         }
1241                 }
1242         }
1243
1244         // Read data from R3 DAT
1245 //----  else if(file_exists(CSS_DIR.CSVSS)){
1246 //----          $style_data = CSS_DIR.CSVSS;
1247 //----          $lines = explode("\n", file_get_contents($style_data));
1248 //----          $j = 0;
1249 //----          foreach($lines as $null => $line){ // Line has data, or line is not commented out
1250 //----                  if(substr($line, 0, 2) != '//' && $line != ''){
1251 //----                          $bits = explode('[*]', $line);
1252 //----                          $j++;
1253 //----                          $style_name = $bits[0];
1254 //----                          $style_path = CSS_DIR.$bits[2];
1255 //----                          if(file_exists($style_path)){
1256 //----                                  $style_short = $bits[1];
1257 //----                                  if($bits[3]) $style_rel = ' checked="checked"';
1258 //----                                  else $style_rel = false;
1259 //----                                  $class = ($j % 2) ? 'row1' : 'row2'; // BG colour
1260 //----                                  echo '<tr class="'.$class.'"><td align="left" colspan="2"><label><input name="default" type="radio"'.$style_rel.' value="'.$style_name.'" /> '.$style_path.'</label><input type="hidden" name="path['.$style_name.']" value="'.$bits[2].'" /></td><td align="left"><input name="names['.$style_name.']" value="'.$style_name.'" size="25" /></td><td align="left"><input name="short['.$style_name.']" value="'.$style_short.'" size="5" /></td><td align="left"><input name="order['.$style_name.']" size="2" value="'.$j.'" /></td></tr>';
1261 //----                          }
1262 //----                  }
1263 //----          }
1264 //----  }
1265
1266         $j++; $class = ($j % 2) ? 'row1' : 'row2';
1267
1268         // Insert string for when there are stylesheet entries to modify
1269         $action = ($j > 1) ? _t('admin_modstyle') : false;
1270         // Check default radio button for new row when there are NO stylesheet entries
1271         $style_rel = (!$action) ? ' checked="checked"' : false;
1272
1273         echo '<tr class="managehead"><th>'.str_replace('[or modify]', $action, _t('admin_addstyle')).'</th><th>'._t('admin_new_file').'</th><th>'._t('admin_fullname').'</th><th>'._t('admin_shortname').'</th><th>'._t('admin_new_id').'</th></tr>';
1274
1275         echo '<tr class="'.$class.'"><td align="left"><label><input name="default" type="radio"'.$style_rel.' value="new" /> '._t('admin_style_default').'</label></td><td align="left"><nobr>'.CSS_DIR.'<input name="new[path]" /></nobr></td><td align="left"><input name="new[name]" size="25" /></td><td align="left"><input name="new[short]" size="5" /></td><td align="left"><input name="new[order]" size="2" value="'.$j.'" /></td></tr></table></div>
1276 <center><p><div class="passvalid"><input type="submit" value="'._T('admin_submit_btn').'" /> <input type="reset" value="'._T('admin_reset_btn').'" /></div></p>';
1277         die('</center></form></body></html>');
1278 }
1279
1280 /* 計算目前附加圖檔使用容量 (單位：KB) */
1281 function total_size($isupdate=false){
1282         global $config, $PIO, $FileIO;
1283
1284         $size = 0; $all = 0;
1285         $cache_file = "./".SIZE_CACHE; // 附加圖檔使用容量值快取檔案
1286
1287         if($isupdate){ // 刪除舊快取
1288                 if(is_file($cache_file)) unlink($cache_file);
1289                 return;
1290         }
1291         if(!is_file($cache_file)){ // 無快取，新增
1292                 $line = $PIO->fetchPostList(); // 取出所有文章編號
1293                 $posts = $PIO->fetchPosts($line);
1294                 $linecount = count($posts);
1295                 for($i = 0; $i < $linecount; $i++){
1296                         extract($posts[$i]);
1297                         // 從記錄檔抽出計算附加圖檔使用量
1298                         if($ext && $FileIO->imageExists($tim.$ext)) $all += $FileIO->getImageFilesize($tim.$ext); // 附加圖檔合計計算
1299                         if($FileIO->imageExists($tim.'s.jpg')) $all += $FileIO->getImageFilesize($tim.'s.jpg'); // 預覽圖合計計算
1300                 }
1301                 $sp = fopen($cache_file, 'w');
1302                 stream_set_write_buffer($sp, 0);
1303                 fwrite($sp, $all); // 寫入目前使用容量值
1304                 fclose($sp);
1305                 @chmod($cache_file, 0666);
1306         }else{ // 使用快取
1307                 $sp = file($cache_file);
1308                 $all = $sp[0];
1309                 unset($sp);
1310         }
1311 //----        return (int)($all / 1024);
1312         if(!$config['KB']) return (int)($all);
1313         else return (int)($all / 1024);
1314 }
1315
1316 /* 搜尋(全文檢索)功能 */
1317 function search(){
1318         global $PTE, $PIO, $FileIO, $PMS, $language;
1319
1320         if(!USE_SEARCH) error(_T('search_disabled'));
1321         $searchKeyword = isset($_POST['keyword']) ? trim($_POST['keyword']) : ''; // 欲搜尋的文字
1322         $dat = '';
1323         head($dat);
1324         $links = '[<a href="'.PHP_SELF2.'?'.time().'">'._T('return').'</a>]';
1325         $PMS->useModuleMethods('LinksAboveBar', array(&$links,'search'));
1326         $dat .= '<div id="bannerlink">'.$links.'</div><div id="banner"><div class="bar_search">'._T('search_top').'</div>
1327 </div>
1328 ';
1329         echo $dat;
1330         if($searchKeyword==''){
1331                 echo '<form action="'.PHP_SELF.'" method="post">
1332 <div id="search">
1333 <input type="hidden" name="mode" value="search" />
1334 ';
1335                 echo '<ul>'._T('search_notice').'<input class="inputtext" type="text" name="keyword" size="30" />
1336 '._T('search_target').'<select name="field"><option value="com" selected="selected">'._T('search_target_comment').'</option><option value="name">'._T('search_target_name').'</option><option value="sub">'._T('search_target_topic').'</option><option value="no">'._T('search_target_number').'</option></select>
1337 '._T('search_method').'<select name="method"><option value="AND" selected="selected">'._T('search_method_and').'</option><option value="OR">'._T('search_method_or').'</option></select>
1338 <input type="submit" value="'._T('search_submit_btn').'" />
1339 </li>
1340 </ul>
1341 </div>
1342 </form>';
1343         }else{
1344                 $searchField = $_POST['field']; // 搜尋目標 (no:編號, name:名稱, sub:標題, com:內文)
1345                 $searchMethod = $_POST['method']; // 搜尋方法
1346                 $searchKeyword = preg_split('/(　| )+/', trim($searchKeyword)); // 搜尋文字用空格切割
1347                 $hitPosts = $PIO->searchPost($searchKeyword, $searchField, $searchMethod); // 直接傳回符合的文章內容陣列
1348
1349                 echo '<div id="search_result">
1350 ';
1351                 $resultlist = '';
1352                 foreach($hitPosts as $post){
1353                         extract($post);
1354                         if(USE_CATEGORY){
1355                                 $ary_category = explode(',', str_replace('&#44;', ',', $category)); $ary_category = array_map('trim', $ary_category);
1356                                 $ary_category_count = count($ary_category);
1357                                 $ary_category2 = array();
1358                                 for($p = 0; $p < $ary_category_count; $p++){
1359                                         if($c = $ary_category[$p]) $ary_category2[] = '<a href="'.PHP_SELF.'?mode=category&amp;c='.urlencode($c).'">'.$c.'</a>';
1360                                 }
1361                                 $category = implode(', ', $ary_category2);
1362                         }else $category = '';
1363                         $arrLabels = array('{$NO}'=>'<a href="'.PHP_SELF.'?res='.($resto?$resto.'#r'.$no:$no).'">'.$no.'</a>', '{$SUB}'=>$sub, '{$NAME}'=>$name, '{$NOW}'=>$now, '{$COM}'=>$com, '{$CATEGORY}'=>$category, '{$NAME_TEXT}'=>_T('post_name'), '{$CATEGORY_TEXT}'=>_T('post_category'));
1364                         $resultlist .= $PTE->ParseBlock('SEARCHRESULT',$arrLabels);
1365                 }
1366                 echo $resultlist ? $resultlist : '<div style="text-align: center">'._T('search_notfound').'<br/><a href="?mode=search">'._T('search_back').'</a></div>';
1367                 echo "</div>";
1368         }
1369         echo "</body>\n</html>";
1370 }
1371
1372 /* 利用類別標籤搜尋符合的文章 */
1373 function searchCategory(){
1374         global $PTE, $PIO, $PMS, $FileIO, $language;
1375         $category = isset($_GET['c']) ? strtolower(strip_tags(trim($_GET['c']))) : ''; // 搜尋之類別標籤
1376         if(!$category) error(_T('category_nokeyword'));
1377         $category_enc = urlencode($category); $category_md5 = md5($category);
1378         $page = isset($_GET['p']) ? @intval($_GET['p']) : 1; if($page < 1) $page = 1; // 目前瀏覽頁數
1379         $isrecache = isset($_GET['recache']); // 是否強制重新生成快取
1380
1381         // 利用Session快取類別標籤出現篇別以減少負擔
1382         session_start(); // 啟動Session
1383         if(!isset($_SESSION['loglist_'.$category_md5]) || $isrecache){
1384                 $loglist = $PIO->searchCategory($category);
1385                 $_SESSION['loglist_'.$category_md5] = serialize($loglist);
1386         }else $loglist = unserialize($_SESSION['loglist_'.$category_md5]);
1387
1388         $loglist_count = count($loglist);
1389         if(!$loglist_count) error(_T('category_notfound'));
1390         $page_max = ceil($loglist_count / PAGE_DEF); if($page > $page_max) $page = $page_max; // 總頁數
1391
1392         // 分割陣列取出適當範圍作分頁之用
1393         $loglist_cut = array_slice($loglist, PAGE_DEF * ($page - 1), PAGE_DEF); // 取出特定範圍文章
1394         $loglist_cut_count = count($loglist_cut);
1395
1396         $dat = '';
1397         head($dat);
1398         $links = '[<a href="'.PHP_SELF2.'?'.time().'">'._T('return').'</a>][<a href="'.PHP_SELF.'?mode=category&amp;c='.$category_enc.'&amp;recache=1">'._T('category_recache').'</a>]';
1399         $PMS->useModuleMethods('LinksAboveBar', array(&$links,'category'));
1400         $dat .= "<div>$links</div>\n";
1401         for($i = 0; $i < $loglist_cut_count; $i++){
1402                 $posts = $PIO->fetchPosts($loglist_cut[$i]); // 取得文章內容
1403                 $dat .= arrangeThread($PTE, ($posts[0]['resto'] ? $posts[0]['resto'] : $posts[0]['no']), null, $posts, 0, $loglist_cut[$i], array(), array(), false, false, false, 0, 0, 0, 0, 0); // 逐個輸出 (引用連結不顯示)
1404         }
1405
1406         $dat .= '<table border="1"><tr>';
1407         if($page > 1) $dat .= '<td><form action="'.PHP_SELF.'?mode=category&amp;c='.$category_enc.'&amp;p='.($page - 1).'" method="post"><div><input type="submit" value="'._T('prev_page').'" /></div></form></td>';
1408         else $dat .= '<td style="white-space: nowrap;">'._T('first_page').'</td>';
1409         $dat .= '<td>';
1410         for($i = 1; $i <= $page_max ; $i++){
1411                 if($i==$page) $dat .= "[<b>".$i."</b>] ";
1412                 else $dat .= '[<a href="'.PHP_SELF.'?mode=category&amp;c='.$category_enc.'&amp;p='.$i.'">'.$i.'</a>] ';
1413         }
1414         $dat .= '</td>';
1415         if($page < $page_max) $dat .= '<td><form action="'.PHP_SELF.'?mode=category&amp;c='.$category_enc.'&amp;p='.($page + 1).'" method="post"><div><input type="submit" value="'._T('next_page').'" /></div></form></td>';
1416         else $dat .= '<td style="white-space: nowrap;">'._T('last_page').'</td>';
1417         $dat .= '</tr></table>'."\n";
1418
1419         foot($dat);
1420         echo $dat;
1421 }
1422
1423 /* 顯示已載入模組資訊 */
1424 function listModules(){
1425         global $PMS, $language;
1426         $dat = '';
1427         head($dat);
1428         $links = '[<a href="'.PHP_SELF2.'?'.time().'">'._T('return').'</a>]';
1429         $PMS->useModuleMethods('LinksAboveBar', array(&$links,'modules'));
1430         $dat .= '<div id="bannerlink">'.$links.'</div><div id="banner"><div class="bar_info_mod">'._T('module_info_top').'</div>
1431 </div>
1432
1433 <div id="modules">
1434 ';
1435         /* Module Loaded */
1436         $dat .= _T('module_loaded').'<ul>'."\n";
1437         foreach($PMS->getLoadedModules() as $m) $dat .= '<li>'.$m."</li>\n";
1438         $dat .= "</ul><hr />\n";
1439
1440         /* Module Infomation */
1441         $dat .= _T('module_info').'<ul>'."\n";
1442         foreach($PMS->moduleInstance as $m) $dat .= '<li>'.$m->getModuleName().'<div style="padding-left:2em;">'.$m->getModuleVersionInfo()."</div></li>\n";
1443         $dat .= '</ul><hr />
1444 </div>
1445
1446 ';
1447         foot($dat);
1448         echo $dat;
1449 }
1450
1451 /* 刪除舊頁面快取檔 */
1452 function deleteCache($no){
1453         foreach($no as $n){
1454                 if($oldCaches = glob('./cache/'.$n.'-*')){
1455                         foreach($oldCaches as $o) @unlink($o);
1456                 }
1457         }
1458 }
1459
1460 /* 顯示系統各項資訊 */
1461 function showstatus(){
1462         global $config, $PTE, $PIO, $FileIO, $PMS, $language, $LIMIT_SENSOR;
1463         $countline = $PIO->postCount(); // 計算投稿文字記錄檔目前資料筆數
1464         $counttree = $PIO->threadCount(); // 計算樹狀結構記錄檔目前資料筆數
1465         $tmp_total_size = total_size(); // 附加圖檔使用量總大小
1466         $tmp_ts_ratio = STORAGE_MAX > 0 ? $tmp_total_size / STORAGE_MAX : 0; // 附加圖檔使用量
1467         if(!$config['KB']) $kbb = ' B';
1468         else $kbb = ' KB';
1469
1470         // 決定「附加圖檔使用量」提示文字顏色
1471         if($tmp_ts_ratio < 0.3 ) $clrflag_sl = '235CFF';
1472         elseif($tmp_ts_ratio < 0.5 ) $clrflag_sl = '0CCE0C';
1473         elseif($tmp_ts_ratio < 0.7 ) $clrflag_sl = 'F28612';
1474         elseif($tmp_ts_ratio < 0.9 ) $clrflag_sl = 'F200D3';
1475         else $clrflag_sl = 'F2004A';
1476
1477         // 生成預覽圖物件資訊及功能是否正常
1478         $func_thumbWork = '<span style="color: red;">'._T('info_nonfunctional').'</span>';
1479         $func_thumbInfo = '(No thumbnail)';
1480         if(USE_THUMB !== 0){
1481                 $thumbType = USE_THUMB; if(USE_THUMB==1){ $thumbType = 'gd'; }
1482                 require(PHP_DIRECTORY.'lib/thumb/thumb.'.$thumbType.'.php');
1483                 $thObj = new ThumbWrapper();
1484                 if($thObj->isWorking()) $func_thumbWork = '<span style="color: blue;">'._T('info_functional').'</span>';
1485                 $func_thumbInfo = $thObj->getClass();
1486                 unset($thObj);
1487         }
1488
1489         // PIOSensor
1490         if(count($LIMIT_SENSOR))
1491                 $piosensorInfo=nl2br(PIOSensor::info($LIMIT_SENSOR));
1492
1493         $dat = '';
1494         head($dat);
1495         $links = '[<a href="'.PHP_SELF2.'?'.time().'">'._T('return').'</a>] [<a href="'.PHP_SELF.'?mode=moduleloaded">'._T('module_info_top').'</a>]';
1496         $PMS->useModuleMethods('LinksAboveBar', array(&$links,'status'));
1497         $dat .= '<div id="bannerlink">'.$links.'</div><div id="banner"><div class="bar_info">'._T('info_top').'</div>
1498 </div>
1499 ';
1500
1501         $dat .= '
1502 <div id="status-table" style="text-align: center;">
1503 <table border="1" style="margin: 0px auto; text-align: left;">
1504 <tr><td align="center" colspan="4">'._T('info_basic').'</td></tr>
1505 <tr><td style="width: 240px;">'._T('info_basic_ver').'</td><td colspan="3"> '.PIXMICAT_VER.' </td></tr>
1506 <tr><td>'._T('info_basic_pio').'</td><td colspan="3"> '.PIXMICAT_BACKEND.' : '.$PIO->pioVersion().'</td></tr>
1507 <tr><td>'._T('info_basic_threadsperpage').'</td><td colspan="3"> '.PAGE_DEF.' '._T('info_basic_threads').'</td></tr>
1508 <tr><td>'._T('info_basic_postsperpage').'</td><td colspan="3"> '.RE_DEF.' '._T('info_basic_posts').'</td></tr>
1509 <tr><td>'._T('info_basic_postsinthread').'</td><td colspan="3"> '.RE_PAGE_DEF.' '._T('info_basic_posts').' '._T('info_basic_posts_showall').'</td></tr>
1510 <tr><td>'._T('info_basic_bumpposts').'</td><td colspan="3"> '.MAX_RES.' '._T('info_basic_posts').' '._T('info_basic_0disable').'</td></tr>
1511 <tr><td>'._T('info_basic_bumphours').'</td><td colspan="3"> '.MAX_AGE_TIME.' '._T('info_basic_hours').' '._T('info_basic_0disable').'</td></tr>
1512 <tr><td>'._T('info_basic_urllinking').'</td><td colspan="3"> '.AUTO_LINK.' '._T('info_0no1yes').'</td></tr>
1513 <tr><td>'._T('info_basic_com_limit').'</td><td colspan="3"> '.COMM_MAX._T('info_basic_com_after').'</td></tr>
1514 <tr><td>'._T('info_basic_anonpost').'</td><td colspan="3"> '.$config['ALLOW_NONAME'].' '._T('info_basic_anonpost_opt').'</td></tr>
1515 <tr><td>'._T('info_basic_del_incomplete').'</td><td colspan="3"> '.KILL_INCOMPLETE_UPLOAD.' '._T('info_0no1yes').'</td></tr>
1516 <tr><td>'._T('info_basic_use_sample',THUMB_Q).'</td><td colspan="3"> '.USE_THUMB.' '._T('info_0notuse1use').'</td></tr>
1517 <tr><td>'._T('info_basic_useblock').'</td><td colspan="3"> '.BAN_CHECK.' '._T('info_0disable1enable').'</td></tr>
1518 <tr><td>'._T('info_basic_showid').'</td><td colspan="3"> '.DISP_ID.' '._T('info_basic_showid_after').'</td></tr>
1519 <tr><td>'._T('info_basic_cr_limit').'</td><td colspan="3"> '.BR_CHECK._T('info_basic_cr_after').'</td></tr>
1520 <!--<tr><td>'._T('info_basic_timezone').'</td><td colspan="3"> GMT </td></tr>-->
1521 <tr><td>'._T('info_basic_line_number_limit').'</td><td colspan="3"> '.$config['LINE_NUMBER']._T('info_basic_line_number_after').'</td></tr>
1522 <tr><td>'._T('info_basic_theme').'</td><td colspan="3"> '.$PTE->BlockValue('THEMENAME').' '.$PTE->BlockValue('THEMEVER').'<br/>by '.$PTE->BlockValue('THEMEAUTHOR').'</td></tr>
1523 <tr><td align="center" colspan="4">'._T('info_dsusage_top').'</td></tr>
1524 <tr align="center"><td>'._T('info_basic_threadcount').'</td><td colspan="'.(isset($piosensorInfo)?'2':'3').'"> '.$counttree.' '._T('info_basic_threads').'</td>'.(isset($piosensorInfo)?'<td rowspan="2">'.$piosensorInfo.'</td>':'').'</tr>
1525 <tr align="center"><td>'._T('info_dsusage_count').'</td><td colspan="'.(isset($piosensorInfo)?'2':'3').'">'.$countline.'</td></tr>
1526 <tr><td align="center" colspan="4">'._T('info_fileusage_top').STORAGE_LIMIT.' '._T('info_0disable1enable').'</td></tr>';
1527
1528         if(STORAGE_LIMIT){
1529                 $dat .= '
1530 <tr align="center"><td>'._T('info_fileusage_limit').'</td><td colspan="2">'.STORAGE_MAX.$kbb.'</td><td rowspan="2">'._T('info_dsusage_usage').'<br /><span style="color: #'.$clrflag_sl.'">'.substr(($tmp_ts_ratio * 100), 0, 6).'</span> %</td></tr>
1531 <tr align="center"><td>'._T('info_fileusage_count').'</td><td colspan="2"><span style="color: #'.$clrflag_sl.'">'.$tmp_total_size.$kbb.'</span></td></tr>';
1532         }else{
1533                 $dat .= '
1534 <tr align="center"><td>'._T('info_fileusage_count').'</td><td>'.$tmp_total_size.$kbb.'</td><td colspan="2">'._T('info_dsusage_usage').'<br /><span style="color: green;">'._T('info_fileusage_unlimited').'</span></td></tr>';
1535         }
1536
1537         $dat .= '
1538 <tr><td align="center" colspan="4">'._T('info_server_top').'</td></tr>
1539 <tr align="center"><td colspan="3">PHP version</td><td>'.phpversion().'</td></tr>
1540 <tr align="center"><td colspan="3">'.$func_thumbInfo.'</td><td>'.$func_thumbWork.'</td></tr>
1541 </table>
1542 <hr />
1543 </div>'."\n";
1544
1545         foot($dat);
1546         echo $dat;
1547 }
1548
1549 /* 程式首次執行之初始化 */
1550 /* 初期設定 */
1551 function init(){
1552         global $PIO, $FileIO, $language;
1553         if(!is_writable(realpath('./'))) error(_T('init_permerror'));
1554
1555         $chkfolder = array(IMG_DIR, THUMB_DIR, 'cache/', TEMP_DIR);
1556         // 逐一自動建置資料夾
1557         foreach($chkfolder as $value) if(!is_dir($value)){ mkdir($value); @chmod($value, 0777); }  // 沒有就建立
1558
1559         $PIO->dbInit(); // PIO Init
1560         $FileIO->init(); // FileIO Init
1561
1562         error(_T('init_inited'));
1563 }
1564
1565 /*-----------程式各項功能主要判斷-------------*/
1566 /*-----------Main-------------*/
1567 if(GZIP_COMPRESS_LEVEL && ($Encoding = CheckSupportGZip())){ ob_start(); ob_implicit_flush(0); } // 支援且開啟Gzip壓縮就設緩衝區
1568 $mode = isset($_GET['mode']) ? $_GET['mode'] : (isset($_POST['mode']) ? $_POST['mode'] : ''); // 目前執行模式 (GET, POST)
1569
1570 //init(); // ←■■！程式環境初始化，跑過一次後請刪除此行！■■
1571 switch($mode){
1572         case 'regist':
1573                 regist();
1574                 break;
1575         case 'admin':
1576                 $admin = isset($_REQUEST['admin']) ? $_REQUEST['admin'] : ''; // 管理者執行模式
1577                 valid();
1578                 switch($admin){
1579                         case 'del': admindel(); break;
1580                         case 'logout':
1581                                 adminAuthenticate('logout');
1582                                 header('HTTP/1.1 302 Moved Temporarily');
1583                                 header('Location: '.fullURL().PHP_SELF2.'?'.time());
1584                                 break;
1585                         case 'optimize':
1586                         case 'check':
1587                         case 'repair':
1588                         case 'export':
1589                                 if(!$PIO->dbMaintanence($admin)) echo _T('action_main_notsupport');
1590                                 else echo _T('action_main_'.$admin).(($mret = $PIO->dbMaintanence($admin,true))?_T('action_main_success'):_T('action_main_failed')).(is_bool($mret)?'':'<br/>'.$mret);
1591                                 die("</div></form></body>\n</html>");
1592                                 break;
1593                         case 'stylesheets': manage_css(); break;
1594                         default:
1595                 }
1596                 break;
1597         case 'search':
1598                 search();
1599                 break;
1600         case 'status':
1601                 showstatus();
1602                 break;
1603         case 'category':
1604                 searchCategory();
1605                 break;
1606         case 'module':
1607                 $loadModule = isset($_GET['load']) ? $_GET['load'] : '';
1608                 if($PMS->onlyLoad($loadModule)) $PMS->moduleInstance[$loadModule]->ModulePage();
1609                 else echo '404 Not Found';
1610                 break;
1611         case 'moduleloaded':
1612                 listModules();
1613                 break;
1614         case 'init':
1615                 init(); // ←■■！程式環境初始化，跑過一次後請刪除此行！■■
1616                 break;
1617         case 'usrdel':
1618                 usrdel();
1619         case 'remake':
1620                 updatelog();
1621                 header('HTTP/1.1 302 Moved Temporarily');
1622                 header('Location: '.fullURL().PHP_SELF2.'?'.time());
1623                 break;
1624         default:
1625                 // 如果瀏覽器支援XHTML標準MIME就輸出
1626                 header('Content-Type: '.((USE_XHTML && strpos($_SERVER['HTTP_ACCEPT'],'application/xhtml+xml')!==FALSE) ? 'application/xhtml+xml' : 'text/html').'; charset=utf-8');
1627                 $res = isset($_GET['res']) ? $_GET['res'] : 0; // 欲回應編號
1628                 if($res){ // 回應模式輸出
1629                         $page = isset($_GET['page_num']) ? $_GET['page_num'] : 'RE_PAGE_MAX';
1630                         if(!($page=='all' || $page=='RE_PAGE_MAX')) $page = intval($_GET['page_num']);
1631                         updatelog($res, $page); // 實行分頁
1632                 }elseif(isset($_GET['page_num']) && intval($_GET['page_num']) > -1){ // PHP動態輸出一頁
1633                         updatelog(0, intval($_GET['page_num']));
1634                 }else{ // 導至靜態庫存頁
1635                         if(!is_file(PHP_SELF2)) updatelog();
1636                         header('HTTP/1.1 302 Moved Temporarily');
1637                         header('Location: '.fullURL().PHP_SELF2.'?'.time());
1638                 }
1639 }
1640 if(GZIP_COMPRESS_LEVEL && $Encoding){ // 有啟動Gzip
1641         if(!ob_get_length()) exit; // 沒內容不必壓縮
1642         header('Content-Encoding: '.$Encoding);
1643         header('X-Content-Encoding-Level: '.GZIP_COMPRESS_LEVEL);
1644         header('Vary: Accept-Encoding');
1645         print gzencode(ob_get_clean(), GZIP_COMPRESS_LEVEL); // 壓縮內容
1646 }
1647 ?>