append http:// if missing before links (getting title didn't work well without

2014-05-27 19:48:57 +02:00 · 2014-05-27 19:48:57 +02:00 · c5e05d88d4
commit c5e05d88d4
parent decb6e9f94
1 changed files with 4 additions and 0 deletions
--- 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]