From b65eaf1d1f1417afc7a35fb988499e148f9cf555 Mon Sep 17 00:00:00 2001 From: runge Date: Mon, 18 Sep 2006 02:32:27 +0000 Subject: sync ETV 1.0.4 --- .../bin/util/ssl_tightvncviewer.tcl | 53 ++++++++++++++-------- .../enhanced_tightvnc_viewer/src/patches/_bundle | 2 +- 2 files changed, 34 insertions(+), 21 deletions(-) diff --git a/x11vnc/misc/enhanced_tightvnc_viewer/bin/util/ssl_tightvncviewer.tcl b/x11vnc/misc/enhanced_tightvnc_viewer/bin/util/ssl_tightvncviewer.tcl index 1243c22..39c50fd 100755 --- a/x11vnc/misc/enhanced_tightvnc_viewer/bin/util/ssl_tightvncviewer.tcl +++ b/x11vnc/misc/enhanced_tightvnc_viewer/bin/util/ssl_tightvncviewer.tcl @@ -2168,7 +2168,7 @@ proc check_pp {} { proc get_openssl {} { global is_windows if {$is_windows} { - set ossl "util/openssl" + set ossl "openssl.exe" } else { set ossl "openssl" } @@ -2177,10 +2177,9 @@ proc get_openssl {} { proc get_x509_info {crt} { set ossl [get_openssl] set info "" - #puts "$ossl x509 -text -in \"$crt\"" + update set ph [open "| $ossl x509 -text -in \"$crt\"" "r"] while {[gets $ph line] > -1} { - #puts "line: $line" append info "$line\n" } close $ph @@ -2322,6 +2321,7 @@ emailAddress_max = 64 if {$is_win9x} { catch {file delete $pem} catch {file delete $crt} + update eval exec $cmd & catch {raise .} set sl 0 @@ -2342,14 +2342,16 @@ emailAddress_max = 64 } mesg "" } else { + update set rc [catch {eval exec $cmd} emess] - if {$rc != 0} { + if {$rc != 0 && [regexp -nocase {error:} $emess]} { tk_messageBox -type ok -icon error -message $emess -title "OpenSSL req command failed" return } } } else { set geometry [xterm_center_geometry] + update eval exec xterm -geometry $geometry -title Running_OpenSSL -e $cmd } catch {file delete $tmp} @@ -2371,6 +2373,7 @@ emailAddress_max = 64 set cmd "$ossl rsa -in \"$pem\" -des3 -out \"$pem\" -passout stdin" set ph "" set emess "" + update set rc [catch {set ph [open "| $cmd" "w"]} emess] if {$rc != 0 || $ph == ""} { tk_messageBox -type ok -icon error -message $emess -title "Count not encrypt private key" @@ -2498,10 +2501,11 @@ proc create_cert {} { certificate files to the remote VNC Server and have the VNC Server use it. Or you could send it to the system administrator of the VNC Server. - We assume below that the filename selected in the "Save to file" entry - is "vnccert.pem". That file will be generated and so will "vnccert.crt". - "vnccert.pem" contains both the Private Key and the Public Certificate. - "vnccert.crt" only contains the Public Certificate. + For the purpose of description, assume that the filename selected in the + "Save to file" entry is "vnccert.pem". That file will be generated + by this process and so will the "vnccert.crt" file. "vnccert.pem" + contains both the Private Key and the Public Certificate. "vnccert.crt" + only contains the Public Certificate. For case 1) you would copy "vnccert.crt" to the VNC Server side and instruct the server to use it. For x11vnc it would be for example: @@ -3964,13 +3968,14 @@ proc cups_dialog {} { checkbutton .cups.cupsrc -anchor w -variable cups_manage_rcfile -text \ "Manage ServerName in the remote \$HOME/.cups/client.conf file for me" + button .cups.cancel -text "Cancel" -command {destroy .cups; set use_cups 0} + bind .cups {destroy .cups; set use_cups 0} button .cups.done -text "Done" -command {destroy .cups; if {$use_cups} {set_ssh}} - bind .cups {destroy .cups; if {$use_cups} {set_ssh}} button .cups.guess -text "Help me decide ..." -command {} .cups.guess configure -state disabled - pack .cups.done .cups.guess .cups.cupsrc .cups.smbp .cups.smbs .cups.port .cups.serv -side bottom -fill x + pack .cups.done .cups.cancel .cups.guess .cups.cupsrc .cups.smbp .cups.smbs .cups.port .cups.serv -side bottom -fill x pack .cups.f -side top -fill both -expand 1 center_win .cups @@ -4112,10 +4117,11 @@ proc sound_dialog {} { .snd.sdkl configure -state disabled } + button .snd.cancel -text "Cancel" -command {destroy .snd; set use_sound 0} + bind .snd {destroy .snd; set use_sound 0} button .snd.done -text "Done" -command {destroy .snd; if {$use_sound} {set_ssh}} - bind .snd {destroy .snd; if {$use_sound} {set_ssh}} - pack .snd.done .snd.guess .snd.sdkl .snd.sdsl .snd.sdr .snd.sdk .snd.lport .snd.rport \ + pack .snd.done .snd.cancel .snd.guess .snd.sdkl .snd.sdsl .snd.sdr .snd.sdk .snd.lport .snd.rport \ .snd.local .snd.remote -side bottom -fill x pack .snd.f -side bottom -fill both -expand 1 @@ -4591,6 +4597,7 @@ You can do this by either logging into the remote machine to find the info or as global smb_wiz_done set smb_wiz_done 0 + button .smbwiz.cancel -text "Cancel" -command {set smb_wiz_done 1} button .smbwiz.done -text "Done" -command {set smb_wiz_done 1} pack .smbwiz.done -side bottom -fill x pack .smbwiz.f -side top -fill both -expand 1 @@ -4661,6 +4668,8 @@ You can do this by either logging into the remote machine to find the info or as if {! $smbmount_exists || $smbmount_sumode == "dontknow"} { tk_messageBox -type ok -icon warning -message "Sorry we couldn't help out!\n'smbmount' info on the remote system is required for SMB mounting" -title "SMB mounting -- aborting" + global use_smbmnt + set use_smbmnt 0 catch {raise .oa} return } @@ -4851,10 +4860,11 @@ proc smb_dialog {} { button .smb.guess -text "Help me decide ..." -command {destroy .smb; smb_help_me_decide} #.smb.guess configure -state disabled + button .smb.cancel -text "Cancel" -command {set use_smbmnt 0; destroy .smb} + bind .smb {set use_smbmnt 0; destroy .smb} button .smb.done -text "Done" -command {if {$use_smbmnt} {set_ssh; set smb_mount_list [.smb.mnts get 1.0 end]}; destroy .smb} - bind .smb {if {$use_smbmnt} {set_ssh; set smb_mount_list [.smb.mnts get 1.0 end]}; destroy .smb} - pack .smb.done .smb.guess .smb.mnts .smb.info .smb.r -side bottom -fill x + pack .smb.done .smb.cancel .smb.guess .smb.mnts .smb.info .smb.r -side bottom -fill x pack .smb.f -side top -fill both -expand 1 center_win .smb @@ -4964,10 +4974,11 @@ proc change_vncviewer_dialog {} { pack .chviewer.path.b -side left pack .chviewer.path.r -side left + button .chviewer.cancel -text "Cancel" -command {destroy .chviewer; set change_vncviewer 0} + bind .chviewer {destroy .chviewer; set change_vncviewer 0} button .chviewer.done -text "Done" -command {destroy .chviewer; catch {raise .oa}} - bind .chviewer {destroy .chviewer; catch {raise .oa}} - pack .chviewer.t .chviewer.path .chviewer.done -side top -fill x + pack .chviewer.t .chviewer.path .chviewer.cancel .chviewer.done -side top -fill x center_win .chviewer wm resizable .chviewer 1 0 @@ -5030,10 +5041,11 @@ proc port_redir_dialog {} { pack .redirs.path.l -side left pack .redirs.path.e -side left -expand 1 -fill x + button .redirs.cancel -text "Cancel" -command {set additional_port_redirs 0; destroy .redirs} + bind .redirs {set additional_port_redirs 0; destroy .redirs} button .redirs.done -text "Done" -command {destroy .redirs} - bind .redirs {destroy .redirs} - pack .redirs.t .redirs.path .redirs.done -side top -fill x + pack .redirs.t .redirs.path .redirs.cancel .redirs.done -side top -fill x center_win .redirs wm resizable .redirs 1 0 @@ -5549,10 +5561,11 @@ proc port_knocking_dialog {} { .pk.rule insert end $port_knocking_list #apply_bg .pk.rule + button .pk.cancel -text "Cancel" -command {set use_port_knocking 0; destroy .pk} + bind .pk {set use_port_knocking 0; destroy .pk} button .pk.done -text "Done" -command {if {$use_port_knocking} {set port_knocking_list [.pk.rule get 1.0 end]}; destroy .pk} - bind .pk {if {$use_port_knocking} {set port_knocking_list [.pk.rule get 1.0 end]}; destroy .pk} - pack .pk.done .pk.rule .pk.info -side bottom -fill x + pack .pk.done .pk.cancel .pk.rule .pk.info -side bottom -fill x pack .pk.f -side top -fill both -expand 1 center_win .pk diff --git a/x11vnc/misc/enhanced_tightvnc_viewer/src/patches/_bundle b/x11vnc/misc/enhanced_tightvnc_viewer/src/patches/_bundle index c2eec84..379e229 100755 --- a/x11vnc/misc/enhanced_tightvnc_viewer/src/patches/_bundle +++ b/x11vnc/misc/enhanced_tightvnc_viewer/src/patches/_bundle @@ -1,7 +1,7 @@ #!/bin/sh rm -rf ./src/tmp/* || exit 1 -vers=1.0.3 +vers=1.0.4 cd .. || exit 1 -- cgit v1.2.1