start > Dave > Using Dyndns

Using Dyndns

Created by Dave. Last edited by Dave, one year and 71 days ago. Viewed 44 times. #7

[diff] [history] [edit] [rdf]

labels

attachments

Using Dyndns

What is my site address?

Useful question, this is how I answer it on my windows systems. Its a TCL/TK script that invokes the windows XP shell command ping.

info As noted, I use an information graphic to decorate the box. This is not part of activestate's tcl/tk distribution, and thus needs to be copied to $tklibrary/images.

I am not happy with the triming of the ip address, which is displayed into the address variable using square brackets. Since these have a specific syntactical meaning, I can't find the syntax to remove them from the string.

wm title . {Query site ip?}
wm iconname . {Query site ip?}
wm geometry . 225x65+500+100# This is not part of the package, it needs to be copied here
image create photo infopic -file [file join $tk_library images info.gif]
set pingreply {}
# windows XP
set pingreply [exec ping -n 1 davelevy.dyndns.info]
set address [ lindex $pingreply 2 ]
# only tested on one ip address, do I always need to subtract two from length
# to remove the first and last. What is the syntax to remove leading and trailing [].
set daddress [string range $address 1 [expr [ string length $address ] - 2]]
set messagetext  " public tcp/ip no : $daddress"
set buttontext " Done "
frame .top 
frame .bottom
label .top.icon  -image infopic
frame .top.f -width 50
label .top.f.mess -text $messagetext
pack .top.f.mess -side top -fill x
pack  .top.icon .top.f -side left
button .bottom.dismiss -text $buttontext -command "exit"
pack   .bottom.dismiss
pack   .top .bottom
proc exit {} {
    destroy .
}

Sadly the highlighter is Java, not tcl.

Chris advises that

set daddress [string trim $address {[]} ]

removes the brackets from the address and is obviously much neater and is character based. It implements a remove the unwanted character rule, not remove the first and last characters.

no comments | post comment

see also:
Diablo	New Laptop, Dell ...	Test Page

Sun	Mon	Tue	Wed	Thu	Fri	Sat
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30