Mercurial > hg > egg-tcls
comparison urllog.tcl @ 686:2c3df4981df5
urllog: Use user's stored handle (if available) when recording URLs.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Fri, 13 May 2022 15:22:44 +0300 |
| parents | 46fc0bc95195 |
| children | c262cef9dc54 |
comparison
equal
deleted
inserted
replaced
| 685:46fc0bc95195 | 686:2c3df4981df5 |
|---|---|
| 503 ### Check the nick | 503 ### Check the nick |
| 504 if {$unick == "*"} { | 504 if {$unick == "*"} { |
| 505 return 0 | 505 return 0 |
| 506 } | 506 } |
| 507 | 507 |
| 508 ### Use handle if available | |
| 509 if {$uhand != "" && $uhand != "*"} { | |
| 510 set unick $uhand | |
| 511 } | |
| 512 | |
| 508 ### Check the channel | 513 ### Check the channel |
| 509 if {[utl_match_delim_list $urllog_log_channels $uchan]} { | 514 if {[utl_match_delim_list $urllog_log_channels $uchan]} { |
| 510 ### Do the URL checking | 515 ### Do the URL checking |
| 511 foreach str [::textutil::split::splitx $utext {\s+}] { | 516 foreach str [::textutil::split::splitx $utext {\s+}] { |
| 512 if {[regexp "(\[a-z]+://\[^\[:space:\]\]+|^(www|ftp)\.\[^\[:space:\]\]+)" $str ulink]} { | 517 if {[regexp "(\[a-z]+://\[^\[:space:\]\]+|^(www|ftp)\.\[^\[:space:\]\]+)" $str ulink]} { |