Mercurial > hg > egg-tcls

changeset 470:2faf2eb18f26

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
urllog: Add support for Twitter meta titles.
author Matti Hamalainen <ccr@tnsp.org>
date Fri, 26 Oct 2018 09:38:18 +0300
parents cbad3fa706fe
children 6ea3977f4460
files urllog.tcl
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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]} {