Compare commits
2 Commits
f26067b24f
...
a89c0309ad
Author | SHA1 | Date | |
---|---|---|---|
|
a89c0309ad | ||
|
ea9902ef74 |
13
lib/git.tcl
13
lib/git.tcl
|
@ -166,17 +166,20 @@ namespace eval Git {
|
||||||
}
|
}
|
||||||
proc Push {url} {
|
proc Push {url} {
|
||||||
global cfgVariables activeProject gitUser gitPassword
|
global cfgVariables activeProject gitUser gitPassword
|
||||||
# set cmd exec
|
set cmd exec
|
||||||
lappend cmd "$cfgVariables(gitCommand)"
|
lappend cmd "$cfgVariables(gitCommand)"
|
||||||
cd $activeProject
|
cd $activeProject
|
||||||
lappend cmd "push"
|
lappend cmd "push"
|
||||||
lappend cmd "$url"
|
lappend cmd "$url"
|
||||||
# lappend cmd "$activeProject"
|
# lappend cmd "$activeProject"
|
||||||
puts "$cmd"
|
puts "$cmd"
|
||||||
# set pipe [open "|$cfgVariables(gitCommand) $cmd" "RDWR"]
|
catch $cmd pipe
|
||||||
# fconfigure $pipe -buffering none -blocking no
|
puts $pipe
|
||||||
# close $pipe
|
foreach line [split $pipe "\n"] {
|
||||||
return
|
# puts "$line"
|
||||||
|
lappend res $line
|
||||||
|
}
|
||||||
|
return $res
|
||||||
}
|
}
|
||||||
|
|
||||||
proc Merge {} {
|
proc Merge {} {
|
||||||
|
|
Loading…
Reference in New Issue
Block a user