Go to most recent revision | 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_select 來取得兩個程序的輸出....#給 stream select 的 read msg monitor$stream_r=array("serverStdOut"=>$serverStdOut,"serverErrOut"=>$serverErrOut,"clientStdOut"=>$clientStdOut,"clientErrOut"=>$clientErrOut);#debug#var_dump(__LINE__,$stream_r);exit;#複製一份,避免被 stream_select 異動到原始的 stream$stream_r_select=$stream_r;#給 stream select 的 write msg monitor$stream_w=null;#給 steam select 的 unexpect msg monitor$stream_e=null;#無窮迴圈while(true){#取得有異動的 stream$EventCount=stream_select($stream_r_select,$stream_w,$stream_e,5);#如果沒有異動的 streamif($EventCount===0){#用 "." 代表 idle,沒有異動.echo ".";}#if end#如果有異動的 streamif(in_array($stream_r_select,$stream_r)){#針對每個 streamforeach($stream_r_select as $key => $stream){#debugvar_dump(__LINE__,$stream);#如果有內容尚未讀取while(!eof($stream)){#取得訊息字串$string=fread($stream,2048);#$serverLogHead#$clientLogHead#判斷來源switch($key){#如果是伺服端的標準輸出case "serverStdOut":#如果是伺服端的錯誤輸出case "serverErrOut":#印出訊息echo $serverLogHead.":".$string.PHP_EOL;break;#如果是用戶的標準士輸出case "clientStdOut":#如果是用戶的錯誤輸出case "clientErrOut":#印出訊息echo $clientLogHead.":".$string.PHP_EOL;break;#其他不支援的 keydefault:#debugecho "unsupported key:".$key.PHP_EOL;#結束執行,回傳shell 1.exit(1);}#switch end}#while end}#foreach end}#if end}#while end/*#若程序運行中,就不斷執行while($proc["content"][0]["statusCode"]==="?"){#更新程序狀況#函式說明:#更新透過proc執行的多程序資訊.#回傳結果:#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.#$reuslt["error"],執行不正常結束的錯訊息陣列.#$result["function"],當前執行的函式名稱.#$result["argu"],使用的參數.#$result["content"],陣列,每個元素為其指令執行的結果訊息陣列,key為"status"代表執行是否正常的識別;key為"statusCode"代表程式結束後回傳給對應executeBy程式的數值,若為"?"則代表程序尚未結束,可透過proc_update函式進行資訊的更新與取得;key為"output"代表標準輸出,若為resource,則代表為pipe;key為"error"代表非標準輸出,若為resource,則代表為pipe;key為"input"代表成功輸入的指令;key為"process"代表該程序經proc_open後的process source;key為"proc_get_status"代表程序的資訊.#必填參數:#$conf["procs"],陣列,運行self::proc後回傳的content.$conf["procs"]=$proc["content"];#可省略參數:#無.#參考資料:#無.#備註:#無.$proc_update=threads::proc_update($conf);unset($conf);#如果執行異常if($proc_update["status"]==="false"){#debugvar_dump($proc_update);#結束執行,回傳shell 1.exit(1);}#if end#更新程序狀態$proc["content"]=$proc_update["content"];}#if end#如果client最終運行異常if($proc["content"][0]["statusCode"]!==0){#debugvar_dump($proc);#結束執行,回傳shell 1.exit(1);}#if end#debugvar_dump($proc);*/?>