[Sguil-cvs] sguil/server sguild,1.131,1.132

[Bamm V. <ba...@us...>]

Update of /cvsroot/sguil/sguil/server
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17008

Modified Files:
	sguild 
Log Message:
Added -d <DEBUG level> option for the cmd line.


Index: sguild
===================================================================
RCS file: /cvsroot/sguil/sguil/server/sguild,v
retrieving revision 1.131
retrieving revision 1.132
diff -C2 -d -r1.131 -r1.132
*** sguild	12 Nov 2004 21:41:31 -0000	1.131
--- sguild	12 Nov 2004 21:45:44 -0000	1.132
***************
*** 46,49 ****
--- 46,50 ----
    puts "  -deluser <username>: Delete user from sguild.users"
    puts "  -A <filename>: PATH to sguild.access file."
+   puts "  -d <0|1|2>: Set DEBUG level"
    puts "  -h Display this help"
    CleanExit
***************
*** 143,146 ****
--- 144,148 ----
          -A { set state accessfile }
          -l { set state sguild_lib }
+         -d { set state debug_level }
          -adduser { set state adduser }
          -deluser { set state deluser }
***************
*** 159,162 ****
--- 161,165 ----
      deluser { set DELUSER 1; set userName $arg; set state flag }
      accessfile { set ACCESS_FILE $arg; set state flag }
+     debug_level { set DEBUG_OVERRIDE 1; set DEBUG_LEVEL $arg; set DEBUG $arg; set state flag }
      default { DisplayUsage $argv0 }
    }
***************
*** 235,238 ****
--- 238,246 ----
  }
  
+ # If DEBUG was specified on the cmd line, we override the conf file here
+ if { [info exists DEBUG_OVERRIDE] && [info exists DEBUG_LEVEL] } {
+     set DEBUG $DEBUG_LEVEL
+ }
+ 
  # Source the libs
  set sourceLibs {