Mercurial > hg > egg-tcls

changeset 143:96b42289f1e7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixes in feeds checker.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 04 Jun 2013 22:01:39 +0300
parents 4c51eeba993f
children 824d24f20826
files feeds.tcl hae_feedit.tcl
diffstat 2 files changed, 5 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/feeds.tcl	Tue Jun 04 20:49:13 2013 +0300
+++ b/feeds.tcl	Tue Jun 04 22:01:39 2013 +0300
@@ -55,10 +55,9 @@
 
 proc feeds_msg {utime ufeed uurl utitle} {
   global feeds_channels
-  feeds_log "$utime $ufeed $uurl $utitle"
   foreach {uchan ufilter} [array get feeds_channels] {
-    foreach umatch [split [string tolower $ufilter] "|"] {
-      if {[string match $umatch $ufeed]} {
+    foreach umatch [split $ufilter "|"] {
+      if {[string match -nocase $umatch $ufeed]} {
         feeds_smsg "#$uchan" "$ufeed: \002$utitle\002 -- $uurl"
       }
     }
--- a/hae_feedit.tcl	Tue Jun 04 20:49:13 2013 +0300
+++ b/hae_feedit.tcl	Tue Jun 04 22:01:39 2013 +0300
@@ -86,6 +86,7 @@
     add_entry $dataname $dataprefix [lindex $umatches [expr $n+2]] [lindex $umatches [expr $n+1]]
   }
   }
+
   return 0
 }
 
@@ -159,13 +160,11 @@
 
 
 ### Generic RSS-feed fetching
-add_rss_feed "http://www.kaleva.fi/rss/145.xml" "Kaleva/Tiede" ""
-
-#add_rss_feed "http://sektori.com/?tpl=rssNewsFeed" "Sektori" ""
+#add_rss_feed "http://www.kaleva.fi/rss/145.xml" "Kaleva/Tiede" ""
 
 add_rss_feed "http://www.effi.org/xml/uutiset.rss" "EFFI" ""
 
-add_rss_feed "http://www.mtv3.fi/rss/uutiset_rikos.rss" "MTV3/Rikos" ""
+add_rss_feed "http://static.mtv3.fi/rss/uutiset_rikos.rss" "MTV3/Rikos" ""
 
 add_rss_feed "http://www.blastwave-comic.com/rss/blastwave.xml" "Blastwave" ""