lib/git.tcl

@@ -166,20 +166,17 @@ namespace eval Git {
     }
     proc Push {url} {
         global cfgVariables activeProject gitUser gitPassword
-        set cmd exec
+        # set cmd exec
         lappend cmd "$cfgVariables(gitCommand)"
         cd $activeProject       
         lappend cmd "push"
         lappend cmd "$url"
         # lappend cmd "$activeProject"
         puts "$cmd"
-        catch $cmd pipe
+        # set pipe [open "|$cfgVariables(gitCommand) $cmd" "RDWR"]
-        puts $pipe
+        # fconfigure $pipe -buffering none -blocking no
-        foreach line [split $pipe "\n"] {
+        # close $pipe
-            # puts "$line"
+        return
-            lappend res $line
-        }
-        return $res
     }
         
     proc Merge {} {