Update 59_Weather.pm
Paramater 2 und 3 werden automatisch dem zugehörigen internen Parameter Anzahl oder daily/hourly zugeordnet. Damit ist die Reihenfolge beim Aufruf frei wählbar und beide Parameter können beim Aufruf beliebig weggelassen werden.
This commit is contained in:
parent
6dafbb76ad
commit
1c2d293931
@ -709,7 +709,11 @@ sub WeatherIconIMGTag($) {
|
||||
#####################################
|
||||
|
||||
sub WeatherAsHtmlV($;$$) {
|
||||
my ( $d, $f, $items ) = @_;
|
||||
my ( $d, $op1, $op2 ) = @_;
|
||||
my $items = $op2;
|
||||
my $f = $op1;
|
||||
if($op1 =~ /[0-9]/g){ $items = $op1; }
|
||||
if($op2 =~ /[dh]/g){ $f = $op2; }
|
||||
|
||||
$f =~ tr/dh/./cd;
|
||||
$f = "h" if ( !$f || length($f) > 1);
|
||||
@ -781,7 +785,11 @@ sub WeatherAsHtmlV($;$$) {
|
||||
}
|
||||
|
||||
sub WeatherAsHtml($;$$) {
|
||||
my ( $d, $f, $items ) = @_;
|
||||
my ( $d, $op1, $op2 ) = @_;
|
||||
my $items = $op2;
|
||||
my $f = $op1;
|
||||
if($op1 =~ /[0-9]/g){ $items = $op1; }
|
||||
if($op2 =~ /[dh]/g){ $f = $op2; }
|
||||
|
||||
$f =~ tr/dh/./cd;
|
||||
$f = "h" if ( !$f || length($f) > 1);
|
||||
@ -792,12 +800,11 @@ sub WeatherAsHtml($;$$) {
|
||||
}
|
||||
|
||||
sub WeatherAsHtmlH($;$$) {
|
||||
my ( $d, $f, $items ) = @_;
|
||||
|
||||
$f =~ tr/dh/./cd;
|
||||
$f = "h" if ( !$f || length($f) > 1);
|
||||
$items =~ tr/0-9/./cd;
|
||||
$items = 6 if ( !$items );
|
||||
my ( $d, $op1, $op2 ) = @_;
|
||||
my $items = $op2;
|
||||
my $f = $op1;
|
||||
if($op1 =~ /[0-9]/g){ $items = $op1; }
|
||||
if($op2 =~ /[dh]/g){ $f = $op2; }
|
||||
|
||||
return "$d is not a Weather instance<br>"
|
||||
if ( !$defs{$d} || $defs{$d}->{TYPE} ne "Weather" );
|
||||
@ -884,7 +891,11 @@ sub WeatherAsHtmlH($;$$) {
|
||||
}
|
||||
|
||||
sub WeatherAsHtmlD($;$$) {
|
||||
my ( $d, $f, $items ) = @_;
|
||||
my ( $d, $op1, $op2 ) = @_;
|
||||
my $items = $op2;
|
||||
my $f = $op1;
|
||||
if($op1 =~ /[0-9]/g){ $items = $op1; }
|
||||
if($op2 =~ /[dh]/g){ $f = $op2; }
|
||||
|
||||
$f =~ tr/dh/./cd;
|
||||
$f = "h" if ( !$f || length($f) > 1);
|
||||
|
Loading…
x
Reference in New Issue
Block a user