WebSVN – php-qbpwcf – Diff – /trunk/usr/lib64/qbpwcf/csInformation.php



<?php
 
/*
 
	QBPWCF, Quick Build PHP website Component base on Fedora Linux.
    Copyright (C) 2014~2025 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

		#解析PHP檔案裡面的變數.
		#回傳結果:
		#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.
		#$result["error"],錯誤訊息.
		#$result["function"],當前執行的函數名稱.
		#$result["argu"],所使用的參數.
		#$result["content"],找到的變數內容陣列.
		#$result["content"]["value"],依找到變數順序的數值.
		#$result["content"]["struc"],依找到變數順序的階層結構.
		#$result["content"]["direct"],變數名稱對應的數值內容.
		#必填參數:

 
			}#if end
 
		#如果myIp變數有設定
		if(isset($parseVaraiableInPHPfile["content"]["myIp"])){
 
			#如果內容不為空字串
			if($parseVaraiableInPHPfile["content"]["myIp"][0]!==""){
 
				#取得伺服器對外的IP
				$result["content"]=array($parseVaraiableInPHPfile["content"]["myIp"][0]);
 
				#設置執行正常
				$result["status"]="true";
 
				#回傳結果
				return $result;
 
				}#if end
 
			}#if end
 
		#預設用於取得自己對外ip的服務網址
		$getIpUrl="https://ip.qbpwcf.org";
 
		#如果變數getIpUrl有設定
		if(isset($parseVaraiableInPHPfile["content"]["getIpUrl"])){
 
			#如果內容不為空字串
			if($parseVaraiableInPHPfile["content"]["getIpUrl"][0]!==""){
 
				#更新 getIpUrl
				$getIpUrl=$parseVaraiableInPHPfile["content"]["getIpUrl"][0];
 
				}#if end
 
			}#if end
 
		#函式說明:
		#運行curl cmd
		#回傳結果:

			#如果是 "pathOnly"
			case "pathOnly":
 
				#如果是網頁環境
				if($getConnectionInfo["mode"]==="web"){
 
					#用 當前檔案的名稱 來分割目前檔案的完整路徑
					#函式說明:
					#將固定格式的字串分開，並回傳分開的結果。
					#回傳的參數:
					#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.

					#設置執行正常
					$result["status"]="true";
 
					#回傳結果
					return $result;
 
					}#if end
 
				#反之如果是 cmd 環境
				else if($getConnectionInfo["mode"]==="cmd"){
 
					#函式說明:
					#將字串特定關鍵字與其後面的內容剔除
					#回傳結果:
					#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.
					#$result["error"],錯誤訊息陣列.

					#無.
					#備註:
					#無.
					$delStrAfterKeyWord=stringProcess::delStrAfterKeyWord($conf["stringProcess::delStrAfterKeyWord"]);
					unset($conf["stringProcess::delStrAfterKeyWord"]);
 
					#如果執行失敗
					if($delStrAfterKeyWord["status"]==="false"){
 
						#設置執行失敗
						$result["status"]="false";
 
						#設置執行錯誤訊息
						$result["error"]=$delStrAfterKeyWord;
 
						#回傳結果
						return $result;
 
						}#if end
 
					#如果沒有應該要有的檔案名稱
					if($delStrAfterKeyWord["founded"]==="false"){
 
						#設置執行失敗
						$result["status"]="false";
 
						#設置執行錯誤訊息
						$result["error"]=$delStrAfterKeyWord;
 
						#回傳結果
						return $result;
 
						}#if end
 
					#取得不包含檔案名稱的路徑
					$result["content"]=$delStrAfterKeyWord["content"];
 
					#設置執行正常
					$result["status"]="true";
 
					#回傳結果
					return $result;
 
					}#if end
 
				#打斷switch
				break;
 

 
					#取得上層目錄的名稱
					$result["content"]=basename((dirname($getConnectionInfo["requestUri"])));
 
					}#if end
 
				#反之如果是 cmd 環境
				else if($result["mode"]==="cmd"){
 
					#取得callback用的參數
					$conf["csInformation::getPathOfThisPhpFile"]=$confForCallback;
 
					#改取得路徑就好
					$conf["csInformation::getPathOfThisPhpFile"]["type"]="pathOnly";
 
					/*
					#函式說明:
					#取得目前瀏覽的頁面的路徑或執行的php程式路徑.
					#回傳結果:
					#$result["status"],執行是否正常,"true"代表執行成功,"false"代表執行失敗.

					#備註:
					#無.
					*/
					$getPathOfThisPhpFile=csInformation::getPathOfThisPhpFile($conf["csInformation::getPathOfThisPhpFile"]);
					unset($conf["csInformation::getPathOfThisPhpFile"]);
 
					#如果執行失敗
					if($getPathOfThisPhpFile["status"]==="false"){
 
						#設置執行失敗
						$result["status"]="false";
 
						#設置執行錯誤訊息
						$result["error"]=$getPathOfThisPhpFile;
 
						#回傳結果
						return $result;
 
						}#if end
 
					#取得路徑
					#$getPathOfThisPhpFile["content"];
 
					#函式說明:
					#將固定格式的字串分開,並回傳分開的結果.
					#回傳結果:
					#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.
					#$result["error"],錯誤訊息陣列

					#無.
					#備註:
					#無.
					$spiltString=stringProcess::spiltString($conf["stringProcess::spiltString"]);
					unset($conf["stringProcess::spiltString"]);
 
					#如果執行失敗
					if($spiltString["status"]==="false"){
 
						#設置執行失敗
						$result["status"]="false";
 
						#設置執行錯誤訊息
						$result["error"]=$spiltString;
 
						#回傳結果
						return $result;
 
						}#if end
 
					#如果沒有"/"存在
					if($spiltString["found"]==="false"){
 
						#設置執行失敗
						$result["status"]="false";
 
						#設置執行錯誤訊息
						$result["error"]=$spiltString;
 
						#回傳結果
						return $result;
 
						}#if end
 
					#如果沒有分出結果
					if($spiltString["dataCounts"]===0){
 
						#設置上層目錄的名稱為"/"
						$result["content"]="/";
 
						#設置執行正常
						$result["status"]="true";
 
						#回傳結果
						return $result;
 
						}#if end
 
					#反之
					else{
 
						#取得上層目錄的索引
						$lastLayerIndex=$spiltString["dataCounts"]-1;
 
						#取得上層目錄
						$result["content"]=$spiltString["dataArray"][$lastLayerIndex];
 
						#設置執行正常
						$result["status"]="true";
 
						#回傳結果
						return $result;
 
						}#if end
 
					}#if end
 
				#反之為異常結果
				else{
 
					#設置執行不正常
					$result["status"]="false";
 
					#設置錯誤訊息
					$result["error"][]="無法判別環境為web還是cmd";

					#設置錯誤訊息
					$result["error"][]=$getConnectionInfo;
 
					#回傳結果
					return $result;
 
					}#else end
 
				#設置執行正常
				$result["status"]="true";
 

 
			}#else end
 
		#預設使用該php程式的使用者帳號
		$result["phpUser"]="apache";
 
		#嘗試從系統變數取得使用者名稱
		#函式說明:
		#呼叫shell執行系統命令,並取得回傳的內容.
		#回傳結果:
		#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.

		#備註:
		#不是所有指令都能用apache的身份執行,目前已知java,javac指令無法執行,使用root身份可能會被selinux阻擋.
		#若使用的 command、argu 參數，含有 ~ 則會被視為字串，若有需要其於 shell 中代表的家目錄位置，可用 fileAccess::tildeToPath 來進行轉換.
		$callShell=external::callShell($conf["external::callShell"]);
		unset($conf["external::callShell"]);
 
		#如果執行失敗
		if($callShell["status"]==="false"){
 
			#設置執行失敗
			$result["status"]="false";
 
			#設置執行錯誤訊息
			$result["error"]=$callShell;
 
			#回傳結果
			return $result;
 
			}#if end
 
		#函式說明:
		#檢查多個字串中的每個字串是否有多個關鍵字
		#回傳結果:
		#$result["status"],整體來說，執行是否成功，"true"代表執行成功，"false"代表執行失敗。
		#$result["function"],當前執行的函數名稱.

		#無.
		#備註:
		#無.
		$findManyKeyWordsFromManyString=search::findManyKeyWordsFromManyString($conf["search::findManyKeyWordsFromManyString"]);
		unset($conf["search::findManyKeyWordsFromManyString"]);
 
		#debug
		#var_dump(__LINE__,$findManyKeyWordsFromManyString);
 
		#如果執行不正常
		if($findManyKeyWordsFromManyString["status"]==="false"){
 
			#設置執行失敗
			$result["status"]="false";
 
			#設置執行錯誤訊息
			$result["error"]=$findManyKeyWordsFromManyString;
 
			#回傳結果
			return $result;
 
			}#if end
 
		#針對每個有找到關鍵字的來源字串
		foreach($findManyKeyWordsFromManyString["keyWordsIncludeStr"] as $keyWordsIncludeStr){
 
			#如果有多個關鍵字
			if(count($keyWordsIncludeStr["keyWords"])>1){
 
				#跳過
				continue;
 
				}#if end
 
			#解析使用者名稱
			#函式說明:
			#將字串特定關鍵字與其前面的內容剔除
			#回傳結果:
			#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.

			#$result["warning"],警告訊息鎮列.
			#$result["founded"],有無找到定字串"true"代表有,"false"代表沒有.
			#$result["function"],當前執行的函數名稱.
			#$result["argu"],使用的參數.
			#$result["oriStr"],要處理的原始字串內容.
			#$result["content"],處理好的的字串內容.
			#必填參數:
			#$conf["stringIn"],字串,要處理的字串.
			$conf["stringProcess::delStrBeforeKeyWord"]["stringIn"]=$keyWordsIncludeStr["sourceVal"];
			#$conf["keyWord"],字串,特定字串.
			$conf["stringProcess::delStrBeforeKeyWord"]["keyWord"]=$keyWordsIncludeStr["keyWords"][0];

			#無.
			#備註:
			#無.
			$delStrBeforeKeyWord=stringProcess::delStrBeforeKeyWord($conf["stringProcess::delStrBeforeKeyWord"]);
			unset($conf["stringProcess::delStrBeforeKeyWord"]);
 
			#debug
			#var_dump(__LINE__,$delStrBeforeKeyWord);
 
			#如果執行不正常
			if($delStrBeforeKeyWord["status"]==="false"){
 
				#設置執行失敗
				$result["status"]="false";
 
				#設置執行錯誤訊息
				$result["error"]=$delStrBeforeKeyWord;
 
				#回傳結果
				return $result;
 
				}#if end
 
			#如果沒有關鍵字
			if($delStrBeforeKeyWord["founded"]==="false"){
 
				#設置執行失敗
				$result["status"]="false";
 
				#設置執行錯誤訊息
				$result["error"]=$delStrBeforeKeyWord;
 
				#回傳結果
				return $result;
 
				}#if end
 
			#如果不是空字串
			if(!empty($delStrBeforeKeyWord["content"])){
 
				#取得使用者名稱
				$result["phpUser"]=basename($delStrBeforeKeyWord["content"]);
 
				#結束 foreach
				break;
 
				}#if end
 
			}#foreach end
 
		#如果 $_SERVER['HTTP_USER_AGENT'] 存在
		if(isset($_SERVER['HTTP_USER_AGENT'])){
 
			#var_dump($_SERVER["DOCUMENT_ROOT"]);
 

			#預設為空字串,代表非使用者直接觸發
			$result["phpUser"]="";
 
			#如果有 LOGNAME 存在
			if(isset($_SERVER["LOGNAME"])){
 
				#取得使用該php程式的使用者帳號
				$result["phpUser"]=$_SERVER["LOGNAME"];
 
				}#if end
 
			#反之
			else{
 
				/*
				LOGNAME=liveuser
				USERNAME=liveuser
				USER=liveuser
				*/
 
				#嘗試從系統變數取得使用者名稱
				#函式說明:
				#呼叫shell執行系統命令,並取得回傳的內容.
				#回傳結果:
				#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.

				#備註:
				#不是所有指令都能用apache的身份執行,目前已知java,javac指令無法執行,使用root身份可能會被selinux阻擋.
				#若使用的 command、argu 參數，含有 ~ 則會被視為字串，若有需要其於 shell 中代表的家目錄位置，可用 fileAccess::tildeToPath 來進行轉換.
				$callShell=external::callShell($conf["external::callShell"]);
				unset($conf["external::callShell"]);
 
				#如果執行失敗
				if($callShell["status"]==="false"){
 
					#設置執行失敗
					$result["status"]="false";
 
					#設置執行錯誤訊息
					$result["error"]=$callShell;
 
					#回傳結果
					return $result;
 
					}#if end
 
				#函式說明:
				#檢查多個字串中的每個字串是否有多個關鍵字
				#回傳結果:
				#$result["status"],整體來說，執行是否成功，"true"代表執行成功，"false"代表執行失敗。
				#$result["function"],當前執行的函數名稱.

				#無.
				#備註:
				#無.
				$findManyKeyWordsFromManyString=search::findManyKeyWordsFromManyString($conf["search::findManyKeyWordsFromManyString"]);
				unset($conf["search::findManyKeyWordsFromManyString"]);
 
				#debug
				#var_dump(__LINE__,$findManyKeyWordsFromManyString);
 
				#如果執行不正常
				if($findManyKeyWordsFromManyString["status"]==="false"){
 
					#設置執行失敗
					$result["status"]="false";
 
					#設置執行錯誤訊息
					$result["error"]=$findManyKeyWordsFromManyString;
 
					#回傳結果
					return $result;
 
					}#if end
 
				#針對每個有找到關鍵字的來源字串
				foreach($findManyKeyWordsFromManyString["keyWordsIncludeStr"] as $keyWordsIncludeStr){
 
					#如果有多個關鍵字
					if(count($keyWordsIncludeStr["keyWords"])>1){
 
						#跳過
						continue;
 
						}#if end
 
					#解析使用者名稱
					#函式說明:
					#將字串特定關鍵字與其前面的內容剔除
					#回傳結果:
					#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.

					#$result["warning"],警告訊息鎮列.
					#$result["founded"],有無找到定字串"true"代表有,"false"代表沒有.
					#$result["function"],當前執行的函數名稱.
					#$result["argu"],使用的參數.
					#$result["oriStr"],要處理的原始字串內容.
					#$result["content"],處理好的的字串內容.
					#必填參數:
					#$conf["stringIn"],字串,要處理的字串.
					$conf["stringProcess::delStrBeforeKeyWord"]["stringIn"]=$keyWordsIncludeStr["sourceVal"];
					#$conf["keyWord"],字串,特定字串.
					$conf["stringProcess::delStrBeforeKeyWord"]["keyWord"]=$keyWordsIncludeStr["keyWords"][0];

					#無.
					#備註:
					#無.
					$delStrBeforeKeyWord=stringProcess::delStrBeforeKeyWord($conf["stringProcess::delStrBeforeKeyWord"]);
					unset($conf["stringProcess::delStrBeforeKeyWord"]);
 
					#debug
					#var_dump(__LINE__,$delStrBeforeKeyWord);
 
					#如果執行不正常
					if($delStrBeforeKeyWord["status"]==="false"){
 
						#設置執行失敗
						$result["status"]="false";
 
						#設置執行錯誤訊息
						$result["error"]=$delStrBeforeKeyWord;
 
						#回傳結果
						return $result;
 
						}#if end
 
					#如果沒有關鍵字
					if($delStrBeforeKeyWord["founded"]==="false"){
 
						#設置執行失敗
						$result["status"]="false";
 
						#設置執行錯誤訊息
						$result["error"]=$delStrBeforeKeyWord;
 
						#回傳結果
						return $result;
 
						}#if end
 
					#如果不是空字串
					if(!empty($delStrBeforeKeyWord["content"])){
 
						#取得使用者名稱
						$result["phpUser"]=basename($delStrBeforeKeyWord["content"]);
 
						#結束 foreach
						break;
 
						}#if end
 
					}#foreach end
 
				#debug
				#var_dump(__LINE__,$result);
 
				}#else
 
			#預設的使用者類型為 "regular"
			$result["phpUserType"]="regular";
 
			#判斷使用者是否為管理者賬戶 - start
 
			#如果有抓到使用者名稱
			if(!empty($result["phpUser"])){
 
				#如果是 root 賬號
				if($result["phpUser"]==="root"){
 
					#設置 phpUserType 為 intrinsic
					$result["phpUserType"]="intrinsic";
 
					}#if end
 
				#反之
				else{
 
					#函式說明:
					#呼叫shell執行系統命令,並取得回傳的內容.
					#回傳結果:
					#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.
					#$result["error"],錯誤訊息陣列.

					#備註:
					#不是所有指令都能用apache的身份執行,目前已知java,javac指令無法執行,使用root身份可能會被selinux阻擋.
					#若使用的 command、argu 參數，含有 ~ 則會被視為字串，若有需要其於 shell 中代表的家目錄位置，可用 fileAccess::tildeToPath 來進行轉換.
					$callShell=external::callShell($conf["external::callShell"]);
					unset($conf["external::callShell"]);
 
					#如果執行失敗
					if($callShell["status"]==="false"){
 
						#設置執行失敗
						$result["status"]="false";
 
						#設置錯誤訊息
						$result["error"]=$callShell;
 
						#回傳結果
						return $result;
 
						}#if end
 
					#範例輸出
					#   User name: liveuser
					# Disposition: regular
					# Last Passw.: Fri 2023-09-22 08:00:00 CST
					#    Login OK: yes

					#       Shell: /bin/bash
					# Passwd Chg.: max 273y 9month 1w 4d 19h 30min/warn 1w
					#Pas. Ch. Now: no
					#   Passwords: 1
					#     Service: io.systemd.NameServiceSwitch
 
					#DISPOSITION 為 intrinsic 者代表為系統賬戶 root
					#DISPOSITION 為 system 者代表為系統賬戶
					#DISPOSITION 為 regular 者代表為一般賬戶
					#一般賬戶的 Aux. Groups 清單若有 wheel 存在,則代表要透過sudo來執行給予系統賬戶權限
 
					#函式說明:
					#檢查多個字串中的每個字串是否有多個關鍵字
					#回傳結果:
					#$result["status"],整體來說，執行是否成功，"true"代表執行成功，"false"代表執行失敗。
					#$result["function"],當前執行的函數名稱.

					#無.
					#備註:
					#無.
					$findManyKeyWordsFromManyString=search::findManyKeyWordsFromManyString($conf["search::findManyKeyWordsFromManyString"]);
					unset($conf["search::findManyKeyWordsFromManyString"]);
 
					#如果執行失敗
					if($findManyKeyWordsFromManyString["status"]==="false"){
 
						#設置執行失敗
						$result["status"]="false";
 
						#設置錯誤訊息
						$result["error"]=$findManyKeyWordsFromManyString;
 
						#回傳結果
						return $result;
 
						}#if end
 
					#如果沒有關鍵字
					if($findManyKeyWordsFromManyString["foundedAll"]==="false"){
 
						#設置執行失敗
						$result["status"]="false";
 
						#設置錯誤訊息
						$result["error"]=$findManyKeyWordsFromManyString;
 
						#回傳結果
						return $result;
 
						}#if end
 
					#針對每個找到的結果
					foreach($findManyKeyWordsFromManyString["foundedTrueKey"] as $strWithKeyWord){
 
						#函式說明:
						#將字串特定關鍵字與其前面的內容剔除
						#回傳結果:
						#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.
						#$result["error"],錯誤訊息陣列.
						#$result["warning"],警告訊息鎮列.
						#$result["founded"],有無找到定字串"true"代表有,"false"代表沒有.
						#$result["function"],當前執行的函數名稱.
						#$result["argu"],使用的參數.
						#$result["oriStr"],要處理的原始字串內容.
						#$result["content"],處理好的的字串內容.
						#必填參數:
						#$conf["stringIn"],字串,要處理的字串.
						$conf["stringProcess::delStrBeforeKeyWord"]["stringIn"]=$strWithKeyWord;
						#$conf["keyWord"],字串,特定字串.
						$conf["stringProcess::delStrBeforeKeyWord"]["keyWord"]="Disposition: ";

						#無.
						#備註:
						#無.
						$delStrBeforeKeyWord=stringProcess::delStrBeforeKeyWord($conf["stringProcess::delStrBeforeKeyWord"]);
						unset($conf["stringProcess::delStrBeforeKeyWord"]);
 
						#如果執行失敗
						if($delStrBeforeKeyWord["status"]==="false"){
 
							#設置執行失敗
							$result["status"]="false";
 
							#設置錯誤訊息
							$result["error"]=$delStrBeforeKeyWord;
 
							#回傳結果
							return $result;
 
							}#if end
 
						#如果應該要存在的關鍵字不存在
						if($delStrBeforeKeyWord["founded"]==="false"){
 
							#設置執行失敗
							$result["status"]="false";
 
							#設置錯誤訊息
							$result["error"]=$delStrBeforeKeyWord;
 
							#回傳結果
							return $result;
 
							}#if end
 
						#判斷賬戶類型
						switch($delStrBeforeKeyWord["content"]){
 
							#若是 root
							case "intrinsic":
 
								break;
 
							#若是系統賬戶
							case "system";
 
								break;
 
							#若是一般使用者
							case "regular";
 
								#函式說明:
								#檢查多個字串中的每個字串是否有多個關鍵字
								#回傳結果:
								#$result["status"],整體來說，執行是否成功，"true"代表執行成功，"false"代表執行失敗。
								#$result["function"],當前執行的函數名稱.

								#無.
								#備註:
								#無.
								$findManyKeyWordsFromManyString=search::findManyKeyWordsFromManyString($conf["search::findManyKeyWordsFromManyString"]);
								unset($conf["search::findManyKeyWordsFromManyString"]);
 
								#如果執行失敗
								if($findManyKeyWordsFromManyString["status"]==="false"){
 
									#設置執行失敗
									$result["status"]="false";
 
									#設置錯誤訊息
									$result["error"]=$findManyKeyWordsFromManyString;
 
									#回傳結果
									return $result;
 
									}#if end
 
								#初始化執行者所屬的群組
								$groups=array();
 
								#如果沒有關鍵字
								if($findManyKeyWordsFromManyString["foundedAll"]==="false"){
 
									#代表使用者所屬的群組只有自己
									$groups[]=$result["phpUser"];
 
									}#if end
 
								#反之,代表屬於多個群組.
								else{
 
									#針對每個找到的結果
									foreach($findManyKeyWordsFromManyString["foundedTrueKey"] as $groupStartIndex=>$strWithKeyWord){
 
										#函式說明:
										#將字串特定關鍵字與其前面的內容剔除
										#回傳結果:
										#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.
										#$result["error"],錯誤訊息陣列.
										#$result["warning"],警告訊息鎮列.
										#$result["founded"],有無找到定字串"true"代表有,"false"代表沒有.
										#$result["function"],當前執行的函數名稱.
										#$result["argu"],使用的參數.
										#$result["oriStr"],要處理的原始字串內容.
										#$result["content"],處理好的的字串內容.
										#必填參數:
										#$conf["stringIn"],字串,要處理的字串.
										$conf["stringProcess::delStrBeforeKeyWord"]["stringIn"]=$strWithKeyWord;
										#$conf["keyWord"],字串,特定字串.
										$conf["stringProcess::delStrBeforeKeyWord"]["keyWord"]="Aux. Groups: ";

										#無.
										#備註:
										#無.
										$delStrBeforeKeyWord=stringProcess::delStrBeforeKeyWord($conf["stringProcess::delStrBeforeKeyWord"]);
										unset($conf["stringProcess::delStrBeforeKeyWord"]);
 
										#如果執行失敗
										if($delStrBeforeKeyWord["status"]==="false"){
 
											#設置執行失敗
											$result["status"]="false";
 
											#設置錯誤訊息
											$result["error"]=$delStrBeforeKeyWord;
 
											#回傳結果
											return $result;
 
											}#if end
 
										#如果應該要存在的關鍵字不存在
										if($delStrBeforeKeyWord["founded"]==="false"){
 
											#設置執行失敗
											$result["status"]="false";
 
											#設置錯誤訊息
											$result["error"]=$delStrBeforeKeyWord;
 
											#回傳結果
											return $result;
 
											}#if end
 
										#設置該用戶屬的群組之一
										$groups[]=$delStrBeforeKeyWord["content"];
 
										#取得群組資訊之後的陣列內容
										#函式說明:
										#將陣列進行切割
										#回傳結果:
										#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.

										#無.
										#備註:
										#無.
										$split=arrays::split($conf["arrays::split"]);
										unset($conf["arrays::split"]);
 
										#如果執行失敗
										if($split["status"]==="false"){
 
											#設置執行失敗
											$result["status"]="false";
 
											#設置錯誤訊息
											$result["error"]=$split;
 
											#回傳結果
											return $result;
 
											}#if end
 
										#可能為第1個外的群組資訊陣列
										#$split["content"]["leftR"];
 
										#函式說明:
										#檢查多個字串中的每個字串是否有多個關鍵字
										#回傳結果:
										#$result["status"],整體來說，執行是否成功，"true"代表執行成功，"false"代表執行失敗。
										#$result["function"],當前執行的函數名稱.

										#無.
										#備註:
										#無.
										$findManyKeyWordsFromManyString=search::findManyKeyWordsFromManyString($conf["search::findManyKeyWordsFromManyString"]);
										unset($conf["search::findManyKeyWordsFromManyString"]);
 
										#如果執行失敗
										if($findManyKeyWordsFromManyString["status"]==="false"){
 
											#設置執行失敗
											$result["status"]="false";
 
											#設置錯誤訊息
											$result["error"]=$findManyKeyWordsFromManyString;
 
											#回傳結果
											return $result;
 
											}#if end
 
										#如果沒有關鍵字
										if($findManyKeyWordsFromManyString["foundedAll"]==="false"){
 
											#設置執行失敗
											$result["status"]="false";
 
											#設置錯誤訊息
											$result["error"]=$findManyKeyWordsFromManyString;
 
											#回傳結果
											return $result;
 
											}#if end
 
										#針對每個群組名稱
										foreach($findManyKeyWordsFromManyString["foundedFalseKey"] as $group){
 
											#記錄group
											$groups[]=trim($group);
 
											}#foreach end
 
										#檢查有無 wheel 群組在裡面
										#函式說明:
										#檢查一個數值是否與陣列裏面的元素相同,找到一個相符合的元素後就會停止搜尋.
										#回傳結果:
										#$result["status"],"true"表示執行正確，"false"表示執行錯誤.

										#無.
										#備註:
										#無.
										$getEqualVar=search::getEqualVar($conf["cmd::getEqualVar"]);
										unset($conf["cmd::getEqualVar"]);
 
										#如果執行失敗
										if($getEqualVar["status"]==="false"){
 
											#設置執行失敗
											$result["status"]="false";
 
											#設置錯誤訊息
											$result["error"]=$getEqualVar;
 
											#回傳結果
											return $result;
 
											}#if end
 
										#如果是 可以用 sudo 的賬號
										if($getEqualVar["founded"]==="true"){
 
											#設置為 wheel 群組的成員
											$result["phpUserType"]="wheel";
 
											}#if end
 
										#只要找到一個,結束foreach
										break;
 
										}#else end
 
								}#foreach end
 
								break;
 
							}#switch end
 
						}#foreach end
 
					}#else end
 
				}#if end
 
			#取得server的ip
			$result["serverIp"]=gethostbyname(gethostname());
 
			#設置通訊協定
			$result["scheme"]="file";
 
			#設置為cmd模式
			$result["mode"]="cmd";
 
			#設置用戶端要求的完整網址
			$result["requestUriFull"]=__FILE__;
 
			#函式說明:
			#將字串特定關鍵字與其前面的內容剔除

			#$result["warning"],警告訊息鎮列.
			#$result["founded"],有無找到定字串"true"代表有,"false"代表沒有.
			#$result["function"],當前執行的函數名稱.
			#$result["argu"],使用的參數.
			#$result["oriStr"],要處理的原始字串內容.
			#$result["content"],處理好的的字串內容.
			#必填參數:
			#$conf["stringIn"],字串,要處理的字串.
			$conf["stringProcess::delStrBeforeKeyWord"]["stringIn"]=$result["requestUriFull"];
			#$conf["keyWord"],字串,特定字串.
			$conf["stringProcess::delStrBeforeKeyWord"]["keyWord"]="/";

				#設置執行錯誤訊息
				$result["error"]=$insertData;
 
				#回傳結果
				return $result;
 
				}#if end
 
			#取得目前要求執行的網址爲
			$result["requestUri"]=$delStrBeforeKeyWord["content"];
 

		#$result["content"],取得的header陣列.
		#$result["function"],當前執行的函數名稱.
		#必填參數:
		#無
		#可省略參數:
		#無
		#參考資料:
		#無.
		#備註:
		#無.
		$getReceivedHeaders=header::getReceivedHeaders();
 
		#如果執行失敗
		if($getReceivedHeaders["status"]=="false"){
 
			#設置執行失敗
			$result["status"]="false";

 
			#回傳結果
			return $result;
 
			}#if end
 
		#設置取得的 header 陣列
		$result["header"]=$getReceivedHeaders["content"];
 
		#取得讀取到 body 字串
		$result["body"]=file_get_contents('php://input');

 
			}#if end
 
		#如果沒有變數 addr
		if(!isset($conf["addr"])){
 
			#取得用戶端ip
			#函式說明:
			#回傳用戶端的IP位置
			#回傳的結果：
			#$result,用戶端的ip,若在命令列下執行則回傳getServerIP()的結果.
			$conf["addr"]=csInformation::getClientIP();
 
			}#if end
 
		#查詢相關地理位置資訊的網址
		$endPoint="https://tools.keycdn.com/geo.json?host=".$conf["addr"];
 
		#函式說明:
		#運行curl cmd

			 		"datetime":"2015-05-22 09:10:35"
			  		}
		   		}
			}
		}
 
		or
 
		{
		   "status":"error",
		   "description":"Hostname did not resolve any IP."

 
		#回傳結果
		return $result;
 
		}#function getIpGeo end
 
	/*
	#函式說明:
	#將ipv4轉換成ipv6
	#回傳結果:
	#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.

	#https://www.ultratools.com/tools/ipv4toipv6
	#備註:
	#無.
	*/
	public static function ipv4toipv6($conf){
 
		#初始化要回傳的結果
		$result=array();
 
		#取得當前執行的函數名稱
		$result["function"]=__FUNCTION__;

 
			#回傳結果
			return $result;
 
			}#if end
 
		#函式說明:
		#檢查必填與可省略的參數，可省略參數可指定預設要給與什麼數值內容。
		#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.
		#$reuslt["error"],執行不正常結束的錯訊息陣列.
		#$result["function"],當前執行的函式名稱.

		#$conf["arrayCountEqualCheck"][]=array();
		#參考資料來源:
		#array_keys=>http://php.net/manual/en/function.array-keys.php
		$checkArguments=variableCheck::checkArguments($conf["variable::checkArguments"]);
		unset($conf["variable::checkArguments"]);
 
		#如果檢查參數失敗
		if($checkArguments["status"]==="false"){
 
			#設置執行不正常
			$result["status"]="false";
 
			#設置錯誤訊息
			$result["error"]=$checkArguments;
 
			#回傳結果
			return $result;
 
			}#if end
 
		#分割每個ipv4的數字
		#函式說明:
		#將固定格式的字串分開，並回傳分開的結果。
		#回傳結果:
		#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.

		$conf["stringProcess::spiltString"]["spiltSymbol"]=".";#爲以哪個符號作爲分割
		#可省略參數:
		#$conf["allowEmptyStr"],是否允許分割出來空字串,預設為"false"不允許;"true"代表允許.
		$conf["stringProcess::spiltString"]["allowEmptyStr"]="false";
		$spiltString=stringProcess::spiltString($conf["stringProcess::spiltString"]);
		unset($conf["stringProcess::spiltString"]);
 
		#如果執行失敗
		if($spiltString["status"]==="false"){
 
			#設置執行不正常
			$result["status"]="false";
 
			#設置錯誤訊息
			$result["error"]=$spiltString;
 
			#回傳結果
			return $result;
 
			}#if end
 
		#如果沒有找到切割用的關鍵字
		if($spiltString["found"]==="false"){
 
			#設置執行不正常
			$result["status"]="false";
 
			#設置錯誤訊息
			$result["error"]=$spiltString;
 
			#回傳結果
			return $result;
 
			}#if end
 
		#如果沒有切割出4段
		if($spiltString["dataCounts"]!==4){
 
			#設置執行不正常
			$result["status"]="false";
 
			#設置錯誤訊息
			$result["error"]=$spiltString;
 
			#回傳結果
			return $result;
 
			}#if end
 
		#轉換每段ip位置為16進位
		$ipv6="0:0:0:0:0:ffff:".sprintf('%2x',$spiltString["dataArray"][0]).sprintf('%02x',$spiltString["dataArray"][1]).":".sprintf('%2x',$spiltString["dataArray"][2]).sprintf('%02x',$spiltString["dataArray"][3]);
 
		#取得 ipv6
		$result["content"]=$ipv6;
 
		#設置執行正常
		$result["status"]="true";
 
		#回傳結果
		return $result;
 
		}#function ipv4toipv6 end
 
	}#class csInformation end
 
?>

Rev 137	Rev 226
Line 1...	Line 1...
1	`<?php`	1	`<?php`
2		2
3	`/*`	3	`/*`
4		4
5	`QBPWCF, Quick Build PHP website Component base on Fedora Linux.`	5	`QBPWCF, Quick Build PHP website Component base on Fedora Linux.`
6	`Copyright (C) 2015~2025 Min-Jhin,Chen`	6	`Copyright (C) 2014~2025 MIN ZHI, CHEN`
7		7
8	`This file is part of QBPWCF.`	8	`This file is part of QBPWCF.`
9		9
10	`QBPWCF is free software: you can redistribute it and/or modify`	10	`QBPWCF is free software: you can redistribute it and/or modify`
11	`it under the terms of the GNU General Public License as published by`	11	`it under the terms of the GNU General Public License as published by`
Line 461...	Line 461...
461	`#解析PHP檔案裡面的變數.`	461	`#解析PHP檔案裡面的變數.`
462	`#回傳結果:`	462	`#回傳結果:`
463	`#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.`	463	`#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.`
464	`#$result["error"],錯誤訊息.`	464	`#$result["error"],錯誤訊息.`
465	`#$result["function"],當前執行的函數名稱.`	465	`#$result["function"],當前執行的函數名稱.`
466	`#$result["argu"],所使用的參數.`	466	`#$result["argu"],所使用的參數.`
467	`#$result["content"],找到的變數內容陣列.`	467	`#$result["content"],找到的變數內容陣列.`
468	`#$result["content"]["value"],依找到變數順序的數值.`	468	`#$result["content"]["value"],依找到變數順序的數值.`
469	`#$result["content"]["struc"],依找到變數順序的階層結構.`	469	`#$result["content"]["struc"],依找到變數順序的階層結構.`
470	`#$result["content"]["direct"],變數名稱對應的數值內容.`	470	`#$result["content"]["direct"],變數名稱對應的數值內容.`
471	`#必填參數:`	471	`#必填參數:`
Line 499...	Line 499...
499		499
500	`}#if end`	500	`}#if end`
501		501
502	`#如果myIp變數有設定`	502	`#如果myIp變數有設定`
503	`if(isset($parseVaraiableInPHPfile["content"]["myIp"])){`	503	`if(isset($parseVaraiableInPHPfile["content"]["myIp"])){`
504		504
505	`#如果內容不為空字串`	505	`#如果內容不為空字串`
506	`if($parseVaraiableInPHPfile["content"]["myIp"][0]!==""){`	506	`if($parseVaraiableInPHPfile["content"]["myIp"][0]!==""){`
507		507
508	`#取得伺服器對外的IP`	508	`#取得伺服器對外的IP`
509	`$result["content"]=array($parseVaraiableInPHPfile["content"]["myIp"][0]);`	509	`$result["content"]=array($parseVaraiableInPHPfile["content"]["myIp"][0]);`
510		510
511	`#設置執行正常`	511	`#設置執行正常`
512	`$result["status"]="true";`	512	`$result["status"]="true";`
513		513
514	`#回傳結果`	514	`#回傳結果`
515	`return $result;`	515	`return $result;`
516		516
517	`}#if end`	517	`}#if end`
518		518
519	`}#if end`	519	`}#if end`
520		520
521	`#預設用於取得自己對外ip的服務網址`	521	`#預設用於取得自己對外ip的服務網址`
522	`$getIpUrl="https://ip.qbpwcf.org";`	522	`$getIpUrl="https://ip.qbpwcf.org";`
523		523
524	`#如果變數getIpUrl有設定`	524	`#如果變數getIpUrl有設定`
525	`if(isset($parseVaraiableInPHPfile["content"]["getIpUrl"])){`	525	`if(isset($parseVaraiableInPHPfile["content"]["getIpUrl"])){`
526		526
527	`#如果內容不為空字串`	527	`#如果內容不為空字串`
528	`if($parseVaraiableInPHPfile["content"]["getIpUrl"][0]!==""){`	528	`if($parseVaraiableInPHPfile["content"]["getIpUrl"][0]!==""){`
529		529
530	`#更新 getIpUrl`	530	`#更新 getIpUrl`
531	`$getIpUrl=$parseVaraiableInPHPfile["content"]["getIpUrl"][0];`	531	`$getIpUrl=$parseVaraiableInPHPfile["content"]["getIpUrl"][0];`
532		532
533	`}#if end`	533	`}#if end`
534		534
535	`}#if end`	535	`}#if end`
536		536
537	`#函式說明:`	537	`#函式說明:`
538	`#運行curl cmd`	538	`#運行curl cmd`
539	`#回傳結果:`	539	`#回傳結果:`
Line 1347...	Line 1347...
1347	`#如果是 "pathOnly"`	1347	`#如果是 "pathOnly"`
1348	`case "pathOnly":`	1348	`case "pathOnly":`
1349		1349
1350	`#如果是網頁環境`	1350	`#如果是網頁環境`
1351	`if($getConnectionInfo["mode"]==="web"){`	1351	`if($getConnectionInfo["mode"]==="web"){`
1352		1352
1353	`#用當前檔案的名稱來分割目前檔案的完整路徑`	1353	`#用當前檔案的名稱來分割目前檔案的完整路徑`
1354	`#函式說明:`	1354	`#函式說明:`
1355	`#將固定格式的字串分開，並回傳分開的結果。`	1355	`#將固定格式的字串分開，並回傳分開的結果。`
1356	`#回傳的參數:`	1356	`#回傳的參數:`
1357	`#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.`	1357	`#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.`
Line 1400...	Line 1400...
1400	`#設置執行正常`	1400	`#設置執行正常`
1401	`$result["status"]="true";`	1401	`$result["status"]="true";`
1402		1402
1403	`#回傳結果`	1403	`#回傳結果`
1404	`return $result;`	1404	`return $result;`
1405		1405
1406	`}#if end`	1406	`}#if end`
1407		1407
1408	`#反之如果是 cmd 環境`	1408	`#反之如果是 cmd 環境`
1409	`else if($getConnectionInfo["mode"]==="cmd"){`	1409	`else if($getConnectionInfo["mode"]==="cmd"){`
1410		1410
1411	`#函式說明:`	1411	`#函式說明:`
1412	`#將字串特定關鍵字與其後面的內容剔除`	1412	`#將字串特定關鍵字與其後面的內容剔除`
1413	`#回傳結果:`	1413	`#回傳結果:`
1414	`#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.`	1414	`#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.`
1415	`#$result["error"],錯誤訊息陣列.`	1415	`#$result["error"],錯誤訊息陣列.`
Line 1431...	Line 1431...
1431	`#無.`	1431	`#無.`
1432	`#備註:`	1432	`#備註:`
1433	`#無.`	1433	`#無.`
1434	`$delStrAfterKeyWord=stringProcess::delStrAfterKeyWord($conf["stringProcess::delStrAfterKeyWord"]);`	1434	`$delStrAfterKeyWord=stringProcess::delStrAfterKeyWord($conf["stringProcess::delStrAfterKeyWord"]);`
1435	`unset($conf["stringProcess::delStrAfterKeyWord"]);`	1435	`unset($conf["stringProcess::delStrAfterKeyWord"]);`
1436		1436
1437	`#如果執行失敗`	1437	`#如果執行失敗`
1438	`if($delStrAfterKeyWord["status"]==="false"){`	1438	`if($delStrAfterKeyWord["status"]==="false"){`
1439		1439
1440	`#設置執行失敗`	1440	`#設置執行失敗`
1441	`$result["status"]="false";`	1441	`$result["status"]="false";`
1442		1442
1443	`#設置執行錯誤訊息`	1443	`#設置執行錯誤訊息`
1444	`$result["error"]=$delStrAfterKeyWord;`	1444	`$result["error"]=$delStrAfterKeyWord;`
1445		1445
1446	`#回傳結果`	1446	`#回傳結果`
1447	`return $result;`	1447	`return $result;`
1448		1448
1449	`}#if end`	1449	`}#if end`
1450		1450
1451	`#如果沒有應該要有的檔案名稱`	1451	`#如果沒有應該要有的檔案名稱`
1452	`if($delStrAfterKeyWord["founded"]==="false"){`	1452	`if($delStrAfterKeyWord["founded"]==="false"){`
1453		1453
1454	`#設置執行失敗`	1454	`#設置執行失敗`
1455	`$result["status"]="false";`	1455	`$result["status"]="false";`
1456		1456
1457	`#設置執行錯誤訊息`	1457	`#設置執行錯誤訊息`
1458	`$result["error"]=$delStrAfterKeyWord;`	1458	`$result["error"]=$delStrAfterKeyWord;`
1459		1459
1460	`#回傳結果`	1460	`#回傳結果`
1461	`return $result;`	1461	`return $result;`
1462		1462
1463	`}#if end`	1463	`}#if end`
1464		1464
1465	`#取得不包含檔案名稱的路徑`	1465	`#取得不包含檔案名稱的路徑`
1466	`$result["content"]=$delStrAfterKeyWord["content"];`	1466	`$result["content"]=$delStrAfterKeyWord["content"];`
1467		1467
1468	`#設置執行正常`	1468	`#設置執行正常`
1469	`$result["status"]="true";`	1469	`$result["status"]="true";`
1470		1470
1471	`#回傳結果`	1471	`#回傳結果`
1472	`return $result;`	1472	`return $result;`
1473		1473
1474	`}#if end`	1474	`}#if end`
1475		1475
1476	`#打斷switch`	1476	`#打斷switch`
1477	`break;`	1477	`break;`
1478		1478
Line 1484...	Line 1484...
1484		1484
1485	`#取得上層目錄的名稱`	1485	`#取得上層目錄的名稱`
1486	`$result["content"]=basename((dirname($getConnectionInfo["requestUri"])));`	1486	`$result["content"]=basename((dirname($getConnectionInfo["requestUri"])));`
1487		1487
1488	`}#if end`	1488	`}#if end`
1489		1489
1490	`#反之如果是 cmd 環境`	1490	`#反之如果是 cmd 環境`
1491	`else if($result["mode"]==="cmd"){`	1491	`else if($result["mode"]==="cmd"){`
1492		1492
1493	`#取得callback用的參數`	1493	`#取得callback用的參數`
1494	`$conf["csInformation::getPathOfThisPhpFile"]=$confForCallback;`	1494	`$conf["csInformation::getPathOfThisPhpFile"]=$confForCallback;`
1495		1495
1496	`#改取得路徑就好`	1496	`#改取得路徑就好`
1497	`$conf["csInformation::getPathOfThisPhpFile"]["type"]="pathOnly";`	1497	`$conf["csInformation::getPathOfThisPhpFile"]["type"]="pathOnly";`
1498		1498
1499	`/*`	1499	`/*`
1500	`#函式說明:`	1500	`#函式說明:`
1501	`#取得目前瀏覽的頁面的路徑或執行的php程式路徑.`	1501	`#取得目前瀏覽的頁面的路徑或執行的php程式路徑.`
1502	`#回傳結果:`	1502	`#回傳結果:`
1503	`#$result["status"],執行是否正常,"true"代表執行成功,"false"代表執行失敗.`	1503	`#$result["status"],執行是否正常,"true"代表執行成功,"false"代表執行失敗.`
Line 1517...	Line 1517...
1517	`#備註:`	1517	`#備註:`
1518	`#無.`	1518	`#無.`
1519	`*/`	1519	`*/`
1520	`$getPathOfThisPhpFile=csInformation::getPathOfThisPhpFile($conf["csInformation::getPathOfThisPhpFile"]);`	1520	`$getPathOfThisPhpFile=csInformation::getPathOfThisPhpFile($conf["csInformation::getPathOfThisPhpFile"]);`
1521	`unset($conf["csInformation::getPathOfThisPhpFile"]);`	1521	`unset($conf["csInformation::getPathOfThisPhpFile"]);`
1522		1522
1523	`#如果執行失敗`	1523	`#如果執行失敗`
1524	`if($getPathOfThisPhpFile["status"]==="false"){`	1524	`if($getPathOfThisPhpFile["status"]==="false"){`
1525		1525
1526	`#設置執行失敗`	1526	`#設置執行失敗`
1527	`$result["status"]="false";`	1527	`$result["status"]="false";`
1528		1528
1529	`#設置執行錯誤訊息`	1529	`#設置執行錯誤訊息`
1530	`$result["error"]=$getPathOfThisPhpFile;`	1530	`$result["error"]=$getPathOfThisPhpFile;`
1531		1531
1532	`#回傳結果`	1532	`#回傳結果`
1533	`return $result;`	1533	`return $result;`
1534		1534
1535	`}#if end`	1535	`}#if end`
1536		1536
1537	`#取得路徑`	1537	`#取得路徑`
1538	`#$getPathOfThisPhpFile["content"];`	1538	`#$getPathOfThisPhpFile["content"];`
1539		1539
1540	`#函式說明:`	1540	`#函式說明:`
1541	`#將固定格式的字串分開,並回傳分開的結果.`	1541	`#將固定格式的字串分開,並回傳分開的結果.`
1542	`#回傳結果:`	1542	`#回傳結果:`
1543	`#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.`	1543	`#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.`
1544	`#$result["error"],錯誤訊息陣列`	1544	`#$result["error"],錯誤訊息陣列`
Line 1560...	Line 1560...
1560	`#無.`	1560	`#無.`
1561	`#備註:`	1561	`#備註:`
1562	`#無.`	1562	`#無.`
1563	`$spiltString=stringProcess::spiltString($conf["stringProcess::spiltString"]);`	1563	`$spiltString=stringProcess::spiltString($conf["stringProcess::spiltString"]);`
1564	`unset($conf["stringProcess::spiltString"]);`	1564	`unset($conf["stringProcess::spiltString"]);`
1565		1565
1566	`#如果執行失敗`	1566	`#如果執行失敗`
1567	`if($spiltString["status"]==="false"){`	1567	`if($spiltString["status"]==="false"){`
1568		1568
1569	`#設置執行失敗`	1569	`#設置執行失敗`
1570	`$result["status"]="false";`	1570	`$result["status"]="false";`
1571		1571
1572	`#設置執行錯誤訊息`	1572	`#設置執行錯誤訊息`
1573	`$result["error"]=$spiltString;`	1573	`$result["error"]=$spiltString;`
1574		1574
1575	`#回傳結果`	1575	`#回傳結果`
1576	`return $result;`	1576	`return $result;`
1577		1577
1578	`}#if end`	1578	`}#if end`
1579		1579
1580	`#如果沒有"/"存在`	1580	`#如果沒有"/"存在`
1581	`if($spiltString["found"]==="false"){`	1581	`if($spiltString["found"]==="false"){`
1582		1582
1583	`#設置執行失敗`	1583	`#設置執行失敗`
1584	`$result["status"]="false";`	1584	`$result["status"]="false";`
1585		1585
1586	`#設置執行錯誤訊息`	1586	`#設置執行錯誤訊息`
1587	`$result["error"]=$spiltString;`	1587	`$result["error"]=$spiltString;`
1588		1588
1589	`#回傳結果`	1589	`#回傳結果`
1590	`return $result;`	1590	`return $result;`
1591		1591
1592	`}#if end`	1592	`}#if end`
1593		1593
1594	`#如果沒有分出結果`	1594	`#如果沒有分出結果`
1595	`if($spiltString["dataCounts"]===0){`	1595	`if($spiltString["dataCounts"]===0){`
1596		1596
1597	`#設置上層目錄的名稱為"/"`	1597	`#設置上層目錄的名稱為"/"`
1598	`$result["content"]="/";`	1598	`$result["content"]="/";`
1599		1599
1600	`#設置執行正常`	1600	`#設置執行正常`
1601	`$result["status"]="true";`	1601	`$result["status"]="true";`
1602		1602
1603	`#回傳結果`	1603	`#回傳結果`
1604	`return $result;`	1604	`return $result;`
1605		1605
1606	`}#if end`	1606	`}#if end`
1607		1607
1608	`#反之`	1608	`#反之`
1609	`else{`	1609	`else{`
1610		1610
1611	`#取得上層目錄的索引`	1611	`#取得上層目錄的索引`
1612	`$lastLayerIndex=$spiltString["dataCounts"]-1;`	1612	`$lastLayerIndex=$spiltString["dataCounts"]-1;`
1613		1613
1614	`#取得上層目錄`	1614	`#取得上層目錄`
1615	`$result["content"]=$spiltString["dataArray"][$lastLayerIndex];`	1615	`$result["content"]=$spiltString["dataArray"][$lastLayerIndex];`
1616		1616
1617	`#設置執行正常`	1617	`#設置執行正常`
1618	`$result["status"]="true";`	1618	`$result["status"]="true";`
1619		1619
1620	`#回傳結果`	1620	`#回傳結果`
1621	`return $result;`	1621	`return $result;`
1622		1622
1623	`}#if end`	1623	`}#if end`
1624		1624
1625	`}#if end`	1625	`}#if end`
1626		1626
1627	`#反之為異常結果`	1627	`#反之為異常結果`
1628	`else{`	1628	`else{`
1629		1629
1630	`#設置執行不正常`	1630	`#設置執行不正常`
1631	`$result["status"]="false";`	1631	`$result["status"]="false";`
1632		1632
1633	`#設置錯誤訊息`	1633	`#設置錯誤訊息`
1634	`$result["error"][]="無法判別環境為web還是cmd";`	1634	`$result["error"][]="無法判別環境為web還是cmd";`
Line 1636...	Line 1636...
1636	`#設置錯誤訊息`	1636	`#設置錯誤訊息`
1637	`$result["error"][]=$getConnectionInfo;`	1637	`$result["error"][]=$getConnectionInfo;`
1638		1638
1639	`#回傳結果`	1639	`#回傳結果`
1640	`return $result;`	1640	`return $result;`
1641		1641
1642	`}#else end`	1642	`}#else end`
1643		1643
1644	`#設置執行正常`	1644	`#設置執行正常`
1645	`$result["status"]="true";`	1645	`$result["status"]="true";`
1646		1646
Line 1800...	Line 1800...
1800		1800
1801	`}#else end`	1801	`}#else end`
1802		1802
1803	`#預設使用該php程式的使用者帳號`	1803	`#預設使用該php程式的使用者帳號`
1804	`$result["phpUser"]="apache";`	1804	`$result["phpUser"]="apache";`
1805		1805
1806	`#嘗試從系統變數取得使用者名稱`	1806	`#嘗試從系統變數取得使用者名稱`
1807	`#函式說明:`	1807	`#函式說明:`
1808	`#呼叫shell執行系統命令,並取得回傳的內容.`	1808	`#呼叫shell執行系統命令,並取得回傳的內容.`
1809	`#回傳結果:`	1809	`#回傳結果:`
1810	`#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.`	1810	`#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.`
Line 1861...	Line 1861...
1861	`#備註:`	1861	`#備註:`
1862	`#不是所有指令都能用apache的身份執行,目前已知java,javac指令無法執行,使用root身份可能會被selinux阻擋.`	1862	`#不是所有指令都能用apache的身份執行,目前已知java,javac指令無法執行,使用root身份可能會被selinux阻擋.`
1863	`#若使用的 command、argu 參數，含有 ~ 則會被視為字串，若有需要其於 shell 中代表的家目錄位置，可用 fileAccess::tildeToPath 來進行轉換.`	1863	`#若使用的 command、argu 參數，含有 ~ 則會被視為字串，若有需要其於 shell 中代表的家目錄位置，可用 fileAccess::tildeToPath 來進行轉換.`
1864	`$callShell=external::callShell($conf["external::callShell"]);`	1864	`$callShell=external::callShell($conf["external::callShell"]);`
1865	`unset($conf["external::callShell"]);`	1865	`unset($conf["external::callShell"]);`
1866		1866
1867	`#如果執行失敗`	1867	`#如果執行失敗`
1868	`if($callShell["status"]==="false"){`	1868	`if($callShell["status"]==="false"){`
1869		1869
1870	`#設置執行失敗`	1870	`#設置執行失敗`
1871	`$result["status"]="false";`	1871	`$result["status"]="false";`
1872		1872
1873	`#設置執行錯誤訊息`	1873	`#設置執行錯誤訊息`
1874	`$result["error"]=$callShell;`	1874	`$result["error"]=$callShell;`
1875		1875
1876	`#回傳結果`	1876	`#回傳結果`
1877	`return $result;`	1877	`return $result;`
1878		1878
1879	`}#if end`	1879	`}#if end`
1880		1880
1881	`#函式說明:`	1881	`#函式說明:`
1882	`#檢查多個字串中的每個字串是否有多個關鍵字`	1882	`#檢查多個字串中的每個字串是否有多個關鍵字`
1883	`#回傳結果:`	1883	`#回傳結果:`
1884	`#$result["status"],整體來說，執行是否成功，"true"代表執行成功，"false"代表執行失敗。`	1884	`#$result["status"],整體來說，執行是否成功，"true"代表執行成功，"false"代表執行失敗。`
1885	`#$result["function"],當前執行的函數名稱.`	1885	`#$result["function"],當前執行的函數名稱.`
Line 1903...	Line 1903...
1903	`#無.`	1903	`#無.`
1904	`#備註:`	1904	`#備註:`
1905	`#無.`	1905	`#無.`
1906	`$findManyKeyWordsFromManyString=search::findManyKeyWordsFromManyString($conf["search::findManyKeyWordsFromManyString"]);`	1906	`$findManyKeyWordsFromManyString=search::findManyKeyWordsFromManyString($conf["search::findManyKeyWordsFromManyString"]);`
1907	`unset($conf["search::findManyKeyWordsFromManyString"]);`	1907	`unset($conf["search::findManyKeyWordsFromManyString"]);`
1908		1908
1909	`#debug`	1909	`#debug`
1910	`#var_dump(__LINE__,$findManyKeyWordsFromManyString);`	1910	`#var_dump(__LINE__,$findManyKeyWordsFromManyString);`
1911		1911
1912	`#如果執行不正常`	1912	`#如果執行不正常`
1913	`if($findManyKeyWordsFromManyString["status"]==="false"){`	1913	`if($findManyKeyWordsFromManyString["status"]==="false"){`
1914		1914
1915	`#設置執行失敗`	1915	`#設置執行失敗`
1916	`$result["status"]="false";`	1916	`$result["status"]="false";`
1917		1917
1918	`#設置執行錯誤訊息`	1918	`#設置執行錯誤訊息`
1919	`$result["error"]=$findManyKeyWordsFromManyString;`	1919	`$result["error"]=$findManyKeyWordsFromManyString;`
1920		1920
1921	`#回傳結果`	1921	`#回傳結果`
1922	`return $result;`	1922	`return $result;`
1923		1923
1924	`}#if end`	1924	`}#if end`
1925		1925
1926	`#針對每個有找到關鍵字的來源字串`	1926	`#針對每個有找到關鍵字的來源字串`
1927	`foreach($findManyKeyWordsFromManyString["keyWordsIncludeStr"] as $keyWordsIncludeStr){`	1927	`foreach($findManyKeyWordsFromManyString["keyWordsIncludeStr"] as $keyWordsIncludeStr){`
1928		1928
1929	`#如果有多個關鍵字`	1929	`#如果有多個關鍵字`
1930	`if(count($keyWordsIncludeStr["keyWords"])>1){`	1930	`if(count($keyWordsIncludeStr["keyWords"])>1){`
1931		1931
1932	`#跳過`	1932	`#跳過`
1933	`continue;`	1933	`continue;`
1934		1934
1935	`}#if end`	1935	`}#if end`
1936		1936
1937	`#解析使用者名稱`	1937	`#解析使用者名稱`
1938	`#函式說明:`	1938	`#函式說明:`
1939	`#將字串特定關鍵字與其前面的內容剔除`	1939	`#將字串特定關鍵字與其前面的內容剔除`
1940	`#回傳結果:`	1940	`#回傳結果:`
1941	`#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.`	1941	`#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.`
Line 1943...	Line 1943...
1943	`#$result["warning"],警告訊息鎮列.`	1943	`#$result["warning"],警告訊息鎮列.`
1944	`#$result["founded"],有無找到定字串"true"代表有,"false"代表沒有.`	1944	`#$result["founded"],有無找到定字串"true"代表有,"false"代表沒有.`
1945	`#$result["function"],當前執行的函數名稱.`	1945	`#$result["function"],當前執行的函數名稱.`
1946	`#$result["argu"],使用的參數.`	1946	`#$result["argu"],使用的參數.`
1947	`#$result["oriStr"],要處理的原始字串內容.`	1947	`#$result["oriStr"],要處理的原始字串內容.`
1948	`#$result["content"],處理好的的字串內容.`	1948	`#$result["content"],處理好的的字串內容.`
1949	`#必填參數:`	1949	`#必填參數:`
1950	`#$conf["stringIn"],字串,要處理的字串.`	1950	`#$conf["stringIn"],字串,要處理的字串.`
1951	`$conf["stringProcess::delStrBeforeKeyWord"]["stringIn"]=$keyWordsIncludeStr["sourceVal"];`	1951	`$conf["stringProcess::delStrBeforeKeyWord"]["stringIn"]=$keyWordsIncludeStr["sourceVal"];`
1952	`#$conf["keyWord"],字串,特定字串.`	1952	`#$conf["keyWord"],字串,特定字串.`
1953	`$conf["stringProcess::delStrBeforeKeyWord"]["keyWord"]=$keyWordsIncludeStr["keyWords"][0];`	1953	`$conf["stringProcess::delStrBeforeKeyWord"]["keyWord"]=$keyWordsIncludeStr["keyWords"][0];`
Line 1960...	Line 1960...
1960	`#無.`	1960	`#無.`
1961	`#備註:`	1961	`#備註:`
1962	`#無.`	1962	`#無.`
1963	`$delStrBeforeKeyWord=stringProcess::delStrBeforeKeyWord($conf["stringProcess::delStrBeforeKeyWord"]);`	1963	`$delStrBeforeKeyWord=stringProcess::delStrBeforeKeyWord($conf["stringProcess::delStrBeforeKeyWord"]);`
1964	`unset($conf["stringProcess::delStrBeforeKeyWord"]);`	1964	`unset($conf["stringProcess::delStrBeforeKeyWord"]);`
1965		1965
1966	`#debug`	1966	`#debug`
1967	`#var_dump(__LINE__,$delStrBeforeKeyWord);`	1967	`#var_dump(__LINE__,$delStrBeforeKeyWord);`
1968		1968
1969	`#如果執行不正常`	1969	`#如果執行不正常`
1970	`if($delStrBeforeKeyWord["status"]==="false"){`	1970	`if($delStrBeforeKeyWord["status"]==="false"){`
1971		1971
1972	`#設置執行失敗`	1972	`#設置執行失敗`
1973	`$result["status"]="false";`	1973	`$result["status"]="false";`
1974		1974
1975	`#設置執行錯誤訊息`	1975	`#設置執行錯誤訊息`
1976	`$result["error"]=$delStrBeforeKeyWord;`	1976	`$result["error"]=$delStrBeforeKeyWord;`
1977		1977
1978	`#回傳結果`	1978	`#回傳結果`
1979	`return $result;`	1979	`return $result;`
1980		1980
1981	`}#if end`	1981	`}#if end`
1982		1982
1983	`#如果沒有關鍵字`	1983	`#如果沒有關鍵字`
1984	`if($delStrBeforeKeyWord["founded"]==="false"){`	1984	`if($delStrBeforeKeyWord["founded"]==="false"){`
1985		1985
1986	`#設置執行失敗`	1986	`#設置執行失敗`
1987	`$result["status"]="false";`	1987	`$result["status"]="false";`
1988		1988
1989	`#設置執行錯誤訊息`	1989	`#設置執行錯誤訊息`
1990	`$result["error"]=$delStrBeforeKeyWord;`	1990	`$result["error"]=$delStrBeforeKeyWord;`
1991		1991
1992	`#回傳結果`	1992	`#回傳結果`
1993	`return $result;`	1993	`return $result;`
1994		1994
1995	`}#if end`	1995	`}#if end`
1996		1996
1997	`#如果不是空字串`	1997	`#如果不是空字串`
1998	`if(!empty($delStrBeforeKeyWord["content"])){`	1998	`if(!empty($delStrBeforeKeyWord["content"])){`
1999		1999
2000	`#取得使用者名稱`	2000	`#取得使用者名稱`
2001	`$result["phpUser"]=basename($delStrBeforeKeyWord["content"]);`	2001	`$result["phpUser"]=basename($delStrBeforeKeyWord["content"]);`
2002		2002
2003	`#結束 foreach`	2003	`#結束 foreach`
2004	`break;`	2004	`break;`
2005		2005
2006	`}#if end`	2006	`}#if end`
2007		2007
2008	`}#foreach end`	2008	`}#foreach end`
2009		2009
2010	`#如果 $_SERVER['HTTP_USER_AGENT'] 存在`	2010	`#如果 $_SERVER['HTTP_USER_AGENT'] 存在`
2011	`if(isset($_SERVER['HTTP_USER_AGENT'])){`	2011	`if(isset($_SERVER['HTTP_USER_AGENT'])){`
2012		2012
2013	`#var_dump($_SERVER["DOCUMENT_ROOT"]);`	2013	`#var_dump($_SERVER["DOCUMENT_ROOT"]);`
2014		2014
Line 2151...	Line 2151...
2151	`#預設為空字串,代表非使用者直接觸發`	2151	`#預設為空字串,代表非使用者直接觸發`
2152	`$result["phpUser"]="";`	2152	`$result["phpUser"]="";`
2153		2153
2154	`#如果有 LOGNAME 存在`	2154	`#如果有 LOGNAME 存在`
2155	`if(isset($_SERVER["LOGNAME"])){`	2155	`if(isset($_SERVER["LOGNAME"])){`
2156		2156
2157	`#取得使用該php程式的使用者帳號`	2157	`#取得使用該php程式的使用者帳號`
2158	`$result["phpUser"]=$_SERVER["LOGNAME"];`	2158	`$result["phpUser"]=$_SERVER["LOGNAME"];`
2159		2159
2160	`}#if end`	2160	`}#if end`
2161		2161
2162	`#反之`	2162	`#反之`
2163	`else{`	2163	`else{`
2164		2164
2165	`/*`	2165	`/*`
2166	`LOGNAME=liveuser`	2166	`LOGNAME=liveuser`
2167	`USERNAME=liveuser`	2167	`USERNAME=liveuser`
2168	`USER=liveuser`	2168	`USER=liveuser`
2169	`*/`	2169	`*/`
2170		2170
2171	`#嘗試從系統變數取得使用者名稱`	2171	`#嘗試從系統變數取得使用者名稱`
2172	`#函式說明:`	2172	`#函式說明:`
2173	`#呼叫shell執行系統命令,並取得回傳的內容.`	2173	`#呼叫shell執行系統命令,並取得回傳的內容.`
2174	`#回傳結果:`	2174	`#回傳結果:`
2175	`#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.`	2175	`#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.`
Line 2226...	Line 2226...
2226	`#備註:`	2226	`#備註:`
2227	`#不是所有指令都能用apache的身份執行,目前已知java,javac指令無法執行,使用root身份可能會被selinux阻擋.`	2227	`#不是所有指令都能用apache的身份執行,目前已知java,javac指令無法執行,使用root身份可能會被selinux阻擋.`
2228	`#若使用的 command、argu 參數，含有 ~ 則會被視為字串，若有需要其於 shell 中代表的家目錄位置，可用 fileAccess::tildeToPath 來進行轉換.`	2228	`#若使用的 command、argu 參數，含有 ~ 則會被視為字串，若有需要其於 shell 中代表的家目錄位置，可用 fileAccess::tildeToPath 來進行轉換.`
2229	`$callShell=external::callShell($conf["external::callShell"]);`	2229	`$callShell=external::callShell($conf["external::callShell"]);`
2230	`unset($conf["external::callShell"]);`	2230	`unset($conf["external::callShell"]);`
2231		2231
2232	`#如果執行失敗`	2232	`#如果執行失敗`
2233	`if($callShell["status"]==="false"){`	2233	`if($callShell["status"]==="false"){`
2234		2234
2235	`#設置執行失敗`	2235	`#設置執行失敗`
2236	`$result["status"]="false";`	2236	`$result["status"]="false";`
2237		2237
2238	`#設置執行錯誤訊息`	2238	`#設置執行錯誤訊息`
2239	`$result["error"]=$callShell;`	2239	`$result["error"]=$callShell;`
2240		2240
2241	`#回傳結果`	2241	`#回傳結果`
2242	`return $result;`	2242	`return $result;`
2243		2243
2244	`}#if end`	2244	`}#if end`
2245		2245
2246	`#函式說明:`	2246	`#函式說明:`
2247	`#檢查多個字串中的每個字串是否有多個關鍵字`	2247	`#檢查多個字串中的每個字串是否有多個關鍵字`
2248	`#回傳結果:`	2248	`#回傳結果:`
2249	`#$result["status"],整體來說，執行是否成功，"true"代表執行成功，"false"代表執行失敗。`	2249	`#$result["status"],整體來說，執行是否成功，"true"代表執行成功，"false"代表執行失敗。`
2250	`#$result["function"],當前執行的函數名稱.`	2250	`#$result["function"],當前執行的函數名稱.`
Line 2268...	Line 2268...
2268	`#無.`	2268	`#無.`
2269	`#備註:`	2269	`#備註:`
2270	`#無.`	2270	`#無.`
2271	`$findManyKeyWordsFromManyString=search::findManyKeyWordsFromManyString($conf["search::findManyKeyWordsFromManyString"]);`	2271	`$findManyKeyWordsFromManyString=search::findManyKeyWordsFromManyString($conf["search::findManyKeyWordsFromManyString"]);`
2272	`unset($conf["search::findManyKeyWordsFromManyString"]);`	2272	`unset($conf["search::findManyKeyWordsFromManyString"]);`
2273		2273
2274	`#debug`	2274	`#debug`
2275	`#var_dump(__LINE__,$findManyKeyWordsFromManyString);`	2275	`#var_dump(__LINE__,$findManyKeyWordsFromManyString);`
2276		2276
2277	`#如果執行不正常`	2277	`#如果執行不正常`
2278	`if($findManyKeyWordsFromManyString["status"]==="false"){`	2278	`if($findManyKeyWordsFromManyString["status"]==="false"){`
2279		2279
2280	`#設置執行失敗`	2280	`#設置執行失敗`
2281	`$result["status"]="false";`	2281	`$result["status"]="false";`
2282		2282
2283	`#設置執行錯誤訊息`	2283	`#設置執行錯誤訊息`
2284	`$result["error"]=$findManyKeyWordsFromManyString;`	2284	`$result["error"]=$findManyKeyWordsFromManyString;`
2285		2285
2286	`#回傳結果`	2286	`#回傳結果`

Subversion Repositories php-qbpwcf

(root)/trunk/usr/lib64/qbpwcf/csInformation.php – Rev 137 → 226