Mercurial > hg > egg-tcls

changeset 70:15fc72bc3f3e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
More cosmetics.
author Matti Hamalainen <ccr@tnsp.org>
date Sun, 11 Sep 2011 17:48:23 +0300
parents df3230f8aa46
children 50cbd24feadf
files feeds.tcl help.tcl tj.tcl urllog.tcl
diffstat 4 files changed, 27 insertions(+), 31 deletions(-) [+]
line wrap: on
line diff
--- a/feeds.tcl	Sun Sep 11 17:43:32 2011 +0300
+++ b/feeds.tcl	Sun Sep 11 17:48:23 2011 +0300
@@ -1,4 +1,4 @@
-############################################################################
+##########################################################################
 #
 # FeedCheck v0.7 by ccr/TNSP <ccr@tnsp.org>
 # (C) Copyright 2008-2010 Tecnic Software productions (TNSP) 
@@ -8,7 +8,7 @@
 #
 # This script is freely distributable under GNU GPL (version 2) license.
 #
-############################################################################
+##########################################################################
 
 # Datafile, MUST be set to same as in get_feeds.tcl
 set feeds_datafile "/home/niinuska/bot/data.feeds"
@@ -26,9 +26,9 @@
 set feeds_preferredmsg "PRIVMSG"
 
 
-############################################################################
+##########################################################################
 # No need to look below this line
-############################################################################
+##########################################################################
 set feeds_name "FeedCheck"
 set feeds_message "$feeds_name v0.7 by ccr/TNSP"
 
@@ -37,7 +37,7 @@
 bind pub - !last feeds_publast
 
 
-# -------------------------------------------------------------------------
+# ------------------------------------------------------------------------
 proc feeds_smsg {uchan umsg} {
   global feeds_preferredmsg
   putserv "$feeds_preferredmsg $uchan :$umsg"
@@ -68,7 +68,7 @@
 }
 
 
-# -------------------------------------------------------------------------  
+# ------------------------------------------------------------------------
 proc feeds_check {} {
   global feeds_datafile
   
@@ -111,7 +111,7 @@
   return $results
 }
 
-# -------------------------------------------------------------------------  
+# ------------------------------------------------------------------------
 proc feeds_exec {} {
 #  feeds_log "Checking for new entries."
   set uresult [feeds_check]
@@ -130,7 +130,7 @@
   set feeds_running 1
 }
 
-# -------------------------------------------------------------------------
+# ------------------------------------------------------------------------
 proc feeds_pubfetch {unick uhost uhand uchan utext} {
   feeds_log "Manual check invoked on $uchan."
   set uresult [feeds_check]
@@ -149,7 +149,7 @@
 }
 
 
-# -------------------------------------------------------------------------  
+# ------------------------------------------------------------------------
 proc feeds_checklast {ufeed} {
   global feeds_datafile
   
@@ -185,6 +185,4 @@
   } else {
     feeds_smsg $uchan "Ei osumia haulla '$utext'."
   }
-  
 }
-
--- a/help.tcl	Sun Sep 11 17:43:32 2011 +0300
+++ b/help.tcl	Sun Sep 11 17:48:23 2011 +0300
@@ -1,6 +1,6 @@
-############################################################################
+##########################################################################
 # Niinuska Help
-############################################################################
+##########################################################################
 set nn_message "Niinuska Help v0.2 by ccr/TNSP"
 set nn_preferredmsg "PRIVMSG"
 
@@ -8,7 +8,7 @@
 bind pub - !help nn_pubmsg
 bind pub - !apua nn_pubmsg
 
-# -------------------------------------------------------------------------
+# ------------------------------------------------------------------------
 proc nn_smsg {udest umsg} {
   global nn_preferredmsg
 
@@ -16,7 +16,7 @@
 }
 
 
-# -------------------------------------------------------------------------  
+# ------------------------------------------------------------------------
 proc nn_pubmsg {unick uhost uhand uchan uargs} {
   nn_smsg $chan "Lisätietoja: http://tnsp.org/irc/readme.php"
   nn_smsg $chan "!sää \[paikka|minmax\] ; !urlfind <+sana|-sana|%käyttäjä> ; !tj \[käyttäjä\] ; !tjaamut \[-\]vuorokaudet \[\[-\]tunnit\]"
@@ -25,4 +25,4 @@
   return 1
 }
 
-# -------------------------------------------------------------------------
+# ------------------------------------------------------------------------
--- a/tj.tcl	Sun Sep 11 17:43:32 2011 +0300
+++ b/tj.tcl	Sun Sep 11 17:48:23 2011 +0300
@@ -1,4 +1,4 @@
-############################################################################
+##########################################################################
 #
 # TJ (Army Mornings Left-counter) v0.60 by ccr/TNSP
 # (C) Copyright 2000,2009,2011 Tecnic Software productions (TNSP)
@@ -16,16 +16,16 @@
 # !tjaamut <[-]aamujen lkm tasta hetkesta laskien> [+/- tunnit]
 # !tjset dd.mm.yyyy hh:mm
 #
-############################################################################
+##########################################################################
 
 # Default starting TJ
 set tj_defstarttj 180
 
 
 
-############################################################################
+##########################################################################
 # No need to look below this line
-############################################################################
+##########################################################################
 set tj_message "TJ (SA-INT model) v0.65 by ccr/TNSP"
 set tj_dateident "tjdate"
 set tj_preferredmsg "PRIVMSG"
@@ -35,7 +35,7 @@
 bind pub - !tjaamut tj_pubaamut
 bind pub - !tjset tj_pubset
 
-# -------------------------------------------------------------------------
+# ------------------------------------------------------------------------
 proc tj_correctnickcase { jnick } {
 
   if {![validuser $jnick]} { return "" }
@@ -51,7 +51,7 @@
 }
 
 
-# -------------------------------------------------------------------------
+# ------------------------------------------------------------------------
 proc tj_smsg {udest umsg} {
   global tj_preferredmsg
 
@@ -59,7 +59,7 @@
 }
 
 
-# -------------------------------------------------------------------------  
+# ------------------------------------------------------------------------
 proc tj_pubmsg {nick uhost hand chan args} {
   set args [string trim [join $args ""]]
   if {$args == ""} { set args $hand }
@@ -69,13 +69,13 @@
 }
 
 
-# -------------------------------------------------------------------------  
+# ------------------------------------------------------------------------
 proc tj_ctime { utime } {
   return [clock format $utime -format "%d.%m.%Y %H:%M"]
 }
 
 
-# -------------------------------------------------------------------------  
+# ------------------------------------------------------------------------
 proc tj_pubaamut {unick uhost uhand uchan uargs} {
   set foo [split $uargs " "]
   set tjdays [lindex $foo 0]
@@ -93,7 +93,7 @@
 }
 
 
-# -------------------------------------------------------------------------  
+# ------------------------------------------------------------------------
 proc tj_pubset {unick uhost uhand uchan uargs} {
 
   set udate [clock scan $uargs -format "%d.%N.%Y %H:%M"]
@@ -102,7 +102,7 @@
 }
 
 
-# -------------------------------------------------------------------------  
+# ------------------------------------------------------------------------
 proc tj_settj { uuser unick udate } {
   global tj_dateident
 
@@ -115,7 +115,7 @@
 }
 
 
-# -------------------------------------------------------------------------  
+# ------------------------------------------------------------------------
 proc tj_gettj {ihandle ichan} {
   global tj_defstarttj
   global tj_dateident
@@ -191,4 +191,4 @@
 
 }
 
-# -------------------------------------------------------------------------
+# ------------------------------------------------------------------------
--- a/urllog.tcl	Sun Sep 11 17:43:32 2011 +0300
+++ b/urllog.tcl	Sun Sep 11 17:48:23 2011 +0300
@@ -128,7 +128,6 @@
 ##########################################################################
 # No need to look below this line
 ##########################################################################
-#-------------------------------------------------------------------------
 set urllog_name "URLLog"
 set urllog_version "2.0.1"
 
@@ -601,5 +600,4 @@
   return 0
 }
 
-
 # end of script