|
|
|
|
@ -202,6 +202,8 @@
|
|
|
|
|
" forever\n"
|
|
|
|
|
" timeout:\n"
|
|
|
|
|
" --\n"
|
|
|
|
|
" input:\n"
|
|
|
|
|
" --\n"
|
|
|
|
|
" =SA alwaysshared\n"
|
|
|
|
|
" =SA nevershared\n"
|
|
|
|
|
" =SA dontdisconnect\n"
|
|
|
|
|
@ -285,6 +287,11 @@
|
|
|
|
|
" set helptext(update-all) \"\n"
|
|
|
|
|
"Query the x11vnc server for the current values of all variables.\n"
|
|
|
|
|
"Populate the values into the gui's database.\n"
|
|
|
|
|
"\n"
|
|
|
|
|
"Normally the gui will refresh this info every time it interacts\n"
|
|
|
|
|
"with the x11vnc server, so one doesn't need to use this action\n"
|
|
|
|
|
"very often (unless something else is changing the state of the\n"
|
|
|
|
|
"x11vnc server, or new clients have connected, etc).\n"
|
|
|
|
|
"\"\n"
|
|
|
|
|
"\n"
|
|
|
|
|
" set helptext(clear-all) \"\n"
|
|
|
|
|
@ -327,10 +334,29 @@
|
|
|
|
|
" set helptext(current) \"\n"
|
|
|
|
|
"Shows a menu of currently connected VNC clients on the x11vnc server.\n"
|
|
|
|
|
"\n"
|
|
|
|
|
"Allows you to find more information about them or disconnect them.\n"
|
|
|
|
|
"Allows you to find more information about them, change their input\n"
|
|
|
|
|
"permissions, or disconnect them.\n"
|
|
|
|
|
"\n"
|
|
|
|
|
"You will be prompted to confirm any disconnections.\n"
|
|
|
|
|
"\"\n"
|
|
|
|
|
"\n"
|
|
|
|
|
" set helptext(client) \"\n"
|
|
|
|
|
"After selecting a VNC client from the \\\"Clients -> current\\\" menu,\n"
|
|
|
|
|
"you will be presented with a dialog that shows the information\n"
|
|
|
|
|
"about the VNC client.\n"
|
|
|
|
|
"\n"
|
|
|
|
|
"You can chose to disconnect the client by clicking on the \n"
|
|
|
|
|
"\\\"Disconnect\\\" checkbox and pressing \\\"OK\\\". There will be a\n"
|
|
|
|
|
"confirmation dialog to doublecheck.\n"
|
|
|
|
|
"\n"
|
|
|
|
|
"Alternatively, you can fine tune the VNC client's input permissions\n"
|
|
|
|
|
"by selecting any of the Keystrokes, Mouse Motion, or Button Clicks\n"
|
|
|
|
|
"checkboxes and pressing \\\"OK\\\". This is like the \\\"-input\\\" option\n"
|
|
|
|
|
"but on a per-client basis.\n"
|
|
|
|
|
"\n"
|
|
|
|
|
"To not change any aspects of the VNC client press \\\"Skip\\\".\n"
|
|
|
|
|
"\"\n"
|
|
|
|
|
"\n"
|
|
|
|
|
" set helptext(solid_color) \"\n"
|
|
|
|
|
"Set the -solid color value.\n"
|
|
|
|
|
"\"\n"
|
|
|
|
|
@ -476,12 +502,18 @@
|
|
|
|
|
" return $count\n"
|
|
|
|
|
"}\n"
|
|
|
|
|
"\n"
|
|
|
|
|
"proc set_name {name} {\n"
|
|
|
|
|
" wm title . \"$name\"\n"
|
|
|
|
|
" wm iconname . \"$name\"\n"
|
|
|
|
|
"}\n"
|
|
|
|
|
"\n"
|
|
|
|
|
"proc make_toplevel {w {title \"\"}} {\n"
|
|
|
|
|
" catch {destroy $w}\n"
|
|
|
|
|
" toplevel $w;\n"
|
|
|
|
|
" bind $w <Escape> \"destroy $w\"\n"
|
|
|
|
|
" if {$title != \"\"} {\n"
|
|
|
|
|
" wm title $w $title\n"
|
|
|
|
|
" wm title $w $title\n"
|
|
|
|
|
" wm iconname $w $title\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
"}\n"
|
|
|
|
|
"\n"
|
|
|
|
|
@ -1060,6 +1092,195 @@
|
|
|
|
|
" }\n"
|
|
|
|
|
"}\n"
|
|
|
|
|
"\n"
|
|
|
|
|
"proc set_kmb_str {} {\n"
|
|
|
|
|
" global vl_bk vl_bm vl_bb vr_bk vr_bm vr_bb \n"
|
|
|
|
|
"\n"
|
|
|
|
|
" set str \"\"\n"
|
|
|
|
|
" if {$vl_bk} {\n"
|
|
|
|
|
" append str \"K\"\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" if {$vl_bm} {\n"
|
|
|
|
|
" append str \"M\"\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" if {$vl_bb} {\n"
|
|
|
|
|
" append str \"B\"\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" if {$vr_bk || $vr_bm || $vr_bb} {\n"
|
|
|
|
|
" append str \",\"\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" if {$vr_bk} {\n"
|
|
|
|
|
" append str \"K\"\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" if {$vr_bm} {\n"
|
|
|
|
|
" append str \"M\"\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" if {$vr_bb} {\n"
|
|
|
|
|
" append str \"B\"\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" entry_insert $str\n"
|
|
|
|
|
"}\n"
|
|
|
|
|
"\n"
|
|
|
|
|
"proc insert_input_window {} {\n"
|
|
|
|
|
" global text_area cleanup_window\n"
|
|
|
|
|
" global ffont menu_var\n"
|
|
|
|
|
" global vl_bk vl_bm vl_bb vr_bk vr_bm vr_bb \n"
|
|
|
|
|
"\n"
|
|
|
|
|
" append_text \"\\nUse these checkboxes to set the input permissions, \"\n"
|
|
|
|
|
" append_text \"or type in the \\\"KMB...\\\"\\n-input string manually. \"\n"
|
|
|
|
|
" append_text \"Then press \\\"OK\\\" or \\\"Skip\\\".\\n\\n\"\n"
|
|
|
|
|
" set w \"$text_area.wk_f\"\n"
|
|
|
|
|
" catch {destroy $w}\n"
|
|
|
|
|
" frame $w -bd 1 -relief ridge -cursor {top_left_arrow}\n"
|
|
|
|
|
" set fl $w.fl\n"
|
|
|
|
|
" frame $fl\n"
|
|
|
|
|
" set fr $w.fr\n"
|
|
|
|
|
" frame $fr\n"
|
|
|
|
|
" label $fl.l -font $ffont -text \"Normal clients: \"\n"
|
|
|
|
|
" checkbutton $fl.bk -pady 1 -font $ffont -anchor w -variable vl_bk \\\n"
|
|
|
|
|
" -pady 1 -command set_kmb_str -text \"Keystrokes\" \n"
|
|
|
|
|
" checkbutton $fl.bm -font $ffont -anchor w -variable vl_bm \\\n"
|
|
|
|
|
" -pady 1 -command set_kmb_str -text \"Mouse Motion\" \n"
|
|
|
|
|
" checkbutton $fl.bb -font $ffont -anchor w -variable vl_bb \\\n"
|
|
|
|
|
" -pady 1 -command set_kmb_str -text \"Button Clicks\"\n"
|
|
|
|
|
" label $fr.l -pady 1 -font $ffont -text \"View-only clients:\"\n"
|
|
|
|
|
" checkbutton $fr.bk -font $ffont -anchor w -variable vr_bk \\\n"
|
|
|
|
|
" -pady 1 -command set_kmb_str -text \"Keystrokes\" \n"
|
|
|
|
|
" checkbutton $fr.bm -font $ffont -anchor w -variable vr_bm \\\n"
|
|
|
|
|
" -pady 1 -command set_kmb_str -text \"Mouse Motion\" \n"
|
|
|
|
|
" checkbutton $fr.bb -font $ffont -anchor w -variable vr_bb \\\n"
|
|
|
|
|
" -pady 1 -command set_kmb_str -text \"Button Clicks\"\n"
|
|
|
|
|
"\n"
|
|
|
|
|
" if {[info exists menu_var(input)]} {\n"
|
|
|
|
|
" set input_str $menu_var(input)\n"
|
|
|
|
|
" } else {\n"
|
|
|
|
|
" set input_str \"\"\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
"\n"
|
|
|
|
|
" if {[regexp {(.*),(.*)} $input_str match normal viewonly]} {\n"
|
|
|
|
|
" ;\n"
|
|
|
|
|
" } else {\n"
|
|
|
|
|
" set normal $input_str\n"
|
|
|
|
|
" set viewonly \"\"\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" set vl_bk 0\n"
|
|
|
|
|
" set vl_bm 0\n"
|
|
|
|
|
" set vl_bb 0\n"
|
|
|
|
|
" set vr_bk 0\n"
|
|
|
|
|
" set vr_bm 0\n"
|
|
|
|
|
" set vr_bb 0\n"
|
|
|
|
|
"\n"
|
|
|
|
|
" if {[regexp -nocase {K} $normal]} {\n"
|
|
|
|
|
" set vl_bk 1\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" if {[regexp -nocase {M} $normal]} {\n"
|
|
|
|
|
" set vl_bm 1\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" if {[regexp -nocase {B} $normal]} {\n"
|
|
|
|
|
" set vl_bb 1\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" if {[regexp -nocase {K} $viewonly]} {\n"
|
|
|
|
|
" set vr_bk 1\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" if {[regexp -nocase {M} $viewonly]} {\n"
|
|
|
|
|
" set vr_bm 1\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" if {[regexp -nocase {B} $viewonly]} {\n"
|
|
|
|
|
" set vr_bb 1\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
"\n"
|
|
|
|
|
" pack $fl.l $fl.bk $fl.bm $fl.bb -side top -fill x\n"
|
|
|
|
|
" pack $fr.l $fr.bk $fr.bm $fr.bb -side top -fill x\n"
|
|
|
|
|
" pack $fl $fr -side left\n"
|
|
|
|
|
" update\n"
|
|
|
|
|
" update idletasks\n"
|
|
|
|
|
" $text_area window create end -window $w\n"
|
|
|
|
|
" $text_area see end\n"
|
|
|
|
|
" $text_area insert end \"\\n\"\n"
|
|
|
|
|
"# $text_area insert end \"\\n\\n\\n\\n\\n\\n\\n\\n\\n\"\n"
|
|
|
|
|
"\n"
|
|
|
|
|
" set cleanup_window $w\n"
|
|
|
|
|
"}\n"
|
|
|
|
|
"\n"
|
|
|
|
|
"proc set_ca_str {w} {\n"
|
|
|
|
|
" global ca_bk ca_bm ca_bb ca_bk ca_di\n"
|
|
|
|
|
"\n"
|
|
|
|
|
" if {$ca_di} {\n"
|
|
|
|
|
" entry_insert \"disconnect\"\n"
|
|
|
|
|
" $w.bk configure -state disabled\n"
|
|
|
|
|
" $w.bm configure -state disabled\n"
|
|
|
|
|
" $w.bb configure -state disabled\n"
|
|
|
|
|
" return\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
"\n"
|
|
|
|
|
" $w.bk configure -state normal\n"
|
|
|
|
|
" $w.bm configure -state normal\n"
|
|
|
|
|
" $w.bb configure -state normal\n"
|
|
|
|
|
"\n"
|
|
|
|
|
" set str \"\"\n"
|
|
|
|
|
" if {$ca_bk} {\n"
|
|
|
|
|
" append str \"K\"\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" if {$ca_bm} {\n"
|
|
|
|
|
" append str \"M\"\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" if {$ca_bb} {\n"
|
|
|
|
|
" append str \"B\"\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" entry_insert $str\n"
|
|
|
|
|
"}\n"
|
|
|
|
|
"\n"
|
|
|
|
|
"proc insert_client_action_window {input} {\n"
|
|
|
|
|
" global text_area cleanup_window\n"
|
|
|
|
|
" global ffont menu_var\n"
|
|
|
|
|
" global ca_bk ca_bm ca_bb ca_bk ca_di\n"
|
|
|
|
|
"\n"
|
|
|
|
|
" append_text \"\\nUse these checkboxes to set the input permissions \"\n"
|
|
|
|
|
" append_text \"for this client\\n-or- whether to disconnect it instead. \"\n"
|
|
|
|
|
" append_text \"Then press \\\"OK\\\" or \\\"Skip\\\".\\n\\n\"\n"
|
|
|
|
|
" set w \"$text_area.ca_f\"\n"
|
|
|
|
|
" catch {destroy $w}\n"
|
|
|
|
|
" frame $w -bd 1 -relief ridge -cursor {top_left_arrow}\n"
|
|
|
|
|
" checkbutton $w.di -pady 1 -font $ffont -anchor w -variable ca_di \\\n"
|
|
|
|
|
" -pady 1 -command \"set_ca_str $w\" -text \"Disconnect \" \n"
|
|
|
|
|
" checkbutton $w.bk -font $ffont -anchor w -variable ca_bk \\\n"
|
|
|
|
|
" -pady 1 -command \"set_ca_str $w\" -text \"Keystrokes\" \n"
|
|
|
|
|
" checkbutton $w.bm -font $ffont -anchor w -variable ca_bm \\\n"
|
|
|
|
|
" -pady 1 -command \"set_ca_str $w\" -text \"Mouse Motion\" \n"
|
|
|
|
|
" checkbutton $w.bb -font $ffont -anchor w -variable ca_bb \\\n"
|
|
|
|
|
" -pady 1 -command \"set_ca_str $w\" -text \"Button Clicks\"\n"
|
|
|
|
|
"\n"
|
|
|
|
|
" set ca_di 0\n"
|
|
|
|
|
" set ca_bk 0\n"
|
|
|
|
|
" set ca_bm 0\n"
|
|
|
|
|
" set ca_bb 0\n"
|
|
|
|
|
"\n"
|
|
|
|
|
" if {[regexp -nocase {K} $input]} {\n"
|
|
|
|
|
" set ca_bk 1\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" if {[regexp -nocase {M} $input]} {\n"
|
|
|
|
|
" set ca_bm 1\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" if {[regexp -nocase {B} $input]} {\n"
|
|
|
|
|
" set ca_bb 1\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
"\n"
|
|
|
|
|
" pack $w.di $w.bk $w.bm $w.bb -side left\n"
|
|
|
|
|
" update\n"
|
|
|
|
|
" update idletasks\n"
|
|
|
|
|
" $text_area window create end -window $w\n"
|
|
|
|
|
" $text_area see end\n"
|
|
|
|
|
" $text_area insert end \"\\n\"\n"
|
|
|
|
|
"\n"
|
|
|
|
|
" set cleanup_window $w\n"
|
|
|
|
|
"}\n"
|
|
|
|
|
"\n"
|
|
|
|
|
"proc cleanup_text_window {} {\n"
|
|
|
|
|
" global cleanup_window\n"
|
|
|
|
|
" if {[info exists cleanup_window]} {\n"
|
|
|
|
|
" catch {destroy $cleanup_window}\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
"}\n"
|
|
|
|
|
"\n"
|
|
|
|
|
"# For updating a string variable. Also used for simple OK/Skip dialogs\n"
|
|
|
|
|
"# with entry = 0.\n"
|
|
|
|
|
"proc entry_dialog {item {entry 1}} {\n"
|
|
|
|
|
@ -1090,6 +1311,13 @@
|
|
|
|
|
" entry_disable box\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
"\n"
|
|
|
|
|
" set clean_text_window 0;\n"
|
|
|
|
|
"\n"
|
|
|
|
|
" if {$item == \"input\"} {\n"
|
|
|
|
|
" insert_input_window\n"
|
|
|
|
|
" set clean_text_window 1\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
"\n"
|
|
|
|
|
" update\n"
|
|
|
|
|
"\n"
|
|
|
|
|
" # wait for user reply:\n"
|
|
|
|
|
@ -1107,6 +1335,11 @@
|
|
|
|
|
" entry_delete\n"
|
|
|
|
|
" entry_disable\n"
|
|
|
|
|
" menus_enable\n"
|
|
|
|
|
"\n"
|
|
|
|
|
" if {$clean_text_window} {\n"
|
|
|
|
|
" cleanup_text_window;\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
"\n"
|
|
|
|
|
" update\n"
|
|
|
|
|
"\n"
|
|
|
|
|
" if {! $entry} {\n"
|
|
|
|
|
@ -1211,7 +1444,8 @@
|
|
|
|
|
" } elseif {[regexp {:[0-9]\\.[0-9]} $expected]} {\n"
|
|
|
|
|
" append_text \"\\t($msg)\\n\"\n"
|
|
|
|
|
" return 1\n"
|
|
|
|
|
" } elseif {$item == \"connect\" || $item == \"disconnect\"} {\n"
|
|
|
|
|
" } elseif {$item == \"connect\" || $item == \"disconnect\"\n"
|
|
|
|
|
" || $item == \"client\" || $item == \"client_input\"} {\n"
|
|
|
|
|
" append_text \"\\t($msg)\\n\"\n"
|
|
|
|
|
" return 1\n"
|
|
|
|
|
" } else {\n"
|
|
|
|
|
@ -1265,7 +1499,7 @@
|
|
|
|
|
" continue\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" if {[info exists menu_var($item)]} {\n"
|
|
|
|
|
" if [is_action $item] {\n"
|
|
|
|
|
" if {[is_action $item]} {\n"
|
|
|
|
|
" set menu_var($item) \"\"\n"
|
|
|
|
|
" } elseif {[value_is_bool $item]} {\n"
|
|
|
|
|
" set menu_var($item) 0\n"
|
|
|
|
|
@ -1500,7 +1734,7 @@
|
|
|
|
|
" push_new_value $item $name $new 0\n"
|
|
|
|
|
" set_connected no\n"
|
|
|
|
|
" \n"
|
|
|
|
|
" } elseif [opt_match Q $item] {\n"
|
|
|
|
|
" } elseif {[opt_match Q $item]} {\n"
|
|
|
|
|
" push_new_value $item $name $new 1\n"
|
|
|
|
|
" } else {\n"
|
|
|
|
|
" push_new_value $item $name $new 0\n"
|
|
|
|
|
@ -1666,7 +1900,7 @@
|
|
|
|
|
"proc set_x11_display {name} {\n"
|
|
|
|
|
" global x11_display\n"
|
|
|
|
|
" set x11_display \"x11vnc X display: $name\"\n"
|
|
|
|
|
" wm title . \"tkx11vnc - $name\"\n"
|
|
|
|
|
" set_name \"tkx11vnc - $name\"\n"
|
|
|
|
|
"}\n"
|
|
|
|
|
"proc set_vnc_display {name} {\n"
|
|
|
|
|
" global vnc_display\n"
|
|
|
|
|
@ -1678,7 +1912,7 @@
|
|
|
|
|
"}\n"
|
|
|
|
|
"proc no_x11_display {} {\n"
|
|
|
|
|
" set_x11_display \"(*none*)\"\n"
|
|
|
|
|
" wm title . \"tkx11vnc\"\n"
|
|
|
|
|
" set_name \"tkx11vnc\"\n"
|
|
|
|
|
"}\n"
|
|
|
|
|
"proc no_vnc_display {} {\n"
|
|
|
|
|
" set_vnc_display \"(*none*)\"\n"
|
|
|
|
|
@ -1719,20 +1953,99 @@
|
|
|
|
|
" }\n"
|
|
|
|
|
"}\n"
|
|
|
|
|
"\n"
|
|
|
|
|
"proc client_dialog {client} {\n"
|
|
|
|
|
" set cid \"\"\n"
|
|
|
|
|
" set host \"\"\n"
|
|
|
|
|
" set ip \"\"\n"
|
|
|
|
|
" global menu_var text_area cleanup_window item_bool\n"
|
|
|
|
|
"\n"
|
|
|
|
|
" append_text \"\\nClient info string: $client\\n\\n\"\n"
|
|
|
|
|
" if {[regexp {^(.*):(.*):(.*):(.*):(.*):(.*)$} \\\n"
|
|
|
|
|
" $client m0 m1 m2 m3 m4 m5 m6]} {\n"
|
|
|
|
|
" # id:ip:port:hostname:input:loginvo\n"
|
|
|
|
|
" set cid $m1\n"
|
|
|
|
|
" set ip $m2\n"
|
|
|
|
|
" set port $m3\n"
|
|
|
|
|
" set host $m4\n"
|
|
|
|
|
" regsub {\\..*$} $host \"\" host\n"
|
|
|
|
|
" set input $m5\n"
|
|
|
|
|
" set logvo $m6\n"
|
|
|
|
|
" append_text \"Host: $host, Port: $port, IP: $ip, Id: $cid\\n\"\n"
|
|
|
|
|
" append_text \" - originally logged in as: \"\n"
|
|
|
|
|
" if {$logvo == \"1\" } {\n"
|
|
|
|
|
" append_text \"View-Only Client\\n\"\n"
|
|
|
|
|
" } else {\n"
|
|
|
|
|
" append_text \"Normal Client\\n\"\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" append_text \" - currently allowed input: \"\n"
|
|
|
|
|
" set sk 0\n"
|
|
|
|
|
" set sm 0\n"
|
|
|
|
|
" set sb 0\n"
|
|
|
|
|
" if {[regexp -nocase {K} $input]} {\n"
|
|
|
|
|
" append_text \"Keystroke\"\n"
|
|
|
|
|
" set sk 1\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" if {[regexp -nocase {M} $input]} {\n"
|
|
|
|
|
" if {$sk} {\n"
|
|
|
|
|
" append_text \", \"\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" append_text \"Mouse-Motion\"\n"
|
|
|
|
|
" set sm 1\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" if {[regexp -nocase {B} $input]} {\n"
|
|
|
|
|
" if {$sk || $sm} {\n"
|
|
|
|
|
" append_text \", \"\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" append_text \"Button-Click\"\n"
|
|
|
|
|
" set sb 1\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" if {! $sk && ! $sm && ! $sb} {\n"
|
|
|
|
|
" append_text \"None\"\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" append_text \"\\n\"\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" if {$cid == \"\"} {\n"
|
|
|
|
|
" append_text \"Invalid client info string: $client\\n\"\n"
|
|
|
|
|
" return\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
"\n"
|
|
|
|
|
" regsub -all {_} $input \"\" input\n"
|
|
|
|
|
" set menu_var(client) \"$input\"\n"
|
|
|
|
|
" set item_bool(client) 0\n"
|
|
|
|
|
"\n"
|
|
|
|
|
" insert_client_action_window $input\n"
|
|
|
|
|
" set rc [entry_dialog client 1]\n"
|
|
|
|
|
"\n"
|
|
|
|
|
" cleanup_text_window\n"
|
|
|
|
|
"\n"
|
|
|
|
|
" set val $menu_var(client)\n"
|
|
|
|
|
" #puts \"rc: $rc val: $val\"\n"
|
|
|
|
|
"\n"
|
|
|
|
|
" if {! $rc} {\n"
|
|
|
|
|
" return;\n"
|
|
|
|
|
" } elseif {[regexp -nocase {(disconnect|close)} $val]} {\n"
|
|
|
|
|
" disconnect_dialog $client\n"
|
|
|
|
|
" } else {\n"
|
|
|
|
|
" regsub -all -nocase {[^KMB]} $val \"\" \n"
|
|
|
|
|
" set item_bool(client_input) 0\n"
|
|
|
|
|
" push_new_value \"client_input\" \"client_input\" \"$cid:$val\" 0\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
"}\n"
|
|
|
|
|
"\n"
|
|
|
|
|
"proc disconnect_dialog {client} {\n"
|
|
|
|
|
" set cid \"\"\n"
|
|
|
|
|
" set host \"\"\n"
|
|
|
|
|
" set msg \"\\n\"\n"
|
|
|
|
|
" append msg \"*** Client info string: $client\\n\"\n"
|
|
|
|
|
" if {[regexp {^(.*):(.*)/(.*)-(.*)$} $client m0 m1 m2 m3 m4]} {\n"
|
|
|
|
|
" if {$m4 == \"ro\"} {\n"
|
|
|
|
|
" set view \"(viewonly)\"\n"
|
|
|
|
|
" } else {\n"
|
|
|
|
|
" set view \"(interactive)\"\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" set host $m1\n"
|
|
|
|
|
" set cid $m3\n"
|
|
|
|
|
" append msg \"*** Host: $m1, Port: $m2 Id: $m3 $view\\n\"\n"
|
|
|
|
|
" if {[regexp {^(.*):(.*):(.*):(.*):(.*):(.*)$} $client m0 m1 m2 m3 m4 m5 m6]} {\n"
|
|
|
|
|
" set cid $m1\n"
|
|
|
|
|
" set ip $m2\n"
|
|
|
|
|
" set port $m3\n"
|
|
|
|
|
" set host $m4\n"
|
|
|
|
|
" regsub {\\..*$} $host \"\" host\n"
|
|
|
|
|
" set input $m5\n"
|
|
|
|
|
" set logvo $m6\n"
|
|
|
|
|
" append_text \"Host: $host, Port: $port, IP: $ip, Id: $cid\\n\"\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" if {$cid == \"\"} {\n"
|
|
|
|
|
" append_text \"Invalid client info string: $client\\n\"\n"
|
|
|
|
|
@ -1740,7 +2053,7 @@
|
|
|
|
|
" }\n"
|
|
|
|
|
" append msg \"*** To *DISCONNECT* this client press \\\"OK\\\", otherwise press \\\"Skip\\\"\\n\"\n"
|
|
|
|
|
" bell\n"
|
|
|
|
|
" if [warning_dialog $msg \"current\"] {\n"
|
|
|
|
|
" if {[warning_dialog $msg \"current\"]} {\n"
|
|
|
|
|
" push_new_value \"disconnect\" \"disconnect\" $cid 1\n"
|
|
|
|
|
" } else {\n"
|
|
|
|
|
" append_text \"disconnect cancelled.\\n\"\n"
|
|
|
|
|
@ -1762,7 +2075,7 @@
|
|
|
|
|
" continue\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" set name [$casc entrycget $i -label]\n"
|
|
|
|
|
" if {[regexp {^#} $name]} {\n"
|
|
|
|
|
" if {[regexp {^num-clients} $name]} {\n"
|
|
|
|
|
" continue\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" if {[regexp {^refresh-list} $name]} {\n"
|
|
|
|
|
@ -1789,12 +2102,20 @@
|
|
|
|
|
" $subm add separator\n"
|
|
|
|
|
" set count 0\n"
|
|
|
|
|
" foreach client [split $list \",\"] {\n"
|
|
|
|
|
" regsub {:[0-9][0-9]*/} $client {/} lab\n"
|
|
|
|
|
" $subm add command -label \"$client\" \\\n"
|
|
|
|
|
" -command \"disconnect_dialog $client\"\n"
|
|
|
|
|
" if {[regexp {^(.*):(.*):(.*):(.*):(.*):(.*)$} \\\n"
|
|
|
|
|
" $client m0 m1 m2 m3 m4 m5 m6]} {\n"
|
|
|
|
|
" # id:ip:port:hostname:input:loginvo\n"
|
|
|
|
|
" set host $m4\n"
|
|
|
|
|
" regsub {\\..*$} $host \"\" host\n"
|
|
|
|
|
" set clabel \"$host $m1\"\n"
|
|
|
|
|
" } else {\n"
|
|
|
|
|
" regsub {:.*$} $client \"\" clabel\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" $subm add command -label \"$clabel\" \\\n"
|
|
|
|
|
" -command \"client_dialog $client\"\n"
|
|
|
|
|
" incr count\n"
|
|
|
|
|
" }\n"
|
|
|
|
|
" $subm entryconfigure 0 -label \"#clients: $count\"\n"
|
|
|
|
|
" $subm entryconfigure 0 -label \"num-clients: $count\"\n"
|
|
|
|
|
"}\n"
|
|
|
|
|
"\n"
|
|
|
|
|
"proc set_widgets {} {\n"
|
|
|
|
|
@ -2082,7 +2403,7 @@
|
|
|
|
|
" pack $df -side top -fill x\n"
|
|
|
|
|
"\n"
|
|
|
|
|
" # text area\n"
|
|
|
|
|
" text .text -height 11 -relief ridge -font $ffont\n"
|
|
|
|
|
" text .text -height 12 -relief ridge -font $ffont\n"
|
|
|
|
|
" set text_area .text\n"
|
|
|
|
|
" pack .text -side top -fill both -expand 1\n"
|
|
|
|
|
"\n"
|
|
|
|
|
@ -2628,7 +2949,7 @@
|
|
|
|
|
"\n"
|
|
|
|
|
"set_template\n"
|
|
|
|
|
"\n"
|
|
|
|
|
"wm title . \"tkx11vnc\"\n"
|
|
|
|
|
"set_name \"tkx11vnc\"\n"
|
|
|
|
|
"make_widgets;\n"
|
|
|
|
|
"\n"
|
|
|
|
|
"menu_bindings;\n"
|
|
|
|
|
|
runge
19 years ago