]> git.sven.stormbind.net Git - sven/scripts.git/blobdiff - home/mtinyurl.tcl
Remove nd.gd service - dead
[sven/scripts.git] / home / mtinyurl.tcl
index 6114129c97f3454482ed325cf81d4e8b69921cbd..84f8f54f0d77fefed583c6eac53657e9fa8aab50 100755 (executable)
@@ -6,7 +6,7 @@ exec tclsh "$0" ${1+"$@"}
 # and similar services right away from the command line.
 # Default is http://jbot.de provided by my friend Ralf.
 
-#   Copyright (c) 2007  Sven Hoexter <sven@timegate.de>
+#   Copyright (c) 2007-2010  Sven <sven@timegate.de>
 #
 #   This program is free software; you can redistribute it and/or modify
 #   it under the terms of the GNU General Public License as published by
@@ -25,6 +25,13 @@ exec tclsh "$0" ${1+"$@"}
 # For updates see http://sven.stormbind.net/misc/
 
 ### Changelog
+# Version: 0.4 2014-06-22
+# Remove nd.gd support - dead
+#
+# Version: 0.3 2010-08-27
+# - Added http://nd.gd as the -n option, currently a pretty stupid
+#   service which just started linear counting at /01.
+#
 # Version: 0.2 2007-04-17
 #  - made the service chooseable via cmdline options
 #  - added support for http://jbot.de and made it default
@@ -43,7 +50,7 @@ package require struct
 package require cmdline
 
 #GLOBAL VALUES
-set VERSION "0.2"
+set VERSION "0.4"
 set USERAGENT "mtinyurl.tcl version $VERSION by http://sven.stormbind.net/misc"
 
 
@@ -95,7 +102,7 @@ proc main {argv0 argv} {
     #puts "DEBUG: $argv0 -- $argv -- $saneargv"
     set options {
        {t.arg -1 "Use http://tinyurl.com service to create a short URL"}
-       {j.arg -1 "Use http://jbot.de service to create a short URL (default)"} 
+       {j.arg -1 "Use http://jbot.de service to create a short URL (default)"}
     }
     set saneargv0 [::cmdline::getArgv0]
     set usage "$saneargv0 \[options]  URL"
@@ -117,7 +124,7 @@ proc main {argv0 argv} {
     }
 
     # No option given? Fall back to a default service (jbot.de)
-    if {$args(j) == -1 && $args(t) == -1} {
+    if {$args(j) == -1 && $args(t) == -1 } {
        use_j $saneargv
     }