Mercurial > hg > egg-tcls

comparison urllog.tcl @ 531:137d61a0b5b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
urllog: Rename two functions.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 07 Jul 2020 14:22:47 +0300
parents fdd1f0b83685
children 7d5d97dfc6ad
comparison
equal deleted inserted replaced
530:a7e44605c930 531:137d61a0b5b7
43 ### Require packages 43 ### Require packages
44 package require sqlite3 44 package require sqlite3
45 package require http 45 package require http
46 46
47 ### Binding initializations 47 ### Binding initializations
48 bind pub - !urlfind urllog_pub_urlfind 48 bind pub - !urlfind urllog_pub_cmd_urlfind
49 bind msg - !urlfind urllog_msg_urlfind 49 bind msg - !urlfind urllog_msg_cmd_urlfind
50 bind pubm - *.* urllog_check_line 50 bind pubm - *.* urllog_check_line
51 bind topc - *.* urllog_check_line 51 bind topc - *.* urllog_check_line
52 52
53 53
54 ### Initialization messages 54 ### Initialization messages
612 } 612 }
613 613
614 614
615 #------------------------------------------------------------------------- 615 #-------------------------------------------------------------------------
616 ### Finding binded functions 616 ### Finding binded functions
617 proc urllog_pub_urlfind {unick uhost uhand uchan utext} { 617 proc urllog_pub_cmd_urlfind {unick uhost uhand uchan utext} {
618 global urllog_search_channels 618 global urllog_search_channels
619 619
620 if {[utl_match_delim_list $urllog_search_channels $uchan]} { 620 if {[utl_match_delim_list $urllog_search_channels $uchan]} {
621 return [urllog_find $unick $uhand $uchan $utext 1] 621 return [urllog_find $unick $uhand $uchan $utext 1]
622 } 622 }
623 return 0 623 return 0
624 } 624 }
625 625
626 626
627 proc urllog_msg_urlfind {unick uhost uhand utext} { 627 proc urllog_msg_cmd_urlfind {unick uhost uhand utext} {
628 urllog_find $unick $uhand "" $utext 0 628 urllog_find $unick $uhand "" $utext 0
629 return 0 629 return 0
630 } 630 }
631 631
632 # end of script 632 # end of script