Subversion Repositories php-qbpwcf

<?php

/*

        QBPWCF, Quick Build PHP website Component base on Fedora Linux.
    Copyright (C) 2014~2026 MIN ZHI, CHEN

    This file is part of QBPWCF.

    QBPWCF is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.

    QBPWCF is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with QBPWCF.  If not, see <http://www.gnu.org/licenses/>.

*/

#使用命名空間qbpwcf
namespace qbpwcf;

#初始化輸出
$output=array();

#取得 lib path
exec("php -f ".escapeshellarg(pathinfo(__FILE__)["dirname"]."/../../../../bin/libexec/folderOfUsrLib.php"),$output,$status);

#如果執行失敗
if($status!==0){

        #debug
        var_dump(__LINE__,$output);

        #結束執行,回傳shell 1.
        exit(1);

        }#if end

#儲存lib path
$folderOfUsrLib=$output[0];

#初始化輸出
$output=array();

#以該檔案的實際位置的 lib path 為 include path 首位
exec("cd ".escapeshellarg(pathinfo(__FILE__)["dirname"]."/../../../../".$folderOfUsrLib."/qbpwcf").";pwd;",$output,$status);
set_include_path($output[0].PATH_SEPARATOR.get_include_path());

#匯入套件
require_once("allInOne.php");

#建議的log位置
$logFile=$_SERVER["DOCUMENT_ROOT"].$_SERVER["PHP_SELF"].".log";

#無窮迴圈
while(true){

        #函式說明:
        #一次取得純文字檔案的內容.
        #回傳結果:
        #$result["status"],"true"代表移除成功,"false"代表移除失敗.
        #$result["error"],錯誤訊息陣列.
        #$result["function"],當前執行的函數名稱.
        #$result["cmd"],執行的指令.
        #$result["content"],取得的檔案內容,若沒有內容則為null,反之為字串.
        #$result["length"],取得的內容長度.
        #$result["EOF"],識別是否已經到檔案結尾,"true"代表是,"false"代表不是.
        #$result["nextLine"],整數,下一行的行號,亦即下次來讀取下一行時,lineStart參數要給予的數值.
        #$result["fileSize"],整數,檔案的大小,用於下次來讀取下一行時,preFileSize參數要給予的數值.
        #必填參數:
        #$conf["file"],字串,檔案的路徑與名稱.
        $conf["file"]="ssl_access_log";
        #可省略參數:
        
        #如果有 $lineStart
        if(isset($lineStart)){
        
                #$conf["lineStart"],整數,要從第幾行開始,起始點為1.
                $conf["lineStart"]=$lineStart;
        
                }#if end
        
        #如果有 preFileSize 
        if(isset($preFileSize)){
        
                #$conf["preFileSize"],整數,上次透過本函式取得的fileSize結果,用於確認檔案是否有被rotate過,預設不設置.
                $conf["preFileSize"]=$preFileSize;
        
                }#if end
        
        #可省略參數:
        #無
        #參考資料:
        #無.
        #備註:
        #無
        $getTextFilePart=fileAccess::getTextFilePart($conf);
        
        #取得當前讀取的行號.
        $lineNo=$conf["lineStart"];
        
        #卸除變數,避免後續引用錯誤.
        unset($conf);
        
        #如果執行異常
        if($getTextFilePart["status"]==="false"){
        
                #debug
                var_dump($getTextFilePart);
                
                #結束執行並回傳 shell 1
                exit(1);
        
                }#if end
                
        #取得下次要取得的行號
        $lineStart=$getTextFilePart["nextLine"];
        
        #取得檔案的大小
        $preFileSize=(int)$getTextFilePart["fileSize"];
        
        #如果沒有內容
        if(!isset($getTextFilePart["content"])){
        
                #跳出 while loop
                break;
        
                }#if end
        
        #取得行內容
        $lineContent=$getTextFilePart["content"];
        
        #取得目前的記憶體使用狀況
        $memoeryUsage=\memory_get_usage();
        
        #提示取得的內容與記憶體使用狀況
        echo "memUsage:".$memoeryUsage." lineNo:".$lineNo." "."content:".$lineContent;

        #如果已經到檔案結尾了
        if($getTextFilePart["EOF"]==="true"){
        
                #跳出 while loop
                break;
        
                }#if end
        
        }#while end

?>