mirror of
https://github.com/git/git.git
synced 2024-09-30 18:22:42 +02:00
8c76212529
OpenSSH allows specifying an external program to use for direct user interaction. While most Linux systems already have such programs, some environments, for instance, msysgit, lack it. This patch adds a simple fallback Tcl implementation of the tool. In msysgit it is also necessary to set a fake value of the DISPLAY variable, because otherwise ssh won't even try to use SSH_ASKPASS handlers. Signed-off-by: Alexander Gavrilov <angavrilov@gmail.com> Acked-by: Johannes Sixt <johannes.sixt@telecom.at> Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
60 lines
1.3 KiB
Tcl
Executable File
60 lines
1.3 KiB
Tcl
Executable File
#!/bin/sh
|
|
# Tcl ignores the next line -*- tcl -*- \
|
|
exec wish "$0" -- "$@"
|
|
|
|
# This is a trivial implementation of an SSH_ASKPASS handler.
|
|
# Git-gui uses this script if none are already configured.
|
|
|
|
set answer {}
|
|
set yesno 0
|
|
set rc 255
|
|
|
|
if {$argc < 1} {
|
|
set prompt "Enter your OpenSSH passphrase:"
|
|
} else {
|
|
set prompt [join $argv " "]
|
|
if {[regexp -nocase {\(yes\/no\)\?\s*$} $prompt]} {
|
|
set yesno 1
|
|
}
|
|
}
|
|
|
|
message .m -text $prompt -justify center -aspect 4000
|
|
pack .m -side top -fill x -padx 20 -pady 20 -expand 1
|
|
|
|
entry .e -textvariable answer -width 50
|
|
pack .e -side top -fill x -padx 10 -pady 10
|
|
|
|
if {!$yesno} {
|
|
.e configure -show "*"
|
|
}
|
|
|
|
frame .b
|
|
button .b.ok -text OK -command finish
|
|
button .b.cancel -text Cancel -command {destroy .}
|
|
|
|
pack .b.ok -side left -expand 1
|
|
pack .b.cancel -side right -expand 1
|
|
pack .b -side bottom -fill x -padx 10 -pady 10
|
|
|
|
bind . <Visibility> {focus -force .e}
|
|
bind . <Key-Return> finish
|
|
bind . <Key-Escape> {destroy .}
|
|
bind . <Destroy> {exit $rc}
|
|
|
|
proc finish {} {
|
|
if {$::yesno} {
|
|
if {$::answer ne "yes" && $::answer ne "no"} {
|
|
tk_messageBox -icon error -title "Error" -type ok \
|
|
-message "Only 'yes' or 'no' input allowed."
|
|
return
|
|
}
|
|
}
|
|
|
|
set ::rc 0
|
|
puts $::answer
|
|
destroy .
|
|
}
|
|
|
|
wm title . "OpenSSH"
|
|
tk::PlaceWindow .
|