Mercurial > hg > egg-tcls

diff fetch_food.tcl @ 424:825cac46b1cb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cosmetic / stray trailing whitespace cleanup.
author Matti Hamalainen <ccr@tnsp.org>
date Sun, 08 Jan 2017 03:55:55 +0200
parents 599b90e41c03
children
line wrap: on
line diff
--- a/fetch_food.tcl	Sun Jan 08 03:52:40 2017 +0200
+++ b/fetch_food.tcl	Sun Jan 08 03:55:55 2017 +0200
@@ -55,7 +55,7 @@
 
   set upage [::http::data $utoken]
   ::http::cleanup $utoken
-  
+
   set nmatches 1
   while {$nmatches > 0} {
     set umatches [regexp -nocase -inline -- "<strong>(Maanantai|Tiistai|Keskiviikko|Torstai|Perjantai|Lauantai|Sunnuntai)</strong></td>.?.?<td colspan=\"2\"><strong>(\[^<\]+)</strong></td>(.*)\$" $upage]
@@ -74,7 +74,7 @@
     }
     set upage [lindex $umatches 3]
   }
-  
+
   return 0
 }
 
@@ -107,7 +107,7 @@
     }
     set upage [lindex $umatches 3]
   }
-  
+
   return 0
 }