Fossil SCM
Use tcl_platform to determine username, this is platform independent
Commit
e0232ce1a0317187b91df415b5dcd51119680f45
Parent
e202319ebbdb398…
1 file changed
+2
-2
+2
-2
| --- tools/fossil_chat.tcl | ||
| +++ tools/fossil_chat.tcl | ||
| @@ -79,16 +79,16 @@ | ||
| 79 | 79 | catch {puts $SOCKET noop; flush $SOCKET} |
| 80 | 80 | } |
| 81 | 81 | |
| 82 | 82 | # Connect to the server |
| 83 | 83 | proc connect {} { |
| 84 | - global SOCKET env | |
| 84 | + global SOCKET tcl_platform | |
| 85 | 85 | catch {close $SOCKET} |
| 86 | 86 | if {[catch { |
| 87 | 87 | set SOCKET [socket $::SERVERHOST $::SERVERPORT] |
| 88 | 88 | fconfigure $SOCKET -translation binary -blocking 0 |
| 89 | - puts $SOCKET [list login $env(USER) fact,fuzz] | |
| 89 | + puts $SOCKET [list login $tcl_platform(user) fact,fuzz] | |
| 90 | 90 | flush $SOCKET |
| 91 | 91 | fileevent $SOCKET readable handle_input |
| 92 | 92 | keep_alive |
| 93 | 93 | } errmsg]} { |
| 94 | 94 | if {[tk_messageBox -icon error -type yesno -parent . -message \ |
| 95 | 95 |
| --- tools/fossil_chat.tcl | |
| +++ tools/fossil_chat.tcl | |
| @@ -79,16 +79,16 @@ | |
| 79 | catch {puts $SOCKET noop; flush $SOCKET} |
| 80 | } |
| 81 | |
| 82 | # Connect to the server |
| 83 | proc connect {} { |
| 84 | global SOCKET env |
| 85 | catch {close $SOCKET} |
| 86 | if {[catch { |
| 87 | set SOCKET [socket $::SERVERHOST $::SERVERPORT] |
| 88 | fconfigure $SOCKET -translation binary -blocking 0 |
| 89 | puts $SOCKET [list login $env(USER) fact,fuzz] |
| 90 | flush $SOCKET |
| 91 | fileevent $SOCKET readable handle_input |
| 92 | keep_alive |
| 93 | } errmsg]} { |
| 94 | if {[tk_messageBox -icon error -type yesno -parent . -message \ |
| 95 |
| --- tools/fossil_chat.tcl | |
| +++ tools/fossil_chat.tcl | |
| @@ -79,16 +79,16 @@ | |
| 79 | catch {puts $SOCKET noop; flush $SOCKET} |
| 80 | } |
| 81 | |
| 82 | # Connect to the server |
| 83 | proc connect {} { |
| 84 | global SOCKET tcl_platform |
| 85 | catch {close $SOCKET} |
| 86 | if {[catch { |
| 87 | set SOCKET [socket $::SERVERHOST $::SERVERPORT] |
| 88 | fconfigure $SOCKET -translation binary -blocking 0 |
| 89 | puts $SOCKET [list login $tcl_platform(user) fact,fuzz] |
| 90 | flush $SOCKET |
| 91 | fileevent $SOCKET readable handle_input |
| 92 | keep_alive |
| 93 | } errmsg]} { |
| 94 | if {[tk_messageBox -icon error -type yesno -parent . -message \ |
| 95 |