]>
Commit | Line | Data |
---|---|---|
98a6846b AG |
1 | # git-gui about git-gui dialog |
2 | # Copyright (C) 2006, 2007 Shawn Pearce | |
3 | ||
4 | proc find_ssh_key {} { | |
6a47fa0e BB |
5 | foreach name { |
6 | ~/.ssh/id_dsa.pub ~/.ssh/id_ecdsa.pub ~/.ssh/id_ed25519.pub | |
7 | ~/.ssh/id_rsa.pub ~/.ssh/identity.pub | |
8 | } { | |
98a6846b AG |
9 | if {[file exists $name]} { |
10 | set fh [open $name r] | |
11 | set cont [read $fh] | |
12 | close $fh | |
13 | return [list $name $cont] | |
14 | } | |
15 | } | |
16 | ||
17 | return {} | |
18 | } | |
19 | ||
20 | proc do_ssh_key {} { | |
c80d7be5 | 21 | global sshkey_title have_tk85 sshkey_fd use_ttk NS |
98a6846b AG |
22 | |
23 | set w .sshkey_dialog | |
24 | if {[winfo exists $w]} { | |
25 | raise $w | |
26 | return | |
27 | } | |
28 | ||
c80d7be5 | 29 | Dialog $w |
98a6846b AG |
30 | wm transient $w . |
31 | ||
32 | set finfo [find_ssh_key] | |
33 | if {$finfo eq {}} { | |
34 | set sshkey_title [mc "No keys found."] | |
35 | set gen_state normal | |
36 | } else { | |
37 | set sshkey_title [mc "Found a public key in: %s" [lindex $finfo 0]] | |
38 | set gen_state disabled | |
39 | } | |
40 | ||
c80d7be5 PT |
41 | ${NS}::frame $w.header |
42 | ${NS}::label $w.header.lbl -textvariable sshkey_title -anchor w | |
43 | ${NS}::button $w.header.gen -text [mc "Generate Key"] \ | |
98a6846b AG |
44 | -command [list make_ssh_key $w] -state $gen_state |
45 | pack $w.header.lbl -side left -expand 1 -fill x | |
46 | pack $w.header.gen -side right | |
47 | pack $w.header -fill x -pady 5 -padx 5 | |
48 | ||
49 | text $w.contents -width 60 -height 10 -wrap char -relief sunken | |
50 | pack $w.contents -fill both -expand 1 | |
51 | if {$have_tk85} { | |
c80d7be5 PT |
52 | set clr darkblue |
53 | if {$use_ttk} { set clr [ttk::style lookup . -selectbackground] } | |
54 | $w.contents configure -inactiveselectbackground $clr | |
98a6846b AG |
55 | } |
56 | ||
c80d7be5 PT |
57 | ${NS}::frame $w.buttons |
58 | ${NS}::button $w.buttons.close -text [mc Close] \ | |
98a6846b AG |
59 | -default active -command [list destroy $w] |
60 | pack $w.buttons.close -side right | |
c80d7be5 | 61 | ${NS}::button $w.buttons.copy -text [mc "Copy To Clipboard"] \ |
98a6846b AG |
62 | -command [list tk_textCopy $w.contents] |
63 | pack $w.buttons.copy -side left | |
64 | pack $w.buttons -side bottom -fill x -pady 5 -padx 5 | |
65 | ||
66 | if {$finfo ne {}} { | |
67 | $w.contents insert end [lindex $finfo 1] sel | |
68 | } | |
69 | $w.contents configure -state disabled | |
70 | ||
71 | bind $w <Visibility> "grab $w; focus $w.buttons.close" | |
72 | bind $w <Key-Escape> "destroy $w" | |
73 | bind $w <Key-Return> "destroy $w" | |
74 | bind $w <Destroy> kill_sshkey | |
75 | wm title $w [mc "Your OpenSSH Public Key"] | |
76 | tk::PlaceWindow $w widget . | |
77 | tkwait window $w | |
78 | } | |
79 | ||
80 | proc make_ssh_key {w} { | |
81 | global sshkey_title sshkey_output sshkey_fd | |
82 | ||
83 | set sshkey_title [mc "Generating..."] | |
84 | $w.header.gen configure -state disabled | |
85 | ||
86 | set cmdline [list sh -c {echo | ssh-keygen -q -t rsa -f ~/.ssh/id_rsa 2>&1}] | |
87 | ||
88 | if {[catch { set sshkey_fd [_open_stdout_stderr $cmdline] } err]} { | |
89 | error_popup [mc "Could not start ssh-keygen:\n\n%s" $err] | |
90 | return | |
91 | } | |
92 | ||
93 | set sshkey_output {} | |
94 | fconfigure $sshkey_fd -blocking 0 | |
95 | fileevent $sshkey_fd readable [list read_sshkey_output $sshkey_fd $w] | |
96 | } | |
97 | ||
98 | proc kill_sshkey {} { | |
99 | global sshkey_fd | |
100 | if {![info exists sshkey_fd]} return | |
101 | catch { kill_file_process $sshkey_fd } | |
102 | catch { close $sshkey_fd } | |
103 | } | |
104 | ||
105 | proc read_sshkey_output {fd w} { | |
106 | global sshkey_fd sshkey_output sshkey_title | |
107 | ||
108 | set sshkey_output "$sshkey_output[read $fd]" | |
109 | if {![eof $fd]} return | |
110 | ||
111 | fconfigure $fd -blocking 1 | |
112 | unset sshkey_fd | |
113 | ||
114 | $w.contents configure -state normal | |
115 | if {[catch {close $fd} err]} { | |
116 | set sshkey_title [mc "Generation failed."] | |
117 | $w.contents insert end $err | |
118 | $w.contents insert end "\n" | |
119 | $w.contents insert end $sshkey_output | |
120 | } else { | |
121 | set finfo [find_ssh_key] | |
122 | if {$finfo eq {}} { | |
4198579b | 123 | set sshkey_title [mc "Generation succeeded, but no keys found."] |
98a6846b AG |
124 | $w.contents insert end $sshkey_output |
125 | } else { | |
126 | set sshkey_title [mc "Your key is in: %s" [lindex $finfo 0]] | |
127 | $w.contents insert end [lindex $finfo 1] sel | |
128 | } | |
129 | } | |
130 | $w.contents configure -state disable | |
131 | } |