hallo zusammen habe das gleiche Problem allerdings auf einem Paspberry,
hat jemand schon die Lösung ?
2014.02.28 11:56:11 1: Including fhem.cfg
2014.02.28 11:56:12 1: reload: Error:Modul 99_myUtils deactivated:
syntax error at ./FHEM/99_myUtils.pm line 70, near ") {"
Global symbol "$last" requires explicit package name at ./FHEM/99_myUtils.pm line 74, <$fh> line 3.
Global symbol "$cam" requires explicit package name at ./FHEM/99_myUtils.pm line 75, <$fh> line 3.
Global symbol "$cam" requires explicit package name at ./FHEM/99_myUtils.pm line 76, <$fh> line 3.
syntax error at ./FHEM/99_myUtils.pm line 78, near "my "
Global symbol "$cmd" requires explicit package name at ./FHEM/99_myUtils.pm line 78, <$fh> line 3.
Global symbol "$cmd" requires explicit package name at ./FHEM/99_myUtils.pm line 79, <$fh> line 3.
Global symbol "$snapshots" requires explicit package name at ./FHEM/99_myUtils.pm line 80, <$fh> line 3.
Global symbol "$cmd" requires explicit package name at ./FHEM/99_myUtils.pm line 81, <$fh> line 3.
Global symbol "$storage" requires explicit package name at ./FHEM/99_myUtils.pm line 81, <$fh> line 3.
Global symbol "$cam" requires explicit package name at ./FHEM/99_myUtils.pm line 81, <$fh> line 3.
Global symbol "$cmd" requires explicit package name at ./FHEM/99_myUtils.pm line 83, <$fh> line 3.
syntax error at ./FHEM/99_myUtils.pm line 87, near "}"
./FHEM/99_myUtils.pm has too many errors.
# $Id: 99_myUtils.pm 2013-04-24
package main;
use strict;
use warnings;
use POSIX;
sub myUtils_Initialize($$)
{
my ($hash) = @_;
}
sub doWertListeBrenner {
my @wert;
my $div_class;
$div_class = "WertListe"; # format in css-file using #WertListe
my $header = "01 Brennerstatistik";
# Werteliste zusammenstellen
$wert[0] = "heutige Brennerstarts: " .','. ReadingsVal("CN.Test","countsPerDay","Fehler");
# sub cntFmtTime aus 99_UtilsMaxCounter.pm
$wert[1] = "letzter Brennzyklus (h:m:s): " .','. cntFmtTime(ReadingsVal("CN.Test","pulseTimeIncrement","Fehler"));
$wert[2] = "Tagesbrenndauer (h:m:s): " .','. cntFmtTime(ReadingsVal("CN.Test","pulseTimePerDay","Fehler"));
$wert[3] = "Tagesoelverbrauch (l): " .','. sprintf("%8.2f", ReadingsVal("CN.Test","pulseTimePerDay","Fehler")/3600*2.12195121951);
$wert[4] = "Gesamtbrenndauer (h:m:s): " .','. cntFmtTime(ReadingsVal("CN.Test","pulseTimeOverall","Fehler"));
$wert[5] = "Gesamtoelverbrauch (l): " .','. sprintf("%8.2f", ReadingsVal("CN.Test","pulseTimeOverall","Fehler")/3600*2.12195121951);
# HTML / CSS zurückliefern
return doMakeHtml($div_class, $header, @wert);
}
sub cntFmtTime($)
{
my @t = localtime(shift);
return sprintf("%02d:%02d:%02d", $t[2]-1, $t[1], $t[0]);
}
###################################################################################
# Create html-code
#
sub doMakeHtml($@){my ($div_class, $header, @line ) = @_;
# my $htmlcode = '<div class="'.$div_class."\"><table class="."block wide".">\n<caption><u><b>".$header."</u></b></caption>\n";
my $htmlcode = "<tr><td><div class="."devType"."><b>".$header."</b></div></td></tr>\n<tr><td><div class=".$div_class."\><table class="."block wide".">\n";
foreach (@line) {
my ($title, $value) = split (",",$_);
my $cssTitle = $title;
$cssTitle =~ s,[: -],,g;
$htmlcode .= "<tr><td><span \"$cssTitle-title\">$title</span></td><td><span \"$cssTitle-value\">$value</span></td></tr>\n";
}
$htmlcode .= "</table></div>";
return $htmlcode;
}
1;
#######################################
##############################################
sub sendSnapshot(@)
{
my ($cam,$snapshots) = @_;
my $storage = AttrVal($cam,"storage","");
my $rcpt = 'abc@gmail.com';
my $from = 'def@gmail.com';
my $subj = "FHEM: Kamera $cam hat eine Bewegung aufgezeichnet";
my $last = ReadingsTimestamp($cam,"last","");
my $mess = "Kamera $cam hat eine Bewegung am $last aufgezeichnet:";<br>
if(!-d $storage) {
Log 1, "IPCAM $cam storagepath does not exists: $storage";
return "storagepath for $cam does not exists: $storage";
}
if(!$last) {
Log 1, "IPCAM $cam no snapshots available";
return "no snapshots available for $cam";
}<br>
my $cmd = "sendEmail -f $from -t $rcpt -u $subj -m $mess ";
$cmd .= "-o message-content-type=text -o message-charset=utf-8 -a";
for (my $s=1;$s<$snapshots+1;$s++) {
$cmd .= " $storage/".ReadingsVal($cam,"snapshot$s","");
}
my $ret = `$cmd`;
$ret =~ s/[\r\n]//g;
Log 4, "IPCAM sendSnapshot: $ret";
return undef;
}<br>
1;
ich habe das selbe problem.
soll die Datei wirklich so angelegt werden?
habe beim anlegen der datei auch einen fehler:
syntax error at ./FHEM/99_ipcam_Utils.pm line 21, near ") {" Global symbol "$last" requires explicit package name at ./FHEM/99_ipcam_Utils.pm line 25. Global symbol "$cam" requires explicit package name at ./FHEM/99_ipcam_Utils.pm line 26. Global symbol "$cam" requires explicit package name at ./FHEM/99_ipcam_Utils.pm line 27. syntax error at ./FHEM/99_ipcam_Utils.pm line 29, near "my " Global symbol "$cmd" requires explicit package name at ./FHEM/99_ipcam_Utils.pm line 29. Global symbol "$cmd" requires explicit package name at ./FHEM/99_ipcam_Utils.pm line 30. Global symbol "$snapshots" requires explicit package name at ./FHEM/99_ipcam_Utils.pm line 31. Global symbol "$cmd" requires explicit package name at ./FHEM/99_ipcam_Utils.pm line 32. Global symbol "$storage" requires explicit package name at ./FHEM/99_ipcam_Utils.pm line 32. Global symbol "$cam" requires explicit package name at ./FHEM/99_ipcam_Utils.pm line 32. Global symbol "$cmd" requires explicit package name at ./FHEM/99_ipcam_Utils.pm line 34. syntax error at ./FHEM/99_ipcam_Utils.pm line 38, near "}" ./FHEM/99_ipcam_Utils.pm has too many errors.