'); break; case E_WARNING: print_r('Warning: '.$errstr.' '.$errfile.' #'.$errline.'
'); break; } } include_once(PHP_DIRECTORY.'lib/lib_css.php'); // load CSS data /* 輸出表頭 */ /* ヘッダ */ function head(&$dat,$resno=0){ global $PTE, $PMS, $language, $style_load, $style_bar, $jsdonk; $title = ''; // Title code from old yotsubanome //++++---- suigintou v.3.0+ code if(SHOWTITLEIMG == 1){ $title = ''.TITLE.''; if(SHOWTITLETXT) $title .= '
'; }elseif(SHOWTITLEIMG == 2){ $title = ''.TITLE.''; if(SHOWTITLETXT) $title .= '
'; } if(SHOWTITLETXT) $title .= TITLE; //++++---- $pte_vals = array('{$TITLE}'=>TITLE,'{$TITLEHEAD}'=>$title,'{$TITLECOM}'=>strip_tags(TITLECOM),'{$RESTO}'=>$resno?$resno:'','{$STYLE_LOAD}'=>$style_load,'{$STYLE_BAR}'=>$style_bar,'{$JS_DIR}'=>JS_DIR,'{$CSS_DIR}'=>CSS_DIR,'{$JSDONK}'=>$jsdonk,'{$FAV_ICON}'=>FAV_ICON,'{$LANGUAGE}'=>PIXMICAT_LANGUAGE); $dat .= $PTE->ParseBlock('HEADER',$pte_vals); $PMS->useModuleMethods('Head', array(&$dat,$resno)); // "Head" Hook Point $pte_vals+=array('{$ALLOW_UPLOAD_EXT}' => ALLOW_UPLOAD_EXT, '{$JS_REGIST_WITHOUTCOMMENT}' => str_replace('\'', '\\\'', _T('regist_withoutcomment')), '{$JS_REGIST_UPLOAD_NOTSUPPORT}' => str_replace('\'', '\\\'', _T('regist_upload_notsupport')), '{$JS_CONVERT_SAKURA}' => str_replace('\'', '\\\'', _T('js_convert_sakura'))); $dat .= $PTE->ParseBlock('JSHEADER',$pte_vals); $dat .= ''; $pte_vals += array('{$TOP_LINKS}' => TOP_LINKS, '{$HOME}' => '['._T('head_home').']', '{$STATUS}' => '['._T('head_info').']', '{$ADMIN}' => '['._T('head_admin').']', '{$REFRESH}' => '['._T('head_refresh').']', '{$SEARCH}' => (USE_SEARCH) ? '['._T('head_search').']' : ''); if(STYLEBAR) $pte_vals += array('{$HOOKLINKS}' => ''.$style_bar.''); else $pte_vals += array('{$HOOKLINKS}' => ''); $PMS->useModuleMethods('Toplink', array(&$pte_vals['{$HOOKLINKS}'],$resno)); // "Toplink" Hook Point $dat .= $PTE->ParseBlock('BODYHEAD',$pte_vals); } /* 發表用表單輸出 */ /* 投稿フォーム */ function form(&$dat, $resno, $iscollapse=true, $retURL=PHP_SELF, $name='', $mail='', $sub='', $com='', $cat='', $mode='regist'){ global $PTE, $PMS, $ADDITION_INFO, $language; $pte_vals = array('{$SELF}'=>$retURL, '{$FORMTOP}'=>'', '{$MODE}'=>$mode); $isedit = ($mode == 'edit'); // 是否為編輯模式 if($resno && !$isedit){ $links = '['._T('return').']'; $PMS->useModuleMethods('LinksAboveBar', array(&$links,'reply',$resno)); // "LinksAboveBar" Hook Point $pte_vals['{$FORMTOP}'] = ''; }//----class="bar_reply" if(!$resno) $ntno = _T('form_newt'); else $ntno = _T('reply_btn').':'.$resno; // new thread & reply:$resno (A KusabaX function that was reverse Engineered by sparky4 (I never looked at the code for that function w)) if(USE_FLOATFORM && !$resno && $iscollapse) $pte_vals['{$FORMTOP}'] .= "\n".'['._T('form_showpostform').''._T('form_hidepostform').']'; $pte_vals += array('{$MAX_FILE_SIZE}' => MAX_KB * 1024, '{$RESTO}' => $resno ? '' : '', '{$FORM_NAME_TEXT}' => _T('form_name'), '{$FORM_NAME_FIELD}' => '', '{$FORM_EMAIL_TEXT}' => _T('form_email'), '{$FORM_EMAIL_FIELD}' => '', '{$FORM_TOPIC_TEXT}' => _T('form_topic'), '{$FORM_TOPIC_FIELD}' => '', '{$FORM_SUBMIT}' => ' 「'.$ntno.'」', '{$FORM_COMMENT_TEXT}' => _T('form_comment'), '{$FORM_COMMENT_FIELD}' => '', '{$FORM_DELETE_PASSWORD_FIELD}' => '', '{$FORM_DELETE_PASSWORD_TEXT}' => _T('form_delete_password'), '{$FORM_DELETE_PASSWORD_NOTICE}' => _T('form_delete_password_notice'), '{$FORM_EXTRA_COLUMN}' => '', '{$FORM_NOTICE}' => _T('form_notice',str_replace('|',', ',ALLOW_UPLOAD_EXT),MAX_KB,($resno ? MAX_RW : MAX_W),($resno ? MAX_RH : MAX_H)), '{$HOOKPOSTINFO}' => '', '{$ADDITION_INFO}' => $ADDITION_INFO, '{$FORM_NOTICE_NOSCRIPT}' => _T('form_notice_noscript')); $PMS->useModuleMethods('PostForm', array(&$pte_vals['{$FORM_EXTRA_COLUMN}'])); // "PostForm" Hook Point if(!$isedit && (RESIMG || !$resno)){ $pte_vals += array('{$FORM_ATTECHMENT_TEXT}' => _T('form_attechment'), '{$FORM_ATTECHMENT_FIELD}' => ''); if(!NO_TEXTONLY || NO_TEXTONLY == 1){ $pte_vals += array('{$FORM_NOATTECHMENT_TEXT}' => _T('form_noattechment'), '{$FORM_NOATTECHMENT_FIELD}' => ''); } } if(OPTION){ //++++ more options will be added on later $pte_vals['{$FORM_OPTION1_TEXT}'] = _T('form_option1'); if(USE_UPSERIES){ // 啟動連貼機能 $pte_vals['{$FORM_CONTPOST_FIELD}'] = ''; $pte_vals['{$FORM_CONTPOST_TEXT}'] = _T('form_contpost'); } // options hook $pte_vals['{$FORM_OPTION_HOOK}'] = ''; } if(USE_CATEGORY){ $pte_vals += array('{$FORM_CATEGORY_FIELD}' => '', '{$FORM_CATEGORY_TEXT}' => _T('form_category'), '{$FORM_CATEGORY_NOTICE}' => _T('form_category_notice')); } if(STORAGE_LIMIT) $pte_vals['{$FORM_NOTICE_STORAGE_LIMIT}'] = _T('form_notice_storage_limit',total_size(),STORAGE_MAX); $PMS->useModuleMethods('PostInfo', array(&$pte_vals['{$HOOKPOSTINFO}'])); // "PostInfo" Hook Point if(USE_FLOATFORM && !$resno && $iscollapse) $pte_vals['{$FORMBOTTOM}'] = ''; $dat .= $PTE->ParseBlock('POSTFORM',$pte_vals); } /* 輸出頁尾文字 */ /* フッタ */ function foot(&$dat){ global $PTE, $PMS, $language; $pte_vals = array('{$FOOTER}'=>''."\n"); $PMS->useModuleMethods('Foot', array(&$pte_vals['{$FOOTER}'])); // "Foot" Hook Point $pte_vals['{$FOOTER}'] .= '- GazouBBS + futaba + Pixmicat! + yotsubanome -'; $pte_vals['{$FOOTER}'] .= '

Valid XHTML 1.1

'; $dat .= $PTE->ParseBlock('FOOTER',$pte_vals); } /* 網址自動連結 */ /* オートリンク */ function auto_link_callback($matches){ return (strtolower($matches[3]) == "") ? $matches[0] : preg_replace('/(https?|ftp|news|irc|gopher)(:\/\/[\w\+\$\;\?\.\{\}%,!#~*\/:@&=_-]+)/u', '$1$2', $matches[0]); } function auto_link($proto){ $proto = preg_replace('||',"\n",$proto); $proto = preg_replace_callback('/(>|^)([^<]+?)(<.*?>|$)/m','auto_link_callback',$proto); return str_replace("\n",'
',$proto); } /* 引用標註 */ function quoteLight($comment){ return preg_replace('/(^|
)((?:>|＞).*?)(?=
|$)/u', '$1$2', $comment); } /* # quoting */ function quoteLight2($comment){ return preg_replace('/(^|
)((?:#|＃).*?)(?=
|$)/u', '$1$2', $comment); } /* 取得完整的網址 */ function fullURL(){ return 'http://'.$_SERVER['HTTP_HOST'].substr($_SERVER['PHP_SELF'], 0, strpos($_SERVER['PHP_SELF'], PHP_SELF)); } /* 反櫻花字 */ function anti_sakura($str){ return preg_match('/[\x{E000}-\x{F848}]/u', $str); } /* 輸出錯誤畫面 */ /* エラー画面 */ function error($mes, $dest=''){ global $PTE; if(is_file($dest)) unlink($dest); $pte_vals = array('{$SELF2}'=>PHP_SELF2.'?'.time(), '{$MESG}'=>$mes, '{$RETURN_TEXT}'=>_T('return'), '{$BACK_TEXT}'=>_T('error_back')); $dat = ''; head($dat); $dat .= $PTE->ParseBlock('ERROR',$pte_vals); foot($dat); exit($dat); } /* 文字修整 */ /* テキスト整形 */ function CleanStr($str, $IsAdmin=false){ global $config; $str = trim($str); // 去除前後多餘空白 if(get_magic_quotes_gpc()) $str = stripslashes($str); // "\"斜線符號去除 // XML 1.1 Second Edition: 部分避免用字 (http://www.w3.org/TR/2006/REC-xml11-20060816/#charsets) $str = preg_replace('/([\x1-\x8\xB-\xC\xE-\x1F\x7F-\x84\x86-\x9F\x{FDD0}-\x{FDDF}])/u', '', htmlspecialchars($str)); if($IsAdmin && $config['CAP.ISHTML']){ // 管理員開啟HTML $str = preg_replace('/<(.*?)>/', '<$1>', $str); // 如果有<...>則轉回<...>成為正常標籤 } return $str; } /* 適用UTF-8環境的擬substr，取出特定數目字元 原出處：Sea Otter @ 2005.05.10 http://www.meyu.net/star/viewthread.php?tid=267&fpage=10 */ function str_cut($str, $maxlen=20){ $i = $l = 0; $len = strlen($str); $f = true; $return_str = $str; while($i < $len){ $chars = ord($str{$i}); if($chars < 0x80){ $l++; $i++; } elseif($chars < 0xe0){ $l++; $i += 2; } elseif($chars < 0xf0){ $l += 2; $i += 3; } elseif($chars < 0xf8){ $l++; $i += 4; } elseif($chars < 0xfc){ $l++; $i += 5; } elseif($chars < 0xfe){ $l++; $i += 6; } if(($l >= $maxlen) && $f){ $return_str = substr($str, 0, $i); $f = false; } if(($l > $maxlen) && ($i <= $len)){ $return_str = $return_str.'…'; break; } } return $return_str; } /* 檢查瀏覽器和伺服器是否支援gzip壓縮方式 */ function CheckSupportGZip(){ $HTTP_ACCEPT_ENCODING = isset($_SERVER['HTTP_ACCEPT_ENCODING']) ? $_SERVER['HTTP_ACCEPT_ENCODING'] : ''; if(headers_sent() || connection_aborted()) return 0; // 已送出資料，取消 if(!(function_exists('gzencode') && function_exists('ob_start') && function_exists('ob_get_clean'))) return 0; // 伺服器相關的套件或函式無法使用，取消 if(strpos($HTTP_ACCEPT_ENCODING, 'gzip')!==false) return 'gzip'; return 0; } /* 封鎖 IP / Hostname / DNSBL 綜合性檢查 */ function BanIPHostDNSBLCheck($IP, $HOST, &$baninfo){ if(!BAN_CHECK) return false; // Disabled global $BANPATTERN, $DNSBLservers, $DNSBLWHlist; // IP/Hostname Check $HOST = strtolower($HOST); $checkTwice = ($IP != $HOST); // 是否需檢查第二次 $IsBanned = false; foreach($BANPATTERN as $pattern){ $slash = substr_count($pattern, '/'); if($slash==2){ // RegExp $pattern .= 'i'; }elseif($slash==1){ // CIDR Notation if(matchCIDR($IP, $pattern)){ $IsBanned = true; break; } continue; }elseif(strpos($pattern, '*')!==false || strpos($pattern, '?')!==false){ // Wildcard $pattern = '/^'.str_replace(array('.', '*', '?'), array('\.', '.*', '.?'), $pattern).'$/i'; }else{ // Full-text if($IP==$pattern || ($checkTwice && $HOST==strtolower($pattern))){ $IsBanned = true; break; } continue; } if(preg_match($pattern, $HOST) || ($checkTwice && preg_match($pattern, $IP))){ $IsBanned = true; break; } } if($IsBanned){ $baninfo = _T('ip_banned'); return true; } // DNS-based Blackhole List(DNSBL) 黑名單 if(!$DNSBLservers[0]) return false; // Skip check if(array_search($IP, $DNSBLWHlist)!==false) return false; // IP位置在白名單內 $rev = implode('.', array_reverse(explode('.', $IP))); $lastPoint = count($DNSBLservers) - 1; if($DNSBLservers[0] < $lastPoint) $lastPoint = $DNSBLservers[0]; $isListed = false; for($i = 1; $i <= $lastPoint; $i++){ $query = $rev.'.'.$DNSBLservers[$i].'.'; // FQDN $result = gethostbyname($query); if($result && ($result != $query)){ $isListed = $DNSBLservers[$i]; break; } } if($isListed){ $baninfo = _T('ip_dnsbl_banned',$isListed); return true; } return false; } function matchCIDR($addr, $cidr) { list($ip, $mask) = explode('/', $cidr); return (ip2long($addr) >> (32 - $mask) == ip2long($ip.str_repeat('.0', 3 - substr_count($ip, '.'))) >> (32 - $mask)); } /* 後端登入權限管理 */ function adminAuthenticate($mode){ @session_start(); $loginkey = md5($_SERVER['HTTP_USER_AGENT'].ADMIN_PASS.$_SERVER['REMOTE_ADDR']); switch($mode){ case 'logout': if(isset($_SESSION['pmcLogin'])) unset($_SESSION['pmcLogin']); return true; break; case 'login': $_SESSION['pmcLogin'] = $loginkey; break; case 'check': if(isset($_SESSION['pmcLogin']) && $_SESSION['pmcLogin']==$loginkey){ session_regenerate_id(true); // 更換 Session id key 避免 Hijacking return true; } return false; break; } } /* 取得 (Transparent) Proxy 提供之 IP 參數 */ function getREMOTE_ADDR(){ // 同時有 VIA 和 FORWARDED_FOR 較可能為 Proxy if(isset($_SERVER['HTTP_VIA']) && isset($_SERVER['HTTP_X_FORWARDED_FOR'])){ $tmp = preg_split('/[ ,]+/', $_SERVER['HTTP_X_FORWARDED_FOR']); // 防止 Squid "unknown" 問題，此種情況直接使用 REMOTE_ADDR return ($tmp[0] != 'unknown' ? $tmp[0] : $_SERVER['REMOTE_ADDR']); } return $_SERVER['REMOTE_ADDR']; } /* css style sheet */ function format_js_var($var_name){ return("'".$var_name."'"); } # Identifies APNGs # Written by Coda, functionified by Foone/Popcorn Mariachi#!9i78bPeIxI # This code is in the public domain # identify_apng returns: # true if the file is an APNG # false if it is any other sort of file (it is not checked for PNG validity) # takes on argument, a filename. /* APNG */ function identify_apng($filename){ global $apng; $img_bytes = file_get_contents($filename); if($img_bytes){ if(strpos(substr($img_bytes, 0, strpos($img_bytes, 'IDAT')), 'acTL') !== false){ return $apng = TRUE; // APNG } } return $apng = FALSE; // not APNG } /* total amount of ommited posts/images */ // suigintou v.3.0+ code function _res($posts, $images = 0){ $omitp = ($posts) ? sp(_T('notice_omitted_posts'), $posts) : false; $omiti = ($images) ? sp(_T('notice_omitted_images'), $images) : false; return($omitp.$omiti); } /* plural strings for ommited post messages */ function sp($string, $value, $shownull = false){ // Determine whether to show string for zero values if(!$value && $shownull || $value) $show = true; elseif(!$value && !$shownull) $show = false; else $show = $shownull; if($show) $string = str_replace('[#]', number_format($value), $string); else return(false); // Separate words from plural forms ereg('(.*)(\[)(.*)(\])(.*)', $string, $regs); $plu_word_s = $regs[1]; $plu_bits = $regs[3]; $plu_word_e = $regs[5]; if(strstr($plu_bits, '|')){ // To the left of the | is the single form; to the right, the plural form ereg('(.*)(\|)(.*)', $plu_bits, $regs); $single = $regs[1]; $plural = $regs[3]; }else{ // [|s] will work for words that should end in "s", but this bit handles [s] $single = ''; $plural = $plu_bits; } // Spit it out, Smith $plu_bit_d = ($value == -1 || $value == 1)?$single:$plural; $plu_word = $plu_word_s.$plu_bit_d.$plu_word_e; if($plu_word) return($plu_word); else return($string); } //++++---- //++++---- /* comment too long function */ // truncate $str to $config['LINE_NUMBER'] lines and return $str and $abbr // where $abbr = whether or not $str was actually truncated function abbreviate($str, $max_lines){ $lines = explode("
", $str); if(count($lines) > $max_lines){ $abbr = 1; $lines = array_slice($lines, 0, $max_lines); $str = implode("
", $lines); }else $abbr = 0; // close spans after abbreviating // XXX will not work with more html - use abbreviate_html from shiichan $str .= str_repeat("", substr_count($str, "