Firefox, Safariが未使用時、CPU使用率を下げて発熱を抑えるAppNapもどき

sh: -c: line 0: syntax error near unexpected token '('
sh: -c: line 0: 'logger -t appnap-browser -i
errorMessage: /bin/sh: line 0: kill: (1553) - No such process, errorNumber: 1'

• /tmp/にコマンドを置いていましたが、しばらくすると/tmp/のクリア処理が動作し、消去されて起動できなくなる事象


• sleep復帰後、たまにcputhrottleが落ちている現象

appnap-webbrowser.app(applescript) v3.0

前提

• cputhrottleコマンドがインストールされている。
  
• スクリプトを実行するユーザは管理者権限を持っている

ソース

• myPassword to "-- 管理者パスワードに置き換えてください --" の行を修正してください。
  
• CPU_SLOW_COMMAND to "/path/to/unix"の行を修正してください。
  cputhrottleコマンドをご自身の環境に合わせて修正してください。
  ex) cputhrottleコマンドが/Users/Username/command/cputhrottleにある場合
  set CPU_SLOW_COMMAND to "/Users/Username/command/cputhrottle"
  と指定します。

global CPU_SLOW_PERCENTAGE
global CPU_SLOW_COMMAND
global myProcessDataList
global myPassword
global process_monitor_interval
global process_monitor_counter

set myPassword to "-- 管理者パスワードに置き換えてください --" -- <- 管理者のパスワード
set CPU_SLOW_PERCENTAGE to "5" -- <- フォーカスがない場合：プロセスのCPU使用率をpercentで指定
-- cputhrottleコマンドの場所を指定
set CPU_SLOW_COMMAND to "/path/to/unix/cputhrottle"
-- cputhrottleコマンドの生存確認間隔を指定(秒)
set process_monitor_interval to 60 -- On idle が６０回呼び出されたら

set myProcessDataList to {}
set process_monitor_counter to 0
-- ===========================
-- ProcessData
-- クラス
script ProcessData
property pid : -1
property procName : ""

on new(thePid, theProcName)
copy me to theData
set_pid(thePid) of theData
set_procName(theProcName) of theData
theData
end new
on set_pid(value)
set pid to value
end set_pid
on set_procName(value)
set procName to value
end set_procName
end script

-- ===========================================
-- FindProcessData
-- 　theList配列中のtheProcNameを検索する
-- 入力:	theList ProcessDataの配列
--		theProcName 検索するプロセス名を指定
-- 出力:	retList 検索した結果（ProcessData配列)
-- 返り値: 検索した結果（ProcessData配列)
on FindProcessDataList(theList, theProcName, retList)
repeat with v in theList
if procName of v is equal to theProcName then
set end of retList to v
end if
end repeat
return retList
end FindProcessDataList

-- ===========================================
-- DeleteProcessDataList
-- 　theList配列中のtheProcNameを配列から削除する
-- 入力:	theList ProcessDataの配列
--		theProcName 削除するプロセス名を指定
-- 出力:	retList 削除されなかったデータ配列（ProcessData配列)
-- 返り値: 削除されなかったデータ配列（ProcessData配列)
on DeleteProcessDataList(theList, theProcName)
set retList to {}
repeat with v in theList
if procName of v is not equal to theProcName then
set end of retList to v
end if
end repeat
return retList
end DeleteProcessDataList

-- ===========================================
-- StartBackgroundCpuControl
-- 　プロセスの使用率を下げる
-- 入力:	theProcName 使用率を下げるプロセス名を指定
-- 出力:	theControledList コントロール中のデータ配列（ProcessData配列)
-- 返り値: なし
on StartBackgroundCpuControl(theProcName, theControledList)
tell application "System Events"
set pList to (unix id of every process whose name contains theProcName)
if pList is not equal to {} then
-- syslog("StartBackgroundCpuControl  " & theProcName & "") of me
repeat with unixID in pList
do shell script CPU_SLOW_COMMAND & " " & (unixID as string) & " " & CPU_SLOW_PERCENTAGE & " >/dev/null 2>&1 & echo $!" password myPassword with administrator privileges
set pid to result
syslog("start " & theProcName & " cputhrottle  " & (unixID as string) & " " & CPU_SLOW_PERCENTAGE & ", PID=" & pid) of me
set end of theControledList to new(pid, theProcName) of ProcessData
end repeat
end if
end tell
end StartBackgroundCpuControl

-- ===========================================
-- StopBackgroundCpuControl
-- 　プロセスの使用率をもとに戻す
-- 入力:	theControledList もとに戻すデータ配列（ProcessData配列)
-- 出力:	なし
-- 返り値: なし
on StopBackgroundCpuControl(theControledList)
-- syslog("StopBackgroundCpuControl  targetCount=" & (length of theControledList as string) & "") of me
repeat with v in theControledList
try
if IsExistsProcess(pid of v) of me is equal to true then
do shell script "kill -INT " & (pid of v as string) password myPassword with administrator privileges
syslog("stop " & (procName of v) & " cputhrottle , PID=" & (pid of v as string)) of me
end if
on error errorMessage number errorNumber
syslog("StopCpuControl errorMessage: " & errorMessage & ", errorNumber: " & errorNumber) of me
end try
end repeat
end StopBackgroundCpuControl

-- ===========================================
-- IsExistsProcess
-- 　プロセスの存在確認
-- 入力:	thePid プロセスID
-- 出力:	なし
-- 返り値: true 存在　false 存在しない
on IsExistsProcess(thePid)
try
set the_result to do shell script "ps -p " & (thePid as string) & " | awk '{print $1}' | grep " & (thePid as string)
if the_result is equal to (thePid as string) then
return true
else
return false
end if
on error errorMessage number errorNumber
return false
end try
end IsExistsProcess

-- ===========================================
-- CheckingBackgroundCpuProcess
-- 　プロセスの存在確認
-- 入力:	theList 存在を確認するデータ配列（ProcessData配列)
-- 出力:	なし
-- 返り値: 存在を確認したデータ配列（ProcessData配列)
on CheckingBackgroundCpuProcess(theList)
set retList to {}
repeat with v in theList
if IsExistsProcess(pid of v) of me is equal to false then
syslog("detect CPUSlowControlProcess down. pid=" & (pid of v as string) & " origin=" & (procName of v)) of me
else
set end of retList to v
end if
end repeat
return retList
end CheckingBackgroundCpuProcess

on idle
try
tell application "System Events"
set activeProcs to every process whose frontmost is true
set activeProc to item 1 of activeProcs
tell activeProc
set activeProcName to name
end tell
end tell
if process_monitor_counter = process_monitor_interval then
set process_monitor_counter to 0
set myProcessDataList to CheckingBackgroundCpuProcess(myProcessDataList)
else
set process_monitor_counter to process_monitor_counter + 1
end if

if activeProcName is equal to "Safari" then
set targetProcess to {}
set targetProcess to FindProcessDataList(myProcessDataList, "WebProcess", targetProcess)
if length of targetProcess is not equal to 0 then
StopBackgroundCpuControl(targetProcess)
set myProcessDataList to DeleteProcessDataList(myProcessDataList, "WebProcess")
end if
else if activeProcName is equal to "Firefox" then
set targetProcess to {}
set targetProcess to FindProcessDataList(myProcessDataList, "Firefox", targetProcess)
if length of targetProcess is not equal to 0 then
StopBackgroundCpuControl(targetProcess)
set myProcessDataList to DeleteProcessDataList(myProcessDataList, "Firefox")
end if
else
set targetProcess to {}
set targetProcess to FindProcessDataList(myProcessDataList, "WebProcess", targetProcess)
if length of targetProcess is equal to 0 then
-- 制御中は、再実行しない
StartBackgroundCpuControl("WebProcess", myProcessDataList)
end if
set targetProcess to {}
set targetProcess to FindProcessDataList(myProcessDataList, "Firefox", targetProcess)
if length of targetProcess is equal to 0 then
-- 制御中は、再実行しない
StartBackgroundCpuControl("Firefox", myProcessDataList)
end if
end if
return 1
on error errorMessage number errorNumber
syslog("onIdle errorMessage: " & errorMessage & ", errorNumber: " & errorNumber) of me
error
end try

end idle

on quit
set targetProcess to {}
set targetProcess to FindProcessDataList(myProcessDataList, "WebProcess", targetProcess)
set targetProcess to FindProcessDataList(myProcessDataList, "Firefox", targetProcess)
if length of targetProcess is not equal to 0 then
StopBackgroundCpuControl(targetProcess)
set myProcessDataList to {}
end if
syslog("appnap-browser closed.") of me
continue quit
end quit

on syslog(logmsg)
do shell script "logger -t appnap-browser -i " & quoted form of logmsg
end syslog

終了方法