[Aplaws-commit] r197 - tools/trunk/tools/commands

[<ap...@re...>]

Author: apevec
Date: 2005-02-04 13:07:37 +0100 (Fri, 04 Feb 2005)
New Revision: 197

Modified:
   tools/trunk/tools/commands/mkservice
Log:
only root can run ccm mkservice


Modified: tools/trunk/tools/commands/mkservice
===================================================================
--- tools/trunk/tools/commands/mkservice	2005-02-03 22:51:30 UTC (rev 196)
+++ tools/trunk/tools/commands/mkservice	2005-02-04 12:07:37 UTC (rev 197)
@@ -58,6 +58,9 @@
 if ($OS eq 'MSWin32') {
   CCM::Util::error("$OS not supported");
 }
+if ($> != 0) {
+  CCM::Util::error("you must be root to run this");
+}
 $CCM_HOME = File::Spec->rel2abs($CCM_HOME);
 
 # global list of classpaths maintained by %post in ccm RPMs