Mercurial > hg > egg-tcls

changeset 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 44c9128097cd
children e5810c52d376
files calc.tcl feeds.tcl fetch_feeds.tcl fetch_food.tcl quotedb.tcl ruoka.tcl tj.tcl urllog.tcl utillib.tcl wordkick.tcl
diffstat 10 files changed, 27 insertions(+), 27 deletions(-) [+]
line wrap: on
line diff
--- a/calc.tcl	Sun Jan 08 03:52:40 2017 +0200
+++ b/calc.tcl	Sun Jan 08 03:55:55 2017 +0200
@@ -1,7 +1,7 @@
 ##########################################################################
 #
 # Calc v0.4 by Matti 'ccr' Hamalainen <ccr@tnsp.org>
-# (C) Copyright 2008-2011 Tecnic Software productions (TNSP) 
+# (C) Copyright 2008-2011 Tecnic Software productions (TNSP)
 #
 # A simple calculator for Eggdrop.
 #
@@ -59,7 +59,7 @@
   return 1
 }
 
-# -------------------------------------------------------------------------  
+# -------------------------------------------------------------------------
 proc calc_msg {nick uhost hand args} {
   global calc_err_noargs
 
@@ -67,7 +67,7 @@
     calc_smsg $nick "$calc_err_noargs"
     return 1
   }
-  
+
   set result [calc_do $args]
   calc_smsg $nick "$result"
   return 1
--- a/feeds.tcl	Sun Jan 08 03:52:40 2017 +0200
+++ b/feeds.tcl	Sun Jan 08 03:55:55 2017 +0200
@@ -89,7 +89,7 @@
 
 proc feeds_check_end {} {
   global feeds_dbfile
-  
+
   if {![catch {set ufile [open "$feeds_dbfile.time" w 0600]} uerrmsg]} {
     puts $ufile [clock seconds]
     close $ufile
@@ -102,9 +102,9 @@
 
 #  feeds_log "Timed feed check."
   set oldtime [feeds_check_start]
-  
   set usql "SELECT feed AS ufeed, title AS utitle, url AS uurl, utime AS utime FROM feeds WHERE utime > $oldtime ORDER BY utime ASC"
   set nresult [feeds_dbh onecolumn "SELECT COUNT(*) FROM feeds WHERE utime > $oldtime"]
+
   if {$nresult > $feeds_sync_limit} {
     feeds_log "$nresult new entries, probably unsynchronized. Ignoring."
   } else {
--- a/fetch_feeds.tcl	Sun Jan 08 03:52:40 2017 +0200
+++ b/fetch_feeds.tcl	Sun Jan 08 03:55:55 2017 +0200
@@ -110,13 +110,13 @@
   }
   set upage [::http::data $utoken]
   ::http::cleanup $utoken
-  
+
   set umatches [regexp -all -nocase -inline -- "<item>.\*\?<title><..CDATA.(.\*\?)\\\]\\\]></title>.\*\?<link>(http.\*\?)</link>.\*\?</item>" $upage]
   set nmatches [llength $umatches]
   for {set n 0} {$n < $nmatches} {incr n 3} {
     add_entry $dataname $dataprefix [lindex $umatches [expr $n+2]] [lindex $umatches [expr $n+1]]
   }
-  
+
   if {$nmatches == 0} {
   set umatches [regexp -all -nocase -inline -- "<item>.\*\?<title>(.\*\?)</title>.\*\?<link>(http.\*\?)</link>.\*\?</item>" $upage]
   set nmatches [llength $umatches]
--- 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
 }
 
--- a/quotedb.tcl	Sun Jan 08 03:52:40 2017 +0200
+++ b/quotedb.tcl	Sun Jan 08 03:55:55 2017 +0200
@@ -143,7 +143,7 @@
   } else {
     set qextra " (owner/time override)"
   }
-  
+
   qdb_handle eval $usql {
     set udiff [expr [unixtime] - $utime]
     if {$udiff < $maxdiff || $qoverride} {
@@ -356,7 +356,7 @@
     incr uresults
     qdb_msg $upublic $unick $uchan $qdb_msg_search_fmt [list $quoteID $utext $uuser $utime [utl_ctime $utime]]
   }
-  
+
   if {$uresults == 0} {
     qdb_msg $upublic $unick $uchan $qdb_msg_no_matches [list $unick]
     return 0
--- a/ruoka.tcl	Sun Jan 08 03:52:40 2017 +0200
+++ b/ruoka.tcl	Sun Jan 08 03:55:55 2017 +0200
@@ -57,7 +57,7 @@
   if {$apublic == 1} {
     putserv "$ruoka_preferredmsg $achan :$amsg"
   } else {
-    putserv "$ruoka_preferredmsg $anick :$amsg" 
+    putserv "$ruoka_preferredmsg $anick :$amsg"
   }
 }
 
@@ -107,7 +107,7 @@
 
   # Get list of restaurants
   ruoka_get_restaurants restaurants
-  
+
   # Check and handle arguments
   set ulist [split [string tolower $uargs] " "]
   set rarg1 [lindex $ulist 0]
--- a/tj.tcl	Sun Jan 08 03:52:40 2017 +0200
+++ b/tj.tcl	Sun Jan 08 03:55:55 2017 +0200
@@ -81,7 +81,7 @@
   set tjhours [lindex $foo 1]
   if {$tjdays == ""} {
     tj_smsg $uchan "Hälärm."
-    return 1  
+    return 1
   }
 
   if {$tjhours == ""} { set tjhours 0 }
@@ -145,7 +145,7 @@
 
   # Haetaan TJ aloitus paivamaara
   set tjpaiva [getuser $chandle XTRA $tj_dateident]
-  
+
   if {$tjpaiva == ""} {
     return "$chandle ei ole asettanut itselleen TJ päivämäärää."
   }
@@ -153,7 +153,7 @@
   # Lasketaan tamanhetkinen TJ aika
   set deltatj [expr $tjpaiva - [unixtime]]
 
-  if {$deltatj < 0} { 
+  if {$deltatj < 0} {
     set tmp [expr [unixtime] - $tjpaiva]
   } else {
     set tmp $deltatj
@@ -181,7 +181,7 @@
   tj_append lause $tunnit "$tunnit tuntia" " ja "
 
   if {$aamut == 0 && $deltatj > 0} {
-    if {$tunnit == 0} {  
+    if {$tunnit == 0} {
       return "$tjmt TOSI WÄINÖ! TJ 0!!"
     } else {
       return "$tjmt AIKA WÄBÄ -- TJ $tunnit tuntia!"
--- a/urllog.tcl	Sun Jan 08 03:52:40 2017 +0200
+++ b/urllog.tcl	Sun Jan 08 03:55:55 2017 +0200
@@ -39,7 +39,7 @@
 set urllog_version "2.4.2"
 
 set urllog_tld_list [split $urllog_tld_list ","]
-set urllog_httprep [split "\@|%40|{|%7B|}|%7D|\[|%5B|\]|%5D" "|"] 
+set urllog_httprep [split "\@|%40|{|%7B|}|%7D|\[|%5B|\]|%5D" "|"]
 
 
 ### Require packages
@@ -120,7 +120,7 @@
   if {$apublic == 1} {
     putserv "$urllog_preferredmsg $achan :$amsg"
   } else {
-    putserv "$urllog_preferredmsg $anick :$amsg" 
+    putserv "$urllog_preferredmsg $anick :$amsg"
   }
 }
 
@@ -190,7 +190,7 @@
     } else {
       set qstr "$urlmsg_alreadyknown $qstr"
     }
-    
+
     if {[utl_match_delim_list $urllog_msg_channels $uchan]} {
       urllog_verb_msg $urlNick $urlChan $qstr
     }
@@ -373,7 +373,7 @@
   if {![urllog_exists $urlStr $urlNick $urlHost $urlChan]} {
     return 1
   }
-  
+
   ### Validate URL compoments, etc.
   set urlProto ""
   set urlHostName ""
@@ -471,7 +471,7 @@
     if {$uencoding == "" && $uenc_doc2 != ""} {
       set uencoding $uenc_doc2
     } elseif {$uencoding == ""} {
-      # If _NO_ known encoding of any kind, assume the default of iso8859-1    
+      # If _NO_ known encoding of any kind, assume the default of iso8859-1
       set uencoding "iso8859-1"
     }
 
@@ -610,7 +610,7 @@
     }
     urllog_msg $upublic $unick $uchan "#$iresults: $shortURL ($uuser@[utl_ctime $utime])"
   }
-  
+
   if {$iresults == 0} {
     # If no URLs were found
     urllog_msg $upublic $unick $uchan $urlmsg_nomatch
--- a/utillib.tcl	Sun Jan 08 03:52:40 2017 +0200
+++ b/utillib.tcl	Sun Jan 08 03:55:55 2017 +0200
@@ -27,7 +27,7 @@
 
 
 proc utl_str_split {str maxlen} {
-  set pos 0 
+  set pos 0
   set len [string length $str]
   set ulen 0
   set ustr ""
@@ -76,7 +76,7 @@
 ###
 proc utl_tdbc_sql_init {ndb_handle db_type db_name db_host db_port db_user db_pass} {
   upvar $ndb_handle udb_handle
-  
+
   if {$db_type == "sqlite"} {
     if {$db_name == ""} {
       putlog " SQLite3 database file not set."
--- a/wordkick.tcl	Sun Jan 08 03:52:40 2017 +0200
+++ b/wordkick.tcl	Sun Jan 08 03:55:55 2017 +0200
@@ -105,7 +105,7 @@
 putlog "(maskfile: $wc_badword_file, $wc_badword_max // happymsg: $wc_happy_msg_file, $wc_happy_msg_max)"
 
 if {$wc_irritationmode} {
-putlog "(irritation mode, treshold: $wc_irritationtreshold)" 
+putlog "(irritation mode, treshold: $wc_irritationtreshold)"
 } else {
 putlog "(normal instant wordkick)"
 }