Ченю push

lib/git.tcl

@@ -166,17 +166,20 @@ 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"
-        # set pipe [open "|$cfgVariables(gitCommand) $cmd" "RDWR"]
-        # fconfigure $pipe -buffering none -blocking no
-        # close $pipe
-        return
+        catch $cmd pipe
+        puts $pipe
+        foreach line [split $pipe "\n"] {
+            # puts "$line"
+            lappend res $line
+        }
+        return $res
     }
         
     proc Merge {} {