summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tinyurl.tcl2
1 files changed, 1 insertions, 1 deletions
diff --git a/tinyurl.tcl b/tinyurl.tcl
index 3aa9bed..78e7518 100644
--- a/tinyurl.tcl
+++ b/tinyurl.tcl
@@ -68,7 +68,7 @@ foreach act_arg $arg {
}
}
- if {([string match "*youtube*watch*" $url] == 1)} {
+ if {([string match "*youtube*watch*" $url] == 1) || ([string match "*youtu.bei*" $url] ==1)} {
set title [exec perl -e "use URI::Title;binmode(STDOUT, \":utf8\");print URI::Title::title(\"$url\");"]
if {([string match "* - YouTube" $title] == 1)} {
set title [string range $title 0 end-10]