Geekly Articles each Day
📜 ⬆️ ⬇️

Weather forecast by phone

I decided that it would turn out to be a very useful opportunity when going to work to listen to the weather forecast on the telephone loudspeaker by pressing one programmed button. How I did it look under the cut.



The first thing we need is the weather forecast itself. I decided to take it from the site gismeteo.ru.
How I did it:
I went to the site gismeteo.ru found your city.
I clicked the "Informers" link in the header.
On the next page I found the text “Data in XML format” and took the link from the “get code” button.
Thus, we now know how we get a fresh forecast in XML format.

Now you need to save it for further processing:
I did not reinvent the bicycle and wrote a two-line bash script


Copy Source | Copy HTML #!/bin/bash cd /usr/isp/weather /usr/bin/wget 'http://informer.gismeteo.ru/xml/34214_1.xml' -O ./34214_1.xml
  1. Copy Source | Copy HTML #!/bin/bash cd /usr/isp/weather /usr/bin/wget 'http://informer.gismeteo.ru/xml/34214_1.xml' -O ./34214_1.xml
  2. Copy Source | Copy HTML #!/bin/bash cd /usr/isp/weather /usr/bin/wget 'http://informer.gismeteo.ru/xml/34214_1.xml' -O ./34214_1.xml
  3. Copy Source | Copy HTML #!/bin/bash cd /usr/isp/weather /usr/bin/wget 'http://informer.gismeteo.ru/xml/34214_1.xml' -O ./34214_1.xml

')
where informer.gismeteo.ru/xml/34214_1.xml is the link for your city. The wget command downloads our XML and writes it to file 34214_1.xml in the current directory, we will need it later. To make the forecast always fresh, you need to write this script to cron for example like this:

*/60 * * * * /usr/isp/weather/weather_up.sh

I decided to make a voice prediction algorithm in Perl which interacts with Asterisk through AGI . Our algorithm is required to parse the XML file and output to stdout a sequence of lines with commands for Asterisk to play audio files like this:

Copy Source | Copy HTML
  1. EXEC Playback weather / Po_dannym_Gismeteo ""
  2. EXEC Playback weather / tod / dnem ""
  3. EXEC Playback weather / m / 15ogo ""
  4. EXEC Playback weather / budet ""
  5. EXEC Playback weather / cloudiness / pasmurno ""
  6. EXEC Playback weather / precipitation / dozhd '"" <br/>
    EXEC Playback weather / temp_vosduha_sostavit "" <br/> EXEC Playback weather / digits / 20 "" <br/> EXEC Playback weather / digits / 2 "" <br/> EXEC Playback weather / Do "" <br/> EXEC Playback weather / digits / 20 "" <br/> EXEC Playback weather / gradusov_C "" <br/> EXEC Playback weather / Skorost'_vetra_sostavit ""
  7. EXEC Playback weather / digits / 5 ""
  8. EXEC Playback weather / Do ""
  9. EXEC Playback weather / digits / 3 ""
  10. EXEC Playback weather / metrov_v_sekundu ""
  11. EXEC Playback weather / Atmosfernoe_davlenie_sostavit ""
  12. EXEC Playback weather / digits / 700 ""
  13. EXEC Playback weather / digits / 40 ""
  14. EXEC Playback weather / digits / 7 ""
  15. EXEC Playback weather / Do ""
  16. EXEC Playback weather / digits / 700 ""
  17. EXEC Playback weather / digits / 40 ""
  18. EXEC Playback weather / digits / 5 ""
  19. EXEC Playback weather / milimetrov_rtutnogo_stolba ""


As you noticed, you will have to prepare a lot of sound recordings, but this is once and for all.

In my version in some recorded phrases there is the word "from". For example: Atmosfernoe_davlenie_sostavit read as "Atmospheric pressure will be from."

Actually, I used the XML :: Simple module to parse XML. It seemed to me the easiest to use. To replace the XML tags with the lines I need, I used lists for dubbing:

Copy Source | Copy HTML
  1. my $ date_name = {
  2. 1 => [ "EXEC Playback weather \ / m \ / 1ogo \" \ "\ n" ],
  3. 2 => [ "EXEC Playback weather \ / m \ / 2ogo \" \ "\ n" ],
  4. 3 => [ "EXEC Playback weather \ / m \ / 3ogo \" \ "\ n" ],
  5. .....

With the algorithm for converting numbers into a set of commands for playing numbers, I also decided not to reinvent the wheel and took a ready-made algorithm for converting money to a record (unfortunately I don’t remember anyone else), replaced the lines such as " one " with " Playback weather \ / digits " in the right places. \ / 1 \ "\" \ n "and the algorithm is adapted (a lot of time saved).
I think now everything will be clear, it's time to look at the script:


Copy Source | Copy HTML
  1. #! / usr / bin / perl
  3. use strict;
  4. use XML :: Simple;
  5. use Data :: Dumper;
  7. my $ date_name = {
  8. 1 => [ "EXEC Playback weather \ / m \ / 1ogo \" \ "\ n" ],
  9. 2 => [ "EXEC Playback weather \ / m \ / 2ogo \" \ "\ n" ],
  10. 3 => [ "EXEC Playback weather \ / m \ / 3ogo \" \ "\ n" ],
  11. 4 => [ "EXEC Playback weather \ / m \ / 4ogo \" \ "\ n" ],
  12. 5 => [ "EXEC Playback weather \ / m \ / 5ogo \" \ "\ n" ],
  13. 6 => [ "EXEC Playback weather \ / m \ / 6ogo \" \ "\ n" ],
  14. 7 => [ "EXEC Playback weather \ / m \ / 7ogo \" \ "\ n" ],
  15. 8 => [ "EXEC Playback weather \ / m \ / 8ogo \" \ "\ n" ],
  16. 9 => [ "EXEC Playback weather \ / m \ / 9ogo \" \ "\ n" ],
  17. 10 => [ "EXEC Playback weather \ / m \ / 10ogo \" \ "\ n" ],
  18. 11 => [ "EXEC Playback weather \ / m \ / 11ogo \" \ "\ n" ],
  19. 12 => [ "EXEC Playback weather \ / m \ / 12ogo \" \ "\ n" ],
  20. 13 => [ "EXEC Playback weather \ / m \ / 13ogo \" \ "\ n" ],
  21. 14 => [ "EXEC Playback weather \ / m \ / 14ogo \" \ "\ n" ],
  22. 15 => [ "EXEC Playback weather \ / m \ / 15ogo \" \ "\ n" ],
  23. 16 => [ "EXEC Playback weather \ / m \ / 16ogo \" \ "\ n" ],
  24. 17 => [ "EXEC Playback weather \ / m \ / 17ogo \" \ "\ n" ],
  25. 18 => [ "EXEC Playback weather \ / m \ / 18ogo \" \ "\ n" ],
  26. 19 => [ "EXEC Playback weather \ / m \ / 19ogo \" \ "\ n" ],
  27. 20 => [ "EXEC Playback weather \ / m \ / 10ogo \" \ "\ n" ],
  28. 21 => [ "EXEC Playback weather \ / m \ / 21ogo \" \ "\ n" ],
  29. 22 => [ "EXEC Playback weather \ / m \ / 22ogo \" \ "\ n" ],
  30. 23 => [ "EXEC Playback weather \ / m \ / 23ogo \" \ "\ n" ],
  31. 24 => [ "EXEC Playback weather \ / m \ / 24ogo \" \ "\ n" ],
  32. 25 => [ "EXEC Playback weather \ / m \ / 25ogo \" \ "\ n" ],
  33. 26 => [ "EXEC Playback weather \ / m \ / 26ogo \" \ "\ n" ],
  34. 27 => [ "EXEC Playback weather \ / m \ / 27ogo \" \ "\ n" ],
  35. 28 => [ "EXEC Playback weather \ / m \ / 28ogo \" \ "\ n" ],
  36. 29 => [ "EXEC Playback weather \ / m \ / 29ogo \" \ "\ n" ],
  37. 30 => [ "EXEC Playback weather \ / m \ / 30ogo \" \ "\ n" ],
  38. 31 => [ "EXEC Playback weather \ / m \ / 31ogo \" \ "\ n" ]
  39. };
  41. my $ hour_name = {
  42. 0 => [ "EXEC Playback weather \ / hour \ / chasov \" \ "\ n" ],
  43. 1 => [ "EXEC Playback weather \ / hour \ / chas \" \ "\ n" ],
  44. 2 => [ "EXEC Playback weather \ / hour \ / chasa \" \ "\ n" ],
  45. 3 => [ "EXEC Playback weather \ / hour \ / chasa \" \ "\ n" ],
  46. 4 => [ "EXEC Playback weather \ / hour \ / chasa \" \ "\ n" ],
  47. 5 => [ "EXEC Playback weather \ / hour \ / chasov \" \ "\ n" ],
  48. 6 => [ "EXEC Playback weather \ / hour \ / chasov \" \ "\ n" ],
  49. 7 => [ "EXEC Playback weather \ / hour \ / chasov \" \ "\ n" ],
  50. 8 => [ "EXEC Playback weather \ / hour \ / chasov \" \ "\ n" ],
  51. 9 => [ "EXEC Playback weather \ / hour \ / chasov \" \ "\ n" ],
  52. 10 => [ "EXEC Playback weather \ / hour \ / chasov \" \ "\ n" ],
  53. 11 => [ "EXEC Playback weather \ / hour \ / chasov \" \ "\ n" ],
  54. 12 => [ "EXEC Playback weather \ / hour \ / chasov \" \ "\ n" ],
  55. 13 => [ "EXEC Playback weather \ / hour \ / chasov \" \ "\ n" ],
  56. 14 => [ "EXEC Playback weather \ / hour \ / chasov \" \ "\ n" ],
  57. 15 => [ "EXEC Playback weather \ / hour \ / chasov \" \ "\ n" ],
  58. 16 => [ "EXEC Playback weather \ / hour \ / chasov \" \ "\ n" ],
  59. 17 => [ "EXEC Playback weather \ / hour \ / chasov \" \ "\ n" ],
  60. 18 => [ "EXEC Playback weather \ / hour \ / chasov \" \ "\ n" ],
  61. 19 => [ "EXEC Playback weather \ / hour \ / chasov \" \ "\ n" ],
  62. 20 => [ "EXEC Playback weather \ / hour \ / chasov \" \ "\ n" ],
  63. 21 => [ "EXEC Playback weather \ / hour \ / chas \" \ "\ n" ],
  64. 22 => [ "EXEC Playback weather \ / hour \ / chasa \" \ "\ n" ],
  65. 23 => [ "EXEC Playback weather \ / hour \ / chasa \" \ "\ n" ],
  66. };
  68. my $ m_name = {
  69. 1 => [ "EXEC Playback weather \ / m \ / yanvarya \" \ "\ n" ],
  70. 2 => [ "EXEC Playback weather \ / m \ / fevralya \" \ "\ n" ],
  71. 3 => [ "EXEC Playback weather \ / m \ / marta \" \ "\ n" ],
  72. 4 => [ "EXEC Playback weather \ / m \ / aprelya \" \ "\ n" ],
  73. 5 => [ "EXEC Playback weather \ / m \ / maya \" \ "\ n" ],
  74. 6 => [ "EXEC Playback weather \ / m \ / iunya \" \ "\ n" ],
  75. 7 => [ "EXEC Playback weather \ / m \ / iylya \" \ "\ n" ],
  76. 8 => [ "EXEC Playback weather \ / m \ / avgusta \" \ "\ n" ],
  77. 9 => [ "EXEC Playback weather \ / m \ / sentyabrya \" \ "\ n" ],
  78. 10 => [ "EXEC Playback weather \ / m \ / octyabya \" \ "\ n" ],
  79. 11 => [ "EXEC Playback weather \ / m \ / noyabrya \" \ "\ n" ],
  80. 12 => [ "EXEC Playback weather \ / m \ / decabrya \" \ "\ n" ]
  81. };
  83. my $ tod_name = {
  84. 0 => [ "EXEC Playback weather \ / tod \ / noch'u \" \ "\ n" ],
  85. 1 => [ "EXEC Playback weather \ / tod \ / utrom \" \ "\ n" ],
  86. 2 => [ "EXEC Playback weather \ / tod \ / dnem \" \ "\ n" ],
  87. 3 => [ "EXEC Playback weather \ / tod \ / vecherom \" \ "\ n" ]
  88. };
  90. my $ cloudiness_name = {
  91. 0 => [ "EXEC Playback weather \ / cloudiness \ / yasno \" \ "\ n" ],
  92. 1 => [ "EXEC Playback weather \ / cloudiness \ / malooblachno \" \ "\ n" ],
  93. 2 => [ "EXEC Playback weather \ / cloudiness \ / oblachno \" \ "\ n" ],
  94. 3 => [ "EXEC Playback weather \ / cloudiness \ / pasmurno \" \ "\ n" ]
  95. };
  97. my $ precipitation_name = {
  98. 4 => [ "EXEC Playback weather \ / precipitation \ / dozhd '\" \ "\ n" ],
  99. 5 => [ "EXEC Playback weather \ / precipitation \ / liven '\" \ "\ n" ],
  100. 6 => [ "EXEC Playback weather \ / precipitation \ / sneg \" \ "\ n" ],
  101. 7 => [ "EXEC Playback weather \ / precipitation \ / sneg \" \ "\ n" ],
  102. 8 => [ "EXEC Playback weather \ / precipitation \ / groza \" \ "\ n" ],
  103. 9 => [ "" ],
  104. 10 => [ "EXEC Playback weather \ / precipitation \ / bez_osadkov \" \ "\ n" ]
  105. };
  107. my $ wind_direction_name = {
  108. 0 => [ "EXEC Playback weather \ / wind_direction \ / severnyi \" \ "\ n" ],
  109. 1 => [ "EXEC Playback weather \ / wind_direction \ / severo-vostochnyi \" \ "\ n" ],
  110. 2 => [ "EXEC Playback weather \ / wind_direction \ / vostochno-uzhnyi \" \ "\ n" ],
  111. 3 => [ "EXEC Playback weather \ / wind_direction \ / ugo-zapadnyi \" \ "\ n" ]
  112. };
  115. my $ xmlWeather = new XML :: Simple (keeproot => 1 , searchpath => "." , forcearray => 1 , suppressempty => '' );
  116. my $ xmlData1 = $ xmlWeather -> XMLin ( '/usr/isp/weather/34214_1.xml' );
  117. my $ xmlData = $ xmlData1 -> {MMWEATHER} [ 0 ] -> {REPORT} [ 0 ] -> {TOWN} [ 0 ] -> {FORECAST};
  119. $ | = 1 ;
  120. while (<STDIN>) {
  121. chomp ( $ _ );
  122. last if length ( $ _ ) == 0 ;
  123. }
  125. # "Po dannym Gismeteo"
  126. print "EXEC Playback weather \ / Po_dannym_Gismeteo \" \ "\ n" ;
  127. my $ i = 0 ;
  128. for ( $ i = 0 ; $ i < 4 ; $ i ++)
  129. {
  130. print $ tod_name -> { $ xmlData -> [ $ i ] -> {tod}} -> [ 0 ];
  131. print $ date_name -> { $ xmlData -> [ $ i ] -> {day}} -> [ 0 ];
  132. print $ m_name -> { $ xmlData -> [ $ i ] -> {month}} -> [ 0 ];
  133. #
  134. print "EXEC Playback weather \ / budet \" \ "\ n" ;
  135. print $ cloudiness_name -> { $ xmlData -> [ $ i ] -> {PHENOMENA} [ 0 ] -> {cloudiness}} -> [ 0 ];
  136. print $ precipitation_name -> { $ xmlData -> [ $ i ] -> {PHENOMENA} [ 0 ] -> {precipitation}} -> [ 0 ];
  137. # Temp
  138. print "EXEC Playback weather \ / temp_vosduha_sostavit \" \ "\ n" ;
  139. print digit_string ( $ xmlData -> [ $ i ] -> {TEMPERATURE} [ 0 ] -> {max});
  140. print "EXEC Playback weather \ / Do \" \ "\ n" ;
  141. print digit_string ( $ xmlData -> [ $ i ] -> {TEMPERATURE} [ 0 ] -> {min});
  142. print "EXEC Playback weather \ / gradusov_C \" \ "\ n" ;
  143. # Veter
  144. print "EXEC Playback weather \ / Skorost'_vetra_sostavit \" \ "\ n" ;
  145. print digit_string ( $ xmlData -> [ $ i ] -> {WIND} [ 0 ] -> {max});
  146. print "EXEC Playback weather \ / Do \" \ "\ n" ;
  147. print digit_string ( $ xmlData -> [ $ i ] -> {WIND} [ 0 ] -> {min});
  148. print "EXEC Playback weather \ / metrov_v_sekundu \" \ "\ n" ;
  149. # Atmosfernoe davlenie
  150. print "EXEC Playback weather \ / Atmosfernoe_davlenie_sostavit \" \ "\ n" ;
  151. print digit_string ( $ xmlData -> [ $ i ] -> {PRESSURE} [ 0 ] -> {max});
  152. print "EXEC Playback weather \ / Do \" \ "\ n" ;
  153. print digit_string ( $ xmlData -> [ $ i ] -> {PRESSURE} [ 0 ] -> {min});
  154. print "EXEC Playback weather \ / milimetrov_rtutnogo_stolba \" \ "\ n" ;
  156. }
  159. # ================================================= =================================================
  160. # ================================================= =================================================
  161. # ================================================= =================================================
  162. sub digit_string {
  163. my $ digit = shift;
  164. local $ _ ;
  166. my $ sign = 1 if $ digit = ~ s / ^ - + //;
  169. $ digit = ~ s # ^ 0 + ##;
  170. my ( $ b_dig , $ s_dig ) = (split (m /[ , . digit $ , 2 ));
  171. $ s_dig = "" ;
  172. #
  173. # Clear the numbers from the `extra 'characters (100_000,43)
  174. #
  175. if (defined $ b_dig and length $ b_dig ) {
  176. # $ b_dig = ~ s # [^ \ d] ## sg;
  177. } else {
  178. $ b_dig = "" ;
  179. }
  180. if (defined $ s_dig and length $ s_dig ) {
  181. # $ s_dig = ~ s # [^ \ d] ## sg;
  182. } else {
  183. $ s_dig = "" ;
  184. }
  185. #
  186. # We round a penny in a big way, if as a result of rounding
  187. # get the ruble, then add it to b_dig (rubles)
  188. #
  189. # if (sprintf ('% 0.2f', "0. $ s_dig") == 1) {
  190. # $ b_dig ++;
  191. # $ s_dig = '00';
  192. #} else {
  193. # $ s_dig = substr (sprintf ('% 0.2f', "0. $ s_dig"), 2);
  194. #}
  195. #
  196. my @ array = split ( //, ($ b_dig || 0));
  198. #
  199. # Determine the digit capacity of the number.
  200. #
  201. my $ class_id = int (scalar (@ array ) / 3 );
  202. $ class_id ++ if (scalar (@ array )% 3 );
  203. #
  204. # Unsupported bit depth.
  205. #
  206. return $ digit if $ class_id > 5 ;
  208. my $ digits_name = {
  209. 0 => [ "EXEC Playback weather \ / digits \ / 0 \" \ "\ n" , "" , "" ],
  210. 1 => [[ "EXEC Playback weather \ / digits \ / 1 \" \ "\ n" , "EXEC Playback weather \ / digits \ / 1a \" \ "\ n" ], "EXEC Playback weather \ / digits \ / 10 \ "\" \ n " , " EXEC Playback weather \ / digits \ / 100 \ "\" \ n " ],
  211. 2 => [[ "EXEC Playback weather \ / digits \ / 2 \" \ "\ n" , "EXEC Playback weather \ / digits \ / 2e \" \ "\ n" ], "EXEC Playback weather \ / digits \ / 20 \ "\" \ n " , " EXEC Playback weather \ / digits \ / 200 \ "\" \ n " ],
  212. 3 => [ "EXEC Playback weather \ / digits \ / 3 \" \ "\ n" , "EXEC Playback weather \ / digits \ / 30 \" \ "\ n" , "EXEC Playback weather \ / digits \ / 300 \ "\" \ n " ],
  213. 4 => [ "EXEC Playback weather \ / digits \ / 4 \" \ "\ n" , "EXEC Playback weather \ / digits \ / 40 \" \ "\ n" , "EXEC Playback weather \ / digits \ / 400 \ "\" \ n " ],
  214. 5 => [ "EXEC Playback weather \ / digits \ / 5 \" \ "\ n" , "EXEC Playback weather \ / digits \ / 50 \" \ "\ n" , "EXEC Playback weather \ / digits \ / 500 \ "\" \ n " ],
  215. 6 => [ "EXEC Playback weather \ / digits \ / 6 \" \ "\ n" , "EXEC Playback weather \ / digits \ / 60 \" \ "\ n" , "EXEC Playback weather \ / digits \ / 600 \ "\" \ n " ],
  216. 7 => [ "EXEC Playback weather \ / digits \ / 7 \" \ "\ n" , "EXEC Playback weather \ / digits \ / 70 \" \ "\ n" , "EXEC Playback weather \ / digits \ / 700 \ "\" \ n " ],
  217. 8 => [ "EXEC Playback weather \ / digits \ / 8 \" \ "\ n" , "EXEC Playback weather \ / digits \ / 80 \" \ "\ n" , "EXEC Playback weather \ / digits \ / 800 \ "\" \ n " ],
  218. 9 => [ "EXEC Playback weather \ / digits \ / 9 \" \ "\ n" , "EXEC Playback weather \ / digits \ / 90 \" \ "\ n" , "EXEC Playback weather \ / digits \ / 900 \ "\" \ n " ],
  219. };
  221. my $ dec_digits = {
  222. 11 => "EXEC Playback weather \ / digits \ / 11 \" \ "\ n" ,
  223. 12 => "EXEC Playback weather \ / digits \ / 12 \" \ "\ n" ,
  224. 13 => "EXEC Playback weather \ / digits \ / 13 \" \ "\ n" ,
  225. 14 => "EXEC Playback weather \ / digits \ / 14 \" \ "\ n" ,
  226. 15 => "EXEC Playback weather \ / digits \ / 15 \" \ "\ n" ,
  227. 16 => "EXEC Playback weather \ / digits \ / 16 \" \ "\ n" ,
  228. 17 => "EXEC Playback weather \ / digits \ / 17 \" \ "\ n" ,
  229. 18 => "EXEC Playback weather \ / digits \ / 18 \" \ "\ n" ,
  230. 19 => "EXEC Playback weather \ / digits \ / 19 \" \ "\ n"
  231. };
  233. my $ digits_class = {
  234. '-1' => [ 1 , "" , "" , "" ],
  235. 0 => [ 0 , "" , "" , "" ],
  236. 1 => [ 1 , "EXEC Playback weather \ / digits \ / tysiacha \" \ "\ n" , "EXEC Playback weather \ / digits \ / tysiach \" \ "\ n" , "EXEC Playback weather \ / digits \ / tysiachi \ "\" \ n " ],
  237. 2 => [ 0 , "EXEC Playback weather \ / digits \ / million \" \ "\ n" , "EXEC Playback weather \ / digits \ / millionov \" \ "\ n" , "EXEC Playback weather \ / digits \ / milliona \ "\" \ n " ],
  238. 3 => [ 0 , "EXEC Playback weather \ / digits \ / milliard \" \ "\ n" , "EXEC Playback weather \ / digits \ / milliardov \" \ "\ n" , "EXEC Playback weather \ / digits \ / milliarda \ "\" \ n " ],
  239. 4 => [ 0 , "EXEC Playback weather \ / digits \ / trillion \" \ "\ n" , "EXEC Playback weather \ / digits \ / trillionov \" \ "\ n" , "EXEC Playback weather \ / digits \ / trilliona \ "\" \ n " ],
  240. };
  241. #
  242. # Determine the length of the left `three '...
  243. #
  244. my $ id = 0 ;
  245. unless ((scalar @ array )% 3 ) {
  246. $ id = 2 ;
  247. } else {
  248. $ id = ((scalar @ array )% 3 ) - 1 ;
  249. }
  251. my $ str = '' ;
  252. my $ sub_str = 0 ;
  253. my $ tvar = 0 ;
  255. if ( $ array [ 0 ] == 0 ) {
  256. #
  257. # If rubles are still zero, then we write 'zero rubles',
  258. # if you don’t need to just close the next line ...
  259. #
  260. $ str . = $ digits_name -> { '0' } -> [ 0 ]. '' . $ digits_class -> { '0' } -> [ 2 ]. '' ;
  261. } else {
  262. while (defined ( $ _ = shift @ array )) {
  263. if ( $ _ > 0 ) {
  264. if ( $ _ == 1 and $ id == 1 ) {
  265. #
  266. # Consider the amount to be used in sub num ()
  267. #
  268. $ sub_str + = $ _ * 10 ;
  269. if (defined ( $ tvar = shift @ array ) and $ tvar > 0 ) {
  270. $ str . = $ dec_digits -> { $ _ . $ tvar };
  271. $ sub_str + = $ tvar ;
  272. $ id -;
  273. } else {
  274. unshift @ array , $ tvar ;
  275. if (ref $ digits_name -> { $ _ } -> [ $ id ] eq 'ARRAY' ) {
  276. # $ str. = $ digits_name -> {$ _} -> [$ id] -> [$ digits_class -> {$ class_id-1} -> [0]];
  277. } else {
  278. $ str . = $ digits_name -> { $ _ } -> [ $ id ];
  279. }
  280. }
  281. } else {
  282. #
  283. # Consider the amount to be used in sub num ()
  284. #
  285. $ sub_str + = ( $ _ * ( 10 ** $ id ));
  286. if (ref $ digits_name -> { $ _ } -> [ $ id ] eq 'ARRAY' ) {
  287. $ str . = $ digits_name -> { $ _ } -> [ $ id ] -> [ $ digits_class -> { $ class_id - 1 } -> [ 0 ]];
  288. } else {
  289. $ str . = $ digits_name -> { $ _ } -> [ $ id ];
  290. }
  291. }
  292. $ str . = '' ;
  293. }
  294. if (- $ id == - 1 ) {
  295. $ id = 2 ;
  296. $ class_id -;
  297. if ( $ sub_str > 0 ) {
  298. $ str . = num ( $ sub_str , (@ { $ digits_class -> { $ class_id }}) [ 1 .. 3 ]). '' ;
  299. } elsif ( $ class_id == 0 ) {
  300. $ str . = $ digits_class -> { $ class_id } -> [ 2 ]. '' ;
  301. }
  302. $ sub_str = 0 ;
  303. }
  304. }
  305. }
  307. $ str . = $ s_dig . '' . num ( $ s_dig , (@ { $ digits_class -> { '-1' }}) [ 1 .. 3 ]);
  309. if (defined $ sign ) {
  310. $ str = "EXEC Playback weather \ / digits / minus \" \ "\ n" . $ str ;
  311. }
  313. $ s_dig = substr ( $ str , 0 , 1 );
  314. #
  315. # In the case where it was used it turned out easier
  316. # so, than through use locale & ucfirst ...
  317. #
  318. if ( $ s_dig = ~ tr / abvgdeyzkykmnoprstufkhtschshchyyyyuya / abvgdeyezhziyklmlopprstufhtstshschschyyuya /) {
  319. substr ( $ str , 0 , 1 , $ s_dig );
  320. }
  322. return $ str ;
  323. }
  325. #
  326. # Used when translating money into a string in words ..
  327. #
  329. sub num {
  330. my $ d1 = $ _ [ 0 ]% 10 ;
  331. my $ d2 = int (( $ _ [ 0 ]% 100 ) / 10 );
  332. return $ _ [ 2 ] if (( $ d2 == 1 ) or ( $ d1 = ~ / [ 05 - 9 ] /));
  333. return $ _ [ 1 ] if ( $ d1 == 1 );
  334. return $ _ [ 3 ];
  335. }


Next we need to teach Asterisk to use this script. To do this, in the extensions.conf file in the right context, we write it like this:


Copy Source | Copy HTML
  1. exten => XXXX, 1, Wait (1)
  2. exten => XXXX, n, Answer ()
  3. exten => XXXX, n, Agi (/usr/isp/weather/weather.pl)
  4. exten => XXXX, n, Hangup ()

Where XXXX is the number you want to assign to the Weather service. For example, I have a Digium board, through which everyone can check the weather by calling from any phone.
That's all!

Source: https://habr.com/ru/post/70771/

More articles:


All Articles