Mercurial > hg > egg-tcls
comparison urllog.tcl @ 692:c262cef9dc54
urllog: Adjust commented out code.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Thu, 22 Jun 2023 15:47:45 +0300 |
| parents | 2c3df4981df5 |
| children |
comparison
equal
deleted
inserted
replaced
| 691:e1aba44b8c7b | 692:c262cef9dc54 |
|---|---|
| 284 if {[string match "${urllog_shorturl_prefix}*" $urlStr]} { | 284 if {[string match "${urllog_shorturl_prefix}*" $urlStr]} { |
| 285 urllog_log "Ignoring ShortURL: ${urlStr}" | 285 urllog_log "Ignoring ShortURL: ${urlStr}" |
| 286 # set uud "" | 286 # set uud "" |
| 287 # set usql "SELECT id AS uid, url AS uurl, user AS uuser, host AS uhost, chan AS uchan, title AS utitle FROM urls WHERE utime=$uud" | 287 # set usql "SELECT id AS uid, url AS uurl, user AS uuser, host AS uhost, chan AS uchan, title AS utitle FROM urls WHERE utime=$uud" |
| 288 # urllog_db eval $usql { | 288 # urllog_db eval $usql { |
| 289 # urllog_msg 1 $urlNick $urlChan "'$utitle' - $uurl" | 289 # urllog_verb_msg 1 $urlNick $urlChan "'$utitle' - $uurl" |
| 290 # return 1 | 290 # return 1 |
| 291 # } | 291 # } |
| 292 return 0 | 292 return 0 |
| 293 } | 293 } |
| 294 | 294 |