diff options
| -rw-r--r-- | tinyurl.tcl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tinyurl.tcl b/tinyurl.tcl index 7c6a411..b3ebd52 100644 --- a/tinyurl.tcl +++ b/tinyurl.tcl @@ -56,6 +56,10 @@ foreach act_arg $arg { # Check length of URL set length [string length $url] + if {[string match "www.*" $url] == 1} { + set url "http://$url" + } + if {$length >= $url_length} { #set tinyurl [make_tinyurl $url] |