Mercurial > hg > egg-tcls
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'." } - } -