#!tcl 

# 
# DDNS update
# 

if {$argc == 0} { 
    error {Usage: ddns IPaddress} 
} 

set addr [lindex $argv 0] 

# Edit this line so that it holds your 2mydns values

set url \"http://dyn.2mydns.com/dyn.asp?username=jonh&password=1234&hostname=abc.2mydns.com&myip=$addr\"

# Optional: echo it for debugging
 
echo $url

# Exec the NAT32 url command with $url as the argument.
# The returned data will be printed.

exec url $url