Differences From:

File tools/import-cvs.tcl part of check-in [7003caa982] - (no comment) by aku on 2007-09-04 05:38:29. [view]

To:

File tools/import-cvs.tcl part of check-in [492531e3a8] - Importer extended to allow capture of exact fossil commit command by aku on 2007-09-04 22:00:31. [view]

@@ -90,14 +90,21 @@
 
 # -----------------------------------------------------------------------------
 
 proc commandline {} {
-    global argv cvs fossil nosign log
+    global argv cvs fossil nosign log debugcommit
 
     set nosign 0
+    set debugcommit 0
+
     while {[string match "-*" [set opt [lindex $argv 0]]]} {
 	if {$opt eq "--nosign"} {
 	    set nosign 1
+	    set argv [lrange $argv 1 end]
+	    continue
+	}
+	if {$opt eq "--debugcommit"} {
+	    set debugcommit 1
 	    set argv [lrange $argv 1 end]
 	    continue
 	}
 	usage
@@ -115,8 +122,10 @@
 	usage "Fossil destination repository exists already."
     }
 
     set log [open ${fossil}.log w]
+
+    fossil::debugcommit $debugcommit
     return
 }
 
 proc usage {{text {}}} {