[gelöst] 2 Codschnipsel zusammenfügen, Finde den Fehler nicht

[franky08]

Habe jetzt alles in folgende sub gepackt und das funktioniert sofort, hätte ich gleich machen sollen 

Die neue Utils:

Code Auswählen Erweitern

##############################################

package main;

use strict;
use warnings;
use POSIX;
use CGI::Carp qw(fatalsToBrowser);

sub
myoutdateUtils_Initialize($$)
{
  my ($hash) = @_;
}

sub date_time()

{

my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat,
    $Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime(time);
my $CTIME_String = localtime(time);
$Monat += 1;
$Jahrestag += 1;
$Jahr += 1900;

my @Wochentage = qw(Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag);
my @Monatsnamen = qw(Januar Februar März April Mai Juni Juli August September Oktober November Dezember);


my $datum_2 = sprintf("Hallo,guten Tag, heute ist %s der %2d. %s %04d",
   $Wochentage[$Wochentag],
   $Monatstag,
   $Monatsnamen[$Monat-1],
   $Jahr,
);

my $zeit_1 = sprintf("Es ist %02d:%02d Uhr",
   $Stunden,
   $Minuten,
);

my $temp=ReadingsVal('Temperatur_Garten','temperature','Fehler');


#return $datum_2;
#my ($datum_2) = @_;
  fhem "set androidTablet ttsSay $datum_2, $zeit_1, Die aktuelle Temperatur im Garten beträgt $temp Grad";
#return $datum_2; 
 
}


1;

Denke auch das es ein Timing Problem mit 2 hintereinander aufgerufenen Textausgaben war