luxferre/tii
1
0
Fork 0
Code Actions Activity

now you can comment out stations in stations.txt

Browse Source
This commit is contained in:
Luxferre
2024-10-23 11:19:18 +03:00
parent 38998549b1
commit f255d39dee
3 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
README
+3 -2
View File
@@ -32,7 +32,7 @@ Readiness status
* config.txt (format/fields): ready/tested * config.txt (format/fields): ready/tested
* stations.txt (format): ready/tested * stations.txt (format): ready/tested
* auth.txt (format): ready/tested * auth.txt (format): ready/tested
* tiix.tcl: planned * tiix.tcl: work in progress
* Overall status: CLI-ready. work in progress for GUI * Overall status: CLI-ready. work in progress for GUI
Usage Usage
@@ -63,7 +63,8 @@ Fetching is supported for the following station URL schemes and protocols:
If the station_url parameter is empty or no parameters are passed at all, If the station_url parameter is empty or no parameters are passed at all,
tiifetch.tcl will look for a file called stations.txt that lists (each on a tiifetch.tcl will look for a file called stations.txt that lists (each on a
new line) all the station URLs to sync from. Messages from all listed stations new line) all the station URLs to sync from. Messages from all listed stations
will be merged into the same echo conference database. will be merged into the same echo conference database. You can comment out a
station to temporarily stop fetching from it by prepending the # sign.
### Viewing the messages from CLI (tiiview.tcl): ### ### Viewing the messages from CLI (tiiview.tcl): ###
config.txt
+5
View File
@@ -1,3 +1,8 @@
useragent "curl/7.54.1" useragent "curl/7.54.1"
proxyhost "" proxyhost ""
proxyport 0 proxyport 0
tiix_font "Fira Code"
tiix_fontsize 12
tiix_fgcolor #eee
tiix_bgcolor #111
tiix_linkcolor cyan
tiifetch.tcl
+1 -1
View File
@@ -275,7 +275,7 @@ proc massfetch {echos dbdir dolog} {
set stlist [split [readfile $stfile] "\n"] set stlist [split [readfile $stfile] "\n"]
foreach station $stlist { foreach station $stlist {
set station [string trim $station] set station [string trim $station]
if {$station ne ""} { if {$station ne "" && ![string match "#*" $station]} {
if {$dolog eq 1} {puts "Fetching from $station"} if {$dolog eq 1} {puts "Fetching from $station"}
fetchiidb $station $echos $dbdir $dolog fetchiidb $station $echos $dbdir $dolog
} }