Artifact 8a1ca9df00e69410ec3499333ba150a8069261c3:
File
tools/fossil_chat.tcl
part of check-in
[e0232ce1a0]
- Use tcl_platform to determine username, this is platform independent
by
mjanssen on
2007-09-24 21:05:45.
0000: 23 21 2f 68 6f 6d 65 2f 64 72 68 2f 62 69 6e 2f #!/home/drh/bin/
0010: 74 6f 62 65 0a 23 0a 23 20 53 69 6d 70 6c 65 20 tobe.#.# Simple
0020: 63 68 61 74 20 63 6c 69 65 6e 74 20 66 6f 72 20 chat client for
0030: 54 63 6c 2f 54 6b 2e 0a 23 0a 70 61 63 6b 61 67 Tcl/Tk..#.packag
0040: 65 20 72 65 71 75 69 72 65 20 54 6b 0a 0a 73 65 e require Tk..se
0050: 74 20 53 45 52 56 45 52 48 4f 53 54 20 66 6f 73 t SERVERHOST fos
0060: 73 69 6c 2d 73 63 6d 2e 68 77 61 63 69 2e 63 6f sil-scm.hwaci.co
0070: 6d 0a 23 20 73 65 74 20 53 45 52 56 45 52 48 4f m.# set SERVERHO
0080: 53 54 20 31 32 37 2e 30 2e 30 2e 31 0a 23 73 65 ST 127.0.0.1.#se
0090: 74 20 53 45 52 56 45 52 48 4f 53 54 20 36 34 2e t SERVERHOST 64.
00a0: 35 2e 35 33 2e 31 39 32 0a 73 65 74 20 53 45 52 5.53.192.set SER
00b0: 56 45 52 50 4f 52 54 20 38 36 31 35 0a 0a 23 20 VERPORT 8615..#
00c0: 53 65 74 75 70 20 74 68 65 20 75 73 65 72 20 69 Setup the user i
00d0: 6e 74 65 72 66 61 63 65 0a 77 6d 20 74 69 74 6c nterface.wm titl
00e0: 65 20 2e 20 46 6f 73 73 69 6c 2d 43 68 61 74 0a e . Fossil-Chat.
00f0: 77 6d 20 69 63 6f 6e 6e 61 6d 65 20 2e 20 5b 77 wm iconname . [w
0100: 6d 20 74 69 74 6c 65 20 2e 5d 0a 0a 73 65 74 20 m title .]..set
0110: 3a 3a 50 52 49 56 41 54 45 20 30 0a 0a 6d 65 6e ::PRIVATE 0..men
0120: 75 20 2e 6d 62 20 2d 74 79 70 65 20 6d 65 6e 75 u .mb -type menu
0130: 62 61 72 0a 69 66 20 7b 24 74 63 6c 5f 70 6c 61 bar.if {$tcl_pla
0140: 74 66 6f 72 6d 28 70 6c 61 74 66 6f 72 6d 29 3d tform(platform)=
0150: 3d 22 75 6e 69 78 22 7d 20 7b 0a 20 20 70 61 63 ="unix"} {. pac
0160: 6b 20 2e 6d 62 20 2d 73 69 64 65 20 74 6f 70 20 k .mb -side top
0170: 2d 66 69 6c 6c 20 78 0a 7d 20 65 6c 73 65 20 7b -fill x.} else {
0180: 0a 20 20 2e 20 63 6f 6e 66 69 67 20 2d 6d 65 6e . . config -men
0190: 75 20 2e 6d 62 0a 7d 0a 2e 6d 62 20 61 64 64 20 u .mb.}..mb add
01a0: 63 61 73 63 61 64 65 20 2d 6c 61 62 65 6c 20 46 cascade -label F
01b0: 69 6c 65 20 2d 75 6e 64 65 72 6c 69 6e 65 20 30 ile -underline 0
01c0: 20 2d 6d 65 6e 75 20 2e 6d 62 2e 66 69 6c 65 0a -menu .mb.file.
01d0: 6d 65 6e 75 20 2e 6d 62 2e 66 69 6c 65 20 2d 74 menu .mb.file -t
01e0: 65 61 72 6f 66 66 20 30 0a 2e 6d 62 2e 66 69 6c earoff 0..mb.fil
01f0: 65 20 61 64 64 20 63 6f 6d 6d 61 6e 64 20 2d 6c e add command -l
0200: 61 62 65 6c 20 53 65 6e 64 20 2d 63 6f 6d 6d 61 abel Send -comma
0210: 6e 64 20 73 65 6e 64 5f 6d 65 73 73 61 67 65 0a nd send_message.
0220: 2e 6d 62 2e 66 69 6c 65 20 61 64 64 20 63 6f 6d .mb.file add com
0230: 6d 61 6e 64 20 2d 6c 61 62 65 6c 20 7b 52 65 6d mand -label {Rem
0240: 6f 76 65 20 6f 6c 64 65 72 20 6d 65 73 73 61 67 ove older messag
0250: 65 73 7d 20 2d 63 6f 6d 6d 61 6e 64 20 63 6c 65 es} -command cle
0260: 61 6e 75 70 5f 72 65 63 6f 72 64 0a 2e 6d 62 2e anup_record..mb.
0270: 66 69 6c 65 20 61 64 64 20 63 68 65 63 6b 62 75 file add checkbu
0280: 74 74 6f 6e 20 2d 6c 61 62 65 6c 20 7b 50 72 69 tton -label {Pri
0290: 76 61 74 65 7d 20 2d 76 61 72 69 61 62 6c 65 20 vate} -variable
02a0: 50 52 49 56 41 54 45 0a 2e 6d 62 2e 66 69 6c 65 PRIVATE..mb.file
02b0: 20 61 64 64 20 73 65 70 61 72 61 74 6f 72 0a 2e add separator..
02c0: 6d 62 2e 66 69 6c 65 20 61 64 64 20 63 6f 6d 6d mb.file add comm
02d0: 61 6e 64 20 2d 6c 61 62 65 6c 20 7b 45 78 69 74 and -label {Exit
02e0: 7d 20 2d 63 6f 6d 6d 61 6e 64 20 65 78 69 74 0a } -command exit.
02f0: 0a 66 72 61 6d 65 20 2e 77 68 6f 0a 70 61 63 6b .frame .who.pack
0300: 20 2e 77 68 6f 20 2d 73 69 64 65 20 72 69 67 68 .who -side righ
0310: 74 20 2d 61 6e 63 68 6f 72 20 6e 20 2d 66 69 6c t -anchor n -fil
0320: 6c 20 79 0a 6c 61 62 65 6c 20 2e 77 68 6f 2e 74 l y.label .who.t
0330: 69 74 6c 65 20 2d 74 65 78 74 20 7b 55 73 65 72 itle -text {User
0340: 73 3a 20 20 20 20 20 20 7d 0a 70 61 63 6b 20 2e s: }.pack .
0350: 77 68 6f 2e 74 69 74 6c 65 20 2d 73 69 64 65 20 who.title -side
0360: 74 6f 70 20 2d 61 6e 63 68 6f 72 20 6e 77 0a 6c top -anchor nw.l
0370: 61 62 65 6c 20 2e 77 68 6f 2e 6c 69 73 74 20 2d abel .who.list -
0380: 61 6e 63 68 6f 72 20 77 20 2d 6a 75 73 74 69 66 anchor w -justif
0390: 79 20 6c 65 66 74 20 2d 74 65 78 74 20 7b 7d 0a y left -text {}.
03a0: 70 61 63 6b 20 2e 77 68 6f 2e 6c 69 73 74 20 2d pack .who.list -
03b0: 73 69 64 65 20 74 6f 70 20 2d 61 6e 63 68 6f 72 side top -anchor
03c0: 20 6e 77 20 2d 65 78 70 61 6e 64 20 31 20 2d 70 nw -expand 1 -p
03d0: 61 64 78 20 35 0a 6c 61 62 65 6c 20 2e 77 68 6f adx 5.label .who
03e0: 2e 74 69 6d 65 20 2d 74 65 78 74 20 7b 7d 20 2d .time -text {} -
03f0: 6a 75 73 74 69 66 79 20 72 69 67 68 74 0a 70 72 justify right.pr
0400: 6f 63 20 75 70 64 61 74 65 5f 74 69 6d 65 20 7b oc update_time {
0410: 7d 20 7b 0a 20 20 61 66 74 65 72 20 31 30 30 30 } {. after 1000
0420: 20 75 70 64 61 74 65 5f 74 69 6d 65 0a 20 20 73 update_time. s
0430: 65 74 20 6e 6f 77 20 5b 63 6c 6f 63 6b 20 73 65 et now [clock se
0440: 63 6f 6e 64 73 5d 0a 20 20 73 65 74 20 74 69 6d conds]. set tim
0450: 65 31 20 5b 63 6c 6f 63 6b 20 66 6f 72 6d 61 74 e1 [clock format
0460: 20 5b 65 78 70 72 20 7b 24 6e 6f 77 2d 34 2a 33 [expr {$now-4*3
0470: 36 30 30 7d 5d 20 2d 66 6f 72 6d 61 74 20 7b 25 600}] -format {%
0480: 48 3a 25 4d 7d 20 2d 67 6d 74 20 31 5d 0a 20 20 H:%M} -gmt 1].
0490: 73 65 74 20 74 69 6d 65 32 20 5b 63 6c 6f 63 6b set time2 [clock
04a0: 20 66 6f 72 6d 61 74 20 5b 65 78 70 72 20 7b 24 format [expr {$
04b0: 6e 6f 77 2b 31 30 2a 33 36 30 30 7d 5d 20 2d 66 now+10*3600}] -f
04c0: 6f 72 6d 61 74 20 7b 25 48 3a 25 4d 7d 20 2d 67 ormat {%H:%M} -g
04d0: 6d 74 20 31 5d 0a 20 20 73 65 74 20 74 69 6d 65 mt 1]. set time
04e0: 33 20 5b 63 6c 6f 63 6b 20 66 6f 72 6d 61 74 20 3 [clock format
04f0: 24 6e 6f 77 20 2d 66 6f 72 6d 61 74 20 25 48 3a $now -format %H:
0500: 25 4d 20 2d 67 6d 74 20 31 5d 0a 20 20 2e 77 68 %M -gmt 1]. .wh
0510: 6f 2e 74 69 6d 65 20 63 6f 6e 66 69 67 20 2d 74 o.time config -t
0520: 65 78 74 20 22 41 45 53 54 3a 20 24 74 69 6d 65 ext "AEST: $time
0530: 32 5c 6e 55 54 43 3a 20 24 74 69 6d 65 33 5c 6e 2\nUTC: $time3\n
0540: 45 53 54 3a 20 24 74 69 6d 65 31 22 0a 7d 0a 75 EST: $time1".}.u
0550: 70 64 61 74 65 5f 74 69 6d 65 0a 70 61 63 6b 20 pdate_time.pack
0560: 2e 77 68 6f 2e 74 69 6d 65 20 2d 73 69 64 65 20 .who.time -side
0570: 62 6f 74 74 6f 6d 20 2d 61 6e 63 68 6f 72 20 73 bottom -anchor s
0580: 77 0a 0a 66 72 61 6d 65 20 2e 69 6e 70 75 74 0a w..frame .input.
0590: 70 61 63 6b 20 2e 69 6e 70 75 74 20 2d 73 69 64 pack .input -sid
05a0: 65 20 62 6f 74 74 6f 6d 20 2d 66 69 6c 6c 20 78 e bottom -fill x
05b0: 0a 74 65 78 74 20 2e 69 6e 70 75 74 2e 74 20 2d .text .input.t -
05c0: 62 64 20 31 20 2d 72 65 6c 69 65 66 20 73 75 6e bd 1 -relief sun
05d0: 6b 65 6e 20 2d 62 67 20 77 68 69 74 65 20 2d 66 ken -bg white -f
05e0: 67 20 62 6c 61 63 6b 20 2d 77 69 64 74 68 20 36 g black -width 6
05f0: 30 20 2d 68 65 69 67 68 74 20 33 20 5c 0a 20 20 0 -height 3 \.
0600: 20 2d 77 72 61 70 20 77 6f 72 64 20 2d 79 73 63 -wrap word -ysc
0610: 72 6f 6c 6c 63 6f 6d 6d 61 6e 64 20 5b 6c 69 73 rollcommand [lis
0620: 74 20 2e 69 6e 70 75 74 2e 73 62 20 73 65 74 5d t .input.sb set]
0630: 20 2d 74 61 6b 65 66 6f 63 75 73 20 31 0a 62 69 -takefocus 1.bi
0640: 6e 64 20 2e 69 6e 70 75 74 2e 74 20 3c 4b 65 79 nd .input.t <Key
0650: 2d 52 65 74 75 72 6e 3e 20 7b 73 65 6e 64 5f 6d -Return> {send_m
0660: 65 73 73 61 67 65 3b 20 62 72 65 61 6b 7d 0a 70 essage; break}.p
0670: 61 63 6b 20 2e 69 6e 70 75 74 2e 74 20 2d 73 69 ack .input.t -si
0680: 64 65 20 6c 65 66 74 20 2d 66 69 6c 6c 20 62 6f de left -fill bo
0690: 74 68 20 2d 65 78 70 61 6e 64 20 31 0a 73 63 72 th -expand 1.scr
06a0: 6f 6c 6c 62 61 72 20 2e 69 6e 70 75 74 2e 73 62 ollbar .input.sb
06b0: 20 2d 6f 72 69 65 6e 74 20 76 65 72 74 69 63 61 -orient vertica
06c0: 6c 20 2d 63 6f 6d 6d 61 6e 64 20 5b 6c 69 73 74 l -command [list
06d0: 20 2e 69 6e 70 75 74 2e 74 20 79 76 69 65 77 5d .input.t yview]
06e0: 0a 70 61 63 6b 20 2e 69 6e 70 75 74 2e 73 62 20 .pack .input.sb
06f0: 2d 73 69 64 65 20 6c 65 66 74 20 2d 66 69 6c 6c -side left -fill
0700: 20 79 0a 0a 66 72 61 6d 65 20 2e 6d 73 67 0a 70 y..frame .msg.p
0710: 61 63 6b 20 2e 6d 73 67 20 2d 73 69 64 65 20 74 ack .msg -side t
0720: 6f 70 20 2d 66 69 6c 6c 20 62 6f 74 68 20 2d 65 op -fill both -e
0730: 78 70 61 6e 64 20 31 0a 74 65 78 74 20 2e 6d 73 xpand 1.text .ms
0740: 67 2e 74 20 2d 62 64 20 31 20 2d 72 65 6c 69 65 g.t -bd 1 -relie
0750: 66 20 73 75 6e 6b 65 6e 20 2d 62 67 20 77 68 69 f sunken -bg whi
0760: 74 65 20 2d 66 67 20 62 6c 61 63 6b 20 2d 77 69 te -fg black -wi
0770: 64 74 68 20 36 30 20 2d 68 65 69 67 68 74 20 32 dth 60 -height 2
0780: 30 20 5c 0a 20 20 20 2d 77 72 61 70 20 77 6f 72 0 \. -wrap wor
0790: 64 20 2d 79 73 63 72 6f 6c 6c 63 6f 6d 6d 61 6e d -yscrollcomman
07a0: 64 20 5b 6c 69 73 74 20 2e 6d 73 67 2e 73 62 20 d [list .msg.sb
07b0: 73 65 74 5d 20 2d 74 61 6b 65 66 6f 63 75 73 20 set] -takefocus
07c0: 30 0a 62 69 6e 64 74 61 67 73 20 2e 6d 73 67 2e 0.bindtags .msg.
07d0: 74 20 5b 6c 69 73 74 20 2e 6d 73 67 2e 74 20 2e t [list .msg.t .
07e0: 20 61 6c 6c 5d 0a 2e 6d 73 67 2e 74 20 74 61 67 all]..msg.t tag
07f0: 20 63 6f 6e 66 69 67 20 65 72 72 6f 72 20 2d 66 config error -f
0800: 6f 72 65 67 72 6f 75 6e 64 20 72 65 64 0a 2e 6d oreground red..m
0810: 73 67 2e 74 20 74 61 67 20 63 6f 6e 66 69 67 20 sg.t tag config
0820: 6d 65 74 61 20 2d 66 6f 72 65 67 72 6f 75 6e 64 meta -foreground
0830: 20 66 6f 72 65 73 74 67 72 65 65 6e 0a 2e 6d 73 forestgreen..ms
0840: 67 2e 74 20 74 61 67 20 63 6f 6e 66 69 67 20 6e g.t tag config n
0850: 6f 72 6d 20 2d 66 6f 72 65 67 72 6f 75 6e 64 20 orm -foreground
0860: 62 6c 61 63 6b 0a 70 61 63 6b 20 2e 6d 73 67 2e black.pack .msg.
0870: 74 20 2d 73 69 64 65 20 6c 65 66 74 20 2d 66 69 t -side left -fi
0880: 6c 6c 20 62 6f 74 68 20 2d 65 78 70 61 6e 64 20 ll both -expand
0890: 31 0a 73 63 72 6f 6c 6c 62 61 72 20 2e 6d 73 67 1.scrollbar .msg
08a0: 2e 73 62 20 2d 6f 72 69 65 6e 74 20 76 65 72 74 .sb -orient vert
08b0: 69 63 61 6c 20 2d 63 6f 6d 6d 61 6e 64 20 5b 6c ical -command [l
08c0: 69 73 74 20 2e 6d 73 67 2e 74 20 79 76 69 65 77 ist .msg.t yview
08d0: 5d 0a 70 61 63 6b 20 2e 6d 73 67 2e 73 62 20 2d ].pack .msg.sb -
08e0: 73 69 64 65 20 6c 65 66 74 20 2d 66 69 6c 6c 20 side left -fill
08f0: 79 0a 0a 75 70 64 61 74 65 0a 0a 23 20 53 65 6e y..update..# Sen
0900: 64 20 70 65 72 69 6f 64 69 63 20 6d 65 73 73 61 d periodic messa
0910: 67 65 73 20 74 6f 20 6b 65 65 70 20 74 68 65 20 ges to keep the
0920: 54 43 50 2f 49 50 20 6c 69 6e 6b 20 75 70 0a 23 TCP/IP link up.#
0930: 0a 70 72 6f 63 20 6b 65 65 70 5f 61 6c 69 76 65 .proc keep_alive
0940: 20 7b 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c 20 54 {} {. global T
0950: 49 4d 45 52 20 53 4f 43 4b 45 54 0a 20 20 63 61 IMER SOCKET. ca
0960: 74 63 68 20 7b 61 66 74 65 72 20 63 61 6e 63 65 tch {after cance
0970: 6c 20 24 54 49 4d 45 52 7d 0a 20 20 73 65 74 20 l $TIMER}. set
0980: 54 49 4d 45 52 20 5b 61 66 74 65 72 20 33 30 30 TIMER [after 300
0990: 30 30 30 20 6b 65 65 70 5f 61 6c 69 76 65 5d 0a 000 keep_alive].
09a0: 20 20 63 61 74 63 68 20 7b 70 75 74 73 20 24 53 catch {puts $S
09b0: 4f 43 4b 45 54 20 6e 6f 6f 70 3b 20 66 6c 75 73 OCKET noop; flus
09c0: 68 20 24 53 4f 43 4b 45 54 7d 0a 7d 0a 0a 23 20 h $SOCKET}.}..#
09d0: 43 6f 6e 6e 65 63 74 20 74 6f 20 74 68 65 20 73 Connect to the s
09e0: 65 72 76 65 72 0a 70 72 6f 63 20 63 6f 6e 6e 65 erver.proc conne
09f0: 63 74 20 7b 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c ct {} {. global
0a00: 20 53 4f 43 4b 45 54 20 74 63 6c 5f 70 6c 61 74 SOCKET tcl_plat
0a10: 66 6f 72 6d 0a 20 20 63 61 74 63 68 20 7b 63 6c form. catch {cl
0a20: 6f 73 65 20 24 53 4f 43 4b 45 54 7d 0a 20 20 69 ose $SOCKET}. i
0a30: 66 20 7b 5b 63 61 74 63 68 20 7b 0a 20 20 20 20 f {[catch {.
0a40: 73 65 74 20 53 4f 43 4b 45 54 20 5b 73 6f 63 6b set SOCKET [sock
0a50: 65 74 20 24 3a 3a 53 45 52 56 45 52 48 4f 53 54 et $::SERVERHOST
0a60: 20 24 3a 3a 53 45 52 56 45 52 50 4f 52 54 5d 0a $::SERVERPORT].
0a70: 20 20 20 20 66 63 6f 6e 66 69 67 75 72 65 20 24 fconfigure $
0a80: 53 4f 43 4b 45 54 20 2d 74 72 61 6e 73 6c 61 74 SOCKET -translat
0a90: 69 6f 6e 20 62 69 6e 61 72 79 20 2d 62 6c 6f 63 ion binary -bloc
0aa0: 6b 69 6e 67 20 30 0a 20 20 20 20 70 75 74 73 20 king 0. puts
0ab0: 24 53 4f 43 4b 45 54 20 5b 6c 69 73 74 20 6c 6f $SOCKET [list lo
0ac0: 67 69 6e 20 24 74 63 6c 5f 70 6c 61 74 66 6f 72 gin $tcl_platfor
0ad0: 6d 28 75 73 65 72 29 20 66 61 63 74 2c 66 75 7a m(user) fact,fuz
0ae0: 7a 5d 0a 20 20 20 20 66 6c 75 73 68 20 24 53 4f z]. flush $SO
0af0: 43 4b 45 54 0a 20 20 20 20 66 69 6c 65 65 76 65 CKET. fileeve
0b00: 6e 74 20 24 53 4f 43 4b 45 54 20 72 65 61 64 61 nt $SOCKET reada
0b10: 62 6c 65 20 68 61 6e 64 6c 65 5f 69 6e 70 75 74 ble handle_input
0b20: 0a 20 20 20 20 6b 65 65 70 5f 61 6c 69 76 65 0a . keep_alive.
0b30: 20 20 7d 20 65 72 72 6d 73 67 5d 7d 20 7b 0a 20 } errmsg]} {.
0b40: 20 20 20 69 66 20 7b 5b 74 6b 5f 6d 65 73 73 61 if {[tk_messa
0b50: 67 65 42 6f 78 20 2d 69 63 6f 6e 20 65 72 72 6f geBox -icon erro
0b60: 72 20 2d 74 79 70 65 20 79 65 73 6e 6f 20 2d 70 r -type yesno -p
0b70: 61 72 65 6e 74 20 2e 20 2d 6d 65 73 73 61 67 65 arent . -message
0b80: 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 22 55 \. "U
0b90: 6e 61 62 6c 65 20 74 6f 20 63 6f 6e 6e 65 63 74 nable to connect
0ba0: 20 74 6f 20 73 65 72 76 65 72 2e 20 20 24 65 72 to server. $er
0bb0: 72 6d 73 67 2e 5c 6e 5c 6e 54 72 79 20 61 67 61 rmsg.\n\nTry aga
0bc0: 69 6e 3f 22 5d 3d 3d 22 79 65 73 22 7d 20 7b 0a in?"]=="yes"} {.
0bd0: 20 20 20 20 20 20 61 66 74 65 72 20 31 30 30 20 after 100
0be0: 63 6f 6e 6e 65 63 74 0a 20 20 20 20 7d 0a 20 20 connect. }.
0bf0: 7d 0a 7d 0a 63 6f 6e 6e 65 63 74 0a 0a 23 20 53 }.}.connect..# S
0c00: 65 6e 64 20 74 68 65 20 6d 65 73 73 61 67 65 20 end the message
0c10: 74 65 78 74 20 63 6f 6e 74 61 69 6e 65 64 20 69 text contained i
0c20: 6e 20 74 68 65 20 2e 69 6e 70 75 74 2e 74 20 77 n the .input.t w
0c30: 69 64 67 65 74 20 74 6f 20 74 68 65 20 73 65 72 idget to the ser
0c40: 76 65 72 2e 0a 23 0a 70 72 6f 63 20 73 65 6e 64 ver..#.proc send
0c50: 5f 6d 65 73 73 61 67 65 20 7b 7d 20 7b 0a 20 20 _message {} {.
0c60: 73 65 74 20 74 78 74 20 5b 2e 69 6e 70 75 74 2e set txt [.input.
0c70: 74 20 67 65 74 20 31 2e 30 20 65 6e 64 5d 0a 20 t get 1.0 end].
0c80: 20 2e 69 6e 70 75 74 2e 74 20 64 65 6c 65 74 65 .input.t delete
0c90: 20 31 2e 30 20 65 6e 64 0a 20 20 72 65 67 73 75 1.0 end. regsu
0ca0: 62 20 2d 61 6c 6c 20 22 5c 5b 20 5c 74 5c 6e 5c b -all "\[ \t\n\
0cb0: 66 5c 72 5c 5d 2b 22 20 5b 73 74 72 69 6e 67 20 f\r\]+" [string
0cc0: 74 72 69 6d 20 24 74 78 74 5d 20 7b 20 7d 20 74 trim $txt] { } t
0cd0: 78 74 0a 20 20 69 66 20 7b 24 74 78 74 3d 3d 22 xt. if {$txt=="
0ce0: 22 7d 20 72 65 74 75 72 6e 0a 20 20 67 6c 6f 62 "} return. glob
0cf0: 61 6c 20 53 4f 43 4b 45 54 0a 20 20 69 66 20 7b al SOCKET. if {
0d00: 24 3a 3a 50 52 49 56 41 54 45 7d 20 7b 0a 20 20 $::PRIVATE} {.
0d10: 20 20 70 75 74 73 20 24 53 4f 43 4b 45 54 20 5b puts $SOCKET [
0d20: 6c 69 73 74 20 70 72 69 76 61 74 65 5f 6d 65 73 list private_mes
0d30: 73 61 67 65 20 24 74 78 74 20 5b 6c 69 73 74 20 sage $txt [list
0d40: 64 61 6e 20 64 72 68 5d 5d 0a 20 20 7d 20 65 6c dan drh]]. } el
0d50: 73 65 20 7b 0a 20 20 20 20 70 75 74 73 20 24 53 se {. puts $S
0d60: 4f 43 4b 45 54 20 5b 6c 69 73 74 20 6d 65 73 73 OCKET [list mess
0d70: 61 67 65 20 24 74 78 74 5d 0a 20 20 7d 0a 20 20 age $txt]. }.
0d80: 66 6c 75 73 68 20 24 53 4f 43 4b 45 54 0a 7d 0a flush $SOCKET.}.
0d90: 0a 2e 6d 62 20 61 64 64 20 63 61 73 63 61 64 65 ..mb add cascade
0da0: 20 2d 6c 61 62 65 6c 20 22 54 72 61 6e 73 66 65 -label "Transfe
0db0: 72 22 20 2d 75 6e 64 65 72 6c 69 6e 65 20 30 20 r" -underline 0
0dc0: 2d 6d 65 6e 75 20 2e 6d 62 2e 66 69 6c 65 73 0a -menu .mb.files.
0dd0: 6d 65 6e 75 20 2e 6d 62 2e 66 69 6c 65 73 20 2d menu .mb.files -
0de0: 74 65 61 72 6f 66 66 20 30 0a 2e 6d 62 2e 66 69 tearoff 0..mb.fi
0df0: 6c 65 73 20 61 64 64 20 63 6f 6d 6d 61 6e 64 20 les add command
0e00: 2d 6c 61 62 65 6c 20 22 53 65 6e 64 20 66 69 6c -label "Send fil
0e10: 65 2e 2e 2e 22 20 2d 63 6f 6d 6d 61 6e 64 20 73 e..." -command s
0e20: 65 6e 64 5f 66 69 6c 65 0a 2e 6d 62 2e 66 69 6c end_file..mb.fil
0e30: 65 73 20 61 64 64 20 63 6f 6d 6d 61 6e 64 20 2d es add command -
0e40: 6c 61 62 65 6c 20 22 44 65 6c 65 74 65 20 66 69 label "Delete fi
0e50: 6c 65 73 22 20 2d 63 6f 6d 6d 61 6e 64 20 64 65 les" -command de
0e60: 6c 65 74 65 5f 66 69 6c 65 73 20 5c 0a 20 20 20 lete_files \.
0e70: 20 2d 73 74 61 74 65 20 64 69 73 61 62 6c 65 64 -state disabled
0e80: 0a 2e 6d 62 2e 66 69 6c 65 73 20 61 64 64 20 73 ..mb.files add s
0e90: 65 70 61 72 61 74 6f 72 0a 0a 23 20 45 6e 63 6f eparator..# Enco
0ea0: 64 65 20 61 20 73 74 72 69 6e 67 20 28 70 6f 73 de a string (pos
0eb0: 73 69 62 6c 79 20 63 6f 6e 74 61 69 6e 69 6e 67 sibly containing
0ec0: 20 62 69 6e 61 72 79 20 61 6e 64 20 5c 30 30 30 binary and \000
0ed0: 20 63 68 61 72 61 63 74 65 72 73 29 20 69 6e 74 characters) int
0ee0: 6f 0a 23 20 73 69 6e 67 6c 65 20 6c 69 6e 65 20 o.# single line
0ef0: 6f 66 20 74 65 78 74 2e 0a 23 0a 70 72 6f 63 20 of text..#.proc
0f00: 65 6e 63 6f 64 65 20 7b 74 78 74 7d 20 7b 0a 20 encode {txt} {.
0f10: 20 72 65 74 75 72 6e 20 5b 73 74 72 69 6e 67 20 return [string
0f20: 6d 61 70 20 5b 6c 69 73 74 20 25 20 25 32 35 20 map [list % %25
0f30: 2b 20 25 32 62 20 22 20 22 20 2b 20 5c 6e 20 25 + %2b " " + \n %
0f40: 30 61 20 5c 74 20 25 30 39 20 5c 30 30 30 20 25 0a \t %09 \000 %
0f50: 30 30 5d 20 24 74 78 74 5d 0a 7d 0a 0a 23 20 55 00] $txt].}..# U
0f60: 6e 64 6f 20 74 68 65 20 77 6f 72 6b 20 6f 66 20 ndo the work of
0f70: 65 6e 63 6f 64 65 2e 20 20 43 6f 6e 76 65 72 74 encode. Convert
0f80: 20 61 6e 20 65 6e 63 6f 64 65 64 20 73 74 72 69 an encoded stri
0f90: 6e 67 20 62 61 63 6b 20 69 6e 74 6f 20 69 74 73 ng back into its
0fa0: 20 6f 72 69 67 69 6e 61 6c 0a 23 20 66 6f 72 6d original.# form
0fb0: 2e 0a 23 0a 70 72 6f 63 20 64 65 63 6f 64 65 20 ..#.proc decode
0fc0: 7b 74 78 74 7d 20 7b 0a 20 20 72 65 74 75 72 6e {txt} {. return
0fd0: 20 5b 73 74 72 69 6e 67 20 6d 61 70 20 5b 6c 69 [string map [li
0fe0: 73 74 20 25 30 30 20 5c 30 30 30 20 25 30 39 20 st %00 \000 %09
0ff0: 5c 74 20 25 30 61 20 5c 6e 20 2b 20 22 20 22 20 \t %0a \n + " "
1000: 25 32 62 20 2b 20 25 32 35 20 25 5d 20 24 74 78 %2b + %25 %] $tx
1010: 74 5d 0a 7d 0a 0a 23 20 44 65 6c 65 74 65 20 61 t].}..# Delete a
1020: 6c 6c 20 6f 66 20 74 68 65 20 64 6f 77 6e 6c 6f ll of the downlo
1030: 61 64 65 64 20 66 69 6c 65 73 20 77 65 20 61 72 aded files we ar
1040: 65 20 63 75 72 72 65 6e 74 6c 79 20 68 6f 6c 64 e currently hold
1050: 69 6e 67 2e 0a 23 0a 70 72 6f 63 20 64 65 6c 65 ing..#.proc dele
1060: 74 65 5f 66 69 6c 65 73 20 7b 7d 20 7b 0a 20 20 te_files {} {.
1070: 67 6c 6f 62 61 6c 20 46 49 4c 45 53 0a 20 20 2e global FILES. .
1080: 6d 62 2e 66 69 6c 65 73 20 64 65 6c 65 74 65 20 mb.files delete
1090: 33 20 65 6e 64 0a 20 20 61 72 72 61 79 20 75 6e 3 end. array un
10a0: 73 65 74 20 46 49 4c 45 53 0a 20 20 2e 6d 62 2e set FILES. .mb.
10b0: 66 69 6c 65 73 20 65 6e 74 72 79 63 6f 6e 66 69 files entryconfi
10c0: 67 75 72 65 20 31 20 2d 73 74 61 74 65 20 64 69 gure 1 -state di
10d0: 73 61 62 6c 65 64 20 0a 7d 0a 0a 23 20 50 72 6f sabled .}..# Pro
10e0: 6d 70 74 20 74 68 65 20 75 73 65 72 20 74 6f 20 mpt the user to
10f0: 73 65 6c 65 63 74 20 61 20 66 69 6c 65 20 66 72 select a file fr
1100: 6f 6d 20 74 68 65 20 64 69 73 6b 2e 20 20 54 68 om the disk. Th
1110: 65 6e 20 73 65 6e 64 20 74 68 61 74 0a 23 20 66 en send that.# f
1120: 69 6c 65 20 74 6f 20 61 6c 6c 20 63 68 61 74 20 ile to all chat
1130: 70 61 72 74 69 63 69 70 61 6e 74 73 2e 0a 23 0a participants..#.
1140: 70 72 6f 63 20 73 65 6e 64 5f 66 69 6c 65 20 7b proc send_file {
1150: 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c 20 53 4f 43 } {. global SOC
1160: 4b 45 54 0a 20 20 73 65 74 20 6f 70 65 6e 66 69 KET. set openfi
1170: 6c 65 20 5b 74 6b 5f 67 65 74 4f 70 65 6e 46 69 le [tk_getOpenFi
1180: 6c 65 5d 0a 20 20 69 66 20 7b 24 6f 70 65 6e 66 le]. if {$openf
1190: 69 6c 65 3d 3d 22 22 7d 20 72 65 74 75 72 6e 0a ile==""} return.
11a0: 20 20 73 65 74 20 66 20 5b 6f 70 65 6e 20 24 6f set f [open $o
11b0: 70 65 6e 66 69 6c 65 5d 0a 20 20 66 63 6f 6e 66 penfile]. fconf
11c0: 69 67 75 72 65 20 24 66 20 2d 74 72 61 6e 73 6c igure $f -transl
11d0: 61 74 69 6f 6e 20 62 69 6e 61 72 79 0a 20 20 73 ation binary. s
11e0: 65 74 20 64 61 74 61 20 5b 72 65 61 64 20 24 66 et data [read $f
11f0: 5d 0a 20 20 63 6c 6f 73 65 20 24 66 0a 20 20 69 ]. close $f. i
1200: 66 20 7b 24 3a 3a 50 52 49 56 41 54 45 7d 20 7b f {$::PRIVATE} {
1210: 0a 20 20 20 20 70 75 74 73 20 24 53 4f 43 4b 45 . puts $SOCKE
1220: 54 20 5b 6c 69 73 74 20 70 72 69 76 61 74 65 5f T [list private_
1230: 66 69 6c 65 20 5b 66 69 6c 65 20 74 61 69 6c 20 file [file tail
1240: 24 6f 70 65 6e 66 69 6c 65 5d 20 5b 65 6e 63 6f $openfile] [enco
1250: 64 65 20 24 64 61 74 61 5d 20 5c 0a 20 20 20 20 de $data] \.
1260: 20 20 20 20 5b 6c 69 73 74 20 64 61 6e 20 64 72 [list dan dr
1270: 68 5d 5d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 h]]. } else {.
1280: 20 20 20 70 75 74 73 20 24 53 4f 43 4b 45 54 20 puts $SOCKET
1290: 5b 6c 69 73 74 20 66 69 6c 65 20 5b 66 69 6c 65 [list file [file
12a0: 20 74 61 69 6c 20 24 6f 70 65 6e 66 69 6c 65 5d tail $openfile]
12b0: 20 5b 65 6e 63 6f 64 65 20 24 64 61 74 61 5d 5d [encode $data]]
12c0: 0a 20 20 7d 0a 20 20 66 6c 75 73 68 20 24 53 4f . }. flush $SO
12d0: 43 4b 45 54 0a 20 20 73 65 74 20 74 69 6d 65 20 CKET. set time
12e0: 5b 63 6c 6f 63 6b 20 66 6f 72 6d 61 74 20 5b 63 [clock format [c
12f0: 6c 6f 63 6b 20 73 65 63 6f 6e 64 73 5d 20 2d 66 lock seconds] -f
1300: 6f 72 6d 61 74 20 7b 25 48 3a 25 4d 7d 20 2d 67 ormat {%H:%M} -g
1310: 6d 74 20 31 5d 0a 20 20 2e 6d 73 67 2e 74 20 69 mt 1]. .msg.t i
1320: 6e 73 65 72 74 20 65 6e 64 20 22 5c 5b 24 74 69 nsert end "\[$ti
1330: 6d 65 5c 5d 20 73 65 6e 74 20 66 69 6c 65 20 5b me\] sent file [
1340: 66 69 6c 65 20 74 61 69 6c 20 24 6f 70 65 6e 66 file tail $openf
1350: 69 6c 65 5d 5c 0a 20 20 20 20 20 20 20 20 2d 20 ile]\. -
1360: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 [string length $
1370: 64 61 74 61 5d 20 62 79 74 65 73 5c 6e 22 20 6d data] bytes\n" m
1380: 65 74 61 0a 20 20 2e 6d 73 67 2e 74 20 73 65 65 eta. .msg.t see
1390: 20 65 6e 64 0a 7d 0a 0a 23 20 53 61 76 65 20 74 end.}..# Save t
13a0: 68 65 20 6e 61 6d 65 64 20 66 69 6c 65 20 74 6f he named file to
13b0: 20 74 68 65 20 64 69 73 6b 2e 0a 23 0a 20 70 72 the disk..#. pr
13c0: 6f 63 20 73 61 76 65 5f 66 69 6c 65 20 7b 66 69 oc save_file {fi
13d0: 6c 65 6e 61 6d 65 7d 20 7b 0a 20 20 67 6c 6f 62 lename} {. glob
13e0: 61 6c 20 46 49 4c 45 53 0a 20 20 73 65 74 20 73 al FILES. set s
13f0: 61 76 65 66 69 6c 65 20 5b 74 6b 5f 67 65 74 53 avefile [tk_getS
1400: 61 76 65 46 69 6c 65 20 2d 69 6e 69 74 69 61 6c aveFile -initial
1410: 66 69 6c 65 20 24 66 69 6c 65 6e 61 6d 65 5d 0a file $filename].
1420: 20 20 69 66 20 7b 24 73 61 76 65 66 69 6c 65 3d if {$savefile=
1430: 3d 22 22 7d 20 72 65 74 75 72 6e 0a 20 20 73 65 =""} return. se
1440: 74 20 66 20 5b 6f 70 65 6e 20 24 73 61 76 65 66 t f [open $savef
1450: 69 6c 65 20 77 5d 0a 20 20 66 63 6f 6e 66 69 67 ile w]. fconfig
1460: 75 72 65 20 24 66 20 2d 74 72 61 6e 73 6c 61 74 ure $f -translat
1470: 69 6f 6e 20 62 69 6e 61 72 79 0a 20 20 70 75 74 ion binary. put
1480: 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 24 66 20 s -nonewline $f
1490: 5b 64 65 63 6f 64 65 20 24 46 49 4c 45 53 28 24 [decode $FILES($
14a0: 66 69 6c 65 6e 61 6d 65 29 5d 0a 20 20 63 6c 6f filename)]. clo
14b0: 73 65 20 24 66 0a 7d 0a 0a 23 20 48 61 6e 64 6c se $f.}..# Handl
14c0: 65 20 61 20 22 66 69 6c 65 22 20 6d 65 73 73 61 e a "file" messa
14d0: 67 65 20 66 72 6f 6d 20 74 68 65 20 63 68 61 74 ge from the chat
14e0: 20 73 65 72 76 65 72 2e 0a 23 0a 70 72 6f 63 20 server..#.proc
14f0: 68 61 6e 64 6c 65 5f 66 69 6c 65 20 7b 66 72 6f handle_file {fro
1500: 6d 20 66 69 6c 65 6e 61 6d 65 20 64 61 74 61 7d m filename data}
1510: 20 7b 0a 20 20 67 6c 6f 62 61 6c 20 46 49 4c 45 {. global FILE
1520: 53 0a 20 20 66 6f 72 65 61 63 68 20 70 72 69 6f S. foreach prio
1530: 72 20 5b 61 72 72 61 79 20 6e 61 6d 65 73 20 46 r [array names F
1540: 49 4c 45 53 5d 20 7b 0a 20 20 20 20 69 66 20 7b ILES] {. if {
1550: 24 66 69 6c 65 6e 61 6d 65 3d 3d 24 70 72 69 6f $filename==$prio
1560: 72 7d 20 62 72 65 61 6b 0a 20 20 7d 0a 20 20 69 r} break. }. i
1570: 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 f {![info exists
1580: 20 70 72 69 6f 72 5d 20 7c 7c 20 24 66 69 6c 65 prior] || $file
1590: 6e 61 6d 65 21 3d 24 70 72 69 6f 72 7d 20 7b 0a name!=$prior} {.
15a0: 20 20 20 20 2e 6d 62 2e 66 69 6c 65 73 20 61 64 .mb.files ad
15b0: 64 20 63 6f 6d 6d 61 6e 64 20 2d 6c 61 62 65 6c d command -label
15c0: 20 22 53 61 76 65 20 5c 22 24 66 69 6c 65 6e 61 "Save \"$filena
15d0: 6d 65 5c 22 22 20 5c 0a 20 20 20 20 20 20 20 20 me\"" \.
15e0: 2d 63 6f 6d 6d 61 6e 64 20 5b 6c 69 73 74 20 73 -command [list s
15f0: 61 76 65 5f 66 69 6c 65 20 24 66 69 6c 65 6e 61 ave_file $filena
1600: 6d 65 5d 0a 20 20 7d 0a 20 20 73 65 74 20 46 49 me]. }. set FI
1610: 4c 45 53 28 24 66 69 6c 65 6e 61 6d 65 29 20 24 LES($filename) $
1620: 64 61 74 61 0a 20 20 2e 6d 62 2e 66 69 6c 65 73 data. .mb.files
1630: 20 65 6e 74 72 79 63 6f 6e 66 69 67 75 72 65 20 entryconfigure
1640: 31 20 2d 73 74 61 74 65 20 61 63 74 69 76 65 20 1 -state active
1650: 0a 20 20 73 65 74 20 74 69 6d 65 20 5b 63 6c 6f . set time [clo
1660: 63 6b 20 66 6f 72 6d 61 74 20 5b 63 6c 6f 63 6b ck format [clock
1670: 20 73 65 63 6f 6e 64 73 5d 20 2d 66 6f 72 6d 61 seconds] -forma
1680: 74 20 7b 25 48 3a 25 4d 7d 20 2d 67 6d 74 20 31 t {%H:%M} -gmt 1
1690: 5d 0a 20 20 2e 6d 73 67 2e 74 20 69 6e 73 65 72 ]. .msg.t inser
16a0: 74 20 65 6e 64 20 22 5c 5b 24 74 69 6d 65 20 24 t end "\[$time $
16b0: 66 72 6f 6d 5c 5d 20 22 20 6d 65 74 61 20 22 46 from\] " meta "F
16c0: 69 6c 65 3a 20 5c 22 24 66 69 6c 65 6e 61 6d 65 ile: \"$filename
16d0: 5c 22 5c 6e 22 20 6e 6f 72 6d 0a 20 20 2e 6d 73 \"\n" norm. .ms
16e0: 67 2e 74 20 73 65 65 20 65 6e 64 0a 7d 0a 0a 23 g.t see end.}..#
16f0: 20 48 61 6e 64 6c 65 20 69 6e 70 75 74 20 66 72 Handle input fr
1700: 6f 6d 20 74 68 65 20 73 65 72 76 65 72 0a 23 0a om the server.#.
1710: 70 72 6f 63 20 68 61 6e 64 6c 65 5f 69 6e 70 75 proc handle_inpu
1720: 74 20 7b 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c 20 t {} {. global
1730: 53 4f 43 4b 45 54 0a 20 20 69 66 20 7b 5b 65 6f SOCKET. if {[eo
1740: 66 20 24 53 4f 43 4b 45 54 5d 7d 20 7b 0a 20 20 f $SOCKET]} {.
1750: 20 20 64 69 73 63 6f 6e 6e 65 63 74 0a 20 20 20 disconnect.
1760: 20 72 65 74 75 72 6e 0a 20 20 7d 0a 20 20 73 65 return. }. se
1770: 74 20 6c 69 6e 65 20 5b 67 65 74 73 20 24 53 4f t line [gets $SO
1780: 43 4b 45 54 5d 0a 20 20 69 66 20 7b 24 6c 69 6e CKET]. if {$lin
1790: 65 3d 3d 22 22 7d 20 72 65 74 75 72 6e 0a 20 20 e==""} return.
17a0: 73 65 74 20 63 6d 64 20 5b 6c 69 6e 64 65 78 20 set cmd [lindex
17b0: 24 6c 69 6e 65 20 30 5d 0a 20 20 69 66 20 7b 24 $line 0]. if {$
17c0: 63 6d 64 3d 3d 22 75 73 65 72 6c 69 73 74 22 7d cmd=="userlist"}
17d0: 20 7b 0a 20 20 20 20 73 65 74 20 75 6c 69 73 74 {. set ulist
17e0: 20 7b 7d 0a 20 20 20 20 66 6f 72 65 61 63 68 20 {}. foreach
17f0: 75 20 5b 6c 72 61 6e 67 65 20 24 6c 69 6e 65 20 u [lrange $line
1800: 31 20 65 6e 64 5d 20 7b 0a 20 20 20 20 20 20 61 1 end] {. a
1810: 70 70 65 6e 64 20 75 6c 69 73 74 20 24 75 5c 6e ppend ulist $u\n
1820: 0a 20 20 20 20 7d 0a 20 20 20 20 2e 77 68 6f 2e . }. .who.
1830: 6c 69 73 74 20 63 6f 6e 66 69 67 20 2d 74 65 78 list config -tex
1840: 74 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 24 t [string trim $
1850: 75 6c 69 73 74 5d 0a 20 20 7d 20 65 6c 73 65 69 ulist]. } elsei
1860: 66 20 7b 24 63 6d 64 3d 3d 22 6d 65 73 73 61 67 f {$cmd=="messag
1870: 65 22 7c 7c 24 63 6d 64 3d 3d 22 70 72 69 76 61 e"||$cmd=="priva
1880: 74 65 5f 6d 65 73 73 61 67 65 22 7d 20 7b 0a 20 te_message"} {.
1890: 20 20 20 73 65 74 20 74 69 6d 65 20 5b 63 6c 6f set time [clo
18a0: 63 6b 20 66 6f 72 6d 61 74 20 5b 63 6c 6f 63 6b ck format [clock
18b0: 20 73 65 63 6f 6e 64 73 5d 20 2d 66 6f 72 6d 61 seconds] -forma
18c0: 74 20 7b 25 48 3a 25 4d 7d 20 2d 67 6d 74 20 31 t {%H:%M} -gmt 1
18d0: 5d 0a 20 20 20 20 73 65 74 20 66 72 6f 6d 20 5b ]. set from [
18e0: 6c 69 6e 64 65 78 20 24 6c 69 6e 65 20 31 5d 0a lindex $line 1].
18f0: 20 20 20 20 2e 6d 73 67 2e 74 20 69 6e 73 65 72 .msg.t inser
1900: 74 20 65 6e 64 20 22 5c 5b 24 74 69 6d 65 20 24 t end "\[$time $
1910: 66 72 6f 6d 5c 5d 20 22 20 6d 65 74 61 20 5b 6c from\] " meta [l
1920: 69 6e 64 65 78 20 24 6c 69 6e 65 20 32 5d 5c 6e index $line 2]\n
1930: 20 6e 6f 72 6d 0a 20 20 20 20 2e 6d 73 67 2e 74 norm. .msg.t
1940: 20 73 65 65 20 65 6e 64 0a 20 20 20 20 62 65 6c see end. bel
1950: 6c 0a 20 20 20 20 77 6d 20 64 65 69 63 6f 6e 69 l. wm deiconi
1960: 66 79 20 2e 0a 20 20 20 20 75 70 64 61 74 65 0a fy .. update.
1970: 20 20 20 20 72 61 69 73 65 20 2e 0a 20 20 7d 20 raise .. }
1980: 65 6c 73 65 69 66 20 7b 24 63 6d 64 3d 3d 22 6e elseif {$cmd=="n
1990: 6f 6f 70 22 7d 20 7b 0a 20 20 20 20 23 20 64 6f oop"} {. # do
19a0: 20 6e 6f 74 68 69 6e 67 0a 20 20 7d 20 65 6c 73 nothing. } els
19b0: 65 69 66 20 7b 24 63 6d 64 3d 3d 22 6d 65 74 61 eif {$cmd=="meta
19c0: 22 7d 20 7b 0a 20 20 20 20 73 65 74 20 6e 6f 77 "} {. set now
19d0: 20 5b 63 6c 6f 63 6b 20 73 65 63 6f 6e 64 73 5d [clock seconds]
19e0: 0a 20 20 20 20 73 65 74 20 74 69 6d 65 20 5b 63 . set time [c
19f0: 6c 6f 63 6b 20 66 6f 72 6d 61 74 20 24 6e 6f 77 lock format $now
1a00: 20 2d 66 6f 72 6d 61 74 20 7b 25 48 3a 25 4d 7d -format {%H:%M}
1a10: 20 2d 67 6d 74 20 31 5d 0a 20 20 20 20 2e 6d 73 -gmt 1]. .ms
1a20: 67 2e 74 20 69 6e 73 65 72 74 20 65 6e 64 20 22 g.t insert end "
1a30: 5c 5b 24 74 69 6d 65 5c 5d 20 5b 6c 69 6e 64 65 \[$time\] [linde
1a40: 78 20 24 6c 69 6e 65 20 31 5d 5c 6e 22 20 6d 65 x $line 1]\n" me
1a50: 74 61 0a 20 20 20 20 2e 6d 73 67 2e 74 20 73 65 ta. .msg.t se
1a60: 65 20 65 6e 64 0a 20 20 7d 20 65 6c 73 65 69 66 e end. } elseif
1a70: 20 7b 24 63 6d 64 3d 3d 22 66 69 6c 65 22 7c 7c {$cmd=="file"||
1a80: 24 63 6d 64 3d 3d 22 70 72 69 76 61 74 65 5f 66 $cmd=="private_f
1a90: 69 6c 65 22 7d 20 7b 0a 20 20 20 20 69 66 20 7b ile"} {. if {
1aa0: 5b 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64 73 20 68 [info commands h
1ab0: 61 6e 64 6c 65 5f 66 69 6c 65 5d 3d 3d 22 68 61 andle_file]=="ha
1ac0: 6e 64 6c 65 5f 66 69 6c 65 22 7d 20 7b 0a 20 20 ndle_file"} {.
1ad0: 20 20 20 20 68 61 6e 64 6c 65 5f 66 69 6c 65 20 handle_file
1ae0: 5b 6c 69 6e 64 65 78 20 24 6c 69 6e 65 20 31 5d [lindex $line 1]
1af0: 20 5b 6c 69 6e 64 65 78 20 24 6c 69 6e 65 20 32 [lindex $line 2
1b00: 5d 20 5b 6c 69 6e 64 65 78 20 24 6c 69 6e 65 20 ] [lindex $line
1b10: 33 5d 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 20 20 3]. }. }.}
1b20: 20 20 0a 0a 23 20 48 61 6e 64 6c 65 20 61 20 62 ..# Handle a b
1b30: 72 6f 6b 65 6e 20 73 6f 63 6b 65 74 20 63 6f 6e roken socket con
1b40: 6e 65 63 74 69 6f 6e 0a 23 0a 70 72 6f 63 20 64 nection.#.proc d
1b50: 69 73 63 6f 6e 6e 65 63 74 20 7b 7d 20 7b 0a 20 isconnect {} {.
1b60: 20 67 6c 6f 62 61 6c 20 53 4f 43 4b 45 54 0a 20 global SOCKET.
1b70: 20 63 6c 6f 73 65 20 24 53 4f 43 4b 45 54 0a 20 close $SOCKET.
1b80: 20 73 65 74 20 71 20 5b 74 6b 5f 6d 65 73 73 61 set q [tk_messa
1b90: 67 65 42 6f 78 20 2d 69 63 6f 6e 20 65 72 72 6f geBox -icon erro
1ba0: 72 20 2d 74 79 70 65 20 79 65 73 6e 6f 20 2d 70 r -type yesno -p
1bb0: 61 72 65 6e 74 20 2e 20 2d 6d 65 73 73 61 67 65 arent . -message
1bc0: 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 22 54 \. "T
1bd0: 43 50 2f 49 50 20 6c 69 6e 6b 20 6c 6f 73 74 2e CP/IP link lost.
1be0: 20 20 54 72 79 20 74 6f 20 72 65 63 6f 6e 6e 65 Try to reconne
1bf0: 74 3f 22 5d 0a 20 20 69 66 20 7b 24 71 3d 3d 22 t?"]. if {$q=="
1c00: 79 65 73 22 7d 20 7b 0a 20 20 20 20 63 6f 6e 6e yes"} {. conn
1c10: 65 63 74 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 ect. } else {.
1c20: 20 20 20 65 78 69 74 0a 20 20 7d 0a 7d 0a 0a 23 exit. }.}..#
1c30: 20 52 65 6d 6f 76 65 20 61 6c 6c 20 62 75 74 20 Remove all but
1c40: 74 68 65 20 6d 6f 73 74 20 72 65 63 65 6e 74 20 the most recent
1c50: 31 30 30 20 6d 65 73 73 61 67 65 20 66 72 6f 6d 100 message from
1c60: 20 74 68 65 20 6d 65 73 73 61 67 65 20 6c 6f 67 the message log
1c70: 0a 23 0a 70 72 6f 63 20 63 6c 65 61 6e 75 70 5f .#.proc cleanup_
1c80: 72 65 63 6f 72 64 20 7b 7d 20 7b 0a 20 20 2e 6d record {} {. .m
1c90: 73 67 2e 74 20 64 65 6c 65 74 65 20 31 2e 30 20 sg.t delete 1.0
1ca0: 7b 65 6e 64 20 2d 31 30 30 20 6c 69 6e 65 73 7d {end -100 lines}
1cb0: 0a 7d 0a .}.