Rev 368 | Blame | Compare with Previous | Last modification | View Log | RSS feed
<?php/*QBPWCF, Quick Build PHP website Component base on Fedora Linux.Copyright (C) 2014~2026 MIN ZHI, CHENThis file is part of QBPWCF.QBPWCF is free software: you can redistribute it and/or modifyit under the terms of the GNU General Public License as published bythe 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 ofMERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See theGNU General Public License for more details.You should have received a copy of the GNU General Public Licensealong with QBPWCF. If not, see <http://www.gnu.org/licenses/>.*/#使用命名空間qbpwcfnamespace qbpwcf;#assets dir$assetsDir="assets of resource::server_20260604-1";#server 端的指令$server_cmd=array("php -f server.php");#clent 端的指令$client_cmd=array("php -f client.php");#working dir$workingDir=pathinfo(__FILE__)["dirname"]."/../".$assetsDir;#server端log的開頭識別$serverLogHead="server:";#client端log的開頭識別$clientLogHead="client:";#先執行 server 端,再執行 client 端.#運行server端程式#函式說明:#透過proc來多執行序運作.#回傳結果:#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.#$reuslt["error"],執行不正常結束的錯訊息陣列.#$result["function"],當前執行的函式名稱.#$result["argu"],使用的參數.#$result["content"],陣列,每個元素為其指令執行的結果訊息陣列,key為"status"代表執行是否正常的識別;key為"statusCode"代表程式結束後回傳給對應executeBy程式的數值,若為"?"則代表程序尚未結束,若為整數0,則代表順利執行結束,可透過proc_update函式進行資訊的更新與取得;key為"content"代表標準輸出,若為resource,則代表為pipe;key為"error"代表非標準輸出,若為resource,則代表為pipe;key為"input"代表成功輸入的指令;key為"process"代表該程序經proc_open後的process source;key為"proc_get_status"代表程序的資訊.#必填參數:#$conf["cmds"],字串陣列,每個元素代表單一程序要執行的指令與參數.$conf["cmds"]=$server_cmd;#可省略參數:#$conf["wait"],字串,是否需要等待所有程序結束,預設為"true"要等待;反之為"false"不要等待.$conf["wait"]="false";#$conf["timeout"],字串陣列,每個元素代表單一程序執行的最大等待秒數,超過後將會強迫停止執行,僅當wait參數為"true"時生效.#$conf["timeout"]=array("10");#$conf["workingDir"],字串陣列,個別程式執行時的家目錄,預設不指定.$conf["workingDir"]=array($workingDir);#$conf["envs"],2維字串陣列,每個元素代表個別程式執行時的指定環境變數,key變數名稱;value為變數內容.預設為array("QBPWCF" => "Quick Build PHP Website Componment base on Fedora Linux");#$conf["envs"]=array(array("key"=>"value"));#$conf["executeBy"],字串陣列,每個元素代表個別指令要用什麼程式執行,預設為"bash".#$conf["executeBy"]=array("bash");#參考資料:#https://www.php.net/manual/en/function.proc-open.php#https://www.php.net/manual/en/function.proc-get-status.php#https://www.php.net/manual/en/function.proc-terminate.php#備註:#當wait參數為"true"時,會自動解析stdout與stderr,因此不用再透過 self::proc_update 來更新.#當wait參數不為"true"時,若需要取得當下的執行狀況,請使用 self::proc_update 來更新.$proc_s=threads::proc($conf);unset($conf);#如果執行異常if($proc_s["status"]==="false"){#debugvar_dump($proc_s);#結束執行,回傳shell 1.exit(1);}#if end#如果程序不是持續運行中if($proc_s["content"][0]["statusCode"]!=="?"){#debugvar_dump($proc_s);#結束執行,回傳shell 1.exit(1);}#if end#取得 server.php 的標準輸出$serverStdOut=&$proc_s["content"][0]["content"];#取得 server.php 的錯誤輸出$serverErrOut=&$proc_s["content"][0]["error"];#提示 server 運行中且提供 pidecho $serverLogHead."server(pid:".$proc_s["content"][0]["proc_get_status"]["pid"].") is running....".PHP_EOL;#debug#var_dump(__LINE__,$serverStdOut,$serverErrOut);exit;#運行client端程式#函式說明:#透過proc來多執行序運作.#回傳結果:#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.#$reuslt["error"],執行不正常結束的錯訊息陣列.#$result["function"],當前執行的函式名稱.#$result["argu"],使用的參數.#$result["content"],陣列,每個元素為其指令執行的結果訊息陣列,key為"status"代表執行是否正常的識別;key為"statusCode"代表程式結束後回傳給對應executeBy程式的數值,若為"?"則代表程序尚未結束,若為整數0,則代表順利執行結束,可透過proc_update函式進行資訊的更新與取得;key為"content"代表標準輸出,若為resource,則代表為pipe;key為"error"代表非標準輸出,若為resource,則代表為pipe;key為"input"代表成功輸入的指令;key為"process"代表該程序經proc_open後的process source;key為"proc_get_status"代表程序的資訊.#必填參數:#$conf["cmds"],字串陣列,每個元素代表單一程序要執行的指令與參數.$conf["cmds"]=$client_cmd;#可省略參數:#$conf["wait"],字串,是否需要等待所有程序結束,預設為"true"要等待;反之為"false"不要等待.$conf["wait"]="false";#$conf["timeout"],字串陣列,每個元素代表單一程序執行的最大等待秒數,超過後將會強迫停止執行,僅當wait參數為"true"時生效.#$conf["timeout"]=array("10");#$conf["workingDir"],字串陣列,個別程式執行時的家目錄,預設不指定.$conf["workingDir"]=array($workingDir);#$conf["envs"],2維字串陣列,每個元素代表個別程式執行時的指定環境變數,key變數名稱;value為變數內容.預設為array("QBPWCF" => "Quick Build PHP Website Componment base on Fedora Linux");#$conf["envs"]=array(array("key"=>"value"));#$conf["executeBy"],字串陣列,每個元素代表個別指令要用什麼程式執行,預設為"bash".#$conf["executeBy"]=array("bash");#參考資料:#https://www.php.net/manual/en/function.proc-open.php#https://www.php.net/manual/en/function.proc-get-status.php#https://www.php.net/manual/en/function.proc-terminate.php#備註:#當wait參數為"true"時,會自動解析stdout與stderr,因此不用再透過 self::proc_update 來更新.#當wait參數不為"true"時,若需要取得當下的執行狀況,請使用 self::proc_update 來更新.$proc_c=threads::proc($conf);unset($conf);#如果執行異常if($proc_c["status"]==="false"){#debugvar_dump($proc_c);#結束執行,回傳shell 1.exit(1);}#if end#取得 client.php 的標準輸出$clientStdOut=&$proc_c["content"][0]["content"];#取得 client.php 的錯誤輸出$clientErrOut=&$proc_c["content"][0]["error"];#提示 client 運行中且提供 pidecho $clientLogHead."client(pid:".$proc_c["content"][0]["proc_get_status"]["pid"].") is running....".PHP_EOL;#設置要監控的 stream 陣列資訊$stream_r=array();$stream_r["serverStdOut"]=array();$stream_r["serverStdOut"]["stream"]=$serverStdOut;$stream_r["serverStdOut"]["alive"]=true;$stream_r["serverErrOut"]=array();$stream_r["serverErrOut"]["stream"]=$serverErrOut;$stream_r["serverErrOut"]["alive"]=true;$stream_r["clientStdOut"]=array();$stream_r["clientStdOut"]["stream"]=$clientStdOut;$stream_r["clientStdOut"]["alive"]=true;$stream_r["clientErrOut"]=array();$stream_r["clientErrOut"]["stream"]=$clientErrOut;$stream_r["clientErrOut"]["alive"]=true;#設置預設下個訊息開頭不要換行$eolAtStart=false;#無窮迴圈while(true){#針對每個 streamforeach($stream_r as $name=>$info){#如果通道是開啟的if($info["alive"]){#確認是否尚未關閉if(!feof($info["stream"])){#讀取訊息$msg=fread($info["stream"],2048);#如果有訊息if(!empty($msg)){#如果開頭要換行if($eolAtStart){#輸出換行符號echo PHP_EOL;#設置下個訊息開頭不用換行的識別$eolAtStart=false;}#if end#echo message.echo $name.":".$msg.PHP_EOL;}#if end}#if end#反之else{#設置通道已經關閉的識別$stream_r[$name]["alive"]=false;#如果開頭要換行if($eolAtStart){#輸出換行符號echo PHP_EOL;#設置下個訊息開頭不用換行的識別$eolAtStart=false;}#if end#提示 server 訊息通道已經關閉echo $name.":channel closed".PHP_EOL;}#else end}#if end#反之else{#移除已經掰掰的通道unset($stream_r[$name]);}#else end}#foreach end#如果已經沒有要監控的通道存在if(empty($stream_r)){#跳出 whilebreak;}#if end#提示沒有訊息echo ".";#設置下個訊息開頭要換行$eolAtStart=true;#休息1秒鐘sleep(1);}#while end#break pointexit;?>