better way to identify if it is really youtube

1 files changed, 3 insertions, 1 deletions

diff --git a/tinyurl.tcl b/tinyurl.tcl
index e0fcba3..e935555 100644
--- a/tinyurl.tcl
+++ b/tinyurl.tcl
@@ -69,8 +69,10 @@ foreach act_arg $arg {
 
       if {([string match "*youtube*watch*" $url] == 1)} {
             set title [exec perl -e "use URI::Title;print URI::Title::title(\"$url\");"]
+            if {([string match "* - YouTube" $title] == 1)} {
                set title [string range $title 0 end-10]
-            putserv "PRIVMSG $chan :\002Youtube\002: $title (Video by \002$nick\002)"
+               putserv "PRIVMSG $chan :\002Youtube\002: $title (URL by \002$nick\002)"
+            }
       }
    }
 }