Mercurial > hg > egg-tcls
diff config.feeds.example @ 663:8bde8f798188
feeds: Use command matching helpers.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Sat, 20 Feb 2021 17:35:40 +0200 |
| parents | bb6aea76cdb4 |
| children |
line wrap: on
line diff
--- a/config.feeds.example Sat Feb 20 17:35:07 2021 +0200 +++ b/config.feeds.example Sat Feb 20 17:35:40 2021 +0200 @@ -45,6 +45,17 @@ } +# Sub-command name regexp patterns +array set feeds_commands { + "help" {^(\?|help|apua)$} + "latest" {^(last|latest|uusin?)$} + "force" {^(force?|fet|fetch)$} + "list" {^(list|listaa?)$} + "history" {^(hist|historia)$} + "all" {^(all|long|kaikki)$} +} + + # Proc for fetching the feeds data, called by fetch_feeds.tcl proc feeds_fetch { } { #fetch_poliisi "http://www.poliisi.fi/oulu/tiedotteet/1/0?all1/0" "Poliisi/Oulu" "http://www.poliisi.fi"