# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1540535898 -10800
# Node ID 2faf2eb18f26b9ebe86b7b29e12ef72e67b7a019
# Parent  cbad3fa706feb9cece66339dc8dac4457f507e3b
urllog: Add support for Twitter meta titles.

diff -r cbad3fa706fe -r 2faf2eb18f26 urllog.tcl
--- a/urllog.tcl	Fri Oct 26 09:37:59 2018 +0300
+++ b/urllog.tcl	Fri Oct 26 09:38:18 2018 +0300
@@ -489,7 +489,12 @@
 
     # Get the document title, if any
     set urlTitle ""
-    set tmpRes [regexp -nocase -- "<title.\*\?>(.\*\?)</title>" $udata umatches urlTitle]
+
+    if {[regexp -nocase -- "<meta name=\"twitter:title\" content=\"(.\*\?)\"\/>" $udata umatches urlTitle]} {
+      # ...
+    } elseif {[regexp -nocase -- "<title.\*\?>(.\*\?)</title>" $udata umatches urlTitle]} {
+      # ...
+    }
 
     # If facebook, get meta info
     if {[regexp -nocase -- "(http|https):\/\/www.facebook.com" $urlStr]} {