Sub RunCMD(str As String) As Int
Dim Command, Runner As String
Dim StdOut, StdErr As StringBuilder
Dim Result As Int
Dim Ph As Phone
StdOut.Initialize
StdErr.Initialize
File.Delete(File.DirInternalCache, "runner")
File.Delete(File.DirInternalCache, "command")
Runner = File.Combine(File.DirInternalCache, "runner")
Command = File.Combine(File.DirInternalCache, "command")
File.WriteString(File.DirInternalCache, "runner", "su < " & Command)
File.WriteString(File.DirInternalCache, "command", str & CRLF & "exit") 'Any commands via crlf, and exit at end
Log("runner:" & Runner)
Result = Ph.Shell("sh",Array As String(Runner), StdOut, StdErr)
Log("stdout:" & StdOut.tostring)
Log("StdErr:" & StdErr.tostring)
Return Result
End Sub