[gelöst]Undefined subroutine &main::debian

[Marcel_R]

Grüezi,
Als Fehlermedlung erhalte ich:

ERROR evaluating { debian ('x@x.ch','Test','Test-Text'); }: Undefined subroutine &main::debian called at (eval 205) line 1.

Code Auswählen Erweitern

##############################################
# $Id: myUtilsTemplate.pm 21509 2020-03-25 11:20:51Z rudolfkoenig $
#
# Save this file as 99_myUtils.pm, and create your own functions in the new
# file. They are then available in every Perl expression.

package main;

use strict;
use warnings;

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

# Enter you functions below _this_ line.

######## DebianMail  Mail auf dem RPi versenden ############
# $provider für SMTP Server anpassen.
# Einmal in der FHEM Kommandozeile, user und password anpassen:
# {setKeyValue("myEmailKonto",'user@domain');;setKeyValue("myEmailPasswrd",'password')}
sub debian
{
my $rcpt = shift;
my $subject = shift;
my $text = shift;
my $attach = shift;
my $ret = "";
my $error;
my $konto = getKeyValue("myEmailKonto");
my $passwrd = getKeyValue("myEmailPasswrd");
my $from = $konto; # or use different KeyValue if konto is not the from email address
my $provider = "provider.ch:587"; # smtp.domain.tld:port see provider documentation
#Log 1, "sendEmail RCP: $rcpt";
#Log 1, "sendEmail Subject: $subject";
#Log 1, "sendEmail Text: $text";
#Log 1, "sendEmail Anhang: $attach";
if (not defined($attach)){$attach=''}
$ret .= qx(sendemail -f '$from' -t '$rcpt' -u '$subject' -m '$text' -a $attach -s '$provider' -xu '$konto' -xp '$passwrd' -o tls=no -o message-charset=utf-8);
$ret =~ s,[\r\n]*,,g;    # remove CR from return-string
Log 1, "sendemail returned: $ret";
}

1;

Zur Info:
Mail versandt über die Konsole (via ssh) klappt.
Ursprünglich war die Subroutine DebianMail genannt. Auf der Fehlersuche habe ich vereinfacht...

Es scheint mir, dass ich 1 : 1 die Musterroutine übernommen habe - trotzdem will und will es einfach nicht - es scheint mir, dass es ein total blöder Fehler sein muss.

Ich bitte um wohlwollende Hilfe!
Marcel

[JoWiemann]

Wenn Du den Aufruf aus der Kommandozeile im FhemWeb getätigt hast, dann ohne ;

{debian ('x@x.ch','Test','Test-Text')}

Grüße Jörg

[Otto123]

Hi Marcel,

Die myUtils mit dem FHEM Editor oder extern editiert? Extern muss man sie mit reload neu laden!

Gruß Otto

[Marcel_R]

Danke für die Antworten!

Wer lesen (und begreifen) kann ist klar im Vorteil.

Habe das myUtilsTemplate.pm editiert und NICHT als 99_myUtils.pm abgespeichert.

Asche über mein Haupt!
Marcel