# 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
# 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
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"
#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"
}
# 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
}