diff options
-rw-r--r-- | tinyurl.tcl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/tinyurl.tcl b/tinyurl.tcl index d422126..3aa9bed 100644 --- a/tinyurl.tcl +++ b/tinyurl.tcl @@ -64,6 +64,7 @@ foreach act_arg $arg { if {$tinyurl != "0"} { set title [exec perl -e "use URI::Title;binmode(STDOUT, \":utf8\");print URI::Title::title(\"$url\");"] putserv "PRIVMSG $chan :\002Tiny URL\002: $tinyurl \[$title\] (URL by \002$nick\002)" + return 0 } } |