Mercurial > hg > egg-tcls

comparison ruoka.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 44593f1fb916
children 85fe3bc36307
comparison
equal deleted inserted replaced
423:44c9128097cd 424:825cac46b1cb
55 proc ruoka_msg {apublic anick achan amsg} { 55 proc ruoka_msg {apublic anick achan amsg} {
56 global ruoka_preferredmsg 56 global ruoka_preferredmsg
57 if {$apublic == 1} { 57 if {$apublic == 1} {
58 putserv "$ruoka_preferredmsg $achan :$amsg" 58 putserv "$ruoka_preferredmsg $achan :$amsg"
59 } else { 59 } else {
60 putserv "$ruoka_preferredmsg $anick :$amsg" 60 putserv "$ruoka_preferredmsg $anick :$amsg"
61 } 61 }
62 } 62 }
63 63
64 64
65 proc ruoka_get_restaurants {urestaurants} { 65 proc ruoka_get_restaurants {urestaurants} {
105 proc ruoka_get {unick uhand uchan uargs upublic} { 105 proc ruoka_get {unick uhand uchan uargs upublic} {
106 global ruoka_restaurant ruoka_datafile ruoka_days ruoka_threshold 106 global ruoka_restaurant ruoka_datafile ruoka_days ruoka_threshold
107 107
108 # Get list of restaurants 108 # Get list of restaurants
109 ruoka_get_restaurants restaurants 109 ruoka_get_restaurants restaurants
110 110
111 # Check and handle arguments 111 # Check and handle arguments
112 set ulist [split [string tolower $uargs] " "] 112 set ulist [split [string tolower $uargs] " "]
113 set rarg1 [lindex $ulist 0] 113 set rarg1 [lindex $ulist 0]
114 set rarg2 [lindex $ulist 1] 114 set rarg2 [lindex $ulist 1]
115 115