diff feeds.tcl @ 70:15fc72bc3f3e

More cosmetics.
author Matti Hamalainen <ccr@tnsp.org>
date Sun, 11 Sep 2011 17:48:23 +0300
parents 51e6b16a7601
children 593874678e45
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'."
   }
-  
 }
-