Wandtablet als Überwachungskamera - Perlprobleme

Begonnen von macfly, 28 Juli 2018, 00:07:40

Vorheriges Thema - Nächstes Thema

macfly

Moin,

ich möchte mein WandTablet als Überwachungskamera verwenden. Auf dem Tablet läuft der Browser fully (mit Bewegungserkennung) und AMAD via automagic.


Folgendes funktioniert bereits:

  • Ich mache ein notify auf das reading "screen" des AMAD devices und bekomme mit, wenn der Browser das Display anmacht, weil er eine Bewegung erkannt hat.
  • Fully habe ich remote-administrierbar geschaltet, sodass die REST Schnittstelle funktioniert. Damit kann ich die Kamera des Wandtablets via ipcam in fhem ansprechen

Was ich nicht funktioniert:

Ich möchte vier Bilder in Reihe machen und mir als animated gif via telegram senden. das geht im Prinzip mit Image::Magick.

Hier mal mein code des notify:

EG.Flur.WandTablet:screen:.on.unlocked
  {
  use Image::Magick;
  use File::Copy;
 
  my $image = Image::Magick->new();

  fhem("get EG.Flur.WandTablet.Kamera image");
  sleep 1;
  copy ("/opt/fhem/www/images/default/webcam2/EG.Flur.WandTablet.Kamera_snapshot.jpg","/opt/fhem/www/images/default/webcam2/snap1.jpg");

  fhem("get EG.Flur.WandTablet.Kamera image");
  sleep 1;
  copy ("/opt/fhem/www/images/default/webcam2/EG.Flur.WandTablet.Kamera_snapshot.jpg","/opt/fhem/www/images/default/webcam2/snap2.jpg");

  fhem("get EG.Flur.WandTablet.Kamera image");
  sleep 1;
  copy ("/opt/fhem/www/images/default/webcam2/EG.Flur.WandTablet.Kamera_snapshot.jpg","/opt/fhem/www/images/default/webcam2/snap3.jpg");

  fhem("get EG.Flur.WandTablet.Kamera image");
  sleep 1;
  copy ("/opt/fhem/www/images/default/webcam2/EG.Flur.WandTablet.Kamera_snapshot.jpg","/opt/fhem/www/images/default/webcam2/snap4.jpg");

  $image->Read( "/opt/fhem/www/images/default/webcam2/snap1.jpg",
                "/opt/fhem/www/images/default/webcam2/snap2.jpg",
                "/opt/fhem/www/images/default/webcam2/snap3.jpg",
                "/opt/fhem/www/images/default/webcam2/snap4.jpg");
               
  $image->Write(filename=>"/opt/fhem/www/images/default/webcam2/animated.gif", delay=>"50");
  fhem('set TelegramBot sendImage @@xxxx/opt/fhem/www/images/default/webcam2/animated.gif')
  }


Was nun passiert, ist dass alle vier Bilder (snap1-snap4) binär identisch sind. Habe ich da irgendwas übersehen?

wenn ich händisch die ipcam auslöse, kann ich durchaus im Sekundentakt bilder schiessen ...

Vielleicht hat ja jemand dazu eine Idee.

vielen Dank und schöne Grüße,
macfly