add RunCommand

git-svn-id: file:///raid/svn-personal/koakuma/trunk@35 219d0f9c-2d94-d447-890a-813e76b88fe9

diff --git a/koakuma.cgi.in b/koakuma.cgi.in
index 3f0f627270021267eab73250dfc1598d559cda1f..4608e1253c8a6afd9d00076d3be8425ad7a0aa9c 100644 (file)
--- a/koakuma.cgi.in
+++ b/koakuma.cgi.in
@@ -17,6 +17,11 @@ proc loop_components {run} {
        }
 }
 
+proc RunCommand {command} {
+       puts "* $command"
+       eval exec $command >@stdout 2>@1
+}
+
 proc crash {reason} {
        global components KOAKUMA_VERSION
        puts stderr "----- Start Koakuma Crash dump log -----"