change hashRef for parameter from cachemaxage to apioptions

2019-01-10 10:55:03 +01:00
parent 5b95ea31e4
commit 1a9d7ad760
4 changed files with 35 additions and 4 deletions
--- a/OpenWeatherMapAPI.pm
+++ b/OpenWeatherMapAPI.pm
@@ -116,7 +116,7 @@ sub new {
    my $self = {
        devName     => $argsRef->{devName},
        key => ( defined( $argsRef->{apikey} ) ? $argsRef->{apikey} : 'none' ),
-        cachemaxage => $argsRef->{cachemaxage},
+        cachemaxage => ( (split(':',$argsRef->{apioptions}))[0] eq 'cachemaxage' ? (split(':',$argsRef->{apioptions}))[1] : 900 ),
        lang        => $argsRef->{language},
        lat         => ( split( ',', $argsRef->{location} ) )[0],
        long        => ( split( ',', $argsRef->{location} ) )[1],