TDE
/
libtdevnc
mirror of https://mirror.git.trinitydesktop.org/gitea/TDE/libtdevnc
0
0
Fork 0
Code Issues Releases Wiki Activity

Synchronize ssvnc source, etc. Nearly the 1.0.24 release...

Browse Source
pull/1/head
runge 14 years ago
parent 3129ef668a
commit 387e189b37
8 changed files with 1064 additions and 310 deletions
Show Stats Download Patch File Download Diff File

12
x11vnc/misc/enhanced_tightvnc_viewer/README
Unescape View File

@ -244,7 +244,7 @@ Unix and Mac OS X:
Unpack the archive:
% gzip -dc ssvnc-1.0.22.tar.gz | tar xvf -
% gzip -dc ssvnc-1.0.24.tar.gz | tar xvf -
Run the GUI:
@ -252,7 +252,7 @@ Unix and Mac OS X:
% ./ssvnc/MacOSX/ssvnc (for Mac OS X)
The smaller file "ssvnc_no_windows-1.0.22.tar.gz"
The smaller file "ssvnc_no_windows-1.0.24.tar.gz"
could have been used as well.
On MacOSX you could also click on the SSVNC app icon in the Finder.
@ -298,8 +298,8 @@ Unix/MacOSX Install:
For the conventional source tarball it will compile and install, e.g.:
gzip -dc ssvnc-1.0.22.src.tar.gz | tar xvf -
cd ssvnc-1.0.22
gzip -dc ssvnc-1.0.24.src.tar.gz | tar xvf -
cd ssvnc-1.0.24
make config
make all
make PREFIX=/my/install/dir install
@ -311,7 +311,7 @@ Windows:
Unzip, using WinZip or a similar utility, the zip file:
ssvnc-1.0.22.zip
ssvnc-1.0.24.zip
Run the GUI, e.g.:
@ -323,7 +323,7 @@ Windows:
select Open, and then OK to launch it.
The smaller file "ssvnc_windows_only-1.0.22.zip"
The smaller file "ssvnc_windows_only-1.0.24.zip"
could have been used as well.
You can make a Windows shortcut to this program if you want to.

95
x11vnc/misc/enhanced_tightvnc_viewer/bin/ssvnc
Unescape View File

@ -1,13 +1,103 @@
#!/bin/sh
#
# Copyright (c) 2006 by Karl J. Runge <runge@karlrunge.com>
# Copyright (c) 2006-2009 by Karl J. Runge <runge@karlrunge.com>
#
# sslvnc:
# ssvnc:
#
# A wrapper for ssvnc_cmd using a tcl/tk gui.
#
# See ssvnc_cmd for details.
#
if [ "X$1" = "X-help" -o "X$1" = "X-h" ]; then
cat << END
ssvnc - a GUI wrapper for SSL and SSH VNC connections.
SYNOPSIS
ssvnc
ssvnc [host][:display]
ssvnc [saved-profile-name]
ssvnc [options] [host-or-profile]
ssvnc --help
DESCRIPTION
ssvnc is a tcl/tk gui wrapper that runs on Unix, MacOSX, and Windows.
It sets up an SSL or SSH tunnel to the remote VNC Server and then
launches the VNC viewer (either the one provided or another one that
you have specified) to use that encrypted tunnel to connect to the VNC
Server. The use of Proxies and Gateways to make the connections is
implemented.
OPTIONS
-help, -h Print this help.
--help Starts up the GUI as though the 'Help' button was pressed to
show the main Help panel.
-profiles
List the saved SSVNC profiles you have created. A profile is a
destination host with specific parameter settings.
-list Same as -profiles
-ssh Start in "SSH Only Mode". No SSL aspects are shown. Same as
running the command sshvnc
-ts Start in "Terminal Services Mode". This is like "SSH Only
Mode", but simpler and assumes x11vnc is available on the remote
side to start and manage X and VNC sessions. Same as running
the command tsvnc
-tso Same as -ts "Terminal Services Mode", however never let the user
leave this mode (no button to switch modes is provided.) Same
as SSVNC_TS_ALWAYS=1.
-ssl Force the full GUI Mode: both SSL and SSH. This is the default.
Same as -ss.
-nv Toggle the "Verify All Certs" button to be off at startup.
-nvb Never show the "Verify All Certs" button. Same as SSVNC_NO_VER-
IFY_ALL_BUTTON=1.
-bigger
Make the Profile Selection Dialog window bigger. Same as
SSVNC_BIGGER_DIALOG=1.
-noenc Start off in a mode where a 'No Encryption' check button is
present. You can toggle the mode with Ctrl-E. Same as
SSVNC_DISABLE_ENCRYPTION_BUTTON=1. Or noenc=1 in ~/.ssvncrc.
Selecting no encryption is the same as the vnc:// and Vnc://
prefixes described below. -enc implies the opposite.
-killstunnel
On Windows, automatically terminate the STUNNEL process when the
viewer exits instead of prompting you (same as killstunnel=1 in
ssvnc_rc or toggle in Options menu)
-nokillstunnel
On Windows, disable -killstunnel mode. Same as killstunnel=0 in
ssvnc_rc or toggle in Options menu. Note that -killstunnel mode
is now the default.
-mycert /path/to/mycert.pem
Set the default "MyCert" to be /path/to/mycert.pem. Same as
-cert. If the file does not exist, ~/.vnc/certs is prefixed and
tried. You can also set mycert=/path/to/mycert.pem in ~/.ssvncrc
-cacert /path/to/cacert.crt
Set the default "ServerCert" to be /path/to/cacert.crt. Same as
-ca. If the file does not exist, ~/.vnc/certs is prefixed and
tried. You can also set cacert=/path/to/cacert.crt in ~/.ssvncrc
-crl /path/to/mycrl.pem
Set the default Certificate Revocation List to be
/path/to/mycrl.pem. If the file does not exist, ~/.vnc/certs is
prefixed and tried. You can also set crl=/path/to/mycrl.pem in
~/.ssvncrc.
END
exit 0
fi
if [ "X$XTERM_PRINT" != "X" ]; then
XTERM_PRINT=""
cat > /dev/null
@ -18,6 +108,7 @@ if [ "X$1" = "X-bg" ]; then
exit 0
fi
PATH=$PATH:/usr/bin:/bin:/usr/bin/X11:/usr/X11R6/bin:/usr/openwin/bin:/usr/sfw/bin:/usr/local/bin
export PATH

88
x11vnc/misc/enhanced_tightvnc_viewer/bin/util/ss_vncviewer
Unescape View File

@ -141,6 +141,7 @@ if uname | grep Darwin >/dev/null; then
fi
# work out which stunnel to use (debian installs as stunnel4)
stunnel_set_here=""
if [ "X$STUNNEL" = "X" ]; then
check_stunnel=1
if [ "X$SSVNC_BASEDIRNAME" != "X" ]; then
@ -161,6 +162,7 @@ if [ "X$STUNNEL" = "X" ]; then
STUNNEL=stunnel
fi
fi
stunnel_set_here=1
fi
help() {
@ -287,6 +289,8 @@ do
;;
"-ssvnc_encodings") shift; VNCVIEWER_ENCODINGS="$1"; export VNCVIEWER_ENCODINGS
;;
"-ssvnc_extra_opts") shift; VNCVIEWERCMD_EXTRA_OPTS="$1"; export VNCVIEWERCMD_EXTRA_OPTS
;;
"-rfbversion") shift; VNCVIEWER_RFBVERSION="$1"; export VNCVIEWER_RFBVERSION
;;
"-nobell") VNCVIEWER_NOBELL=1; export VNCVIEWER_NOBELL
@ -687,6 +691,12 @@ if echo "$0" | grep vncip > /dev/null; then
VNCVIEWERCMD="$VNCIPCMD"
fi
if echo "$VNCVIEWERCMD" | egrep -i '^(xmessage|sleep )' > /dev/null; then
:
elif [ "X$VNCVIEWERCMD_EXTRA_OPTS" != "X" ]; then
VNCVIEWERCMD="$VNCVIEWERCMD $VNCVIEWERCMD_EXTRA_OPTS"
fi
# trick for the undocumented rsh://host:port method.
rsh_setup() {
if echo "$ssh_host" | grep '@' > /dev/null; then
@ -719,11 +729,30 @@ rsh_viewer() {
fi
}
check_perl() {
if type "$1" > /dev/null 2>&1; then
:
elif [ ! -x "$1" ]; then
echo ""
echo "*******************************************************"
echo "** Problem finding the Perl command '$1': **"
echo ""
type "perl"
echo ""
echo "** Perhaps you need to install the Perl package. **"
echo "*******************************************************"
echo ""
sleep 5
fi
}
# this is the PPROXY tool. used only here for now...
pcode() {
tf=$1
PPROXY_PROXY=$proxy; export PPROXY_PROXY
PPROXY_DEST="$host:$port"; export PPROXY_DEST
check_perl /usr/bin/perl
cod='#!/usr/bin/perl
# A hack to glue stunnel to a Web proxy or SOCKS for client connections.
@ -1535,6 +1564,26 @@ if [ "X$use_ssh" = "X1" ]; then
# let user override ssh via $SSH
ssh=${SSH:-"ssh -x"}
sshword=`echo "$ssh" | awk '{print $1}'`
if [ "X$sshword" != "X" ]; then
if [ -x "$sshword" ]; then
:
elif type "$sshword" > /dev/null 2>&1; then
:
else
echo ""
echo "*********************************************************"
echo "** Problem finding the SSH command '$sshword': **"
echo ""
type "$sshword"
echo ""
echo "** Perhaps you need to install the SSH client package. **"
echo "*********************************************************"
echo ""
sleep 5
fi
fi
if [ "X$SSVNC_LIM_ACCEPT_PRELOAD" != "X" ]; then
SSVNC_LIM_ACCEPT_PRELOAD="$SSVNC_BASEDIR/$SSVNC_UNAME/$SSVNC_LIM_ACCEPT_PRELOAD"
fi
@ -1958,6 +2007,23 @@ if [ "X$use_ssh" = "X1" ]; then
fi
fi
if [ "X$stunnel_set_here" = "X1" -a "X$showcert" = "X" ]; then
if type $STUNNEL > /dev/null 2>&1; then
:
else
echo ""
echo "***************************************************************"
echo "** Problem finding the Stunnel command '$STUNNEL': **"
echo ""
type $STUNNEL
echo ""
echo "** Perhaps you need to install the stunnel/stunnel4 package. **"
echo "***************************************************************"
echo ""
sleep 5
fi
fi
# create the stunnel config file:
if [ "X$verify" != "X" ]; then
if [ -d $verify ]; then
@ -2033,6 +2099,19 @@ if [ "X$showcert" = "X1" ]; then
if [ "X$ciphers" != "X" ]; then
cipher_args=`echo "$ciphers" | sed -e 's/ciphers=/-cipher /'`
fi
if type openssl > /dev/null 2>&1; then
:
else
echo ""
echo "********************************************************"
echo "** Problem finding the OpenSSL command 'openssl': **"
echo ""
type openssl 2>&1
echo ""
echo "** Perhaps you need to install the 'openssl' package. **"
echo "********************************************************"
echo ""
fi
#echo "openssl s_client $cipher_args -connect $host:$port"
if [ "X$reverse" = "X" ]; then
openssl s_client $cipher_args -prexit -connect $host:$port 2>&1 < /dev/null
@ -2052,6 +2131,9 @@ if [ "X$showcert" = "X1" ]; then
#echo "openssl s_server $cipher_args $cert_args -accept $port -verify 2 > $tmp_out 2> $tmp_err" 1>&2
# assume we have perl:
check_perl perl
perl -e "
\$p = open(O, \"|openssl s_server $cipher_args $cert_args -accept $port -verify 2 1>$tmp_out 2> $tmp_err\");
exit 1 unless \$p;
@ -2094,7 +2176,11 @@ if [ "X$showcert" = "X1" ]; then
if [ "X$SSVNC_PREDIGESTED_HANDSHAKE" != "X" ]; then
rm -f $SSVNC_PREDIGESTED_HANDSHAKE
fi
exit $rc
if [ "X$SSVNC_SHOWCERT_EXIT_0" = "X1" ]; then
exit 0
else
exit $rc
fi
fi
if [ "X$direct_connect" != "X" ]; then

546
x11vnc/misc/enhanced_tightvnc_viewer/bin/util/ssvnc.tcl
Unescape View File

@ -8,7 +8,7 @@ exec wish "$0" "$@"
# ssvnc.tcl: gui wrapper to the programs in this
# package. Also sets up service port forwarding.
#
set version 1.0.23
set version 1.0.24
set buck_zero $argv0
@ -56,6 +56,14 @@ proc apply_bg {w} {
}
}
proc line_count {{str ""} {pad 0}} {
set n $pad
foreach l [split $str "\n"] {
incr n
}
return $n
}
proc scroll_text {fr {w 80} {h 35}} {
global help_font is_windows scroll_text_focus
@ -1355,6 +1363,11 @@ proc help {} {
Prefix any of these with "FORCE:" to make them immutable, e.g.
"cacert=FORCE:CA".
To change the fonts (see Tip 18 below for examples):
font_default=tk-font-name (sets the font for menus and buttons)
font_fixed=tk-font-name (sets the font for help text)
16) On Unix you can make the "Open File" and "Save File" dialogs
bigger by setting the env. var. SSVNC_BIGGER_DIALOG=1 or
supplying the -bigger option. If you set it to a Width x Height,
@ -1363,6 +1376,19 @@ proc help {} {
17) On Unix / MacOSX to enable debug output you can set these env.
vars to 1: SSVNC_STUNNEL_DEBUG, SSVNC_VENCRYPT_DEBUG, and
SS_DEBUG (very verbose)
18) Fonts: To change the tk fonts, set these environment variables
before starting up ssvnc: SSVNC_FONT_DEFAULT and SSVNC_FONT_FIXED.
For example:
% env SSVNC_FONT_DEFAULT='helvetica -20 bold' ssvnc
% env SSVNC_FONT_FIXED='courier -14' ssvnc
or set both of them at once. You can also set 'font_default' and
'font_fixed' in your ~/.ssvncrc. E.g.:
font_default=helvetica -16 bold
font_fixed=courier -12
}
global version
@ -1939,6 +1965,9 @@ set msg {
(The above 4 settings apply only to the Terminal Services Mode.)
noenc=1 (same as the -noenc option for a 'No Encryption' button)
font_default=tk-font-name (sets the font for menus and buttons)
font_fixed=tk-font-name (sets the font for help text)
}
.oh.f.t insert end $msg
jiggle_text .oh.f.t
@ -2644,7 +2673,7 @@ proc set_defaults {} {
global defs env
global mycert svcert crtdir crlfil
global use_alpha use_turbovnc use_grab use_ssl use_ssh use_sshssl use_viewonly use_fullscreen use_bgr233
global use_alpha use_turbovnc disable_pipeline use_grab use_ssl use_ssh use_sshssl use_viewonly use_fullscreen use_bgr233
global use_send_clipboard use_send_always
global disable_all_encryption
global use_nojpeg use_raise_on_beep use_compresslevel use_quality use_x11_macosx
@ -2660,13 +2689,13 @@ proc set_defaults {} {
global choose_ncache ts_ncache choose_multisession ts_multisession
global ts_mode ts_desktop_size ts_desktop_depth choose_desktop_geom
global additional_port_redirs additional_port_redirs_list
global stunnel_local_protection stunnel_local_protection_type ssh_local_protection multiple_listen listen_once
global stunnel_local_protection stunnel_local_protection_type ssh_local_protection multiple_listen listen_once listen_accept_popup listen_accept_popup_sc
global ultra_dsm ultra_dsm_type ultra_dsm_file ultra_dsm_noultra ultra_dsm_salt
global sound_daemon_remote_cmd sound_daemon_remote_port sound_daemon_kill sound_daemon_restart
global sound_daemon_local_cmd sound_daemon_local_port sound_daemon_local_kill sound_daemon_x11vnc sound_daemon_local_start
global smb_su_mode smb_mount_list
global use_port_knocking port_knocking_list
global ycrop_string ssvnc_scale ssvnc_escape sbwid_string rfbversion ssvnc_encodings use_x11cursor use_nobell use_rawlocal use_popupfix extra_sleep use_listen use_unixpw use_x11vnc_find unixpw_username
global ycrop_string ssvnc_scale ssvnc_escape sbwid_string rfbversion ssvnc_encodings ssvnc_extra_opts use_x11cursor use_nobell use_rawlocal use_popupfix extra_sleep use_listen use_unixpw use_x11vnc_find unixpw_username
global disable_ssl_workarounds disable_ssl_workarounds_type
global server_vencrypt server_anondh
global include_list
@ -2687,6 +2716,7 @@ proc set_defaults {} {
set defs(use_send_clipboard) 0
set defs(use_send_always) 0
set defs(use_turbovnc) 0
set defs(disable_pipeline) 0
set defs(server_vencrypt) 0
set defs(server_anondh) 0
set defs(use_grab) 0
@ -2752,6 +2782,8 @@ proc set_defaults {} {
set defs(ssh_local_protection) 1
set defs(multiple_listen) 0
set defs(listen_once) 0
set defs(listen_accept_popup) 0
set defs(listen_accept_popup_sc) 0
set defs(ultra_dsm) 0
set defs(ultra_dsm_file) ""
@ -2784,6 +2816,7 @@ proc set_defaults {} {
set defs(sbwid_string) ""
set defs(rfbversion) ""
set defs(ssvnc_encodings) ""
set defs(ssvnc_extra_opts) ""
set defs(use_x11cursor) 0
set defs(use_nobell) 0
set defs(use_rawlocal) 0
@ -3405,9 +3438,9 @@ proc launch_windows_ssh {hp file n} {
after 400
set proxy_pid [exec "connect_br.exe" &]
unset -nocomplain env(SSVNC_PROXY)
unset -nocomplain env(SSVNC_LISTEN)
unset -nocomplain env(SSVNC_DEST)
catch { unset env(SSVNC_PROXY) }
catch { unset env(SSVNC_LISTEN) }
catch { unset env(SSVNC_DEST) }
if {$sproxy1 == ""} {
set proxy "$win_localhost:$port2"
@ -4193,6 +4226,24 @@ proc unix_terminal_cmd {{geometry "+100+100"} {title "xterm-command"} {cmd "echo
return
}
}
global checked_for_xterm
if {![info exists checked_for_xterm]} {
set p ""
set r [catch {set p [exec /bin/sh -c {type xterm}]}]
set checked_for_xterm 1
if {$r != 0} {
set p [exec /bin/sh -c {type xterm 2>&1; exit 0}]
set txt "Problem finding the 'xterm' command:\n\n$p\n\n"
append txt "Perhaps you need to install a package containing 'xterm' (Sigh...)\n\n"
fetch_dialog $txt "xterm" "xterm" 0 [line_count $txt]
update
after 1000
catch {tkwait window .fetch}
update
}
}
if {$bg} {
if {$xrm1 == ""} {
exec xterm -sb -sl 2000 -geometry "$geometry" -title "$title" -e sh -c "$cmd" 2>@stdout &
@ -4616,6 +4667,7 @@ if [info exists env(CERTDBG)] {puts "\nFetch-2-\n$cert_text"}
set n 4
} elseif {! [regexp {BEGIN CERTIFICATE} $cert_text]} {
set cert_text "An Error occurred in fetching $hp\n\n$cert_text"
set n [line_count $cert_text 1]
set ok 0
} else {
if [regexp -- {-----BEGIN SSL SESSION PARAMETERS-----} $cert_text] {
@ -4759,6 +4811,7 @@ proc fetch_cert_unix {hp {vencrypt 0} {anondh 0}} {
}
global env
if [info exists env(CERTDBG)] {puts "\nFetch-cmd: $cmd"}
set env(SSVNC_SHOWCERT_EXIT_0) 1
return [eval exec $cmd]
}
@ -4830,17 +4883,17 @@ proc fetch_cert_windows {hp {anondh 0}} {
set proxy_pid [exec "connect_br.exe" &]
if {$sp == ""} {
unset -nocomplain env(SSVNC_PROXY)
catch { unset env(SSVNC_PROXY) }
} else {
set env(SSVNC_PROXY) $sp
}
if {$sl == ""} {
unset -nocomplain env(SSVNC_LISTEN)
catch { unset env(SSVNC_LISTEN) }
} else {
set env(SSVNC_LISTEN) $sl
}
if {$sd == ""} {
unset -nocomplain env(SSVNC_DEST)
catch { unset env(SSVNC_DEST) }
} else {
set env(SSVNC_DEST) $sd
}
@ -5026,6 +5079,11 @@ proc check_accepted_certs {} {
bell
catch {raise .; update}
mesg "WARNING: Error fetching Server Cert"
after 500
set hp [get_vncdisplay]
set n [line_count $cert_text 1]
fetch_dialog $cert_text $hp $hp 0 $n
update
after 2000
return 0
}
@ -5549,13 +5607,16 @@ proc reset_stunnel_extra_opts {} {
}
set env(SSVNC_ULTRA_DSM) ""
set env(SSVNC_TURBOVNC) ""
catch { unset env(VNCVIEWER_NO_PIPELINE_UPDATES) }
catch { unset env(SSVNC_ACCEPT_POPUP) }
catch { unset env(SSVNC_ACCEPT_POPUP_SC) }
}
proc launch_unix {hp} {
global smb_redir_0 smb_mounts env
global vncauth_passwd use_unixpw unixpw_username unixpw_passwd
global ssh_only ts_only use_x11cursor use_nobell use_rawlocal use_popupfix ssvnc_scale ssvnc_escape
global ssvnc_encodings
global ssvnc_encodings ssvnc_extra_opts
globalize
@ -5717,7 +5778,7 @@ proc launch_unix {hp} {
set env(LIM_ACCEPT) 1
}
if {![info exists env(LIM_ACCEPT_TIME)]} {
set env(LIM_ACCEPT_TIME) 15
set env(LIM_ACCEPT_TIME) 35
}
set env(SSVNC_LIM_ACCEPT_PRELOAD) "lim_accept.so"
mesg "SSH LIM_ACCEPT($env(LIM_ACCEPT),$env(LIM_ACCEPT_TIME)): lim_accept.so"
@ -6003,6 +6064,9 @@ proc launch_unix {hp} {
if {$use_turbovnc} {
set env(SSVNC_TURBOVNC) 1
}
if {$disable_pipeline} {
set env(VNCVIEWER_NO_PIPELINE_UPDATES) 1
}
if {$use_grab} {
set cmd "$cmd -grab"
}
@ -6027,6 +6091,9 @@ proc launch_unix {hp} {
if {$ssvnc_encodings != ""} {
set cmd "$cmd -ssvnc_encodings '$ssvnc_encodings'"
}
if {$ssvnc_extra_opts != ""} {
set cmd "$cmd -ssvnc_extra_opts '$ssvnc_extra_opts'"
}
if {$rfbversion != ""} {
set cmd "$cmd -rfbversion '$rfbversion'"
}
@ -6038,6 +6105,13 @@ proc launch_unix {hp} {
if {$listen_once} {
set cmd "$cmd -onelisten"
}
if {$listen_accept_popup} {
if {$listen_accept_popup_sc} {
set env(SSVNC_ACCEPT_POPUP_SC) 1
} else {
set env(SSVNC_ACCEPT_POPUP) 1
}
}
}
global darwin_cotvnc
@ -7111,10 +7185,10 @@ proc launch {{hp ""}} {
mesg "Starting TCP helper on port $port ..."
after 600
set proxy_pid [exec "connect_br.exe" &]
unset -nocomplain env(SSVNC_PROXY)
unset -nocomplain env(SSVNC_LISTEN)
unset -nocomplain env(SSVNC_REVERSE)
unset -nocomplain env(SSVNC_DEST)
catch { unset env(SSVNC_PROXY) }
catch { unset env(SSVNC_LISTEN) }
catch { unset env(SSVNC_REVERSE) }
catch { unset env(SSVNC_DEST) }
}
mesg "Starting STUNNEL on port $port2 ..."
@ -7265,9 +7339,9 @@ proc direct_connect_windows {{hp ""}} {
mesg "Starting TCP helper on port $port ..."
after 600
set proxy_pid [exec "connect_br.exe" &]
unset -nocomplain env(SSVNC_PROXY)
unset -nocomplain env(SSVNC_LISTEN)
unset -nocomplain env(SSVNC_DEST)
catch { unset env(SSVNC_PROXY) }
catch { unset env(SSVNC_LISTEN) }
catch { unset env(SSVNC_DEST) }
}
catch {destroy .o}
@ -12072,7 +12146,7 @@ proc help_advanced_opts {} {
mount SMB file shares from your local server. The remote machine
must be Linux with smbmount installed. SSH mode is required.
Additional Port Redirs:
Additional Port Redirs (via SSH):
Specify additional -L port:host:port and -R port:host:port
cmdline options for SSH to enable additional services.
@ -12103,7 +12177,7 @@ proc help_advanced_opts {} {
SSH Local Port Protections:
An LD_PRELOAD hack to limit the number of SSH port redirections
to 1 and within the first 15 seconds. So there is a smaller
to 1 and within the first 35 seconds. So there is a smaller
window when the user can try to use your tunnel compared to
the duration of your session. SSH mode is required.
@ -12227,6 +12301,20 @@ proc help_ssvncviewer_opts {} {
Try to have the VNC Viewer exit after the first listening
connection. (It may not always be detected; use Ctrl-C to exit)
Listen Accept Popup Dialog:
In -listen (reverse connection listening) mode when a reverse
VNC connection comes in show a popup asking whether to Accept
or Reject the connection. (-acceptpopup vncviewer option.)
Accept Popup UltraVNC Single Click:
As in 'Listen Accept Popup Dialog', except assume the remote
VNC server is UltraVNC Single Click and force the execution of
the protocol to retrieve the extra remote-side info (Windows
User, ComputerName, etc) which is then also displayed in the
Popup window. (-acceptpopupsc vncviewer option.)
Use X11 Cursor:
When drawing the mouse cursor shape locally, use an X11 cursor
@ -12271,6 +12359,16 @@ proc help_ssvncviewer_opts {} {
ssvnc bundles. See the build instructions for how you might
compile your own.
Disable Pipeline Updates:
Disable the TurboVNC-like pipelined updates mode. Pipelined
updates is the default even when not TurboVNC enabled. They
ask for the next screen update before the current one has
finished downloading, and so this might reduce the slowdown
due to high latency or low bandwidth by 2X or so. Disable
them if they cause problems with the remote VNC Server or
use too much bandwidth.
Send CLIPBOARD not PRIMARY:
When sending locally selected text to the VNC server side,
@ -12327,6 +12425,23 @@ proc help_ssvncviewer_opts {} {
scrollbars (often one want it to be very narrow, e.g. 2 pixels
to be less distracting.
RFB Version:
Set the numerical version of RFB (VNC) protocol to pretend to
be, 3.x. Usually only needed with UltraVNC servers.
Encodings:
List encodings in preferred order, for example
'copyrect zrle tight' The list of encodings is:
copyrect tight zrle zywrle hextile zlib corre rre raw
Extra Options:
String of extra Unix ssvncviewer command line options. I.e. for
ones like -16bpp that cannot be set inside this SSVNC GUI. For a
list click Help then 'SSVNC vncviewer -help Output'.
These are environment variables one may set to affect the options
of the SSVNC vncviewer:
@ -12347,8 +12462,15 @@ proc help_ssvncviewer_opts {} {
VNCVIEWER_SEND_ALWAYS (-sendalways)
VNCVIEWER_RECV_TEXT (-recvtext clipboard/primary/both)
VNCVIEWER_NO_CUTBUFFER (do not send CUTBUFFER0 as fallback)
VNCVIEWER_NO_PIPELINE_UPDATES (-nopipeline)
VNCVIEWERCMD (unix viewer command, default vncviewer)
VNCVIEWERCMD_OVERRIDE (force override of VNCVIEWERCMD)
VNCVIEWERCMD_EXTRA_OPTS (extra options to pass to VNCVIEWERCMD)
SSVNC_MULTIPLE_LISTEN (-multilisten, see Multiple LISTEN above)
SSVNC_ACCEPT_POPUP (-acceptpopup, see Accept Popup Dialog)
SSVNC_ACCEPT_POPUP_SC (-acceptpopupsc, see Accept Popup Dialog)
SSVNC_TURBOVNC (see TurboVNC above)
SSVNC_UNIXPW (-unixpw)
SSVNC_UNIXPW_NOESC (do not send escape in -unixpw mode)
@ -12500,7 +12622,7 @@ proc port_redir_dialog {} {
global additional_port_redirs additional_port_redirs_list
toplev .redirs
wm title .redirs "Additional Port Redirections"
wm title .redirs "Additional Port Redirections (via SSH)"
global help_font uname
if {$uname == "Darwin"} {
@ -12881,11 +13003,11 @@ proc ssh_sec_dialog {} {
On Unix, for SSH tunnels we have an LD_PRELOAD hack (lim_accept.so)
that will limit ssh from accepting any local redirection connections
after the first one or after 15 seconds, whichever comes first.
after the first one or after 35 seconds, whichever comes first.
The first SSH port redirection connection is intended to be the one
that tunnels your VNC Viewer to reach the remote server.
You can adjust these defaults LIM_ACCEPT=1 LIM_ACCEPT_TIME=15 by
You can adjust these defaults LIM_ACCEPT=1 LIM_ACCEPT_TIME=35 by
setting those env. vars. to different values.
Note that there is still a window of a few seconds the Untrusted
@ -12894,8 +13016,8 @@ proc ssh_sec_dialog {} {
he should be blocked out. Test to make sure blocking is taking place.
Do not use this option if you are doing SSH Service redirections
'Additional Port Redirections' that redirect a local port to the
remote server via ssh -L.
'Additional Port Redirections (via SSH)' that redirect a local port
to the remote server via ssh -L.
Note that if the shared object "lim_accept.so" cannot be found,
this option has no effect. Watch the output in the terminal for
@ -14009,19 +14131,19 @@ proc set_advanced_options {} {
set adv_ssh(smb) .oa.b$i
incr i
checkbutton .oa.b$i -anchor w -variable additional_port_redirs -text \
"Additional Port Redirs" \
-command {if {$additional_port_redirs} {port_redir_dialog}}
if {!$use_ssh && !$use_sshssl} {.oa.b$i configure -state disabled}
set adv_ssh(redirs) .oa.b$i
incr i
checkbutton .oa.b$i -anchor w -variable use_x11vnc_xlogin -text \
"Automatically Find X Login/Greeter" -command {x11vnc_find_adjust "xlogin"}
if {!$use_ssh && !$use_sshssl} {.oa.b$i configure -state disabled}
set x11vnc_xlogin_widget ".oa.b$i"
incr i
checkbutton .oa.b$i -anchor w -variable additional_port_redirs -text \
"Additional Port Redirs (via SSH)" \
-command {if {$additional_port_redirs} {port_redir_dialog}}
if {!$use_ssh && !$use_sshssl} {.oa.b$i configure -state disabled}
set adv_ssh(redirs) .oa.b$i
incr i
global use_ssl use_ssh use_sshssl
checkbutton .oa.b$i -anchor w -variable ssh_local_protection -text \
@ -14152,7 +14274,7 @@ proc set_advanced_options {} {
proc set_ssvncviewer_options {} {
global is_windows darwin_cotvnc
global use_ssh use_sshssl use_x11cursor use_rawlocal use_popupfix use_alpha use_turbovnc use_grab use_nobell
global use_ssh use_sshssl use_x11cursor use_rawlocal use_popupfix use_alpha use_turbovnc disable_pipeline use_grab use_nobell
global use_send_clipboard use_send_always
global ssvnc_scale ssvnc_escape
global server_vencrypt server_anondh
@ -14167,200 +14289,260 @@ proc set_ssvncviewer_options {} {
set darwinlist [list]
set f0 .os.f
frame $f0
set fl $f0.fl
frame $fl
set fr $f0.fr
frame $fr
set i 1
set j 1
checkbutton .os.b$i -anchor w -variable multiple_listen -text \
checkbutton $fl.b$i -anchor w -variable multiple_listen -text \
"Multiple LISTEN Connections" \
-command {if {$multiple_listen} {multilisten_dialog}}
global multiple_listen_button use_listen
set multiple_listen_button .os.b$i
if {$is_windows} {.os.b$i configure -state disabled}
if {!$use_listen} {.os.b$i configure -state disabled}
lappend darwinlist .os.b$i; if {$darwin_cotvnc} {.os.b$i configure -state disabled}
set multiple_listen_button $fl.b$i
if {$is_windows} {$fl.b$i configure -state disabled}
if {!$use_listen} {$fl.b$i configure -state disabled}
lappend darwinlist $fl.b$i; if {$darwin_cotvnc} {$fl.b$i configure -state disabled}
incr i
checkbutton .os.b$i -anchor w -variable listen_once -text \
checkbutton $fl.b$i -anchor w -variable listen_once -text \
"Listen Once"
global listen_once_button
set listen_once_button .os.b$i
if {!$use_listen} {.os.b$i configure -state disabled}
lappend darwinlist .os.b$i; if {$darwin_cotvnc} {.os.b$i configure -state disabled}
set listen_once_button $fl.b$i
if {!$use_listen} {$fl.b$i configure -state disabled}
lappend darwinlist $fl.b$i; if {$darwin_cotvnc} {$fl.b$i configure -state disabled}
incr i
checkbutton .os.b$i -anchor w -variable use_x11cursor -text \
checkbutton $fl.b$i -anchor w -variable listen_accept_popup -text \
"Listen Accept Popup Dialog" \
-command { if {$listen_accept_popup} { catch {$listen_accept_popup_button_sc configure -state normal} } else { catch {$listen_accept_popup_button_sc configure -state disabled} } }
global listen_accept_popup_button
set listen_accept_popup_button $fl.b$i
if {!$use_listen} {$fl.b$i configure -state disabled}
lappend darwinlist $fl.b$i; if {$darwin_cotvnc} {$fl.b$i configure -state disabled}
incr i
global listen_accept_popup
checkbutton $fl.b$i -anchor w -variable listen_accept_popup_sc -text \
" Accept Popup UltraVNC Single Click"
global listen_accept_popup_button_sc
set listen_accept_popup_button_sc $fl.b$i
if {!$use_listen} {$fl.b$i configure -state disabled}
if {!$listen_accept_popup} {$fl.b$i configure -state disabled}
lappend darwinlist $fl.b$i; if {$darwin_cotvnc} {$fl.b$i configure -state disabled}
incr i
checkbutton $fl.b$i -anchor w -variable use_x11cursor -text \
"Use X11 Cursor"
lappend darwinlist .os.b$i; if {$darwin_cotvnc} {.os.b$i configure -state disabled}
lappend darwinlist $fl.b$i; if {$darwin_cotvnc} {$fl.b$i configure -state disabled}
incr i
checkbutton .os.b$i -anchor w -variable use_nobell -text \
checkbutton $fl.b$i -anchor w -variable use_nobell -text \
"Disable Bell"
lappend darwinlist .os.b$i; if {$darwin_cotvnc} {.os.b$i configure -state disabled}
lappend darwinlist $fl.b$i; if {$darwin_cotvnc} {$fl.b$i configure -state disabled}
incr i
checkbutton .os.b$i -anchor w -variable use_rawlocal -text \
checkbutton $fl.b$i -anchor w -variable use_rawlocal -text \
"Use Raw Local"
lappend darwinlist .os.b$i; if {$darwin_cotvnc} {.os.b$i configure -state disabled}
lappend darwinlist $fl.b$i; if {$darwin_cotvnc} {$fl.b$i configure -state disabled}
incr i
checkbutton .os.b$i -anchor w -variable use_popupfix -text \
checkbutton $fl.b$i -anchor w -variable use_popupfix -text \
"Use Popup Fix"
lappend darwinlist .os.b$i; if {$darwin_cotvnc} {.os.b$i configure -state disabled}
lappend darwinlist $fl.b$i; if {$darwin_cotvnc} {$fl.b$i configure -state disabled}
incr i
checkbutton .os.b$i -anchor w -variable use_grab -text \
checkbutton $fl.b$i -anchor w -variable use_grab -text \
"Use XGrabServer (for fullscreen)" \
-command {if {$use_grab} {use_grab_dialog}}
lappend darwinlist .os.b$i; if {$darwin_cotvnc} {.os.b$i configure -state disabled}
lappend darwinlist $fl.b$i; if {$darwin_cotvnc} {$fl.b$i configure -state disabled}
incr i
checkbutton .os.b$i -anchor w -variable use_alpha -text \
"Cursor Alphablending (32bpp required)"
lappend darwinlist .os.b$i; if {$darwin_cotvnc} {.os.b$i configure -state disabled}
checkbutton $fl.b$i -anchor w -variable use_alpha -text \
"Cursor Alphablending (32bpp required) "
lappend darwinlist $fl.b$i; if {$darwin_cotvnc} {$fl.b$i configure -state disabled}
incr i
checkbutton .os.b$i -anchor w -variable use_turbovnc -text \
checkbutton $fl.b$i -anchor w -variable use_turbovnc -text \
"TurboVNC (if available on platform)"
lappend darwinlist .os.b$i; if {$darwin_cotvnc} {.os.b$i configure -state disabled}
lappend darwinlist $fl.b$i; if {$darwin_cotvnc} {$fl.b$i configure -state disabled}
incr i
checkbutton .os.b$i -anchor w -variable use_send_clipboard -text \
checkbutton $fl.b$i -anchor w -variable disable_pipeline -text \
"Disable Pipelined Updates"
lappend darwinlist $fl.b$i; if {$darwin_cotvnc} {$fl.b$i configure -state disabled}
incr i
checkbutton $fl.b$i -anchor w -variable use_send_clipboard -text \
"Send CLIPBOARD not PRIMARY"
lappend darwinlist .os.b$i; if {$darwin_cotvnc} {.os.b$i configure -state disabled}
lappend darwinlist $fl.b$i; if {$darwin_cotvnc} {$fl.b$i configure -state disabled}
incr i
checkbutton .os.b$i -anchor w -variable use_send_always -text \
checkbutton $fl.b$i -anchor w -variable use_send_always -text \
"Send Selection Every time"
lappend darwinlist .os.b$i; if {$darwin_cotvnc} {.os.b$i configure -state disabled}
lappend darwinlist $fl.b$i; if {$darwin_cotvnc} {$fl.b$i configure -state disabled}
incr i
set relief ridge
frame .os.b$i -height 2; incr i
frame $fr.b$j -height 2; incr j
frame .os.b$i -relief $relief -borderwidth 2
frame $fr.b$j -relief $relief -borderwidth 2
global ffont
label .os.b$i.l -font $ffont -anchor w -text "Examples: '0.75', '1024x768', 'fit' (fill screen), or 'auto'";
label $fr.b$j.l -font $ffont -anchor w -text "Examples: '0.75', '1024x768', 'fit' (fill screen), or 'auto' ";
global ssvnc_scale
frame .os.b$i.f
label .os.b$i.f.l -text "Scaling: "
lappend darwinlist .os.b$i.f.l; if {$darwin_cotvnc} {.os.b$i.f.l configure -state disabled}
entry .os.b$i.f.e -width 10 -textvariable ssvnc_scale
lappend darwinlist .os.b$i.f.e; if {$darwin_cotvnc} {.os.b$i.f.e configure -state disabled}
pack .os.b$i.f.l -side left
pack .os.b$i.f.e -side right -expand 1 -fill x
frame $fr.b$j.f
label $fr.b$j.f.l -text "Scaling: "
lappend darwinlist $fr.b$j.f.l; if {$darwin_cotvnc} {$fr.b$j.f.l configure -state disabled}
entry $fr.b$j.f.e -width 10 -textvariable ssvnc_scale
lappend darwinlist $fr.b$j.f.e; if {$darwin_cotvnc} {$fr.b$j.f.e configure -state disabled}
pack $fr.b$j.f.l -side left
pack $fr.b$j.f.e -side right -expand 1 -fill x
pack .os.b$i.f .os.b$i.l -side top -fill x
pack $fr.b$j.f $fr.b$j.l -side top -fill x
incr i
incr j
frame .os.b$i -height 2; incr i
frame $fr.b$j -height 2; incr j
frame .os.b$i -relief $relief -borderwidth 2
frame $fr.b$j -relief $relief -borderwidth 2
label .os.b$i.l -font $ffont -anchor w -text "Examples: 'default', 'Control_L,Alt_L', 'never'";
label $fr.b$j.l -font $ffont -anchor w -text "Examples: 'default', 'Control_L,Alt_L', 'never'";
global ssvnc_escape
frame .os.b$i.f
label .os.b$i.f.l -text "Escape Keys: "
lappend darwinlist .os.b$i.f.l; if {$darwin_cotvnc} {.os.b$i.f.l configure -state disabled}
entry .os.b$i.f.e -width 10 -textvariable ssvnc_escape
lappend darwinlist .os.b$i.f.e; if {$darwin_cotvnc} {.os.b$i.f.e configure -state disabled}
button .os.b$i.f.b -relief ridge -text Help -command ssvnc_escape_help
lappend darwinlist .os.b$i.f.b; if {$darwin_cotvnc} {.os.b$i.f.b configure -state disabled}
pack .os.b$i.f.l -side left
pack .os.b$i.f.b -side right
pack .os.b$i.f.e -side right -expand 1 -fill x
pack .os.b$i.f .os.b$i.l -side top -fill x
frame $fr.b$j.f
label $fr.b$j.f.l -text "Escape Keys: "
lappend darwinlist $fr.b$j.f.l; if {$darwin_cotvnc} {$fr.b$j.f.l configure -state disabled}
entry $fr.b$j.f.e -width 10 -textvariable ssvnc_escape
lappend darwinlist $fr.b$j.f.e; if {$darwin_cotvnc} {$fr.b$j.f.e configure -state disabled}
button $fr.b$j.f.b -relief ridge -text Help -command ssvnc_escape_help
lappend darwinlist $fr.b$j.f.b; if {$darwin_cotvnc} {$fr.b$j.f.b configure -state disabled}
pack $fr.b$j.f.l -side left
pack $fr.b$j.f.b -side right
pack $fr.b$j.f.e -side right -expand 1 -fill x
incr i
pack $fr.b$j.f $fr.b$j.l -side top -fill x
frame .os.b$i -height 2; incr i
incr j
frame .os.b$i -relief $relief -borderwidth 2
frame $fr.b$j -height 2; incr j
label .os.b$i.l -font $ffont -anchor w -text "Enter the max height in pixels, e.g. '900'";
frame $fr.b$j -relief $relief -borderwidth 2
label $fr.b$j.l -font $ffont -anchor w -text "Enter the max height in pixels, e.g. '900'";
global ycrop_string
frame .os.b$i.f
label .os.b$i.f.l -text "Y Crop: "
lappend darwinlist .os.b$i.f.l; if {$darwin_cotvnc} {.os.b$i.f.l configure -state disabled}
entry .os.b$i.f.e -width 10 -textvariable ycrop_string
lappend darwinlist .os.b$i.f.e; if {$darwin_cotvnc} {.os.b$i.f.e configure -state disabled}
pack .os.b$i.f.l -side left
pack .os.b$i.f.e -side right -expand 1 -fill x
frame $fr.b$j.f
label $fr.b$j.f.l -text "Y Crop: "
lappend darwinlist $fr.b$j.f.l; if {$darwin_cotvnc} {$fr.b$j.f.l configure -state disabled}
entry $fr.b$j.f.e -width 10 -textvariable ycrop_string
lappend darwinlist $fr.b$j.f.e; if {$darwin_cotvnc} {$fr.b$j.f.e configure -state disabled}
pack $fr.b$j.f.l -side left
pack $fr.b$j.f.e -side right -expand 1 -fill x
pack .os.b$i.f .os.b$i.l -side top -fill x
pack $fr.b$j.f $fr.b$j.l -side top -fill x
incr i
incr j
frame .os.b$i -height 2; incr i
frame $fr.b$j -height 2; incr j
frame .os.b$i -relief $relief -borderwidth 2
frame $fr.b$j -relief $relief -borderwidth 2
label .os.b$i.l -font $ffont -anchor w -text "Enter the scrollbar width in pixels, e.g. '4'";
label $fr.b$j.l -font $ffont -anchor w -text "Enter the scrollbar width in pixels, e.g. '4'";
global sbwid_string
frame .os.b$i.f
label .os.b$i.f.l -text "ScrollBar Width: "
lappend darwinlist .os.b$i.f.l; if {$darwin_cotvnc} {.os.b$i.f.l configure -state disabled}
entry .os.b$i.f.e -width 10 -textvariable sbwid_string
lappend darwinlist .os.b$i.f.e; if {$darwin_cotvnc} {.os.b$i.f.e configure -state disabled}
pack .os.b$i.f.l -side left
pack .os.b$i.f.e -side right -expand 1 -fill x
frame $fr.b$j.f
label $fr.b$j.f.l -text "ScrollBar Width: "
lappend darwinlist $fr.b$j.f.l; if {$darwin_cotvnc} {$fr.b$j.f.l configure -state disabled}
entry $fr.b$j.f.e -width 10 -textvariable sbwid_string
lappend darwinlist $fr.b$j.f.e; if {$darwin_cotvnc} {$fr.b$j.f.e configure -state disabled}
pack $fr.b$j.f.l -side left
pack $fr.b$j.f.e -side right -expand 1 -fill x
pack .os.b$i.f .os.b$i.l -side top -fill x
pack $fr.b$j.f $fr.b$j.l -side top -fill x
incr i
incr j
frame .os.b$i -height 2; incr i
frame $fr.b$j -height 2; incr j
frame .os.b$i -relief $relief -borderwidth 2
frame $fr.b$j -relief $relief -borderwidth 2
label .os.b$i.l -font $ffont -anchor w -text "Enter the RFB version to pretend to be using, e.g. '3.4'";
label .os.b$i.l2 -font $ffont -anchor w -text "Sometimes needed for UltraVNC: 3.4, 3.6, 3.14, 3.16";
label $fr.b$j.l -font $ffont -anchor w -text "Enter the RFB version to pretend to be using, e.g. '3.4'";
label $fr.b$j.l2 -font $ffont -anchor w -text "Sometimes needed for UltraVNC: 3.4, 3.6, 3.14, 3.16";
global rfbversion
frame .os.b$i.f
label .os.b$i.f.l -text "RFB Version: "
lappend darwinlist .os.b$i.f.l; if {$darwin_cotvnc} {.os.b$i.f.l configure -state disabled}
entry .os.b$i.f.e -width 10 -textvariable rfbversion
lappend darwinlist .os.b$i.f.e; if {$darwin_cotvnc} {.os.b$i.f.e configure -state disabled}
pack .os.b$i.f.l -side left
pack .os.b$i.f.e -side right -expand 1 -fill x
frame $fr.b$j.f
label $fr.b$j.f.l -text "RFB Version: "
lappend darwinlist $fr.b$j.f.l; if {$darwin_cotvnc} {$fr.b$j.f.l configure -state disabled}
entry $fr.b$j.f.e -width 10 -textvariable rfbversion
lappend darwinlist $fr.b$j.f.e; if {$darwin_cotvnc} {$fr.b$j.f.e configure -state disabled}
pack $fr.b$j.f.l -side left
pack $fr.b$j.f.e -side right -expand 1 -fill x
pack .os.b$i.f .os.b$i.l .os.b$i.l2 -side top -fill x
pack $fr.b$j.f $fr.b$j.l $fr.b$j.l2 -side top -fill x
incr i
incr j
frame .os.b$i -height 2; incr i
frame $fr.b$j -height 2; incr j
frame .os.b$i -relief $relief -borderwidth 2
frame $fr.b$j -relief $relief -borderwidth 2
label .os.b$i.l1 -font $ffont -anchor w -text "List encodings in preferred order, for example";
label .os.b$i.l2 -font $ffont -anchor w -text "'copyrect zrle tight' The list of encodings is:";
label .os.b$i.l3 -font $ffont -anchor w -text "copyrect tight zrle zywrle hextile zlib corre rre raw";
label $fr.b$j.l1 -font $ffont -anchor w -text "List encodings in preferred order, for example";
label $fr.b$j.l2 -font $ffont -anchor w -text "'copyrect zrle tight' The full list of encodings is:";
label $fr.b$j.l3 -font $ffont -anchor w -text "copyrect tight zrle zywrle hextile zlib corre rre raw";
global ssvnc_encodings
frame .os.b$i.f
label .os.b$i.f.l -text "Encodings: "
lappend darwinlist .os.b$i.f.l; if {$darwin_cotvnc} {.os.b$i.f.l configure -state disabled}
entry .os.b$i.f.e -width 10 -textvariable ssvnc_encodings
lappend darwinlist .os.b$i.f.e; if {$darwin_cotvnc} {.os.b$i.f.e configure -state disabled}
pack .os.b$i.f.l -side left
pack .os.b$i.f.e -side right -expand 1 -fill x
frame $fr.b$j.f
label $fr.b$j.f.l -text "Encodings: "
lappend darwinlist $fr.b$j.f.l; if {$darwin_cotvnc} {$fr.b$j.f.l configure -state disabled}
entry $fr.b$j.f.e -width 10 -textvariable ssvnc_encodings
lappend darwinlist $fr.b$j.f.e; if {$darwin_cotvnc} {$fr.b$j.f.e configure -state disabled}
pack $fr.b$j.f.l -side left
pack $fr.b$j.f.e -side right -expand 1 -fill x
pack .os.b$i.f .os.b$i.l1 .os.b$i.l2 .os.b$i.l3 -side top -fill x
pack $fr.b$j.f $fr.b$j.l1 $fr.b$j.l2 $fr.b$j.l3 -side top -fill x
incr i
incr j
frame .os.b$i -height 2; incr i
frame $fr.b$j -height 2; incr j
for {set j 1} {$j < $i} {incr j} {
pack .os.b$j -side top -fill x
frame $fr.b$j -relief $relief -borderwidth 2
label $fr.b$j.l1 -font $ffont -anchor w -text "Add any extra options for ssvncviewer that you want.";
label $fr.b$j.l2 -font $ffont -anchor w -text "For example: -16bpp -noshm etc. See Help for a list.";
global ssvnc_extra_opts
frame $fr.b$j.f
label $fr.b$j.f.l -text "Extra Options: "
lappend darwinlist $fr.b$j.f.l; if {$darwin_cotvnc} {$fr.b$j.f.l configure -state disabled}
entry $fr.b$j.f.e -width 10 -textvariable ssvnc_extra_opts
lappend darwinlist $fr.b$j.f.e; if {$darwin_cotvnc} {$fr.b$j.f.e configure -state disabled}
pack $fr.b$j.f.l -side left
pack $fr.b$j.f.e -side right -expand 1 -fill x
pack $fr.b$j.f $fr.b$j.l1 $fr.b$j.l2 -side top -fill x
incr j
frame $fr.b$j -height 2; incr j
for {set k 1} {$k < $i} {incr k} {
pack $fl.b$k -side top -fill x
}
for {set k 1} {$k < $j} {incr k} {
pack $fr.b$k -side top -fill x
}
pack $fl -side left -fill both
pack $fr -side left -fill both -expand 1
pack $f0 -side top -fill both
frame .os.b
button .os.b.done -text "Done" -command {destroy .os}
@ -14386,6 +14568,7 @@ proc set_ssvncviewer_options {} {
center_win .os
wm resizable .os 1 0
wm minsize .os [winfo reqwidth .os] [winfo reqheight .os]
focus .os
}
@ -14675,7 +14858,7 @@ proc ssl_ssh_adjust {which} {
proc listen_adjust {} {
global use_listen revs_button multiple_listen_button is_windows
global listen_once_button
global listen_once_button listen_accept_popup_button listen_accept_popup_button_sc
if {![info exists multiple_listen_button]} {
set multiple_listen_button "none"
}
@ -14684,17 +14867,23 @@ proc listen_adjust {} {
catch {.o.b.connect configure -text "Listen"}
catch {$multiple_listen_button configure -state normal}
catch {$listen_once_button configure -state normal}
catch {$listen_accept_popup_button configure -state normal}
catch {$listen_accept_popup_button_sc configure -state normal}
catch {mesg "Listen :N -> Port 5500+N, i.e. :0 -> 5500, :1 -> 5501, :2 -> 5502 ..."}
} else {
catch {.b.conn configure -text "Connect"}
catch {.o.b.connect configure -text "Connect"}
catch {$multiple_listen_button configure -state disabled}
catch {$listen_once_button configure -state disabled}
catch {$listen_accept_popup_button configure -state disabled}
catch {$listen_accept_popup_button_sc configure -state disabled}
catch {mesg "Switched to Forward Connection mode."}
}
if {$is_windows} {
catch {$multiple_listen_button configure -state disabled}
catch {$listen_once_button configure -state disabled}
catch {$listen_accept_popup_button configure -state disabled}
catch {$listen_accept_popup_button_sc configure -state disabled}
}
}
@ -15375,7 +15564,7 @@ proc zeroconf_fill {b m} {
set last_dns_sd 0
}
if {[clock seconds] > [expr $last_dns_sd + 1800]} {
unset -nocomplain dns_sd_cache
catch { unset dns_sd_cache }
set last_dns_sd [clock seconds]
}
foreach line $lines {
@ -15540,8 +15729,9 @@ proc toggle_vnc_prefix {} {
catch {.f0.e icursor end}
}
############################################
global env
set is_windows 0
if {[regexp -nocase {Windows.9} $tcl_platform(os)]} {
set is_win9x 1
@ -15549,14 +15739,18 @@ if {[regexp -nocase {Windows.9} $tcl_platform(os)]} {
set is_win9x 0
}
set ffont "fixed"
set help_font "-font $ffont"
set is_windows 0
if { [regexp -nocase {Windows} $tcl_platform(os)]} {
cd util
set help_font ""
set is_windows 1
}
set uname ""
if {! $is_windows} {
catch {set uname [exec uname]}
}
set ffont "fixed"
# need to check if "fixed" font under XFT on tk8.5 is actually fixed width!!
if {$tcl_platform(platform) == "unix"} {
set ls ""
@ -15578,9 +15772,14 @@ if {$tcl_platform(platform) == "unix"} {
}
}
}
set help_font "-font $ffont"
}
if {$uname == "Darwin"} {
set ffont "Monaco 10"
#option add *Button.font Helvetica widgetDefault
catch {option add *Button.font {System 10} widgetDefault}
}
# set SSVNC_HOME to HOME in case we modify it for mobile use:
if [info exists env(HOME)] {
@ -15719,6 +15918,14 @@ if [file exists $ssvncrc] {
set val [string trim $val]
set ts_xserver_type_def $val
}
if [regexp {^font_default=(.*)$} $str m val] {
set val [string trim $val]
catch {option add *font $val}
}
if [regexp {^font_fixed=(.*)$} $str m val] {
set val [string trim $val]
set ffont $val
}
if [regexp {^noenc=1} $str] {
global env
set env(SSVNC_DISABLE_ENCRYPTION_BUTTON) 1
@ -15851,6 +16058,27 @@ for {set i 0} {$i < $argc} {incr i} {
}
}
if [info exists env(SSVNC_FONT_FIXED)] {
set ffont $env(SSVNC_FONT_FIXED)
}
if [info exists env(SSVNC_FONT_DEFAULT)] {
catch {option add *font $env(SSVNC_FONT_DEFAULT)}
}
if [regexp {[ ]} $ffont] {
set help_font "-font \"$ffont\""
} else {
set help_font "-font $ffont"
}
if { [regexp -nocase {Windows} $tcl_platform(os)]} {
cd util
if {$help_font == "-font fixed"} {
set help_font ""
}