Mercurial > hg > egg-tcls
comparison feeds.tcl @ 608:179fc8150090
feeds: Fix variables.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Mon, 08 Feb 2021 13:28:05 +0200 |
| parents | 1d39db72e190 |
| children | bb6aea76cdb4 |
comparison
equal
deleted
inserted
replaced
| 607:5767ef9476e2 | 608:179fc8150090 |
|---|---|
| 65 } | 65 } |
| 66 | 66 |
| 67 | 67 |
| 68 # ------------------------------------------------------------------------ | 68 # ------------------------------------------------------------------------ |
| 69 proc feeds_check_do {uforce upublic unick uchan} { | 69 proc feeds_check_do {uforce upublic unick uchan} { |
| 70 global feeds_dbfile feeds_dbh feeds_sync_limit feeds_channels | 70 global feeds_db_file feeds_dbh feeds_sync_limit feeds_channels |
| 71 | 71 |
| 72 # Get old time, if it exists | 72 # Get old time, if it exists |
| 73 set oldtime 0 | 73 set oldtime 0 |
| 74 if {![catch {set ufile [open "${feeds_dbfile}.time" r 0600]} uerrmsg]} { | 74 if {![catch {set ufile [open "${feeds_db_file}.time" r 0600]} uerrmsg]} { |
| 75 gets $ufile oldtime | 75 gets $ufile oldtime |
| 76 close $ufile | 76 close $ufile |
| 77 } else { | 77 } else { |
| 78 feeds_log "Could not open timefile for reading: ${uerrmsg}" | 78 feeds_log "Could not open timefile for reading: ${uerrmsg}" |
| 79 set oldtime [clock seconds] | 79 set oldtime [clock seconds] |