# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1594287712 -10800
# Node ID e0ff67318a99ae10f6f22d4df2e890bfddbb4f86
# Parent  0ce432c3f03ffec47c3926f11c543d2951287305
weather: Rename some message ids, cleanups.

diff -r 0ce432c3f03f -r e0ff67318a99 config.weather.example
--- a/config.weather.example	Thu Jul 09 12:40:23 2020 +0300
+++ b/config.weather.example	Thu Jul 09 12:41:52 2020 +0300
@@ -115,8 +115,8 @@
 
 array set weather_messages {
 
-  "usage_single" "@cmd@ \[paikka\]"
-  "usage_full" {"usage_single" "usage_stations" "usage_def_set" "usage_nearest" "usage_alias" "usage_unalias" "usage_list" }
+  "help_single" "@cmd@ \[paikka\]"
+  "help_full" {"help_single" "help_stations" "help_def_set" "help_nearest" "help_alias" "help_unalias" "help_list" }
 
   "no_results" "\002@1@\002: Ei mittaustietoja."
   "no_data_for_location" "\002@1@\002: Paikkakunnan tietoja ei saatu."
@@ -127,13 +127,13 @@
 
   "list_nearest" $weather_msg_list_station
   "nearest_stations" "Lähimmät mittausasemat (@1@, @2@): @3@"
-  "usage_nearest" "@cmd@ lähin <lat>\[, \]<long> -- näyttää annettuja koordinaatteja lähimpänä olevat mittausasemat"
+  "help_nearest" "@cmd@ lähin <lat>\[, \]<long> -- näyttää annettuja koordinaatteja lähimpänä olevat mittausasemat"
   "nearest_invalid" "@cmd@ lähin <lat>\[, \]<long> -- näyttää annettuja koordinaatteja lähimpänä olevat mittausasemat"
 
   "def_set_to" "Vakio-havaintoasemiksi asetettu: \002@1@\002."
   "def_value" "Käyttäjän \002@1@\002 vakio-havaintoasemat ovat: \002@2@\002."
   "def_not_set" "Vakio-havaintoasemia ei asetettu käyttäjälle \002@1@\002."
-  "usage_def_set" "@cmd@ vakio <paikka>\[;<paikka2>\] -- asettaa vakiohavaintoaseman\n@cmd@ vakio -- näyttää nykyisen vakiohavaintoaseman jos asetettu"
+  "help_def_set" "@cmd@ vakio <paikka>\[;<paikka2>\] -- asettaa vakiohavaintoaseman\n@cmd@ vakio -- näyttää nykyisen vakiohavaintoaseman jos asetettu"
 
   "alias_set" "Luotiin alias \002@1@\002 = \002@2@\002."
   "alias_updated" "Päivitettiin alias \002@1@\002 = \002@2@ -> @3@\002."
@@ -142,14 +142,14 @@
   "alias_list" "Aliakset: @1@"
   "alias_list_sep" ", "
   "alias_not_exist" "Aliasta '@1@' ei ole olemassa."
-  "usage_alias" "@cmd@ alias <alias> = <nimi> -- lisää alias-nimen, esim. alias perse = turku"
-  "usage_unalias" "@cmd@ unalias <alias> -- poistaa aliaksen"
-  "usage_list" "@cmd@ list -- listaa määritellyt aliakset"
+  "help_alias" "@cmd@ alias <alias> = <nimi> -- lisää alias-nimen, esim. alias perse = turku"
+  "help_unalias" "@cmd@ unalias <alias> -- poistaa aliaksen"
+  "help_list" "@cmd@ list -- listaa määritellyt aliakset"
 
   "user_not_known" "Tuntematon käyttäjä."
   "no_access" "Ei oikeuksia muuttaa asetuksia."
 
   "stations_list" "Mittausasemat: @1@"
   "stations_no_matches" "Ei osumia."
-  "usage_stations" "@cmd@ asemat <patterni> -- listaa mittausasemat joiden nimi matsaa patternin kanssa"
+  "help_stations" "@cmd@ asemat <patterni> -- listaa mittausasemat joiden nimi matsaa patternin kanssa"
 }
diff -r 0ce432c3f03f -r e0ff67318a99 weather.tcl
--- a/weather.tcl	Thu Jul 09 12:40:23 2020 +0300
+++ b/weather.tcl	Thu Jul 09 12:41:52 2020 +0300
@@ -25,15 +25,11 @@
 package require textutil::split
 
 set weather_name "Weather"
-set weather_version "2.0.0"
-
-
-### Initialization messages
-set weather_message "$weather_name v$weather_version (C) 2014-2020 ccr/TNSP"
-putlog "$weather_message"
+set weather_message "$weather_name v2.0.0 (C) 2014-2020 ccr/TNSP"
 
 
 #-------------------------------------------------------------------------
+### Utility functions
 proc weather_log {umsg} {
   global weather_log_enable weather_name
   if {$weather_log_enable != 0} {
@@ -293,7 +289,7 @@
   set rcmd [lindex $rarglist 0]
 
   if {$rcmd == "?" || $rcmd == "help" || $rcmd == "apua"} {
-    foreach ukey $weather_messages(usage_full) {
+    foreach ukey $weather_messages(help_full) {
       weather_msg $upublic $unick $uchan $ukey
     }
     return 0
@@ -302,7 +298,7 @@
   if {$rcmd == "asemat" || $rcmd == "stations"} {
     # List stations/locations matching the given pattern
     if {[llength $rarglist] < 2} {
-      weather_msg $upublic $unick $uchan "usage_stations"
+      weather_msg $upublic $unick $uchan "help_stations"
       return 0
     }
 
@@ -331,7 +327,7 @@
     # List stations nearest to given coordinates
     set qargs [join [lrange $rarglist 1 end] ""]
     if {![regexp {@?(\d+|\d+\.\d+|\.\d+)\s*,\s*(\d+|\d+\.\d+|\.\d+)} $qargs -> d_lat d_lng]} {
-      weather_msg $upublic $unick $uchan "usage_nearest"
+      weather_msg $upublic $unick $uchan "help_nearest"
       return 0
     }
 
@@ -391,7 +387,7 @@
         weather_msg $upublic $unick $uchan "def_set_to" [list [join $nlist " ; "]]
         setuser $uhand XTRA "weather_locations" [join $nlist ";"]
       } else {
-        weather_msg $upublic $unick $uchan "usage_def_set"
+        weather_msg $upublic $unick $uchan "help_def_set"
       }
     }
     return 0
@@ -405,7 +401,7 @@
     set qlist [::textutil::split::splitx [join [lrange $rarglist 1 end] " "] {\s*=\s*}]
     set nlist [lsearch -all -inline -not -exact $qlist ""]
     if {[llength $nlist] < 2} {
-      weather_msg $upublic $unick $uchan "usage_alias"
+      weather_msg $upublic $unick $uchan "help_alias"
       return 0
     }
 
@@ -430,7 +426,7 @@
     }
 
     if {[llength $rarglist] < 2} {
-      weather_msg $upublic $unick $uchan "usage_unalias"
+      weather_msg $upublic $unick $uchan "help_unalias"
       return 0
     }
 
@@ -539,6 +535,8 @@
 #-------------------------------------------------------------------------
 # Script initialization
 #-------------------------------------------------------------------------
+putlog "$weather_message"
+
 
 if {![info exists weather_data]} {
   array set weather_data {}