Mercurial > hg > egg-tcls

comparison fetch_weather.pl @ 332:bff53f5bba5b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fetch_weather: Bump version.
author Matti Hamalainen <ccr@tnsp.org>
date Sat, 19 Sep 2015 16:19:50 +0300
parents b8ae5e99341b
children afb8c0e2d513
comparison
equal deleted inserted replaced
331:b8ae5e99341b 332:bff53f5bba5b
1 #!/usr/bin/perl -w 1 #!/usr/bin/perl -w
2 ########################################################################## 2 ##########################################################################
3 # 3 #
4 # Fetch Weather v0.3 by Matti 'ccr' Hamalainen <ccr@tnsp.org> 4 # Fetch Weather v0.4 by Matti 'ccr' Hamalainen <ccr@tnsp.org>
5 # (C) Copyright 2014-2015 Tecnic Software productions (TNSP) 5 # (C) Copyright 2014-2015 Tecnic Software productions (TNSP)
6 # This script is freely distributable under GNU GPL (version 2) license. 6 # This script is freely distributable under GNU GPL (version 2) license.
7 # 7 #
8 # Should be ran as a cronjob, and configured properly. 8 # Should be ran as a cronjob, and configured properly.
9 # */10 * * * * perl -w /absolute/path/to/fetch_weather.pl /path/to/configfile 9 # */10 * * * * perl -w /absolute/path/to/fetch_weather.pl /path/to/configfile
253 ### Main program begins 253 ### Main program begins
254 ### 254 ###
255 my $weatherdata = {}; 255 my $weatherdata = {};
256 256
257 die( 257 die(
258 "Weather Fetch v0.3 by ccr/TNSP <ccr\@tnsp.org>\n". 258 "Weather Fetch v0.4 by ccr/TNSP <ccr\@tnsp.org>\n".
259 "Usage: $0 <config file>\n" 259 "Usage: $0 <config file>\n"
260 ) unless scalar(@ARGV) >= 1; 260 ) unless scalar(@ARGV) >= 1;
261 261
262 my $cfgfile = shift; 262 my $cfgfile = shift;
263 opt_read_config($cfgfile) == 0 or die("Errors while parsing configuration file '".$cfgfile."'.\n"); 263 opt_read_config($cfgfile) == 0 or die("Errors while parsing configuration file '".$cfgfile."'.\n");