2018-11-20 23:30:55 +00:00
########################################################################################################################
2020-07-12 12:31:21 +00:00
# $Id: 49_SSCam.pm 22382 2020-07-10 20:25:50Z DS_Starter $
2018-11-20 23:30:55 +00:00
#########################################################################################################################
# 49_SSCam.pm
#
2020-04-14 15:41:21 +00:00
# (c) 2015-2020 by Heiko Maaz
2018-11-20 23:30:55 +00:00
# e-mail: Heiko dot Maaz at t-online dot de
#
# This Module can be used to operate Cameras defined in Synology Surveillance Station 7.0 or higher.
# It's based on and uses Synology Surveillance Station API.
#
# This script is part of fhem.
#
# Fhem is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 2 of the License, or
# (at your option) any later version.
#
# Fhem is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with fhem. If not, see <http://www.gnu.org/licenses/>.
#
#########################################################################################################################
#
# Definition: define <name> SSCam <camname> <ServerAddr> [ServerPort] [Protocol]
#
# Example of defining a Cam-device: define CamCP1 SSCAM Carport 192.168.2.20 [5000] [HTTP(S)]
# Example of defining a SVS-device: define SDS1 SSCAM SVS 192.168.2.20 [5000] [HTTP(S)]
#
2020-06-28 18:49:16 +00:00
package FHEM::SSCam ; ## no critic 'package'
2018-11-20 23:30:55 +00:00
use strict ;
use warnings ;
2020-06-28 18:49:16 +00:00
use GPUtils qw( GP_Import GP_Export ) ; # wird für den Import der FHEM Funktionen aus der fhem.pl benötigt
2020-06-21 20:37:08 +00:00
use Data::Dumper ;
2018-11-20 23:30:55 +00:00
use MIME::Base64 ;
2020-06-28 18:49:16 +00:00
use Time::HiRes qw( gettimeofday tv_interval ) ;
2018-11-20 23:30:55 +00:00
use HttpUtils ;
2020-06-21 20:37:08 +00:00
use Blocking ; # für EMail-Versand
2019-03-27 21:13:13 +00:00
use Encode ;
2020-06-30 21:16:26 +00:00
eval "use JSON;1;" or my $ SScamMMDBI = "JSON" ; ## no critic 'eval' # Debian: apt-get install libjson-perl
eval "use FHEM::Meta;1" or my $ modMetaAbsent = 1 ; ## no critic 'eval'
2019-10-26 18:41:42 +00:00
# Cache
2020-06-30 21:16:26 +00:00
eval "use CHI;1;" or my $ SScamMMCHI = "CHI" ; ## no critic 'eval' # cpanm CHI
eval "use CHI::Driver::Redis;1;" or my $ SScamMMCHIRedis = "CHI::Driver::Redis" ; ## no critic 'eval' # cpanm CHI::Driver::Redis
eval "use Cache::Cache;1;" or my $ SScamMMCacheCache = "Cache::Cache" ; ## no critic 'eval' # cpanm Cache::Cache
2019-10-26 18:41:42 +00:00
2018-11-20 23:30:55 +00:00
# no if $] >= 5.017011, warnings => 'experimental';
2020-06-28 18:49:16 +00:00
# Run before module compilation
BEGIN {
# Import from main::
GP_Import (
qw(
attr
data
defs
AnalyzePerlCommand
AttrVal
AttrNum
addToDevAttrList
addToAttrList
asyncOutput
BlockingCall
BlockingKill
BlockingInformParent
CancelDelayedShutdown
CommandAttr
CommandDefine
CommandDeleteAttr
CommandDeleteReading
2020-07-15 15:49:55 +00:00
CommandSave
CommandDelete
2020-06-28 18:49:16 +00:00
CommandSet
delFromDevAttrList
delFromAttrList
devspec2array
deviceEvents
Debug
DoTrigger
FmtDateTime
FmtTime
fhemTzOffset
fhemTimeGm
fhemTimeLocal
getKeyValue
gettimeofday
genUUID
HttpUtils_NonblockingGet
init_done
InternalTimer
IsDisabled
Log
Log3
2020-07-14 15:38:42 +00:00
makeReadingName
makeDeviceName
2020-06-28 18:49:16 +00:00
modules
readingsSingleUpdate
readingsBulkUpdate
readingsBulkUpdateIfChanged
readingsBeginUpdate
readingsDelete
readingsEndUpdate
ReadingsNum
ReadingsTimestamp
ReadingsVal
RemoveInternalTimer
readingFnAttributes
setKeyValue
sortTopicNum
TimeNow
Value
json2nameValue
FW_cmd
FW_directNotify
FW_ME
FW_makeImage
2020-06-30 21:16:26 +00:00
FW_iconPath
FW_icondir
2020-06-28 18:49:16 +00:00
FW_widgetFallbackFn
FW_pH
FW_subdir
FW_room
FW_detail
FW_wname
TelegramBot_MsgForLog
TelegramBot_GetIdForPeer
TelegramBot_GetFullnameForContact
TelegramBot_getBaseURL
TelegramBot_AttrNum
TelegramBot_Callback
TelegramBot_BinaryFileRead
SSChatBot_formString
SSChatBot_addQueue
SSChatBot_getapisites
)
) ;
# Export to main context with different name
# my $pkg = caller(0);
# my $main = $pkg;
# $main =~ s/^(?:.+::)?([^:]+)$/main::$1\_/gx;
# for (@_) {
# *{ $main . $_ } = *{ $pkg . '::' . $_ };
# }
GP_Export (
qw(
Initialize
)
) ;
}
2018-11-20 23:30:55 +00:00
# Versions History intern
2020-06-28 18:49:16 +00:00
my % vNotesIntern = (
2020-07-16 06:14:56 +00:00
"9.5.0" = > "15.07.2020 streamDev master type added, comref revised " ,
2020-07-15 15:49:55 +00:00
"9.4.5" = > "15.07.2020 fix crash while autocreate CommandDelete, CommandSave is missing " ,
2020-07-14 15:38:42 +00:00
"9.4.4" = > "14.07.2020 fix crash while autocreate makeDeviceName is missing " ,
2020-07-13 20:38:52 +00:00
"9.4.3" = > "13.07.2020 streamDev refactored, comref revised " ,
2020-07-12 12:31:21 +00:00
"9.4.2" = > "11.07.2020 more changes according PBP level 3, headline PTZ Control, revised comref " ,
2020-07-05 21:11:19 +00:00
"9.4.1" = > "05.07.2020 new Zoom icons " ,
2020-07-01 19:24:20 +00:00
"9.4.0" = > "01.07.2020 switch to packages, much more changes according PBP " ,
2020-06-28 18:49:16 +00:00
"9.3.0" = > "21.06.2020 SVS device 'inctive' if disabled, add zoom capability, much more internal code changes " ,
2020-05-30 06:50:20 +00:00
"9.2.3" = > "30.05.2020 change SSChatBot_formText to SSChatBot_formString " ,
2020-04-14 15:41:21 +00:00
"9.2.2" = > "14.04.2020 increase read timeout of Redis server cache, fix autocreate bug with https " ,
"9.2.1" = > "24.02.2020 set compatibility to SVS version 8.2.7 " ,
2019-12-11 21:16:03 +00:00
"9.2.0" = > "10.12.2019 attribute \"recChatTxt\" for sending recordings by SSChatBot " ,
2019-12-09 20:51:32 +00:00
"9.1.0" = > "08.12.2019 attribute \"snapChatTxt\" for sending snapshots by SSChatBot " ,
"9.0.6" = > "26.11.2019 minor code change " ,
"9.0.5" = > "22.11.2019 commandref revised " ,
2019-11-18 17:50:17 +00:00
"9.0.4" = > "18.11.2019 fix FHEM crash when sending data by telegramBot, Forum: https://forum.fhem.de/index.php/topic,105486.0.html " ,
2019-11-06 20:01:26 +00:00
"9.0.3" = > "04.11.2019 change send Telegram routines, undef variables, fix cache and transaction coding, fix sendEmailblocking " ,
2019-11-03 17:50:18 +00:00
"9.0.2" = > "03.11.2019 change Streamdev type \"lastsnap\" use \$data Hash or CHI cache " ,
2019-11-02 10:26:16 +00:00
"9.0.1" = > "02.11.2019 correct snapgallery number of snaps in case of cache usage, fix display number of retrieved snaps " ,
2019-10-26 18:41:42 +00:00
"9.0.0" = > "26.10.2019 finalize all changes beginning with 8.20.0 and revised commandref " ,
"8.23.0" = > "26.10.2019 new attribute \"debugCachetime\" " ,
"8.22.0" = > "23.10.2019 implement CacheCache driver for CHI " ,
"8.21.0" = > "20.10.2019 implement Redis driver for CHI " ,
"8.20.0" = > "19.10.2019 implement caching with CHI, implement {SENDCOUNT} " ,
2020-06-28 18:49:16 +00:00
"8.19.6" = > "14.10.2019 optimize memory usage of composeGallery " ,
"8.19.5" = > "13.10.2019 change FH to Data in sendEmailblocking, save variables " ,
2019-10-12 05:50:49 +00:00
"8.19.4" = > "11.10.2019 further optimize memory usage when send recordings by email and/or telegram " ,
2019-10-10 19:10:13 +00:00
"8.19.3" = > "09.10.2019 optimize memory usage when send images and recordings by email and/or telegram " ,
2020-06-28 18:49:16 +00:00
"8.19.2" = > "06.10.2019 delete key/value pairs in extractForTelegram and sendEmailblocking, " .
2019-10-10 19:10:13 +00:00
"change datacontainer of SNAPHASH(OLD) from %defs to %data " ,
"8.19.1" = > "26.09.2019 set compatibility to 8.2.6 " ,
2019-09-21 13:03:06 +00:00
"8.19.0" = > "21.09.2019 support attr \"hideAudio\" SSCamSTRM-device " ,
"8.18.2" = > "19.09.2019 sample streams changed in comref, support of attr noLink in Streaming-Device " ,
2019-09-18 18:17:39 +00:00
"8.18.1" = > "18.09.2019 fix warnings, Forum: https://forum.fhem.de/index.php/topic,45671.msg975610.html#msg975610 " ,
2019-09-14 19:11:34 +00:00
"8.18.0" = > "13.09.2019 change usage of own hashes to central %data hash, release unnecessary allocated memory " ,
2019-10-26 18:41:42 +00:00
"8.17.0" = > "12.09.2019 fix warnings, support hide buttons in streaming device, change handle delete SNAPOLDHASH " ,
2019-09-09 22:24:51 +00:00
"8.16.3" = > "13.08.2019 commandref revised " ,
2020-06-28 18:49:16 +00:00
"8.16.2" = > "17.07.2019 change function ptzPanel using css stylesheet " ,
2019-09-09 22:24:51 +00:00
"8.16.1" = > "16.07.2019 fix warnings " ,
2019-07-14 18:18:07 +00:00
"8.16.0" = > "14.07.2019 change detail link generation from SSCamSTRM to SSCam " ,
2020-06-28 18:49:16 +00:00
"8.15.2" = > "14.07.2019 fix order of snaps in snapgallery when adding new snaps, fix english date formating in composeGallery, " .
2019-07-14 15:03:56 +00:00
"align center of FTUI table, set compatibility to 8.2.5 " ,
2019-07-12 20:10:53 +00:00
"8.15.1" = > "11.07.2019 enhancement and bugfixes for refresh of SSCamSTRM devices (integrate FUUID) " ,
"8.15.0" = > "09.07.2019 support of SSCamSTRM get function and FTUI widget " ,
2019-06-28 19:36:00 +00:00
"8.14.2" = > "28.06.2019 increase get SID timeout to at least 60 s, set compatibility to SVS 8.2.4, improve disable/enable behavior " ,
2019-06-23 12:55:02 +00:00
"8.14.1" = > "23.06.2019 Presets and Patrols containing spaces in its names are replaced by \"_\", deletion of Presets corrected " .
"bugfix userattr when changing Prests " ,
2019-06-01 13:25:55 +00:00
"8.14.0" = > "01.06.2019 Link to Cam/SVS-Setup Screen and online help in Detailview " ,
"8.13.6" = > "26.05.2019 enhanced log entries of snapinfos with debugactivetoken " ,
2019-05-23 20:04:54 +00:00
"8.13.5" = > "23.05.2019 StmKey quoted depending on attr noQuotesForSID (Forum: https://forum.fhem.de/index.php/topic,45671.msg938236.html#msg938236), " .
"autoplay muted of hls-StreamDev" ,
2019-05-21 05:21:39 +00:00
"8.13.4" = > "21.05.2019 rec/snapemailtxt, rec/snaptelegramtxt can contain \":\", commandref revised " ,
2019-04-28 17:20:21 +00:00
"8.13.3" = > "28.04.2019 don't save private hash refs in central hash, \"repository\" added in Meta.json " ,
2019-04-07 10:20:19 +00:00
"8.13.2" = > "07.04.2019 fix perl warning Forum: https://forum.fhem.de/index.php/topic,45671.msg927912.html#msg927912" ,
"8.13.1" = > "06.04.2019 verbose level in X_DelayedShutdown changed " ,
2019-03-27 21:13:13 +00:00
"8.13.0" = > "27.03.2019 add Meta.pm support " ,
2019-03-25 22:23:11 +00:00
"8.12.0" = > "25.03.2019 FHEM standard function X_DelayedShutdown implemented, delay FHEM shutdown as long as sessions " .
"are not terminated. " ,
"8.11.5" = > "24.03.2019 fix possible overload Synology DS during shutdown restart " ,
2019-03-11 18:04:20 +00:00
"8.11.4" = > "11.03.2019 make module ready for SVS version 8.2.3-5829 " ,
2019-03-08 14:23:11 +00:00
"8.11.3" = > "08.03.2019 avoid possible JSON errors, fix fhem is hanging while restart or get snapinfo - Forum: #45671.msg915546.html#msg915546 " ,
2019-03-06 18:59:05 +00:00
"8.11.2" = > "04.03.2019 bugfix no snapinfos when snap was done by SVS itself, Forum: https://forum.fhem.de/index.php/topic,45671.msg914685.html#msg914685" ,
2019-03-04 19:09:35 +00:00
"8.11.1" = > "28.02.2019 commandref revised, minor fixes " ,
"8.11.0" = > "25.02.2019 changed compatibility check, compatibility to SVS version 8.2.3, Popup possible for \"generic\"-Streamdevices, " .
"support for \"genericStrmHtmlTag\" in streaming devices " ,
"8.10.1" = > "19.02.2019 fix warning when starting fhem, and Forum:#97706" ,
"8.10.0" = > "15.02.2019 send recordings integrated by telegram, a lot of internal changes for send telegrams " ,
2020-06-28 18:49:16 +00:00
"8.9.2" = > "05.02.2019 sub sendTelegram changed " ,
"8.9.1" = > "05.02.2019 sub snapLimSize changed " ,
2019-02-06 21:06:40 +00:00
"8.9.0" = > "05.02.2019 new streaming device type \"lastsnap\" " ,
2019-02-04 17:43:27 +00:00
"8.8.1" = > "04.02.2019 fix need attr snapGalleryBoost / snapGallerySize for ending a snap by telegramBot " ,
"8.8.0" = > "03.02.2019 send snapshots integrated by telegram " ,
2019-02-01 15:00:29 +00:00
"8.7.2" = > "30.01.2019 code change for snapCams (SVS) " ,
"8.7.1" = > "30.01.2019 fix refresh snapgallery device if snap was done by itself " ,
2019-01-27 15:36:11 +00:00
"8.7.0" = > "27.01.2019 send recording by email " ,
"8.6.2" = > "25.01.2019 fix version numbering " ,
"8.6.1" = > "21.01.2019 time format in readings and galleries depends from global language attribute, minor bug fixes " ,
2019-01-19 15:35:22 +00:00
"8.6.0" = > "20.01.2019 new attribute snapReadingRotate " ,
2019-01-17 20:40:56 +00:00
"8.5.0" = > "17.01.2019 SVS device has \"snapCams\" command " ,
2019-01-15 22:25:17 +00:00
"8.4.5" = > "15.01.2019 fix event generation after request snapshots " ,
2019-01-14 23:09:42 +00:00
"8.4.4" = > "14.01.2019 change: generate event of every snapfile,id etc. if snap was called with arguments, Forum:#45671 #msg887484 " ,
2019-01-11 14:20:30 +00:00
"8.4.3" = > "11.01.2019 fix blocking Active-Token if snap was done with arguments and snapEmailTxt not set, Forum:#45671 #msg885475 " ,
2019-01-09 23:43:17 +00:00
"8.4.2" = > "10.01.2019 snapEmailTxt can use placeholders \$DATE, \$TIME " ,
2019-01-09 18:54:08 +00:00
"8.4.1" = > "09.01.2019 Transaction of snap and getsnapinfo implemented, debugactive token verbose level changed " ,
2019-01-07 06:44:07 +00:00
"8.4.0" = > "07.01.2019 command snap extended to \"snap [number] [lag] [snapEmailTxt:\"subject => <Betreff-Text>, body => " .
"<Mitteilung-Text>\"]\", SID-hash is deleted if attr \"session\" is set " ,
2019-01-03 16:53:17 +00:00
"8.3.2" = > "03.01.2019 fix Process died prematurely if Can't locate object method \"get_sslversion\" via package \"Net::SMTP::SSL\" " ,
2019-01-02 19:35:10 +00:00
"8.3.1" = > "02.01.2019 fix SMTP usage for older Net::SMTP, new attribute \"smtpSSLPort\"" ,
2018-12-31 14:26:04 +00:00
"8.3.0" = > "02.01.2019 CAMLASTRECID replaced by Reading CamLastRecId, \"SYNO.SurveillanceStation.Recording\" added, " .
"new get command \"saveRecording\"" ,
2018-12-30 20:20:27 +00:00
"8.2.0" = > "02.01.2019 store SMTP credentials with \"smtpcredentials\", SMTP Email integrated " ,
2018-11-20 23:30:55 +00:00
"1.0.0" = > "12.12.2015 initial, changed completly to HttpUtils_NonblockingGet "
) ;
# Versions History extern
2020-06-28 18:49:16 +00:00
my % vNotesExtern = (
"9.3.0" = > "25.06.2020 Cameras with zoom function can also be controlled by FHEM. With the setter \"setZoom\", the zoom in/out " .
"can be triggered in two steps. In the PTZ streaming device or FTUI, pushbuttons are provided for this purpose." ,
2020-06-24 19:51:57 +00:00
"9.1.0" = > "10.12.2019 With the new attribute \"snapChatTxt\" it is possible to send snapshots by the Synology Chat server. " .
"Please read more information about the possibilities in the " .
"<a href=\"https://wiki.fhem.de/wiki/SSCAM_-_Steuerung_von_Kameras_in_Synology_Surveillance_Station#Versand_von_Aufnahmen_und_Schnappsch.C3.BCssen_mit_Synology_Chat_.28SSChatBot.29\">Wiki</a>. " ,
"9.0.0" = > "06.10.2019 To store image and recording data used by streaming devices or for transmission by email and telegram, " .
"several cache types can be used now. So in-memory caches are available or file- and Redis-cache support " .
"is intergated. In both latter cases the FHEM-process RAM is released. All transmission processes " .
"(send image/recording data by email and telegram) are optimized for less memory footprint. " .
"Please see also the new cache-attributes \"cacheType\", \"cacheServerParam\" and \"debugCachetime\". " ,
"8.19.0" = > "21.09.2019 A new attribute \"hideAudio\" in Streaming devices is supportet. Use this attribute to hide the " .
"audio control panel in Streaming device. " ,
"8.18.2" = > "19.09.2019 SSCam supports the new attribute \"noLink\" in streaming devices " ,
"8.15.0" = > "09.07.2019 support of integrating Streaming-Devices in a SSCam FTUI widget " ,
"8.14.0" = > "01.06.2019 In detailview are buttons provided to open the camera native setup screen or Synology Surveillance Station and the Synology Surveillance Station online help. " ,
"8.12.0" = > "25.03.2019 Delay FHEM shutdown as long as sessions are not terminated, but not longer than global attribute \"maxShutdownDelay\". " ,
"8.11.0" = > "25.02.2019 compatibility set to SVS version 8.2.3, Popup possible for streaming devices of type \"generic\", " .
"support for \"genericStrmHtmlTag\" in streaming devices " ,
"8.10.0" = > "15.02.2019 Possibility of send recordings by telegram is integrated as well as sending snapshots " ,
"8.9.0" = > "05.02.2019 A new streaming device type \"lastsnap\" was implemented. You can create such device with \"set ... createStreamDev lastsnap\". " .
"This streaming device shows the newest snapshot which was taken. " ,
"8.8.0" = > "01.02.2019 Snapshots can now be sent by telegramBot " ,
"8.7.0" = > "27.01.2019 SMTP Email delivery of recordings implemented. You can send a recording after it was created subsequentely " .
"with the integrated Email client. You have to store SMTP credentials with \"smtpcredentials\" before. " ,
"8.6.2" = > "25.01.2019 fix version numbering " ,
"8.6.1" = > "21.01.2019 new attribute \"snapReadingRotate\" to activate versioning of snap data, " .
"time format in readings and galleries depends from global language attribute " ,
"8.5.0" = > "17.01.2019 SVS device has \"snapCams\" command. Now are able to take snapshots of all defined cameras and may " .
"optionally send them alltogether by Email." ,
"8.4.0" = > "07.01.2019 Command snap is extended to syntax \"snap [number] [lag] [snapEmailTxt:\"subject => <Betreff-Text>, body => " .
"<Mitteilung-Text>\"]\". Now you are able to trigger several number of " .
"snapshots by only one snap-command. The triggered snapshots can be shipped alltogether with the internal email client. " ,
"8.3.0" = > "02.01.2019 new get command \"saveRecording\"" ,
"8.2.0" = > "02.01.2019 SMTP Email delivery of snapshots implemented. You can send snapshots after it was created subsequentely " .
"with the integrated Email client. You have to store SMTP credentials with \"smtpcredentials\" before. " ,
"8.1.0" = > "19.12.2018 Tooltipps added to camera device control buttons." ,
"8.0.0" = > "18.12.2018 HLS is integrated using sscam_hls.js in Streaming device types \"hls\". HLS streaming is now available " .
"for all common used browser types. Tooltipps are added to streaming devices and snapgallery." ,
"7.7.0" = > "10.12.2018 autocreateCams command added to SVS device. By this command all cameras installed in SVS can be " .
"defined automatically. <br>" .
"In SSCamSTRM devices the \"set <name> popupStream\" command is implemented which may open a popup window with the " .
"active streaming content. " ,
"7.6.0" = > "02.12.2018 The PTZ panel is completed by \"Preset\" and \"Patrol\" (only for PTZ cameras) " ,
"7.5.0" = > "02.12.2018 A click on suitable content in a stream- or snapgallery device opens a popup window. " .
"The popup size can be adjusted by attribute \"popupWindowSize\". " ,
"7.4.0" = > "20.11.2018 new command \"createReadingsGroup\". By this command a ReadingsGroup with a name of your choice (or use the default name) can be created. " .
"Procedure changes of taking snapshots avoid inaccuracies if camera names in SVS very similar. " ,
"7.3.2" = > "12.11.2018 fix Warning if 'livestreamprefix' is set to DEF, COMPATIBILITY set to 8.2.2 " ,
"7.3.0" = > "28.10.2018 In attribute \"livestreamprefix\" can now \"DEF\" be specified to overwrite livestream address by specification from device definition " ,
"7.2.1" = > "23.10.2018 COMPATIBILITY changed to 8.2.1 " ,
"7.2.0" = > "20.10.2018 direct help for attributes, new get versionNotes command, please see commandref for details " ,
"7.1.1" = > "18.10.2018 Message of \"current/simulated SVS-version...\" changed, commandref corrected " ,
2020-06-28 18:49:16 +00:00
"7.1.0" = > "02.09.2018 PIR Sensor enable/disable, Set/Get optimized " ,
2020-06-24 19:51:57 +00:00
"7.0.1" = > "27.08.2018 enable/disable issue (https://forum.fhem.de/index.php/topic,45671.msg830869.html#msg830869) " ,
"7.0.0" = > "27.07.2018 compatibility to API v2.8 " ,
"6.0.1" = > "04.07.2018 Reading CamFirmware " ,
"6.0.0" = > "03.07.2018 HTTPS Support, buttons for refresh SSCamSTRM-devices " ,
"5.2.7" = > "26.06.2018 fix state turns to \"off\" even though cam is disabled " ,
"5.2.5" = > "18.06.2018 trigger lastsnap_fw to SSCamSTRM-Device only if snap was done by it. " ,
2020-06-28 18:49:16 +00:00
"5.2.4" = > "17.06.2018 composeGallery added and write warning if old composeGallery-weblink device is used " ,
2020-06-24 19:51:57 +00:00
"5.2.2" = > "16.06.2018 compatibility to SSCamSTRM V 1.1.0 " ,
2020-06-28 18:49:16 +00:00
"5.2.1" = > "14.06.2018 design change of streamDev, change in event generation for streamDev, fix global vars " ,
2020-06-24 19:51:57 +00:00
"5.2.0" = > "14.06.2018 support longpoll refresh of SSCamSTRM-Devices " ,
2020-06-28 18:49:16 +00:00
"5.1.0" = > "13.06.2018 more control elements (Start/Stop Recording, Take Snapshot) in func streamDev, control of detaillink is moved to SSCamSTRM-device " ,
2020-06-24 19:51:57 +00:00
"5.0.1" = > "12.06.2018 control of page refresh improved (for e.g. Floorplan,Dashboard) " ,
"4.2.0" = > "22.05.2018 PTZ-Panel integrated to created StreamDevice " ,
"4.0.0" = > "01.05.2018 AudioStream possibility added " ,
"3.10.0" = > "24.04.2018 createStreamDev added, new features lastrec_fw_MJPEG, lastrec_fw_MPEG4/H.264 added to playback MPEG4/H.264 videos " ,
"3.9.1" = > "20.04.2018 Attribute ptzPanel_use, initial webcommands in DeviceOverview changed, minor fixes ptzPanel " ,
"3.9.0" = > "17.04.2018 control panel & PTZcontrol weblink device for PTZ cams " ,
"3.8.4" = > "06.04.2018 Internal MODEL changed to SVS or \"CamVendor - CamModel\" for Cams " ,
2020-06-28 18:49:16 +00:00
"3.8.3" = > "05.04.2018 bugfix V3.8.2, \$OpMode \"Start\" changed, composeGallery changed " ,
2020-06-24 19:51:57 +00:00
"3.6.0" = > "25.03.2018 setPreset command " ,
"3.5.0" = > "22.03.2018 new get command listPresets " ,
"3.4.0" = > "21.03.2018 new commands startTracking, stopTracking " ,
"3.3.1" = > "20.03.2018 new readings CapPTZObjTracking, CapPTZPresetNumber " ,
"3.3.0" = > "25.02.2018 code review, API bug fix of runview lastrec, commandref revised (forum:#84953) " ,
2020-06-28 18:49:16 +00:00
"3.2.4" = > "18.11.2017 fix bug don't retrieve getPtzPresetList if cam is disabled " ,
2020-06-24 19:51:57 +00:00
"3.2.3" = > "08.10.2017 set optimizeParams, get caminfo (simple), minor bugfix, commandref revised " ,
"3.2.0" = > "27.09.2017 new command get listLog, change to \$hash->{HELPER}{\".SNAPHASH\"} for avoid huge \"list\"-report " ,
"3.1.0" = > "26.09.2017 move extevent from CAM to SVS model, Reading PollState enhanced for CAM-Model, minor fixes " ,
"3.0.0" = > "23.09.2017 Internal MODEL SVS or CAM -> distinguish/support Cams and SVS in different devices new comand get storedCredentials, commandref revised " ,
"2.9.0" = > "20.09.2017 new function get homeModeState, minor fixes at simu_SVSversion, commandref revised " ,
"2.6.0" = > "06.08.2017 new command createSnapGallery " ,
"2.5.4" = > "05.08.2017 analyze \$hash->{CL} in SetFn bzw. GetFn, set snapGallery only if snapGalleryBoost=1 is set, some snapGallery improvements and fixes " ,
"2.5.3" = > "02.08.2017 implement snapGallery as set-command " ,
2020-06-28 18:49:16 +00:00
"2.2.2" = > "11.06.2017 bugfix login, loginReturn, Forum: https://forum.fhem.de/index.php/topic,45671.msg646701.html#msg646701 " ,
"1.39.0" = > "20.01.2017 compatibility to SVS 8.0.0, Version in Internals, execute getSvsInfo after set credentials " ,
2018-11-20 23:30:55 +00:00
"1.37.0" = > "10.10.2016 bugfix Experimental keys on scalar is now forbidden (Perl >= 5.23) (Forum: #msg501709) " ,
"1.34.0" = > "15.09.2016 simu_SVSversion changed, added 407 errorcode message, external recording changed for SVS 7.2 " ,
"1.33.0" = > "21.08.2016 function get stmUrlPath added, fit to new commandref style, attribute showStmInfoFull added " ,
"1.31.0" = > "15.08.2016 Attr \"noQuotesForSID\" added, avoid possible 402 - permission denied problems in some SVS/DS-combinations " ,
"1.28.0" = > "30.06.2016 Attr \"showPassInLog\" added, per default no password will be shown in log " ,
"1.27.0" = > "29.06.2016 Attr \"simu_SVSversion\" added, sub login_nonbl changed, sub camret_nonbl changed (getlistptzpreset) due to 7.2 problem " ,
"1.26.2" = > "05.05.2016 change: get \"snapfileinfo\" will get back an Infomessage if Reading \"LastSnapId\" isn't available " ,
"1.26.1" = > "27.04.2016 bugfix module will not load due to Unknown warnings category 'experimental' when using an older perl version " ,
"1.26.0" = > "22.04.2016 Attribute \"disable\" to deactivate the module added " ,
"1.25.0" = > "18.04.2016 motion detection parameters can be entered if motion detection by camera or SVS is used " ,
"1.24.0" = > "16.04.2016 behavior of \"set ... on\" changed, Attr \"recextend\" added, bugfix: setstate-warning if FHEM will restarted and SVS is not reachable (Forum: #308) " ,
"1.22.0" = > "27.03.2016 bugfix \"link_open\" doesn't work after last update " ,
"1.21.0" = > "23.03.2016 added \"lastrec\", \"lastrec_open\" to playback last recording " ,
"1.20.0" = > "09.03.2016 command \"extevent\" added " ,
"1.19.3" = > "07.03.2016 bugfix \"uninitialized value \$lastrecstarttime\", \"uninitialized value \$lastrecstoptime\", new attribute \"videofolderMap\" " ,
"1.19.2" = > "06.03.2016 Reading \"CamLastRec\" added which contains Path/name of last recording " ,
"1.19.1" = > "28.02.2016 enhanced command runView by option \"link_open\" to open a streamlink immediately " ,
"1.19.0" = > "25.02.2016 functions for cam-livestream added " ,
"1.18.1" = > "21.02.2016 fixed a problem that the state is \"disable\" instead of \"disabled\" if a camera is disabled and FHEM will be restarted " ,
"1.18.0" = > "20.02.2016 function \"get ... eventlist\" added, Reading \"CamEventNum\" added which containes total number of camera events, change usage of reading \"LastUpdateTime\" " ,
"1.17.0" = > "19.02.2016 function \"runPatrol\" added that starts predefined patrols of PTZ-cameras, Reading \"CamDetMotSc\" added " ,
"1.16.0" = > "16.02.2016 set up of motion detection source now possible " ,
"1.15.0" = > "15.02.2016 control of exposure mode day, night & auto is possible now " ,
"1.14.0" = > "14.02.2016 The port in DEF-String is optional now, if not given, default port 5000 is used " ,
"1.13.2" = > "13.02.2016 fixed a problem that manual updates using \"getcaminfoall\" are leading to additional pollingloops if polling is used, attribute \"debugactivetoken\" added for debugging-use " ,
"1.13.1" = > "12.02.2016 fixed a problem that a usersession won't be destroyed if a function couldn't be executed successfully " ,
"1.12.0" = > "08.02.2016 added function \"move\" for continuous PTZ action " ,
"1.11.0" = > "05.02.2016 added function \"goPreset\" and \"goAbsPTZ\" to control the move of PTZ lense to absolute positions (http://forum.fhem.de/index.php/topic,45671.msg404275.html#msg404275), (http://forum.fhem.de/index.php/topic,45671.msg404892.html#msg404892) " ,
"1.10.0" = > "02.02.2016 added function \"svsinfo\" to get informations about installed SVS-package, if Availability = \"disconnected\" then \"state\"-value will be \"disconnected\" too, saved Credentials were deleted from file if a device will be deleted " ,
2020-06-24 19:51:57 +00:00
"1.7.0" = > "18.01.2016 Attribute \"httptimeout\" added " ,
"1.6.0" = > "16.01.2016 Change the define-string related to rectime. (http://forum.fhem.de/index.php/topic,45671.msg391664.html#msg391664) " ,
"1.5.1" = > "11.01.2016 Vars \"USERNAME\" and \"RECTIME\" removed from internals, Var (Internals) \"SERVERNAME\" changed to \"SERVERADDR\" " ,
"1.5.0" = > "04.01.2016 Function \"Get\" for creating Camera-Readings integrated, Attributs pollcaminfoall, pollnologging added, Function for Polling Cam-Infos added. " ,
"1.4.0" = > "23.12.2015 function \"enable\" and \"disable\" for SS-Cams added, changed timout of Http-calls to a higher value " ,
"1.3.0" = > "19.12.2015 function \"snap\" for taking snapshots added, fixed a bug that functions may impact each other " ,
"1.0.0" = > "12.12.2015 initial, changed completly to HttpUtils_NonblockingGet "
2018-11-20 23:30:55 +00:00
) ;
# Aufbau Errorcode-Hashes (siehe Surveillance Station Web API)
2020-06-28 18:49:16 +00:00
my % errauthlist = (
2018-11-20 23:30:55 +00:00
100 = > "Unknown error" ,
101 = > "The account parameter is not specified" ,
102 = > "API does not exist" ,
400 = > "Invalid user or password" ,
401 = > "Guest or disabled account" ,
402 = > "Permission denied - DSM-Session: make sure user is member of Admin-group, SVS-Session: make sure SVS package is started, make sure FHEM-Server IP won't be blocked in DSM automated blocking list" ,
403 = > "One time password not specified" ,
404 = > "One time password authenticate failed" ,
405 = > "method not allowd - maybe the password is too long" ,
2018-12-07 20:01:26 +00:00
406 = > "OTP code enforced" ,
407 = > "Max Tries (if auto blocking is set to true) - make sure FHEM-Server IP won't be blocked in DSM automated blocking list" ,
408 = > "Password Expired Can not Change" ,
409 = > "Password Expired" ,
410 = > "Password must change (when first time use or after reset password by admin)" ,
411 = > "Account Locked (when account max try exceed)" ,
2018-11-20 23:30:55 +00:00
) ;
2020-06-28 18:49:16 +00:00
my % errlist = (
2018-11-20 23:30:55 +00:00
100 = > "Unknown error" ,
101 = > "Invalid parameters" ,
102 = > "API does not exist" ,
103 = > "Method does not exist" ,
104 = > "This API version is not supported" ,
105 = > "Insufficient user privilege" ,
106 = > "Connection time out" ,
107 = > "Multiple login detected" ,
117 = > "need manager rights in SurveillanceStation for operation" ,
400 = > "Execution failed" ,
401 = > "Parameter invalid" ,
402 = > "Camera disabled" ,
403 = > "Insufficient license" ,
404 = > "Codec activation failed" ,
405 = > "CMS server connection failed" ,
407 = > "CMS closed" ,
410 = > "Service is not enabled" ,
412 = > "Need to add license" ,
413 = > "Reach the maximum of platform" ,
414 = > "Some events not exist" ,
415 = > "message connect failed" ,
417 = > "Test Connection Error" ,
418 = > "Object is not exist" ,
419 = > "Visualstation name repetition" ,
439 = > "Too many items selected" ,
502 = > "Camera disconnected" ,
600 = > "Presetname and PresetID not found in Hash" ,
) ;
2018-12-30 20:20:27 +00:00
# Tooltipps Textbausteine (http://www.walterzorn.de/tooltip/tooltip.htm#download), §NAME§ wird durch Kameranamen ersetzt
2020-06-28 18:49:16 +00:00
my % ttips_en = (
2020-07-12 12:31:21 +00:00
ttrefresh = > "The playback of streaming content of camera of "§NAME§" will be restartet." ,
ttrecstart = > "Start an endless recording of camera "§NAME§".<br>You have to stop the recording manually." ,
ttrecstop = > "Stopp the recording of camera "§NAME§"." ,
ttsnap = > "Take a snapshot of camera "§NAME§"." ,
ttcmdstop = > "Stopp playback of camera "§NAME§"" ,
tthlsreact = > "Reactivate HTTP Livestreaming Interface of camera "§NAME§".<br>The camera is enforced to restart HLS transmission." ,
ttmjpegrun = > "Playback the MJPEG Livestream of camera "§NAME§"." ,
tthlsrun = > "Playback the native HTTP Livestream of camera "§NAME§". The browser must have native support for HLS streaming." ,
ttlrrun = > "Playback of last recording of camera "§NAME§" in an iFrame.<br>Both MJPEG and H.264 recordings are rendered." ,
tth264run = > "Playback of last H.264 recording of camera "§NAME§".<br>It only starts if the recording is type H.264" ,
ttlmjpegrun = > "Playback of last MJPEG recording of camera "§NAME§".<br>It only starts if the recording is type MJPEG" ,
ttlsnaprun = > "Playback of last snapshot of camera "§NAME§"." ,
confcam = > "The configuration menu of camera "§NAME§" will be opened in a new Browser page" ,
confsvs = > "The configuration page of Synology Surveillance Station will be opened in a new Browser page" ,
helpsvs = > "The online help page of Synology Surveillance Station will be opened in a new Browser page" ,
2018-12-30 20:20:27 +00:00
) ;
2020-06-28 18:49:16 +00:00
my % ttips_de = (
2020-07-12 12:31:21 +00:00
ttrefresh = > "Die Wiedergabe des Streams von Kamera "§NAME§" wird neu gestartet." ,
ttrecstart = > "Startet eine Endlosaufnahme von Kamera "§NAME§".<br>Die Aufnahme muß manuell gestoppt werden." ,
ttrecstop = > "Stoppt die laufende Aufnahme von Kamera "§NAME§"." ,
ttsnap = > "Ein Schnappschuß von Kamera "§NAME§" wird aufgenommen." ,
ttcmdstop = > "Stopp Wiedergabe von Kamera "§NAME§"" ,
tthlsreact = > "Reaktiviert das HTTP Livestreaming Interface von Kamera "§NAME§".<br>Die Kamera wird aufgefordert die HLS Übertragung zu restarten." ,
ttmjpegrun = > "Wiedergabe des MJPEG Livestreams von Kamera "§NAME§"" ,
tthlsrun = > "Wiedergabe des HTTP Livestreams von Kamera "§NAME§".<br>Es wird die HLS Funktion der Synology Surveillance Station verwendet. (der Browser muss HLS nativ unterstützen)" ,
ttlrrun = > "Wiedergabe der letzten Aufnahme von Kamera "§NAME§" in einem iFrame.<br>Es werden sowohl MJPEG als auch H.264 Aufnahmen wiedergegeben." ,
tth264run = > "Wiedergabe der letzten H.264 Aufnahme von Kamera "§NAME§".<br>Die Wiedergabe startet nur wenn die Aufnahme vom Typ H.264 ist." ,
ttlmjpegrun = > "Wiedergabe der letzten MJPEG Aufnahme von Kamera "§NAME§".<br>Die Wiedergabe startet nur wenn die Aufnahme vom Typ MJPEG ist." ,
ttlsnaprun = > "Wiedergabe des letzten Schnappschusses von Kamera "§NAME§"." ,
confcam = > "Das Konfigurationsmenü von Kamera "§NAME§" wird in einer neuen Browserseite geöffnet" ,
confsvs = > "Die Konfigurationsseite der Synology Surveillance Station wird in einer neuen Browserseite geöffnet" ,
helpsvs = > "Die Onlinehilfe der Synology Surveillance Station wird in einer neuen Browserseite geöffnet" ,
2018-12-30 20:20:27 +00:00
) ;
2020-06-30 21:16:26 +00:00
my % imc = ( # disbled String modellabhängig (SVS / CAM)
2020-07-12 12:31:21 +00:00
0 = > { 0 = > "initialized" , 1 = > "inactive" } ,
1 = > { 0 = > "off" , 1 = > "inactive" } ,
2020-06-21 20:37:08 +00:00
) ;
2020-06-30 21:16:26 +00:00
my % zd = ( # Hash der Zoomsteuerung
2020-07-12 12:31:21 +00:00
".++" = > { dir = > "in" , sttime = > 6 , moveType = > "Start" , panimg = > "Zoom_in_wide_w.png" , } ,
"+" = > { dir = > "in" , sttime = > 0.5 , moveType = > "Start" , panimg = > "Zoom_in_w.png" , } ,
"stop" = > { dir = > undef , sttime = > undef , moveType = > "Stop" , panimg = > "black_btn_CAMBLANK.png" , } ,
"-" = > { dir = > "out" , sttime = > 0.5 , moveType = > "Start" , panimg = > "Zoom_out_w.png" , } ,
"--." = > { dir = > "out" , sttime = > 6 , moveType = > "Start" , panimg = > "Zoom_out_wide_w.png" , }
) ;
my % sdfn = ( # Funktionshash Streamingdevices
"mjpeg" = > { fn = > "_streamDevMJPEG" } ,
"lastsnap" = > { fn = > "_streamDevLASTSNAP" } ,
"generic" = > { fn = > "_streamDevGENERIC" } ,
"hls" = > { fn = > "_streamDevHLS" } ,
"switched" = > { fn = > "_streamDevSWITCHED" } ,
2020-06-24 19:51:57 +00:00
) ;
2020-07-13 20:38:52 +00:00
my % sdswfn = ( # Funktionshash Streamingdevices Typ "switched"
"image" = > { fn = > "__switchedIMAGE" } ,
"iframe" = > { fn = > "__switchedIFRAME" } ,
"video" = > { fn = > "__switchedVIDEO" } ,
"base64img" = > { fn = > "__switchedBASE64IMG" } ,
"embed" = > { fn = > "__switchedEMBED" } ,
"hls" = > { fn = > "__switchedHLS" } ,
) ;
2019-01-15 22:25:17 +00:00
# Standardvariablen und Forward-Deklaration
2020-06-28 18:49:16 +00:00
my $ defSlim = 3 ; # default Anzahl der abzurufenden Schnappschüsse mit snapGallery
my $ defSnum = "1,2,3,4,5,6,7,8,9,10" ; # mögliche Anzahl der abzurufenden Schnappschüsse mit snapGallery
my $ compstat = "8.2.7" ; # getestete SVS-Version
my $ valZoom = ".++,+,stop,-,--." ; # Inhalt des Setters "setZoom"
#use vars qw($FW_ME); # webname (default is fhem), used by 97_GROUP/weblink
#use vars qw($FW_subdir); # Sub-path in URL, used by FLOORPLAN/weblink
#use vars qw($FW_room); # currently selected room
#use vars qw($FW_detail); # currently selected device for detail view
#use vars qw($FW_wname); # Web instance
2020-06-30 21:16:26 +00:00
# sub FW_pH(@); # add href
2020-06-28 18:49:16 +00:00
#sub SSChatBot_formString;
#sub SSChatBot_addQueue($$$$$$$$);
#sub SSChatBot_getapisites($);
2018-11-20 23:30:55 +00:00
2020-07-10 15:16:12 +00:00
#############################################################################################
# Hint Hash EN
#############################################################################################
my % vHintsExt_en = (
"9" = > "Further infomations about sending snapshots and recordings by Synology Chat server in our " .
"<a href=\"https://wiki.fhem.de/wiki/SSCAM_-_Steuerung_von_Kameras_in_Synology_Surveillance_Station#Versand_von_Aufnahmen_und_Schnappsch.C3.BCssen_mit_Synology_Chat_.28SSChatBot.29\">Wiki</a>. " .
"In addition here is provided the link to the <a href=\"https://www.synology.com/en-us/knowledgebase/DSM/help/Chat/chat_desc\">Chat knowledgebase</a>. <br><br>" ,
"8" = > "Link to official <a href=\"https://community.synology.com/forum/3\">Surveillance Forum</a> in Synology community" .
"<br><br>" ,
"7" = > "<b>Setup Email Shipping <br>" .
"==================== </b> <br><br>" .
"Snapshots can be sent by <b>Email</b> alltogether after creation. For this purpose the module contains<br>" .
"its own Email client.<br>" .
"Before you can use this function you have to install the Perl-module <b>MIME::Lite</b>. On debian systems it can be " .
"installed with command:" .
"<ul>" .
"<b>sudo apt-get install libmime-lite-perl</b>" .
"</ul>" .
"There are some attributes must be set or can be used optionally.<br>" .
"At first the Credentials for access the Email outgoing server must be set by command <b>\"set <name> smtpcredentials <user> <password>\"</b><br>" .
"The connection to the server is initially established unencrypted and switches to an encrypted connection if SSL<br>" .
"encryption is available. In that case the transmission of User/Password takes place encrypted too.<br>" .
"If attribute \"smtpSSLPort\" is defined, the established connection to the Email server will be encrypted immediately.<br><br>" .
"Attributes which are optional are marked: <br><br>" .
"<ul>" .
"<li><b>snapEmailTxt</b> - <b>Activates the Email shipping.</b> This attribute has the format: <br>" .
"<ul><b>subject => <subject text>, body => <message text></b></ul>" .
"The placeholder \$CAM, \$DATE and \$TIME can be used. <br>" .
"\$CAM is replaced by the device name, device alias or the name of camera in SVS if alias is not defined.<br>" .
"\$DATE and \$TIME are replaced with the current date and time.</li>" .
"<li><b>smtpHost</b> - Hostname or IP-address of outgoing Email server (e.g. securesmtp.t-online.de)</li>" .
"<li><b>smtpFrom</b> - Return address (<name>@<domain>)</li>" .
"<li><b>smtpTo</b> - Receiving address(es) (<name>@<domain>)</li>" .
"<li><b>smtpPort</b> - (optional) Port of outgoing Email server (default: 25)</li>" .
"<li><b>smtpCc</b> - (optional) carbon-copy receiving address(es) (<name>@<domain>)</li>" .
"<li><b>smtpNoUseSSL</b> - (optional) \"1\" if no SSL encryption should be used for Email shipping (default: 0)</li>" .
"<li><b>smtpSSLPort</b> - (optional) Port for SSL encrypted connection (default: 465)</li>" .
"<li><b>smtpDebug</b> - (optional) switch on the debugging of SMTP connection</li>" .
"</ul>" .
"For further information please see description of the <a href=\"https://fhem.de/commandref.html#SSCamattr\">attributes</a>." .
"<br><br>" ,
"6" = > "There are some Icons in directory www/images/sscam available for SSCam. Thereby the system can use the icons please do: <br>" .
"<ul><li> in FHEMWEB device attribute <b>iconPath</b> complete with \"sscam\". e.g.: attr WEB iconPath default:fhemSVG:openautomation:sscam </li></ul>" .
"After that execute \"rereadicons\" or restart FHEM. " .
"<br><br>" ,
"5" = > "Find more Informations about manage users and the appropriate privilege profiles in " .
"<a href=\"https://www.synology.com/en-global/knowledgebase/Surveillance/help/SurveillanceStation/user\">Surveillance Station online help</a> " .
"<br><br>" ,
"4" = > "The message Meldung \"WARNING - The current/simulated SVS-version ... may be incompatible with SSCam version...\" means that " .
"the used SSCam version was currently not tested or (partially) incompatible with the installed version of Synology Surveillance Station (Reading \"SVSversion\"). " .
"The compatible SVS-Version is printed out in the Internal COMPATIBILITY.\n" .
"<b>Actions:</b> At first please update your SSCam version. If the message does appear furthermore, please inform the SSCam Maintainer. " .
"To ignore this message temporary, you may reduce the verbose level of your SSCam device. " .
"<br><br>" ,
"3" = > "Link to SSCam <a href=\"https://fhem.de/commandref.html#SSCam\">english commandRef</a> " .
"<br><br>" ,
"2" = > "You can create own PTZ-control icons with a template available in SVN which can be downloaded here: <a href=\"https://svn.fhem.de/trac/browser/trunk/fhem/contrib/sscam\">contrib/sscam/black_btn_CAM_Template.pdn</a>.\n" .
"This template can be edited with Paint.Net for example. " .
"<br><br>" ,
"1" = > "Some helpful <a href=\"https://wiki.fhem.de/wiki/SSCAM_-_Steuerung_von_Kameras_in_Synology_Surveillance_Station\">FHEM-Wiki</a> notes" .
"<br><br>" ,
) ;
#############################################################################################
# Hint Hash DE
#############################################################################################
my % vHintsExt_de = (
"9" = > "Weitere Informationen zum Versand von Schnappschüssen und Aufnahmen mit dem Synology Chat Server findet man im " .
"<a href=\"https://wiki.fhem.de/wiki/SSCAM_-_Steuerung_von_Kameras_in_Synology_Surveillance_Station#Versand_von_Aufnahmen_und_Schnappsch.C3.BCssen_mit_Synology_Chat_.28SSChatBot.29\">Wiki</a>. " .
"Ergänzend dazu Hinweise zur Einrichtung und Administration des Synology Chat Servers im " .
"<a href=\"https://www.synology.com/de-de/knowledgebase/DSM/help/Chat/chat_desc\">Support-Center</a>. <br><br>" ,
"8" = > "Link zur offiziellen <a href=\"https://community.synology.com/forum/3\">Surveillance Forum</a> Seite innerhalb der Synology Community" .
"<br><br>" ,
"7" = > "<b>Einstellung Email-Versand <br>" .
"========================= </b> <br><br>" .
"Schnappschüsse können nach der Erstellung per <b>Email</b> gemeinsam versendet werden. Dazu enthält das Modul einen<br>" .
"eigenen Email-Client.<br>" .
"Zur Verwendung dieser Funktion muss das Perl-Modul <b>MIME::Lite</b> installiert sein. Auf Debian-Systemen kann " .
"es mit" .
"<ul>" .
"<b>sudo apt-get install libmime-lite-perl</b>" .
"</ul>" .
"installiert werden. <br><br>" .
"Für die Verwendung des Email-Versands müssen einige Attribute gesetzt oder können optional genutzt werden.<br>" .
"Die Credentials für den Zugang zum Email-Server müssen mit dem Befehl <b>\"set <name> smtpcredentials <user> <password>\"</b><br>" .
"gesetzt werden. Der Verbindungsaufbau zum Postausgangsserver erfolgt initial unverschüsselt und wechselt zu einer verschlüsselten<br>" .
"Verbindung wenn SSL zur Verfügung steht. In diesem Fall erfolgt auch die Übermittlung von User/Password verschlüsselt.<br>" .
"Ist das Attribut \"smtpSSLPort\" definiert, erfolgt der Verbindungsaufbau zum Email-Server sofort verschlüsselt.<br><br>" .
"Optionale Attribute sind gekennzeichnet: <br><br>" .
"<ul>" .
"<li><b>snapEmailTxt</b> - <b>Aktiviert den Email-Versand</b>. Das Attribut hat das Format:<br>" .
"<ul><b>subject => <Betreff-Text>, body => <Mitteilung-Text></b></ul>" .
"Es können die Platzhalter \$CAM, \$DATE und \$TIME verwendet werden. <br>" .
"\$CAM wird durch den Device-Namen, Device-Alias bzw. den Namen der Kamera in der SVS ersetzt falls der<br>" .
"Device-Alias nicht gesetzt ist. <br>" .
"\$DATE und \$TIME werden durch das aktuelle Datum und Zeit ersetzt.</li>" .
"<li><b>smtpHost</b> - Hostname oder IP-Adresse des Postausgangsservers (z.B. securesmtp.t-online.de)</li>" .
"<li><b>smtpFrom</b> - Absenderadresse (<name>\@<domain>)</li>" .
"<li><b>smtpTo</b> - Empfängeradresse(n) (<name>\@<domain>)</li>" .
"<li><b>smtpPort</b> - (optional) Port des Postausgangsservers (default: 25)</li>" .
"<li><b>smtpCc</b> - (optional) Carbon-Copy Empfängeradresse(n) (<name>\@<domain>)</li>" .
"<li><b>smtpNoUseSSL</b> - (optional) \"1\" wenn kein SSL beim Email-Versand verwendet werden soll (default: 0)</li>" .
"<li><b>smtpSSLPort</b> - (optional) SSL-Port des Postausgangsservers (default: 465)</li>" .
"<li><b>smtpDebug</b> - (optional) zum Debugging der SMTP-Verbindung setzen</li>" .
"</ul>" .
"Zur näheren Erläuterung siehe Beschreibung der <a href=\"https://fhem.de/commandref_DE.html#SSCamattr\">Attribute</a>." .
"<br><br>" ,
"6" = > "Für SSCam wird ein Satz Icons im Verzeichnis www/images/sscam zur Verfügung gestellt. Damit das System sie findet bitte setzen: <br>" .
"<ul><li> im FHEMWEB Device Attribut <b>iconPath</b> um \"sscam\" ergänzen. z.B.: attr WEB iconPath default:fhemSVG:openautomation:sscam </li></ul>" .
"Danach ein \"rereadicons\" bzw. einen FHEM restart ausführen." .
"<br><br>" ,
"5" = > "Informationen zum Management von Usern und entsprechenden Rechte-Profilen sind in der " .
"<a href=\"https://www.synology.com/de-de/knowledgebase/Surveillance/help/SurveillanceStation/user\">Surveillance Station Online-Hilfe</a> zu finden." .
"<br><br>" ,
"4" = > "Die Meldung \"WARNING - The current/simulated SVS-version ... may be incompatible with SSCam version...\" ist ein Hinweis darauf, dass " .
"die eingesetzte SSCam Version noch nicht mit der verwendeten Version von Synology Surveillance Station (Reading \"SVSversion\") getestet " .
"wurde oder (teilweise) mit dieser Version nicht kompatibel ist. Die kompatible SVS-Version ist im Internal COMPATIBILITY ersichtlich.\n" .
"<b>Maßnahmen:</b> Bitte SSCam zunächst updaten. Sollte die Meldung weiterhin auftreten, bitte den SSCam Maintainer informieren. Zur " .
"vorübergehenden Ignorierung kann der verbose Level des SSCam-Devices entsprechend reduziert werden. " .
"<br><br>" ,
"3" = > "Link zur deutschen SSCam <a href=\"https://fhem.de/commandref_DE.html#SSCam\">commandRef</a> " .
"<br><br>" ,
"2" = > "Zur Erstellung eigener PTZ-Steuericons gibt es eine Vorlage im SVN die hier <a href=\"https://svn.fhem.de/trac/browser/trunk/fhem/contrib/sscam\">contrib/sscam/black_btn_CAM_Template.pdn</a> heruntergeladen werden kann.\n" .
"Diese Vorlage kann zum Beispiel mit Paint.Net bearbeitet werden. " .
"<br><br>" ,
"1" = > "Hilfreiche Hinweise zu SSCam im <a href=\"https://wiki.fhem.de/wiki/SSCAM_-_Steuerung_von_Kameras_in_Synology_Surveillance_Station\">FHEM-Wiki</a>" .
"<br><br>" ,
) ;
2018-12-30 20:20:27 +00:00
################################################################
2020-06-28 18:49:16 +00:00
sub Initialize {
2020-06-21 20:37:08 +00:00
my $ hash = shift ;
2020-06-28 18:49:16 +00:00
$ hash - > { DefFn } = \ & Define ;
$ hash - > { UndefFn } = \ & Undef ;
$ hash - > { DeleteFn } = \ & Delete ;
$ hash - > { SetFn } = \ & Set ;
$ hash - > { GetFn } = \ & Get ;
$ hash - > { AttrFn } = \ & Attr ;
$ hash - > { DelayedShutdownFn } = \ & delayedShutdown ;
2018-11-20 23:30:55 +00:00
# Aufrufe aus FHEMWEB
2020-06-28 18:49:16 +00:00
$ hash - > { FW_summaryFn } = \ & FWsummaryFn ;
$ hash - > { FW_detailFn } = \ & FWdetailFn ;
2018-11-20 23:30:55 +00:00
$ hash - > { FW_deviceOverview } = 1 ;
2019-10-26 18:41:42 +00:00
$ hash - > { AttrList } = "disable:1,0 " .
"debugactivetoken:1,0 " .
"debugCachetime:1,0 " .
"genericStrmHtmlTag " .
"hlsNetScript:1,0 " .
"hlsStrmObject " .
"httptimeout " .
"htmlattr " .
"livestreamprefix " .
"loginRetries:1,2,3,4,5,6,7,8,9,10 " .
"pollcaminfoall " .
2019-12-11 21:16:03 +00:00
"recChatTxt " .
2019-10-26 18:41:42 +00:00
"recEmailTxt " .
"recTelegramTxt " .
"rectime " .
"recextend:1,0 " .
"smtpCc " .
"smtpDebug:1,0 " .
"smtpFrom " .
"smtpHost " .
"smtpPort " .
"smtpSSLPort " .
"smtpTo " .
"smtpNoUseSSL:1,0 " .
2019-12-09 20:51:32 +00:00
"snapChatTxt " .
2019-10-26 18:41:42 +00:00
"snapEmailTxt " .
"snapTelegramTxt " .
"snapGalleryBoost:0,1 " .
"snapGallerySize:Icon,Full " .
2020-06-28 18:49:16 +00:00
"snapGalleryNumber:$defSnum " .
2019-10-26 18:41:42 +00:00
"snapGalleryColumns " .
"snapGalleryHtmlAttr " .
"snapReadingRotate:0,1,2,3,4,5,6,7,8,9,10 " .
"cacheServerParam " .
"cacheType:file,internal,mem,rawmem,redis " .
"pollnologging:1,0 " .
"noQuotesForSID:1,0 " .
"session:SurveillanceStation,DSM " .
"showPassInLog:1,0 " .
"showStmInfoFull:1,0 " .
"simu_SVSversion:7.2-xxxx,7.1-xxxx,8.0.0-xxxx,8.1.5-xxxx,8.2.0-xxxx " .
"videofolderMap " .
"webCmd " .
$ readingFnAttributes ;
2018-11-20 23:30:55 +00:00
2020-07-10 15:16:12 +00:00
eval { FHEM::Meta:: InitMod ( __FILE__ , $ hash ) } ; ## no critic 'eval' # für Meta.pm (https://forum.fhem.de/index.php/topic,97589.0.html)
2019-03-27 21:13:13 +00:00
return ;
2018-11-20 23:30:55 +00:00
}
################################################################
2020-06-28 18:49:16 +00:00
sub Define {
2018-11-20 23:30:55 +00:00
# Die Define-Funktion eines Moduls wird von Fhem aufgerufen wenn der Define-Befehl für ein Gerät ausgeführt wird
# Welche und wie viele Parameter akzeptiert werden ist Sache dieser Funktion. Die Werte werden nach dem übergebenen Hash in ein Array aufgeteilt
# define CamCP1 SSCAM Carport 192.168.2.20 [5000]
# ($hash) [1] [2] [3] [4]
#
2020-06-28 18:49:16 +00:00
my $ hash = shift ;
my $ def = shift ;
my $ name = $ hash - > { NAME } ;
2018-11-20 23:30:55 +00:00
return "Error: Perl module " . $ SScamMMDBI . " is missing. Install it on Debian with: sudo apt-get install libjson-perl" if ( $ SScamMMDBI ) ;
my @ a = split ( "[ \t][ \t]*" , $ def ) ;
if ( int ( @ a ) < 4 ) {
2019-10-10 19:10:13 +00:00
return "You need to specify more parameters.\n" . "Format: define <name> SSCAM <Cameraname> <ServerAddress> [Port]" ;
}
2018-11-20 23:30:55 +00:00
my $ camname = $ a [ 2 ] ;
my $ serveraddr = $ a [ 3 ] ;
2020-06-28 18:49:16 +00:00
my $ serverport = $ a [ 4 ] ? $ a [ 4 ] : 5000 ;
2018-11-20 23:30:55 +00:00
my $ proto = $ a [ 5 ] ? lc ( $ a [ 5 ] ) : "http" ;
2020-06-28 18:49:16 +00:00
$ hash - > { SERVERADDR } = $ serveraddr ;
$ hash - > { SERVERPORT } = $ serverport ;
$ hash - > { CAMNAME } = $ camname ;
2020-07-01 22:12:15 +00:00
$ hash - > { MODEL } = ( $ camname =~ m/^SVS$/xi ) ? "SVS" : "CAM" ; # initial, CAM wird später ersetzt durch CamModel
2020-06-28 18:49:16 +00:00
$ hash - > { PROTOCOL } = $ proto ;
$ hash - > { COMPATIBILITY } = $ compstat ; # getestete SVS-version Kompatibilität
$ hash - > { HELPER } { MODMETAABSENT } = 1 if ( $ modMetaAbsent ) ; # Modul Meta.pm nicht vorhanden
2018-11-20 23:30:55 +00:00
# benötigte API's in $hash einfügen
$ hash - > { HELPER } { APIINFO } = "SYNO.API.Info" ; # Info-Seite für alle API's, einzige statische Seite !
$ hash - > { HELPER } { APIAUTH } = "SYNO.API.Auth" ; # API used to perform session login and logout
$ hash - > { HELPER } { APISVSINFO } = "SYNO.SurveillanceStation.Info" ;
$ hash - > { HELPER } { APIEVENT } = "SYNO.SurveillanceStation.Event" ;
$ hash - > { HELPER } { APIEXTREC } = "SYNO.SurveillanceStation.ExternalRecording" ;
$ hash - > { HELPER } { APIEXTEVT } = "SYNO.SurveillanceStation.ExternalEvent" ;
$ hash - > { HELPER } { APICAM } = "SYNO.SurveillanceStation.Camera" ; # stark geändert ab API v2.8
2018-12-31 14:26:04 +00:00
$ hash - > { HELPER } { APISNAPSHOT } = "SYNO.SurveillanceStation.SnapShot" ; # This API provides functions on snapshot, including taking, editing and deleting snapshots.
2018-11-20 23:30:55 +00:00
$ hash - > { HELPER } { APIPTZ } = "SYNO.SurveillanceStation.PTZ" ;
$ hash - > { HELPER } { APIPRESET } = "SYNO.SurveillanceStation.PTZ.Preset" ;
$ hash - > { HELPER } { APICAMEVENT } = "SYNO.SurveillanceStation.Camera.Event" ;
$ hash - > { HELPER } { APIVIDEOSTM } = "SYNO.SurveillanceStation.VideoStreaming" ; # verwendet in Response von "SYNO.SurveillanceStation.Camera: GetLiveViewPath" -> StreamKey-Methode
# $hash->{HELPER}{APISTM} = "SYNO.SurveillanceStation.Streaming"; # provides methods to get Live View or Event video stream, removed in API v2.8
$ hash - > { HELPER } { APISTM } = "SYNO.SurveillanceStation.Stream" ; # Beschreibung ist falsch und entspricht "SYNO.SurveillanceStation.Streaming" auch noch ab v2.8
$ hash - > { HELPER } { APIHM } = "SYNO.SurveillanceStation.HomeMode" ;
$ hash - > { HELPER } { APILOG } = "SYNO.SurveillanceStation.Log" ;
2018-12-31 14:26:04 +00:00
$ hash - > { HELPER } { APIAUDIOSTM } = "SYNO.SurveillanceStation.AudioStream" ; # Audiostream mit SID, removed in API v2.8 (noch undokumentiert verfügbar)
$ hash - > { HELPER } { APIVIDEOSTMS } = "SYNO.SurveillanceStation.VideoStream" ; # Videostream mit SID, removed in API v2.8 (noch undokumentiert verfügbar)
$ hash - > { HELPER } { APIREC } = "SYNO.SurveillanceStation.Recording" ; # This API provides method to query recording information.
2018-11-20 23:30:55 +00:00
# Startwerte setzen
2020-07-16 06:14:56 +00:00
if ( IsModelCam ( $ hash ) ) { # initiale Webkommandos setzen
$ attr { $ name } { webCmd } = "on:off:snap:enable:disable:runView:stopView" ;
2018-11-20 23:30:55 +00:00
} else {
$ attr { $ name } { webCmd } = "homeMode" ;
2020-06-28 18:49:16 +00:00
$ attr { $ name } { webCmdLabel } = "HomeMode" ;
2018-11-20 23:30:55 +00:00
}
$ hash - > { HELPER } { ACTIVE } = "off" ; # Funktionstoken "off", Funktionen können sofort starten
$ hash - > { HELPER } { OLDVALPOLLNOLOGGING } = "0" ; # Loggingfunktion für Polling ist an
$ hash - > { HELPER } { OLDVALPOLL } = "0" ;
$ hash - > { HELPER } { RECTIME_DEF } = "15" ; # Standard für rectime setzen, überschreibbar durch Attribut "rectime" bzw. beim "set .. on-for-time"
$ hash - > { HELPER } { OLDPTZHOME } = "" ;
$ hash - > { ".ptzhtml" } = "" ;
$ hash - > { HELPER } { HLSSTREAM } = "inactive" ; # Aktivitätsstatus HLS-Streaming
$ hash - > { HELPER } { SNAPLIMIT } = 0 ; # abgerufene Anzahl Snaps
$ hash - > { HELPER } { TOTALCNT } = 0 ; # totale Anzahl Snaps
2019-03-27 21:13:13 +00:00
# Versionsinformationen setzen
2020-06-28 18:49:16 +00:00
setVersionInfo ( $ hash ) ;
2019-03-27 21:13:13 +00:00
2020-06-28 18:49:16 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "PollState" , "Inactive" ) ; # es ist keine Gerätepolling aktiv
if ( IsModelCam ( $ hash ) ) {
readingsBulkUpdate ( $ hash , "Availability" , "???" ) ; # Verfügbarkeit ist unbekannt
readingsBulkUpdate ( $ hash , "state" , "off" ) ; # Init für "state" , Problemlösung für setstate, Forum #308
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
readingsBulkUpdate ( $ hash , "state" , "Initialized" ) ; # Init für "state" wenn SVS
2018-11-20 23:30:55 +00:00
}
readingsEndUpdate ( $ hash , 1 ) ;
2020-06-28 18:49:16 +00:00
getCredentials ( $ hash , 1 , "svs" ) ; # Credentials lesen und in RAM laden ($boot=1)
getCredentials ( $ hash , 1 , "smtp" ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
# initiale Routinen zufällig verzögert nach Restart ausführen
RemoveInternalTimer ( $ hash , "FHEM::SSCam::initOnBoot" ) ;
InternalTimer ( gettimeofday ( ) + int ( rand ( 30 ) ) , "FHEM::SSCam::initOnBoot" , $ hash , 0 ) ;
2018-11-20 23:30:55 +00:00
2020-06-21 20:37:08 +00:00
return ;
2018-11-20 23:30:55 +00:00
}
2019-03-25 22:23:11 +00:00
################################################################
# Die Undef-Funktion wird aufgerufen wenn ein Gerät mit delete
# gelöscht wird oder bei der Abarbeitung des Befehls rereadcfg,
# der ebenfalls alle Geräte löscht und danach das
# Konfigurationsfile neu einliest.
2019-03-26 21:46:09 +00:00
# Funktion: typische Aufräumarbeiten wie das
2019-03-25 22:23:11 +00:00
# saubere Schließen von Verbindungen oder das Entfernen von
# internen Timern, sofern diese im Modul zum Pollen verwendet
# wurden.
2018-11-20 23:30:55 +00:00
################################################################
2020-06-28 18:49:16 +00:00
sub Undef {
2020-06-21 20:37:08 +00:00
my $ hash = shift ;
my $ arg = shift ;
2019-09-21 13:03:06 +00:00
my $ name = $ hash - > { NAME } ;
2019-03-25 22:23:11 +00:00
2018-12-30 20:20:27 +00:00
RemoveInternalTimer ( $ hash ) ;
2020-06-21 20:37:08 +00:00
return ;
2018-11-20 23:30:55 +00:00
}
2019-03-25 22:23:11 +00:00
#######################################################################################################
# Mit der X_DelayedShutdown Funktion kann eine Definition das Stoppen von FHEM verzögern um asynchron
2019-04-07 10:20:19 +00:00
# hinter sich aufzuräumen.
# Je nach Rückgabewert $delay_needed wird der Stopp von FHEM verzögert (0|1).
2019-03-25 22:23:11 +00:00
# Sobald alle nötigen Maßnahmen erledigt sind, muss der Abschluss mit CancelDelayedShutdown($name) an
# FHEM zurückgemeldet werden.
#######################################################################################################
2020-06-28 18:49:16 +00:00
sub delayedShutdown {
2020-06-21 20:37:08 +00:00
my $ hash = shift ;
my $ name = $ hash - > { NAME } ;
2019-03-25 22:23:11 +00:00
2019-04-07 10:20:19 +00:00
Log3 ( $ name , 2 , "$name - Quit session due to shutdown ..." ) ;
2019-10-26 18:41:42 +00:00
$ hash - > { HELPER } { ACTIVE } = "on" ; # keine weiteren Aktionen erlauben
2020-06-28 18:49:16 +00:00
logout ( $ hash ) ;
2019-10-26 18:41:42 +00:00
if ( $ hash - > { HELPER } { CACHEKEY } ) {
2020-06-28 18:49:16 +00:00
cache ( $ name , "c_destroy" ) ;
2019-10-26 18:41:42 +00:00
}
delete $ data { SSCam } { $ name } ; # internen cache löschen
2019-03-25 22:23:11 +00:00
2019-03-26 21:46:09 +00:00
return 1 ;
2019-03-25 22:23:11 +00:00
}
#################################################################
# Wenn ein Gerät in FHEM gelöscht wird, wird zuerst die Funktion
# X_Undef aufgerufen um offene Verbindungen zu schließen,
# anschließend wird die Funktion X_Delete aufgerufen.
# Funktion: Aufräumen von dauerhaften Daten, welche durch das
# Modul evtl. für dieses Gerät spezifisch erstellt worden sind.
# Es geht hier also eher darum, alle Spuren sowohl im laufenden
# FHEM-Prozess, als auch dauerhafte Daten bspw. im physikalischen
# Gerät zu löschen die mit dieser Gerätedefinition zu tun haben.
#################################################################
2020-06-28 18:49:16 +00:00
sub Delete {
2020-06-21 20:37:08 +00:00
my $ hash = shift ;
my $ arg = shift ;
2018-11-20 23:30:55 +00:00
my $ index = $ hash - > { TYPE } . "_" . $ hash - > { NAME } . "_credentials" ;
my $ name = $ hash - > { NAME } ;
2020-06-28 18:49:16 +00:00
setKeyValue ( $ index , undef ) ; # gespeicherte Credentials löschen
2020-06-21 20:37:08 +00:00
2020-06-28 18:49:16 +00:00
my $ sgdev = "SSCam.$hash->{NAME}.snapgallery" ; # löschen snapGallerie-Device falls vorhanden
2018-11-20 23:30:55 +00:00
CommandDelete ( $ hash - > { CL } , "$sgdev" ) ;
2020-06-28 18:49:16 +00:00
CommandDelete ( $ hash - > { CL } , "TYPE=SSCamSTRM:FILTER=PARENT=$name" ) ; # alle zugeordneten Streaming-Devices löschen falls vorhanden
2018-11-20 23:30:55 +00:00
2020-06-21 20:37:08 +00:00
return ;
2018-11-20 23:30:55 +00:00
}
################################################################
2020-06-28 18:49:16 +00:00
sub Attr {
2018-11-20 23:30:55 +00:00
my ( $ cmd , $ name , $ aName , $ aVal ) = @ _ ;
my $ hash = $ defs { $ name } ;
2020-06-28 18:49:16 +00:00
2019-10-26 18:41:42 +00:00
my ( $ do , $ val , $ cache ) ;
2018-11-20 23:30:55 +00:00
# $cmd can be "del" or "set"
# $name is device name
# aName and aVal are Attribute name and value
2019-01-04 21:14:37 +00:00
if ( $ aName eq "session" ) {
2020-06-28 18:49:16 +00:00
delete $ hash - > { HELPER } { SID } ;
2019-01-04 21:14:37 +00:00
}
2020-07-01 22:12:15 +00:00
if ( $ aName =~ /hlsNetScript/x && IsModelCam ( $ hash ) ) {
2018-12-30 20:20:27 +00:00
return " The attribute \"$aName\" is only valid for devices of type \"SVS\"! Please set this attribute in a device of this type." ;
}
2020-07-01 22:12:15 +00:00
if ( $ aName =~ /snapReadingRotate/x && ! IsModelCam ( $ hash ) ) {
2019-01-20 08:46:09 +00:00
return " The attribute \"$aName\" is not valid for devices of type \"SVS\"!." ;
}
2018-11-20 23:30:55 +00:00
# dynamisch PTZ-Attribute setzen (wichtig beim Start wenn Reading "DeviceType" nicht gesetzt ist)
2020-07-01 22:12:15 +00:00
if ( $ cmd eq "set" && ( $ aName =~ m/ptzPanel_/x ) ) {
2020-06-30 21:16:26 +00:00
for my $ n ( 0 .. 9 ) {
2018-11-20 23:30:55 +00:00
$ n = sprintf ( "%2.2d" , $ n ) ;
addToDevAttrList ( $ name , "ptzPanel_row$n" ) ;
}
addToDevAttrList ( $ name , "ptzPanel_iconPrefix" ) ;
addToDevAttrList ( $ name , "ptzPanel_iconPath" ) ;
}
2020-07-01 22:12:15 +00:00
if ( $ aName =~ m/ptzPanel_row|ptzPanel_Home|ptzPanel_use/x ) {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 0.7 , "FHEM::SSCam::addptzattr" , "$name" , 0 ) ;
2018-11-20 23:30:55 +00:00
}
if ( $ aName eq "disable" ) {
2020-06-28 18:49:16 +00:00
my $ iscam = IsModelCam ( $ hash ) ;
2018-11-20 23:30:55 +00:00
if ( $ cmd eq "set" ) {
$ do = ( $ aVal ) ? 1 : 0 ;
}
$ do = 0 if ( $ cmd eq "del" ) ;
2020-06-28 18:49:16 +00:00
if ( IsModelCam ( $ hash ) ) {
2018-11-20 23:30:55 +00:00
$ val = ( $ do == 1 ? "inactive" : "off" ) ;
2020-06-28 18:49:16 +00:00
} else {
$ val = ( $ do == 1 ? "inactive" : "initialized" ) ;
}
if ( $ do == 1 ) {
RemoveInternalTimer ( $ hash ) ;
} else {
InternalTimer ( gettimeofday ( ) + int ( rand ( 30 ) ) , "FHEM::SSCam::initOnBoot" , $ hash , 0 ) ;
}
2018-11-20 23:30:55 +00:00
2020-06-30 21:16:26 +00:00
readingsSingleUpdate ( $ hash , "state" , $ imc { $ iscam } { $ do } , 1 ) ;
readingsSingleUpdate ( $ hash , "PollState" , "Inactive" , 1 ) if ( $ do == 1 ) ;
readingsSingleUpdate ( $ hash , "Availability" , "???" , 1 ) if ( $ do == 1 && IsModelCam ( $ hash ) ) ;
2018-11-20 23:30:55 +00:00
}
2019-10-26 18:41:42 +00:00
if ( $ aName =~ m/cacheType/ ) {
my $ type = AttrVal ( $ name , "cacheType" , "internal" ) ;
if ( $ cmd eq "set" ) {
if ( $ aVal ne "internal" ) {
if ( $ SScamMMCHI ) {
2020-06-28 18:49:16 +00:00
return "Perl cache module " . $ SScamMMCHI . " is missing. You need to install it with the FHEM Installer for example." ;
}
2019-10-26 18:41:42 +00:00
if ( $ aVal eq "redis" ) {
if ( $ SScamMMCHIRedis ) {
return "Perl cache module " . $ SScamMMCHIRedis . " is missing. You need to install it with the FHEM Installer for example." ;
}
if ( ! AttrVal ( $ name , "cacheServerParam" , "" ) ) {
return "For cacheType \"$aVal\" you must set first attribute \"cacheServerParam\" for Redis server connection: <Redis-server address>:<Redis-server port>" ;
}
}
if ( $ aVal eq "file" ) {
if ( $ SScamMMCacheCache ) {
return "Perl cache module " . $ SScamMMCacheCache . " is missing. You need to install it with the FHEM Installer for example." ;
}
}
}
if ( $ aVal ne $ type ) {
if ( $ hash - > { HELPER } { CACHEKEY } ) {
2020-06-28 18:49:16 +00:00
cache ( $ name , "c_destroy" ) ; # CHI-Cache löschen/entfernen
2019-10-26 18:41:42 +00:00
} else {
delete $ data { SSCam } { $ name } ; # internen Cache löschen
}
}
} else {
if ( $ hash - > { HELPER } { CACHEKEY } ) {
2020-06-28 18:49:16 +00:00
cache ( $ name , "c_destroy" ) ; # CHI-Cache löschen/entfernen
2019-10-26 18:41:42 +00:00
}
}
}
2018-11-20 23:30:55 +00:00
if ( $ aName eq "showStmInfoFull" ) {
if ( $ cmd eq "set" ) {
$ do = ( $ aVal ) ? 1 : 0 ;
}
$ do = 0 if ( $ cmd eq "del" ) ;
if ( $ do == 0 ) {
delete ( $ defs { $ name } { READINGS } { StmKeymjpegHttp } ) ;
delete ( $ defs { $ name } { READINGS } { LiveStreamUrl } ) ;
delete ( $ defs { $ name } { READINGS } { StmKeyUnicst } ) ;
2020-06-28 18:49:16 +00:00
delete ( $ defs { $ name } { READINGS } { StmKeyUnicstOverHttp } ) ;
delete ( $ defs { $ name } { READINGS } { StmKeymxpegHttp } ) ;
2018-11-20 23:30:55 +00:00
}
}
if ( $ aName eq "snapGallerySize" ) {
if ( $ cmd eq "set" ) {
$ do = ( $ aVal eq "Icon" ) ? 1 : 2 ;
}
2019-02-06 21:06:40 +00:00
$ do = 0 if ( $ cmd eq "del" ) ;
2018-11-20 23:30:55 +00:00
if ( $ do == 0 ) {
delete ( $ hash - > { HELPER } { ".SNAPHASH" } ) if ( AttrVal ( $ name , "snapGalleryBoost" , 0 ) ) ; # Snaphash nur löschen wenn Snaps gepollt werden
Log3 ( $ name , 4 , "$name - Snapshot hash deleted" ) ;
2020-06-28 18:49:16 +00:00
} elsif ( AttrVal ( $ name , "snapGalleryBoost" , 0 ) ) {
# snap-Infos abhängig ermitteln wenn gepollt werden soll
my ( $ slim , $ ssize ) ;
2019-04-28 17:20:21 +00:00
$ hash - > { HELPER } { GETSNAPGALLERY } = 1 ;
2020-06-28 18:49:16 +00:00
$ slim = AttrVal ( $ name , "snapGalleryNumber" , $ defSlim ) ; # Anzahl der abzurufenden Snaps
$ ssize = $ do ;
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getSnapInfo" ) ;
InternalTimer ( gettimeofday ( ) + 0.7 , "FHEM::SSCam::getSnapInfo" , "$name:$slim:$ssize" , 0 ) ;
}
2018-11-20 23:30:55 +00:00
}
2020-06-28 18:49:16 +00:00
2018-11-20 23:30:55 +00:00
if ( $ aName eq "snapGalleryBoost" ) {
if ( $ cmd eq "set" ) {
2020-06-28 18:49:16 +00:00
$ do = ( $ aVal == 1 ) ? 1 : 0 ;
2018-11-20 23:30:55 +00:00
}
$ do = 0 if ( $ cmd eq "del" ) ;
if ( $ do == 0 ) {
delete ( $ hash - > { HELPER } { ".SNAPHASH" } ) ; # Snaphash löschen
Log3 ( $ name , 4 , "$name - Snapshot hash deleted" ) ;
2020-06-28 18:49:16 +00:00
} else {
# snapgallery regelmäßig neu einlesen wenn Polling ein
return "When you want activate \"snapGalleryBoost\", you have to set the attribute \"pollcaminfoall\" first because of the functionality depends on retrieving snapshots periodical."
if ( ! AttrVal ( $ name , "pollcaminfoall" , 0 ) ) ;
my ( $ slim , $ ssize ) ;
2018-11-20 23:30:55 +00:00
$ hash - > { HELPER } { GETSNAPGALLERY } = 1 ;
2020-06-28 18:49:16 +00:00
$ slim = AttrVal ( $ name , "snapGalleryNumber" , $ defSlim ) ; # Anzahl der abzurufenden Snaps
my $ sg = AttrVal ( $ name , "snapGallerySize" , "Icon" ) ; # Auflösung Image
$ ssize = ( $ sg eq "Icon" ) ? 1 : 2 ;
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getSnapInfo" ) ;
InternalTimer ( gettimeofday ( ) + 0.7 , "FHEM::SSCam::getSnapInfo" , "$name:$slim:$ssize" , 0 ) ;
}
2018-11-20 23:30:55 +00:00
}
2020-06-28 18:49:16 +00:00
if ( $ aName eq "snapGalleryNumber" && AttrVal ( $ name , "snapGalleryBoost" , 0 ) ) {
my ( $ slim , $ ssize ) ;
2018-11-20 23:30:55 +00:00
if ( $ cmd eq "set" ) {
2020-06-28 18:49:16 +00:00
$ do = ( $ aVal != 0 ) ? 1 : 0 ;
2018-11-20 23:30:55 +00:00
}
$ do = 0 if ( $ cmd eq "del" ) ;
2020-06-28 18:49:16 +00:00
2018-11-20 23:30:55 +00:00
if ( $ do == 0 ) {
2020-06-28 18:49:16 +00:00
$ slim = 3 ;
} else {
$ slim = $ aVal ;
}
2018-11-20 23:30:55 +00:00
2019-04-28 17:20:21 +00:00
delete ( $ hash - > { HELPER } { ".SNAPHASH" } ) ; # bestehenden Snaphash löschen
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { GETSNAPGALLERY } = 1 ;
my $ sg = AttrVal ( $ name , "snapGallerySize" , "Icon" ) ; # Auflösung Image
$ ssize = ( $ sg eq "Icon" ) ? 1 : 2 ;
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getSnapInfo" ) ;
InternalTimer ( gettimeofday ( ) + 0.7 , "FHEM::SSCam::getSnapInfo" , "$name:$slim:$ssize" , 0 ) ;
}
2018-11-20 23:30:55 +00:00
2019-01-20 08:46:09 +00:00
if ( $ aName eq "snapReadingRotate" ) {
if ( $ cmd eq "set" ) {
$ do = ( $ aVal ) ? 1 : 0 ;
}
$ do = 0 if ( $ cmd eq "del" ) ;
if ( ! $ do ) { $ aVal = 0 }
for my $ i ( 1 .. 10 ) {
if ( $ i > $ aVal ) {
2020-06-28 18:49:16 +00:00
readingsDelete ( $ hash , "LastSnapFilename$i" ) ;
readingsDelete ( $ hash , "LastSnapId$i" ) ;
readingsDelete ( $ hash , "LastSnapTime$i" ) ;
2019-01-20 08:46:09 +00:00
}
}
}
2018-11-20 23:30:55 +00:00
if ( $ aName eq "simu_SVSversion" ) {
2020-06-28 18:49:16 +00:00
delete $ hash - > { HELPER } { APIPARSET } ;
delete $ hash - > { HELPER } { SID } ;
delete $ hash - > { CAMID } ;
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getCaminfoAll" ) ;
InternalTimer ( gettimeofday ( ) + 0.5 , "FHEM::SSCam::getCaminfoAll" , $ hash , 0 ) ;
2018-11-20 23:30:55 +00:00
}
if ( $ aName =~ m/pollcaminfoall/ && $ init_done == 1 ) {
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getCaminfoAll" ) ;
InternalTimer ( gettimeofday ( ) + 1.0 , "FHEM::SSCam::getCaminfoAll" , $ hash , 0 ) ;
RemoveInternalTimer ( $ hash , "FHEM::SSCam::wdpollcaminfo" ) ;
InternalTimer ( gettimeofday ( ) + 1.5 , "FHEM::SSCam::wdpollcaminfo" , $ hash , 0 ) ;
2018-11-20 23:30:55 +00:00
}
if ( $ aName =~ m/pollnologging/ && $ init_done == 1 ) {
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::wdpollcaminfo" ) ;
InternalTimer ( gettimeofday ( ) + 1.0 , "FHEM::SSCam::wdpollcaminfo" , $ hash , 0 ) ;
2018-11-20 23:30:55 +00:00
}
if ( $ cmd eq "set" ) {
2020-07-10 15:16:12 +00:00
if ( $ aName =~ m/httptimeout|snapGalleryColumns|rectime|pollcaminfoall/x ) {
unless ( $ aVal =~ /^\d+$/x ) { return " The Value for $aName is not valid. Use only figures 1-9 !" ; }
2018-11-20 23:30:55 +00:00
}
2020-07-10 15:16:12 +00:00
if ( $ aName =~ m/pollcaminfoall/x ) {
2018-11-20 23:30:55 +00:00
return "The value of \"$aName\" has to be greater than 10 seconds." if ( $ aVal <= 10 ) ;
2019-10-26 18:41:42 +00:00
}
2020-07-10 15:16:12 +00:00
if ( $ aName =~ m/cacheServerParam/x ) {
2019-10-26 18:41:42 +00:00
return "Please provide the Redis server parameters in form: <Redis-server address>:<Redis-server port> or unix:</path/to/sock>" if ( $ aVal !~ /^(.*:\d+|unix:.+)$/ ) ;
2020-06-28 18:49:16 +00:00
my $ type = AttrVal ( $ name , "cacheType" , "internal" ) ;
2019-10-26 18:41:42 +00:00
if ( $ hash - > { HELPER } { CACHEKEY } && $ type eq "redis" ) {
2020-06-28 18:49:16 +00:00
cache ( $ name , "c_destroy" ) ;
2019-10-26 18:41:42 +00:00
}
2019-12-09 20:51:32 +00:00
}
2020-07-10 15:16:12 +00:00
if ( $ aName =~ m/snapChatTxt|recChatTxt/x ) {
2020-06-28 18:49:16 +00:00
return "When you want activate \"$aName\", you have to set first the attribute \"videofolderMap\" to the root folder " .
2019-12-09 20:51:32 +00:00
"of recordings and snapshots provided by an URL.\n" .
"Example: http://server.domain:8081/surveillance "
2020-06-28 18:49:16 +00:00
if ( ! AttrVal ( $ name , "videofolderMap" , "" ) && $ init_done == 1 ) ;
2019-12-09 20:51:32 +00:00
}
2018-11-20 23:30:55 +00:00
}
if ( $ cmd eq "del" ) {
2020-07-10 15:16:12 +00:00
if ( $ aName =~ m/pollcaminfoall/x ) {
2020-06-28 18:49:16 +00:00
# Polling nicht ausschalten wenn snapGalleryBoost ein (regelmäßig neu einlesen)
return "Please switch off \"snapGalleryBoost\" first if you want to deactivate \"pollcaminfoall\" because the functionality of \"snapGalleryBoost\" depends on retrieving snapshots periodical."
if ( AttrVal ( $ name , "snapGalleryBoost" , 0 ) ) ;
2018-11-20 23:30:55 +00:00
}
}
2020-06-21 20:37:08 +00:00
return ;
2018-11-20 23:30:55 +00:00
}
################################################################
2020-06-28 18:49:16 +00:00
sub Set {
2018-11-20 23:30:55 +00:00
my ( $ hash , @ a ) = @ _ ;
return "\"set X\" needs at least an argument" if ( @ a < 2 ) ;
my $ name = $ a [ 0 ] ;
my $ opt = $ a [ 1 ] ;
my $ prop = $ a [ 2 ] ;
my $ prop1 = $ a [ 3 ] ;
my $ prop2 = $ a [ 4 ] ;
my $ prop3 = $ a [ 5 ] ;
my $ camname = $ hash - > { CAMNAME } ;
my $ success ;
my $ setlist ;
return if ( IsDisabled ( $ name ) ) ;
if ( ! $ hash - > { CREDENTIALS } ) {
# initiale setlist für neue Devices
$ setlist = "Unknown argument $opt, choose one of " .
2020-06-28 18:49:16 +00:00
"credentials "
2018-11-20 23:30:55 +00:00
;
2020-06-28 18:49:16 +00:00
} elsif ( IsModelCam ( $ hash ) ) {
2018-11-20 23:30:55 +00:00
# selist für Cams
2020-06-28 18:49:16 +00:00
my $ hlslfw = IsCapHLS ( $ hash ) ? ",live_fw_hls," : "," ;
2018-11-20 23:30:55 +00:00
$ setlist = "Unknown argument $opt, choose one of " .
"credentials " .
2018-12-30 20:20:27 +00:00
"smtpcredentials " .
2018-11-20 23:30:55 +00:00
"expmode:auto,day,night " .
"on " .
"off:noArg " .
"motdetsc:disable,camera,SVS " .
2019-01-04 20:07:35 +00:00
"snap " .
2020-07-16 06:14:56 +00:00
( AttrVal ( $ name , "snapGalleryBoost" , 0 ) ? ( AttrVal ( $ name , "snapGalleryNumber" , undef ) || AttrVal ( $ name , "snapGalleryBoost" , 0 ) ) ? "snapGallery:noArg " : "snapGallery:$defSnum " : " " ) .
2020-06-28 18:49:16 +00:00
"createReadingsGroup " .
2019-01-14 23:09:42 +00:00
"createSnapGallery:noArg " .
2019-02-06 21:06:40 +00:00
"createStreamDev:generic,hls,lastsnap,mjpeg,switched " .
2018-11-20 23:30:55 +00:00
"enable:noArg " .
"disable:noArg " .
2020-06-28 18:49:16 +00:00
"optimizeParams " .
2018-11-20 23:30:55 +00:00
"runView:live_fw" . $ hlslfw . "live_link,live_open,lastrec_fw,lastrec_fw_MJPEG,lastrec_fw_MPEG4/H.264,lastrec_open,lastsnap_fw " .
"stopView:noArg " .
2020-06-28 18:49:16 +00:00
( IsCapPTZObjTrack ( $ hash ) ? "startTracking:noArg " : "" ) .
( IsCapPTZObjTrack ( $ hash ) ? "stopTracking:noArg " : "" ) .
( IsCapPTZPan ( $ hash ) ? "setPreset " : "" ) .
( IsCapPTZPan ( $ hash ) ? "setHome:---currentPosition---," . ReadingsVal ( "$name" , "Presets" , "" ) . " " : "" ) .
( IsCapPTZPan ( $ hash ) ? "delPreset:" . ReadingsVal ( "$name" , "Presets" , "" ) . " " : "" ) .
( IsCapPTZPan ( $ hash ) ? "runPatrol:" . ReadingsVal ( "$name" , "Patrols" , "" ) . " " : "" ) .
( IsCapPTZPan ( $ hash ) ? "goPreset:" . ReadingsVal ( "$name" , "Presets" , "" ) . " " : "" ) .
( IsCapPTZPan ( $ hash ) ? "createPTZcontrol:noArg " : "" ) .
( IsCapPTZAbs ( $ hash ) ? "goAbsPTZ" . " " : "" ) .
( IsCapPTZDir ( $ hash ) ? "move" . " " : "" ) .
( IsCapPIR ( $ hash ) ? "pirSensor:activate,deactivate " : "" ) .
( IsCapZoom ( $ hash ) ? "setZoom:$valZoom " : "" ) .
2020-06-21 20:37:08 +00:00
"" ;
2018-11-20 23:30:55 +00:00
} else {
# setlist für SVS Devices
$ setlist = "Unknown argument $opt, choose one of " .
2018-12-06 22:22:15 +00:00
"autocreateCams:noArg " .
2020-06-28 18:49:16 +00:00
"credentials " .
2020-07-16 06:14:56 +00:00
"createStreamDev:master " .
2019-01-14 23:09:42 +00:00
"smtpcredentials " .
2020-06-28 18:49:16 +00:00
"createReadingsGroup " .
"extevent:1,2,3,4,5,6,7,8,9,10 " .
2020-07-16 06:14:56 +00:00
( $ hash - > { HELPER } { APIHMMAXVER } ? "homeMode:on,off " : "" ) .
2019-01-14 23:09:42 +00:00
"snapCams " ;
2018-11-20 23:30:55 +00:00
}
if ( $ opt eq "credentials" ) {
return "Credentials are incomplete, use username password" if ( ! $ prop || ! $ prop1 ) ;
2020-06-28 18:49:16 +00:00
return "Password is too long. It is limited up to and including 20 characters." if ( length $ prop1 > 20 ) ;
2019-01-04 21:14:37 +00:00
delete $ hash - > { HELPER } { SID } ;
2020-06-28 18:49:16 +00:00
( $ success ) = setCredentials ( $ hash , "svs" , $ prop , $ prop1 ) ;
2018-11-20 23:30:55 +00:00
$ hash - > { HELPER } { ACTIVE } = "off" ;
2020-06-28 18:49:16 +00:00
if ( $ success ) {
getCaminfoAll ( $ hash , 0 ) ;
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getPtzPresetList" ) ;
InternalTimer ( gettimeofday ( ) + 11 , "FHEM::SSCam::getPtzPresetList" , $ hash , 0 ) ;
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getPtzPatrolList" ) ;
InternalTimer ( gettimeofday ( ) + 12 , "FHEM::SSCam::getPtzPatrolList" , $ hash , 0 ) ;
versionCheck ( $ hash ) ;
return "Username and Password saved successfully" ;
} else {
return "Error while saving Username / Password - see logfile for details" ;
}
2018-11-20 23:30:55 +00:00
}
2018-12-30 20:20:27 +00:00
if ( $ opt eq "smtpcredentials" ) {
return "Credentials are incomplete, use username password" if ( ! $ prop || ! $ prop1 ) ;
2020-06-28 18:49:16 +00:00
( $ success ) = setCredentials ( $ hash , "smtp" , $ prop , $ prop1 ) ;
if ( $ success ) {
return "SMTP-Username and SMTP-Password saved successfully" ;
} else {
return "Error while saving SMTP-Username / SMTP-Password - see logfile for details" ;
}
2018-12-30 20:20:27 +00:00
}
2020-06-28 18:49:16 +00:00
if ( $ opt eq "on" && IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
2020-07-10 15:16:12 +00:00
if ( defined ( $ prop ) && $ prop =~ /^\d+$/x ) {
2018-11-20 23:30:55 +00:00
$ hash - > { HELPER } { RECTIME_TEMP } = $ prop ;
}
2020-06-28 18:49:16 +00:00
2019-07-12 20:10:53 +00:00
my $ spec = join ( " " , @ a ) ;
2020-07-10 15:16:12 +00:00
if ( $ spec =~ /STRM:/x ) {
2020-07-12 12:31:21 +00:00
my ( $ inf ) = $ spec =~ m/STRM:(.*)/ix ; # Aufnahme durch SSCamSTRM-Device
$ hash - > { HELPER } { INFORM } = $ inf ;
2020-06-28 18:49:16 +00:00
}
2019-01-27 15:36:11 +00:00
my $ emtxt = AttrVal ( $ name , "recEmailTxt" , "" ) ;
2020-07-10 15:16:12 +00:00
if ( $ spec =~ /recEmailTxt:/x ) {
$ spec =~ m/recEmailTxt:"(.*)"/xi ;
2019-01-27 15:36:11 +00:00
$ emtxt = $ 1 ;
}
if ( $ emtxt ) {
# Recording soll nach Erstellung per Email versendet werden
# recEmailTxt muss sein: subject => <Subject-Text>, body => <Body-Text>
if ( ! $ hash - > { SMTPCREDENTIALS } ) { return "Due to \"recEmailTxt\" is set, you want to send recordings by email but SMTP credentials are not set - make sure you've set credentials with \"set $name smtpcredentials username password\"" ; }
$ hash - > { HELPER } { SMTPRECMSG } = $ emtxt ;
}
2019-02-12 20:26:31 +00:00
my $ teletxt = AttrVal ( $ name , "recTelegramTxt" , "" ) ;
2020-07-10 15:16:12 +00:00
if ( $ spec =~ /recTelegramTxt:/x ) {
$ spec =~ m/recTelegramTxt:"(.*)"/xi ;
2019-02-12 20:26:31 +00:00
$ teletxt = $ 1 ;
}
if ( $ teletxt ) {
2020-06-28 18:49:16 +00:00
# Recording soll nach Erstellung per TelegramBot versendet werden
# Format $teletxt muss sein: recTelegramTxt:"tbot => <teleBot Device>, peers => <peer1 peer2 ..>, subject => <Beschreibungstext>"
2019-02-12 20:26:31 +00:00
$ hash - > { HELPER } { TELERECMSG } = $ teletxt ;
}
2019-12-11 21:16:03 +00:00
my $ chattxt = AttrVal ( $ name , "recChatTxt" , "" ) ;
2020-07-10 15:16:12 +00:00
if ( $ spec =~ /recChatTxt:/x ) {
$ spec =~ m/recChatTxt:"(.*)"/xi ;
2019-12-11 21:16:03 +00:00
$ chattxt = $ 1 ;
}
if ( $ chattxt ) {
2020-06-28 18:49:16 +00:00
# Recording soll nach Erstellung per SSChatBot versendet werden
# Format $chattxt muss sein: recChatTxt:"chatbot => <SSChatBot Device>, peers => <peer1 peer2 ..>, subject => <Beschreibungstext>"
2019-12-11 21:16:03 +00:00
$ hash - > { HELPER } { CHATRECMSG } = $ chattxt ;
}
2019-02-12 20:26:31 +00:00
2020-06-28 18:49:16 +00:00
camStartRec ( "$name!_!$emtxt!_!$teletxt!_!$chattxt" ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "off" && IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
2019-07-12 20:10:53 +00:00
my $ spec = join ( " " , @ a ) ;
2020-07-10 15:16:12 +00:00
if ( $ spec =~ /STRM:/x ) {
$ spec =~ m/STRM:(.*)/xi ; # Aufnahmestop durch SSCamSTRM-Device
2019-07-12 20:10:53 +00:00
$ hash - > { HELPER } { INFORM } = $ 1 ;
}
2020-06-28 18:49:16 +00:00
camStopRec ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "snap" && IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
2019-01-06 08:23:36 +00:00
2019-02-01 15:00:29 +00:00
my ( $ num , $ lag , $ ncount ) = ( 1 , 2 , 1 ) ;
2020-07-10 15:16:12 +00:00
if ( $ prop && $ prop =~ /^\d+$/x ) { # Anzahl der Schnappschüsse zu triggern (default: 1)
2019-01-07 17:50:07 +00:00
$ num = $ prop ;
$ ncount = $ prop ;
2019-01-06 08:23:36 +00:00
}
2020-07-10 15:16:12 +00:00
if ( $ prop1 && $ prop1 =~ /^\d+$/x ) { # Zeit zwischen zwei Schnappschüssen (default: 2 Sekunden)
2019-01-06 08:23:36 +00:00
$ lag = $ prop1 ;
}
2019-01-16 23:49:55 +00:00
2019-07-12 20:10:53 +00:00
Log3 ( $ name , 4 , "$name - Trigger snapshots - Number: $num, Lag: $lag" ) ;
2020-06-28 18:49:16 +00:00
2019-07-12 20:10:53 +00:00
my $ spec = join ( " " , @ a ) ;
2020-07-10 15:16:12 +00:00
if ( $ spec =~ /STRM:/x ) {
$ spec =~ m/STRM:(.*)/xi ; # Snap by SSCamSTRM-Device
2019-07-12 20:10:53 +00:00
$ hash - > { HELPER } { INFORM } = $ 1 ;
2020-06-28 18:49:16 +00:00
}
2019-02-06 21:06:40 +00:00
2019-02-01 15:00:29 +00:00
my $ emtxt = AttrVal ( $ name , "snapEmailTxt" , "" ) ;
2020-07-10 15:16:12 +00:00
if ( $ spec =~ /snapEmailTxt:/x ) {
$ spec =~ m/snapEmailTxt:"(.*)"/xi ;
2019-01-07 18:10:44 +00:00
$ emtxt = $ 1 ;
2019-01-04 21:14:37 +00:00
}
2019-02-01 15:00:29 +00:00
if ( $ emtxt ) {
2018-12-30 20:20:27 +00:00
# Snap soll nach Erstellung per Email versendet werden
2019-02-01 15:00:29 +00:00
# Format $emtxt muss sein: snapEmailTxt:"subject => <Subject-Text>, body => <Body-Text>"
2019-02-03 06:36:15 +00:00
if ( ! $ hash - > { SMTPCREDENTIALS } ) { return "It seems you want to send snapshots by email but SMTP credentials are not set - make sure you've set credentials with \"set $name smtpcredentials username password\"" ; }
2019-02-01 15:00:29 +00:00
$ hash - > { HELPER } { SMTPMSG } = $ emtxt ;
}
2020-06-28 18:49:16 +00:00
2019-02-01 15:00:29 +00:00
my $ teletxt = AttrVal ( $ name , "snapTelegramTxt" , "" ) ;
2020-07-10 15:16:12 +00:00
if ( $ spec =~ /snapTelegramTxt:/x ) {
$ spec =~ m/snapTelegramTxt:"(.*)"/xi ;
2019-02-01 15:00:29 +00:00
$ teletxt = $ 1 ;
}
if ( $ teletxt ) {
2020-06-28 18:49:16 +00:00
# Snap soll nach Erstellung per TelegramBot versendet werden
# Format $teletxt muss sein: snapTelegramTxt:"tbot => <teleBot Device>, peers => <peer1 peer2 ..>, subject => <Beschreibungstext>"
2019-02-01 15:00:29 +00:00
$ hash - > { HELPER } { TELEMSG } = $ teletxt ;
2018-12-30 20:20:27 +00:00
}
2019-12-09 20:51:32 +00:00
my $ chattxt = AttrVal ( $ name , "snapChatTxt" , "" ) ;
2020-07-10 15:16:12 +00:00
if ( $ spec =~ /snapChatTxt:/x ) {
$ spec =~ m/snapChatTxt:"(.*)"/xi ;
2019-12-09 20:51:32 +00:00
$ chattxt = $ 1 ;
}
if ( $ chattxt ) {
2020-06-28 18:49:16 +00:00
# Snap soll nach Erstellung per SSChatBot versendet werden
# Format $chattxt muss sein: snapChatTxt:"chatbot => <SSChatBot Device>, peers => <peer1 peer2 ..>, subject => <Beschreibungstext>"
2019-12-09 20:51:32 +00:00
$ hash - > { HELPER } { CHATMSG } = $ chattxt ;
}
2020-06-28 18:49:16 +00:00
camSnap ( "$name!_!$num!_!$lag!_!$ncount!_!$emtxt!_!$teletxt!_!$chattxt" ) ;
2018-12-30 20:20:27 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "snapCams" && ! IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
2019-01-14 23:09:42 +00:00
my ( $ num , $ lag , $ ncount ) = ( 1 , 2 , 1 ) ;
my $ cams = "all" ;
2020-07-10 15:16:12 +00:00
if ( $ prop && $ prop =~ /^\d+$/x ) { # Anzahl der Schnappschüsse zu triggern (default: 1)
2019-01-14 23:09:42 +00:00
$ num = $ prop ;
$ ncount = $ prop ;
}
2020-07-10 15:16:12 +00:00
if ( $ prop1 && $ prop1 =~ /^\d+$/x ) { # Zeit zwischen zwei Schnappschüssen (default: 2 Sekunden)
2019-01-14 23:09:42 +00:00
$ lag = $ prop1 ;
}
my $ at = join ( " " , @ a ) ;
2020-07-10 15:16:12 +00:00
if ( $ at =~ /CAM:/xi ) {
$ at =~ m/CAM:"(.*)"/xi ;
2019-01-14 23:09:42 +00:00
$ cams = $ 1 ;
2020-07-10 15:16:12 +00:00
$ cams =~ s/\s//gx ;
2019-01-14 23:09:42 +00:00
}
2019-04-28 17:20:21 +00:00
my @ camdvs ;
2019-01-14 23:09:42 +00:00
if ( $ cams eq "all" ) { # alle nicht disabled Kameras auslösen, sonst nur die gewählten
@ camdvs = devspec2array ( "TYPE=SSCam:FILTER=MODEL!=SVS" ) ;
2020-06-30 21:16:26 +00:00
for ( @ camdvs ) {
2019-01-16 23:49:55 +00:00
if ( $ defs { $ _ } && ! IsDisabled ( $ _ ) ) {
2019-04-28 17:20:21 +00:00
$ hash - > { HELPER } { ALLSNAPREF } { $ _ } = "" ; # Schnappschuss Hash für alle Cams -> Schnappschußdaten sollen hinein
2019-01-14 23:09:42 +00:00
}
}
} else {
@ camdvs = split ( "," , $ cams ) ;
2020-06-30 21:16:26 +00:00
for ( @ camdvs ) {
2019-01-16 23:49:55 +00:00
if ( $ defs { $ _ } && ! IsDisabled ( $ _ ) ) {
2019-04-28 17:20:21 +00:00
$ hash - > { HELPER } { ALLSNAPREF } { $ _ } = "" ;
2019-01-14 23:09:42 +00:00
}
}
}
2019-04-28 17:20:21 +00:00
return "No valid camera devices are specified for trigger snapshots" if ( ! $ hash - > { HELPER } { ALLSNAPREF } ) ;
2019-01-16 23:49:55 +00:00
2019-02-01 15:00:29 +00:00
my $ emtxt ;
2020-06-28 18:49:16 +00:00
my $ teletxt = "" ;
2019-02-01 15:00:29 +00:00
my $ rawet = AttrVal ( $ name , "snapEmailTxt" , "" ) ;
my $ bt = join ( " " , @ a ) ;
2020-07-10 15:16:12 +00:00
if ( $ bt =~ /snapEmailTxt:/x ) {
$ bt =~ m/snapEmailTxt:"(.*)"/xi ;
2019-02-01 15:00:29 +00:00
$ rawet = $ 1 ;
}
if ( $ rawet ) {
$ hash - > { HELPER } { CANSENDSNAP } = 1 ; # zentraler Schnappschußversand wird aktiviert
$ hash - > { HELPER } { SMTPMSG } = $ rawet ;
}
2019-01-16 23:49:55 +00:00
my ( $ csnap , $ cmail ) = ( "" , "" ) ;
2020-06-30 21:16:26 +00:00
for my $ key ( keys % { $ hash - > { HELPER } { ALLSNAPREF } } ) {
2019-01-16 23:49:55 +00:00
if ( ! AttrVal ( $ key , "snapEmailTxt" , "" ) ) {
2019-04-28 17:20:21 +00:00
delete $ hash - > { HELPER } { ALLSNAPREF } - > { $ key } ; # Snap dieser Kamera auslösen aber nicht senden
2019-01-16 23:49:55 +00:00
$ csnap . = $ csnap ? ", $key" : $ key ;
2019-02-01 15:00:29 +00:00
$ emtxt = "" ;
2019-01-16 23:49:55 +00:00
} else {
$ cmail . = $ cmail ? ", $key" : $ key ;
2019-02-01 15:00:29 +00:00
$ emtxt = $ rawet ;
2019-01-16 23:49:55 +00:00
}
2020-06-28 18:49:16 +00:00
camSnap ( "$key!_!$num!_!$lag!_!$ncount!_!$emtxt!_!$teletxt" ) ;
2019-01-14 23:09:42 +00:00
}
2019-01-16 23:49:55 +00:00
Log3 ( $ name , 4 , "$name - Trigger snapshots by SVS - Number: $num, Lag: $lag, Snap only: \"$csnap\", Snap and send: \"$cmail\" " ) ;
2019-01-14 23:09:42 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "startTracking" && IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
2018-11-20 23:30:55 +00:00
if ( $ hash - > { HELPER } { APIPTZMAXVER } < 5 ) { return "Function \"$opt\" needs a higher version of Surveillance Station" ; }
2020-06-28 18:49:16 +00:00
startTrack ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "stopTracking" && IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
2018-11-20 23:30:55 +00:00
if ( $ hash - > { HELPER } { APIPTZMAXVER } < 5 ) { return "Function \"$opt\" needs a higher version of Surveillance Station" ; }
2020-06-28 18:49:16 +00:00
stopTrack ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "setZoom" && IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
2020-06-23 20:32:00 +00:00
$ prop = $ prop // "+" ; # Korrektur -> "+" in Taste wird als undef geliefert
$ prop = ".++" if ( $ prop eq "." ) ; # Korrektur -> ".++" in Taste wird als "." geliefert
2020-06-28 18:49:16 +00:00
setZoom ( "$name!_!$prop" ) ;
2020-06-21 20:37:08 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "snapGallery" && IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
my $ ret = getClHash ( $ hash ) ;
2018-11-20 23:30:55 +00:00
return $ ret if ( $ ret ) ;
2020-06-28 18:49:16 +00:00
if ( ! AttrVal ( $ name , "snapGalleryBoost" , 0 ) ) {
# Snaphash ist nicht vorhanden und wird neu abgerufen und ausgegeben
$ hash - > { HELPER } { GETSNAPGALLERY } = 1 ;
# snap-Infos für Gallerie abrufen
my ( $ sg , $ slim , $ ssize ) ;
$ slim = $ prop ? AttrVal ( $ name , "snapGalleryNumber" , $ prop ) : AttrVal ( $ name , "snapGalleryNumber" , $ defSlim ) ; # Anzahl der abzurufenden Snapshots
$ ssize = ( AttrVal ( $ name , "snapGallerySize" , "Icon" ) eq "Icon" ) ? 1 : 2 ; # Image Size 1-Icon, 2-Full
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
getSnapInfo ( "$name:$slim:$ssize" ) ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
# Snaphash ist vorhanden und wird zur Ausgabe aufbereitet (Polling ist aktiv)
$ hash - > { HELPER } { SNAPLIMIT } = AttrVal ( $ name , "snapGalleryNumber" , $ defSlim ) ;
2020-07-17 10:58:15 +00:00
my % pars = ( linkparent = > $ name ,
linkname = > '' ,
ftui = > 0
) ;
my $ htmlCode = composeGallery ( \ % pars ) ;
2020-06-28 18:49:16 +00:00
for ( my $ k = 1 ; ( defined ( $ hash - > { HELPER } { CL } { $ k } ) ) ; $ k + + ) {
if ( $ hash - > { HELPER } { CL } { $ k } - > { COMP } ) {
# CL zusammengestellt (Auslösung durch Notify)
asyncOutput ( $ hash - > { HELPER } { CL } { $ k } , "$htmlCode" ) ;
} else {
# Output wurde über FHEMWEB ausgelöst
return $ htmlCode ;
}
}
delete ( $ hash - > { HELPER } { CL } ) ;
}
} elsif ( $ opt eq "createSnapGallery" && IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
2018-11-20 23:30:55 +00:00
my ( $ ret , $ sgdev ) ;
2020-06-28 18:49:16 +00:00
return qq{ Before you can use "$opt", you must first set the "snapGalleryBoost" attribute, since automatic snapshot retrieval is required. }
if ( ! AttrVal ( $ name , "snapGalleryBoost" , 0 ) ) ;
$ sgdev = "SSCamSTRM.$name.snapgallery" ;
$ ret = CommandDefine ( $ hash - > { CL } , "$sgdev SSCamSTRM {FHEM::SSCam::composeGallery('$name','$sgdev','snapgallery')}" ) ;
return $ ret if ( $ ret ) ;
my $ room = "SSCam" ;
2018-11-20 23:30:55 +00:00
$ attr { $ sgdev } { room } = $ room ;
2020-06-28 18:49:16 +00:00
return qq{ Snapgallery device "$sgdev" created and assigned to room "$room". } ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "createPTZcontrol" && IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
my $ ptzcdev = "SSCamSTRM.$name.PTZcontrol" ;
my $ ret = CommandDefine ( $ hash - > { CL } , "$ptzcdev SSCamSTRM {FHEM::SSCam::ptzPanel('$name','$ptzcdev','ptzcontrol')}" ) ;
return $ ret if ( $ ret ) ;
my $ room = AttrVal ( $ name , "room" , "SSCam" ) ;
2018-11-20 23:30:55 +00:00
$ attr { $ ptzcdev } { room } = $ room ;
$ attr { $ ptzcdev } { group } = $ name . "_PTZcontrol" ;
2020-06-28 18:49:16 +00:00
return qq{ PTZ control device "$ptzcdev" created and assigned to room "$room". } ;
2018-11-20 23:30:55 +00:00
2020-07-16 06:14:56 +00:00
} elsif ( $ opt eq "createStreamDev" ) {
2020-06-28 18:49:16 +00:00
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
my ( $ livedev , $ ret ) ;
2018-11-20 23:30:55 +00:00
2020-07-10 15:16:12 +00:00
if ( $ prop =~ /mjpeg/x ) {
2018-11-20 23:30:55 +00:00
$ livedev = "SSCamSTRM.$name.mjpeg" ;
2020-06-28 18:49:16 +00:00
$ ret = CommandDefine ( $ hash - > { CL } , "$livedev SSCamSTRM {FHEM::SSCam::streamDev('$name','$livedev','mjpeg')}" ) ;
return $ ret if ( $ ret ) ;
2018-11-20 23:30:55 +00:00
}
2020-07-10 15:16:12 +00:00
if ( $ prop =~ /generic/x ) {
2018-11-20 23:30:55 +00:00
$ livedev = "SSCamSTRM.$name.generic" ;
2020-06-28 18:49:16 +00:00
$ ret = CommandDefine ( $ hash - > { CL } , "$livedev SSCamSTRM {FHEM::SSCam::streamDev('$name','$livedev','generic')}" ) ;
return $ ret if ( $ ret ) ;
2018-12-30 20:20:27 +00:00
}
2020-07-10 15:16:12 +00:00
if ( $ prop =~ /hls/x ) {
2018-12-30 20:20:27 +00:00
$ livedev = "SSCamSTRM.$name.hls" ;
2020-06-28 18:49:16 +00:00
$ ret = CommandDefine ( $ hash - > { CL } , "$livedev SSCamSTRM {FHEM::SSCam::streamDev('$name','$livedev','hls')}" ) ;
return $ ret if ( $ ret ) ;
2018-12-30 20:20:27 +00:00
my $ c = "The device needs to set attribute \"hlsStrmObject\" in camera device \"$name\" to a valid HLS videostream" ;
CommandAttr ( $ hash - > { CL } , "$livedev comment $c" ) ;
2019-02-06 21:06:40 +00:00
}
2020-07-10 15:16:12 +00:00
if ( $ prop =~ /lastsnap/x ) {
2019-02-06 21:06:40 +00:00
$ livedev = "SSCamSTRM.$name.lastsnap" ;
2020-06-28 18:49:16 +00:00
$ ret = CommandDefine ( $ hash - > { CL } , "$livedev SSCamSTRM {FHEM::SSCam::streamDev('$name','$livedev','lastsnap')}" ) ;
return $ ret if ( $ ret ) ;
2019-02-06 21:06:40 +00:00
my $ c = "The device shows the last snapshot of camera device \"$name\". \n" .
"If you always want to see the newest snapshot, please set attribute \"pollcaminfoall\" in camera device \"$name\".\n" .
"Set also attribute \"snapGallerySize = Full\" in camera device \"$name\" to retrieve snapshots in original resolution." ;
CommandAttr ( $ hash - > { CL } , "$livedev comment $c" ) ;
2018-11-20 23:30:55 +00:00
}
2020-07-10 15:16:12 +00:00
if ( $ prop =~ /switched/x ) {
2018-11-20 23:30:55 +00:00
$ livedev = "SSCamSTRM.$name.switched" ;
2020-06-28 18:49:16 +00:00
$ ret = CommandDefine ( $ hash - > { CL } , "$livedev SSCamSTRM {FHEM::SSCam::streamDev('$name','$livedev','switched')}" ) ;
return $ ret if ( $ ret ) ;
2018-11-20 23:30:55 +00:00
}
2020-07-16 06:14:56 +00:00
if ( $ prop =~ /master/x ) {
$ livedev = "SSCamSTRM.$name.master" ;
$ ret = CommandDefine ( $ hash - > { CL } , "$livedev SSCamSTRM {FHEM::SSCam::streamDev('$name','$livedev','master')}" ) ;
return $ ret if ( $ ret ) ;
}
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
my $ room = AttrVal ( $ name , "room" , "SSCam" ) ;
2020-07-16 06:14:56 +00:00
$ attr { $ livedev } { room } = $ room ;
2020-06-28 18:49:16 +00:00
return "Livestream device \"$livedev\" created and assigned to room \"$room\"." ;
2018-11-20 23:30:55 +00:00
} elsif ( $ opt eq "createReadingsGroup" ) {
2020-06-28 18:49:16 +00:00
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
my $ rgdev = $ prop ? $ prop: "RG.SSCam" ;
2018-11-20 23:30:55 +00:00
2018-11-25 07:58:47 +00:00
my $ rgdef = '<%it_camera>,<Kamera<br>On/Offline>,< >,<Status>,< >,<Bewegungs<br>erkennung>,< >,<letzte Aufnahme>,< >,<bel. Platz<br>(MB)>,< >,<letzte Aktualisierung>,< >,<Disable<br>Modul>,< >,<Wiedergabe>' . "\n" .
2018-12-06 22:22:15 +00:00
'TYPE=SSCam:FILTER=MODEL!=SVS:Availability,< >,state,< >,!CamMotDetSc,< >,!CamLastRecTime,< >,!UsedSpaceMB,< >,!LastUpdateTime,< >,?!disable,< >,?!LSnap,?!LRec,?!Start,?!Stop' . "\n" .
2018-11-25 07:58:47 +00:00
'< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >' . "\n" .
'< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >' . "\n" .
'< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >' . "\n" .
'<%it_server>,<HomeMode<br>On/Off>,< >,<Status>,< >, >,< >,< >,< >,< >, >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >' . "\n" .
2018-12-30 20:20:27 +00:00
'TYPE=SSCam:FILTER=MODEL=SVS:!HomeModeState,< >,state,< >,< >,< >,< >,< >,< >, >,< >,< >,< >,?!disable,< >,< >,< >,< >,< >' . "\n" .
2018-11-20 23:30:55 +00:00
'' ;
my $ ret = CommandDefine ( $ hash - > { CL } , "$rgdev readingsGroup $rgdef" ) ;
2020-06-28 18:49:16 +00:00
return $ ret if ( $ ret ) ;
2018-11-20 23:30:55 +00:00
my $ room = AttrVal ( $ name , "room" , "SSCam" ) ;
CommandAttr ( $ hash - > { CL } , "$rgdev room $room" ) ;
2018-11-25 07:58:47 +00:00
CommandAttr ( $ hash - > { CL } , "$rgdev alias Überblick Kameras" ) ;
2018-11-20 23:30:55 +00:00
my $ cellStyle = '{' . "\n" .
2020-06-28 18:49:16 +00:00
' "c:0" => \'style="text-align:left;font-weight:normal"\',' . "\n" .
2018-11-20 23:30:55 +00:00
' "c:1" => \'style="text-align:left;font-weight:normal"\',' . "\n" .
' "c:4" => \'style="text-align:center;font-weight:bold"\',' . "\n" .
' "c:5" => \'style="text-align:center;color:green;font-weight:normal"\',' . "\n" .
' "c:9" => \'style="text-align:center;font-weight:normal"\'' . "\n" .
'}' ;
CommandAttr ( $ hash - > { CL } , "$rgdev cellStyle $cellStyle" ) ;
my $ commands = '{' . "\n" .
' "Availability.enabled" => "set $DEVICE disable",' . "\n" .
' "Availability.disabled" => "set $DEVICE enable",' . "\n" .
' "HomeModeState.on" => "set $DEVICE homeMode off",' . "\n" .
' "HomeModeState.off" => "set $DEVICE homeMode on",' . "\n" .
2020-06-21 20:37:08 +00:00
' "' . $ rgdev . '.Start" => "set %DEVICE runView live_fw",' . "\n" .
2020-06-28 18:49:16 +00:00
' "Start" => "set %DEVICE runView live_fw",' . "\n" .
2018-11-25 07:58:47 +00:00
' "LRec" => "set %DEVICE runView lastrec_fw",' . "\n" .
' "LSnap" => "set %DEVICE runView lastsnap_fw",' . "\n" .
2018-11-22 11:22:08 +00:00
' "Stop" => "set %DEVICE stopView",' . "\n" .
' "Record" => "runView:",' . "\n" .
2020-06-28 18:49:16 +00:00
' "disable" => "disable:"' . "\n" .
2018-11-20 23:30:55 +00:00
'}' ;
CommandAttr ( $ hash - > { CL } , "$rgdev commands $commands" ) ;
my $ nameStyle = 'style = "color:black;font-weight:bold;text-align:center"' ;
2020-06-28 18:49:16 +00:00
CommandAttr ( $ hash - > { CL } , "$rgdev nameStyle $nameStyle" ) ;
2018-11-20 23:30:55 +00:00
my $ valueColumns = '{' . "\n" .
2020-06-28 18:49:16 +00:00
' \'Wiedergabe\' => \'colspan="4"\'' . "\n" .
2018-11-20 23:30:55 +00:00
'}' ;
CommandAttr ( $ hash - > { CL } , "$rgdev valueColumns $valueColumns" ) ;
2020-06-28 18:49:16 +00:00
2018-11-20 23:30:55 +00:00
my $ valueFormat = '{' . "\n" .
2020-06-28 18:49:16 +00:00
' ($READING eq "CamMotDetSc" && $VALUE eq "disabled") ? "external" : $VALUE' . "\n" .
'}' ;
2018-11-20 23:30:55 +00:00
CommandAttr ( $ hash - > { CL } , "$rgdev valueFormat $valueFormat" ) ;
my $ valueIcon = '{' . "\n" .
' "Availability.enabled" => "remotecontrol/black_btn_GREEN",' . "\n" .
' "Availability.disabled" => "remotecontrol/black_btn_RED",' . "\n" .
' "HomeModeState.on" => "status_available",' . "\n" .
2018-11-22 11:22:08 +00:00
' "HomeModeState.off" => "status_away_1\@orange",' . "\n" .
2018-11-25 07:58:47 +00:00
' "Start" => "black_btn_MJPEG",' . "\n" .
' "LRec" => "black_btn_LASTRECIFRAME",' . "\n" .
' "LSnap" => "black_btn_LSNAP",' . "\n" .
2018-11-22 11:22:08 +00:00
' "Stop" => "remotecontrol/black_btn_POWEROFF3",' . "\n" .
2018-11-20 23:30:55 +00:00
' "state.initialized" => "remotecontrol/black_btn_STOP",' . "\n" .
' "state" => "%devStateIcon"' . "\n" .
'}' ;
CommandAttr ( $ hash - > { CL } , "$rgdev valueIcon $valueIcon" ) ;
my $ valueStyle = '{' . "\n" .
' if($READING eq "Availability" && $VALUE eq "enabled"){ \' style="color:green" \' }' . "\n" .
' elsif( $READING eq "Availability" && $VALUE eq "disabled"){ \' style="color:red" \' }' . "\n" .
' elsif( $READING eq "CamMotDetSc" && $VALUE =~ /SVS.*/ ){ \' style="color:orange" \' }' . "\n" .
' elsif( $READING eq "CamMotDetSc" && $VALUE eq "disabled"){ \' style="color:LimeGreen" \' }' . "\n" .
' elsif( $READING eq "CamMotDetSc" && $VALUE =~ /Cam.*/ ){ \' style="color:SandyBrown" \' }' . "\n" .
'}' ;
CommandAttr ( $ hash - > { CL } , "$rgdev valueStyle $valueStyle" ) ;
2020-06-28 18:49:16 +00:00
2018-11-20 23:30:55 +00:00
return "readingsGroup device \"$rgdev\" created and assigned to room \"$room\"." ;
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "enable" && IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
camEnable ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "disable" && IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
camDisable ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "motdetsc" && IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
2018-11-20 23:30:55 +00:00
if ( ! $ prop || $ prop !~ /^(disable|camera|SVS)$/ ) { return " \"$opt\" needs one of those arguments: disable, camera, SVS !" ; }
$ hash - > { HELPER } { MOTDETSC } = $ prop ;
if ( $ prop1 ) {
# check ob Zahl zwischen 1 und 99
return "invalid value for sensitivity (SVS or camera) - use number between 1 - 99" if ( $ prop1 !~ /^([1-9]|[1-9][0-9])*$/ ) ;
$ hash - > { HELPER } { MOTDETSC_PROP1 } = $ prop1 ;
}
if ( $ prop2 ) {
# check ob Zahl zwischen 1 und 99
return "invalid value for threshold (SVS) / object size (camera) - use number between 1 - 99" if ( $ prop2 !~ /^([1-9]|[1-9][0-9])*$/ ) ;
$ hash - > { HELPER } { MOTDETSC_PROP2 } = $ prop2 ;
}
if ( $ prop3 ) {
# check ob Zahl zwischen 1 und 99
return "invalid value for threshold (SVS) / object size (camera) - use number between 1 - 99" if ( $ prop3 !~ /^([1-9]|[1-9][0-9])*$/ ) ;
$ hash - > { HELPER } { MOTDETSC_PROP3 } = $ prop3 ;
}
2020-06-28 18:49:16 +00:00
amMotDetSc ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "expmode" && IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
2018-11-20 23:30:55 +00:00
unless ( $ prop ) { return " \"$opt\" needs one of those arguments: auto, day, night !" ; }
$ hash - > { HELPER } { EXPMODE } = $ prop ;
2020-06-28 18:49:16 +00:00
camExpmode ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "homeMode" && ! IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
2018-11-20 23:30:55 +00:00
unless ( $ prop ) { return " \"$opt\" needs one of those arguments: on, off !" ; }
$ hash - > { HELPER } { HOMEMODE } = $ prop ;
2020-06-28 18:49:16 +00:00
setHomeMode ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "autocreateCams" && ! IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
2018-12-06 22:22:15 +00:00
2020-06-28 18:49:16 +00:00
camAutocreate ( $ hash ) ;
2018-12-06 22:22:15 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "goPreset" && IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
2018-11-20 23:30:55 +00:00
if ( ! $ prop ) { return "Function \"goPreset\" needs a \"Presetname\" as an argument" ; }
$ hash - > { HELPER } { GOPRESETNAME } = $ prop ;
$ hash - > { HELPER } { PTZACTION } = "gopreset" ;
2020-06-28 18:49:16 +00:00
doPtzAaction ( $ hash ) ;
} elsif ( $ opt eq "optimizeParams" && IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
my % cpcl = ( ntp = > 1 , mirror = > 2 , flip = > 4 , rotate = > 8 ) ;
extoptpar ( $ hash , $ prop , \ % cpcl ) if ( $ prop ) ;
extoptpar ( $ hash , $ prop1 , \ % cpcl ) if ( $ prop1 ) ;
extoptpar ( $ hash , $ prop2 , \ % cpcl ) if ( $ prop2 ) ;
setOptParams ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "pirSensor" && IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
2018-11-20 23:30:55 +00:00
if ( ReadingsVal ( "$name" , "CapPIR" , "false" ) eq "false" ) { return "Function \"$opt\" not possible. Camera \"$name\" don't have a PIR sensor." }
if ( ! $ prop ) { return "Function \"$opt\" needs an argument" ; }
$ hash - > { HELPER } { PIRACT } = ( $ prop eq "activate" ) ? 0 : ( $ prop eq "deactivate" ) ? - 1 : 5 ;
if ( $ hash - > { HELPER } { PIRACT } == 5 ) { return " Illegal argument for \"$opt\" detected, use \"activate\" or \"activate\" !" ; }
2020-06-28 18:49:16 +00:00
managePir ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "runPatrol" && IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
2018-11-20 23:30:55 +00:00
if ( ! $ prop ) { return "Function \"$opt\" needs a \"Patrolname\" as an argument" ; }
$ hash - > { HELPER } { GOPATROLNAME } = $ prop ;
$ hash - > { HELPER } { PTZACTION } = "runpatrol" ;
2020-06-28 18:49:16 +00:00
doPtzAaction ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "goAbsPTZ" && IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
2018-11-20 23:30:55 +00:00
if ( $ prop eq "up" || $ prop eq "down" || $ prop eq "left" || $ prop eq "right" ) {
if ( $ prop eq "up" ) { $ hash - > { HELPER } { GOPTZPOSX } = 320 ; $ hash - > { HELPER } { GOPTZPOSY } = 480 ; }
if ( $ prop eq "down" ) { $ hash - > { HELPER } { GOPTZPOSX } = 320 ; $ hash - > { HELPER } { GOPTZPOSY } = 0 ; }
if ( $ prop eq "left" ) { $ hash - > { HELPER } { GOPTZPOSX } = 0 ; $ hash - > { HELPER } { GOPTZPOSY } = 240 ; }
if ( $ prop eq "right" ) { $ hash - > { HELPER } { GOPTZPOSX } = 640 ; $ hash - > { HELPER } { GOPTZPOSY } = 240 ; }
$ hash - > { HELPER } { PTZACTION } = "goabsptz" ;
2020-06-28 18:49:16 +00:00
doPtzAaction ( $ hash ) ;
2020-06-21 20:37:08 +00:00
return ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} else {
2018-11-20 23:30:55 +00:00
if ( $ prop !~ /\d+/ || $ prop1 !~ /\d+/ || abs ( $ prop ) > 640 || abs ( $ prop1 ) > 480 ) {
return "Function \"goAbsPTZ\" needs two coordinates, posX=0-640 and posY=0-480, as arguments or use up, down, left, right instead" ;
}
$ hash - > { HELPER } { GOPTZPOSX } = abs ( $ prop ) ;
$ hash - > { HELPER } { GOPTZPOSY } = abs ( $ prop1 ) ;
$ hash - > { HELPER } { PTZACTION } = "goabsptz" ;
2020-06-28 18:49:16 +00:00
doPtzAaction ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-21 20:37:08 +00:00
return ;
2018-11-20 23:30:55 +00:00
}
return "Function \"goAbsPTZ\" needs two coordinates, posX=0-640 and posY=0-480, as arguments or use up, down, left, right instead" ;
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "move" && IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
return "PTZ version of Synology API isn't set. Use \"get $name scanVirgin\" first." if ( ! $ hash - > { HELPER } { APIPTZMAXVER } ) ;
if ( $ hash - > { HELPER } { APIPTZMAXVER } <= 4 ) {
if ( ! defined ( $ prop ) || ( $ prop !~ /^up$|^down$|^left$|^right$|^dir_\d$/ ) ) { return "Function \"move\" needs an argument like up, down, left, right or dir_X (X = 0 to CapPTZDirections-1)" ; }
$ hash - > { HELPER } { GOMOVEDIR } = $ prop ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ hash - > { HELPER } { APIPTZMAXVER } >= 5 ) {
if ( ! defined ( $ prop ) || ( $ prop !~ /^right$|^upright$|^up$|^upleft$|^left$|^downleft$|^down$|^downright$/ ) ) { return "Function \"move\" needs an argument like right, upright, up, upleft, left, downleft, down, downright " ; }
my % dirs = (
right = > 0 ,
2018-11-20 23:30:55 +00:00
upright = > 4 ,
up = > 8 ,
upleft = > 12 ,
left = > 16 ,
downleft = > 20 ,
down = > 24 ,
downright = > 28 ,
2020-06-28 18:49:16 +00:00
) ;
$ hash - > { HELPER } { GOMOVEDIR } = $ dirs { $ prop } ;
}
2018-11-20 23:30:55 +00:00
$ hash - > { HELPER } { GOMOVETIME } = defined ( $ prop1 ) ? $ prop1 : 1 ;
$ hash - > { HELPER } { PTZACTION } = "movestart" ;
2020-06-28 18:49:16 +00:00
doPtzAaction ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "runView" && IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
2019-07-12 20:10:53 +00:00
my $ spec = join ( " " , @ a ) ;
2020-07-10 15:16:12 +00:00
if ( $ spec =~ /STRM:/x ) {
$ spec =~ m/STRM:(.*)/xi ; # Call by SSCamSTRM-Device
2019-07-12 20:10:53 +00:00
$ hash - > { HELPER } { INFORM } = $ 1 ;
2020-06-28 18:49:16 +00:00
}
if ( $ prop eq "live_open" ) {
2018-11-20 23:30:55 +00:00
if ( $ prop1 ) { $ hash - > { HELPER } { VIEWOPENROOM } = $ prop1 ; } else { delete $ hash - > { HELPER } { VIEWOPENROOM } ; }
$ hash - > { HELPER } { OPENWINDOW } = 1 ;
$ hash - > { HELPER } { WLTYPE } = "link" ;
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { ALIAS } = "LiveView" ;
$ hash - > { HELPER } { RUNVIEW } = "live_open" ;
$ hash - > { HELPER } { ACTSTRM } = "" ; # sprechender Name des laufenden Streamtyps für SSCamSTRM
2018-11-20 23:30:55 +00:00
} elsif ( $ prop eq "live_link" ) {
$ hash - > { HELPER } { OPENWINDOW } = 0 ;
$ hash - > { HELPER } { WLTYPE } = "link" ;
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { ALIAS } = "LiveView" ;
$ hash - > { HELPER } { RUNVIEW } = "live_link" ;
$ hash - > { HELPER } { ACTSTRM } = "" ; # sprechender Name des laufenden Streamtyps für SSCamSTRM
2018-11-20 23:30:55 +00:00
} elsif ( $ prop eq "lastrec_open" ) {
if ( $ prop1 ) { $ hash - > { HELPER } { VIEWOPENROOM } = $ prop1 ; } else { delete $ hash - > { HELPER } { VIEWOPENROOM } ; }
$ hash - > { HELPER } { OPENWINDOW } = 1 ;
$ hash - > { HELPER } { WLTYPE } = "link" ;
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { ALIAS } = "LastRecording" ;
$ hash - > { HELPER } { RUNVIEW } = "lastrec_open" ;
$ hash - > { HELPER } { ACTSTRM } = "" ; # sprechender Name des laufenden Streamtyps für SSCamSTRM
2019-07-12 20:10:53 +00:00
} elsif ( $ prop eq "lastrec_fw" ) { # Video in iFrame eingebettet
2018-11-20 23:30:55 +00:00
$ hash - > { HELPER } { OPENWINDOW } = 0 ;
$ hash - > { HELPER } { WLTYPE } = "iframe" ;
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { ALIAS } = " " ;
$ hash - > { HELPER } { RUNVIEW } = "lastrec" ;
$ hash - > { HELPER } { ACTSTRM } = "last Recording" ; # sprechender Name des laufenden Streamtyps für SSCamSTRM
2019-07-12 20:10:53 +00:00
} elsif ( $ prop eq "lastrec_fw_MJPEG" ) { # “video/avi” –
2018-11-20 23:30:55 +00:00
$ hash - > { HELPER } { OPENWINDOW } = 0 ;
$ hash - > { HELPER } { WLTYPE } = "image" ;
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { ALIAS } = " " ;
$ hash - > { HELPER } { RUNVIEW } = "lastrec" ;
$ hash - > { HELPER } { ACTSTRM } = "last Recording" ; # sprechender Name des laufenden Streamtyps für SSCamSTRM
2019-07-12 20:10:53 +00:00
} elsif ( $ prop eq "lastrec_fw_MPEG4/H.264" ) { # “video/mp4” –
2018-11-20 23:30:55 +00:00
$ hash - > { HELPER } { OPENWINDOW } = 0 ;
$ hash - > { HELPER } { WLTYPE } = "video" ;
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { ALIAS } = " " ;
$ hash - > { HELPER } { RUNVIEW } = "lastrec" ;
$ hash - > { HELPER } { ACTSTRM } = "last Recording" ; # sprechender Name des laufenden Streamtyps für SSCamSTRM
2018-11-20 23:30:55 +00:00
} elsif ( $ prop eq "live_fw" ) {
$ hash - > { HELPER } { OPENWINDOW } = 0 ;
$ hash - > { HELPER } { WLTYPE } = "image" ;
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { ALIAS } = " " ;
$ hash - > { HELPER } { RUNVIEW } = "live_fw" ;
$ hash - > { HELPER } { ACTSTRM } = "MJPEG Livestream" ; # sprechender Name des laufenden Streamtyps für SSCamSTRM
2018-11-20 23:30:55 +00:00
} elsif ( $ prop eq "live_fw_hls" ) {
2020-06-28 18:49:16 +00:00
return "API \"SYNO.SurveillanceStation.VideoStream\" is not available or Reading \"CamStreamFormat\" is not \"HLS\". May be your API version is 2.8 or higher." if ( ! IsCapHLS ( $ hash ) ) ;
2018-11-20 23:30:55 +00:00
$ hash - > { HELPER } { OPENWINDOW } = 0 ;
$ hash - > { HELPER } { WLTYPE } = "hls" ;
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { ALIAS } = "View only on compatible browsers" ;
$ hash - > { HELPER } { RUNVIEW } = "live_fw_hls" ;
$ hash - > { HELPER } { ACTSTRM } = "HLS Livestream" ; # sprechender Name des laufenden Streamtyps für SSCamSTRM
2018-11-20 23:30:55 +00:00
} elsif ( $ prop eq "lastsnap_fw" ) {
2019-07-12 20:10:53 +00:00
$ hash - > { HELPER } { LSNAPBYSTRMDEV } = 1 if ( $ prop1 ) ; # Anzeige durch SSCamSTRM-Device ausgelöst
$ hash - > { HELPER } { LSNAPBYDEV } = 1 if ( ! $ prop1 ) ; # Anzeige durch SSCam ausgelöst
$ hash - > { HELPER } { OPENWINDOW } = 0 ;
$ hash - > { HELPER } { WLTYPE } = "base64img" ;
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { ALIAS } = " " ;
$ hash - > { HELPER } { RUNVIEW } = "lastsnap_fw" ;
$ hash - > { HELPER } { ACTSTRM } = "last Snapshot" ; # sprechender Name des laufenden Streamtyps für SSCamSTRM
2018-11-20 23:30:55 +00:00
} else {
return "$prop isn't a valid option of runview, use one of live_fw, live_link, live_open, lastrec_fw, lastrec_open, lastsnap_fw" ;
}
2020-06-28 18:49:16 +00:00
runLiveview ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "hlsreactivate" && IsModelCam ( $ hash ) ) {
2018-11-20 23:30:55 +00:00
# ohne SET-Menüeintrag
2020-06-28 18:49:16 +00:00
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
reactivateHls ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "hlsactivate" && IsModelCam ( $ hash ) ) {
2018-11-20 23:30:55 +00:00
# ohne SET-Menüeintrag
2020-06-28 18:49:16 +00:00
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
2019-07-12 20:10:53 +00:00
my $ spec = join ( " " , @ a ) ;
2020-07-10 15:16:12 +00:00
if ( $ spec =~ /STRM:/x ) {
$ spec =~ m/STRM:(.*)/xi ; # Call by SSCamSTRM-Device
2019-07-12 20:10:53 +00:00
$ hash - > { HELPER } { INFORM } = $ 1 ;
}
2020-06-28 18:49:16 +00:00
activateHls ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "refresh" && IsModelCam ( $ hash ) ) {
2018-11-20 23:30:55 +00:00
# ohne SET-Menüeintrag
2019-07-12 20:10:53 +00:00
my $ spec = join ( " " , @ a ) ;
2020-07-10 15:16:12 +00:00
if ( $ spec =~ /STRM:/x ) {
$ spec =~ m/STRM:(.*)/xi ; # Refresh by SSCamSTRM-Device
2019-07-12 20:10:53 +00:00
$ hash - > { HELPER } { INFORM } = $ 1 ;
2020-06-30 21:16:26 +00:00
roomRefresh ( $ hash , 0 , 0 , 1 ) ; # kein Room-Refresh, kein SSCam-state-Event, SSCamSTRM-Event
2018-11-20 23:30:55 +00:00
}
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "extevent" && ! IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
2018-11-20 23:30:55 +00:00
$ hash - > { HELPER } { EVENTID } = $ prop ;
2020-06-28 18:49:16 +00:00
extEvent ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "stopView" && IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
2019-07-12 20:10:53 +00:00
my $ spec = join ( " " , @ a ) ;
2020-07-10 15:16:12 +00:00
if ( $ spec =~ /STRM:/x ) {
$ spec =~ m/STRM:(.*)/xi ; # Stop by SSCamSTRM-Device
2019-07-12 20:10:53 +00:00
$ hash - > { HELPER } { INFORM } = $ 1 ;
2020-06-28 18:49:16 +00:00
}
stopLiveview ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "setPreset" && IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
if ( ! $ prop ) { return qq{ Syntax of function "$opt" was wrong. Please use "set $name setPreset <PresetNumber> <PresetName> [<Speed>]" } ; }
2018-11-20 23:30:55 +00:00
$ hash - > { HELPER } { PNUMBER } = $ prop ;
$ hash - > { HELPER } { PNAME } = $ prop1 ? $ prop1: $ prop ; # wenn keine Presetname angegeben -> Presetnummer als Name verwenden
$ hash - > { HELPER } { PSPEED } = $ prop2 if ( $ prop2 ) ;
2020-06-28 18:49:16 +00:00
setPreset ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "setHome" && IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
2018-11-20 23:30:55 +00:00
if ( ! $ prop ) { return "Function \"$opt\" needs a \"Presetname\" as argument" ; }
$ hash - > { HELPER } { SETHOME } = $ prop ;
2020-06-28 18:49:16 +00:00
setHome ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "delPreset" && IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
2020-06-23 10:15:44 +00:00
if ( ! $ prop ) { return qq{ Function "$opt" needs a "Presetname" as argument } ; }
2018-11-20 23:30:55 +00:00
$ hash - > { HELPER } { DELPRESETNAME } = $ prop ;
2020-06-28 18:49:16 +00:00
delPreset ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
return "$setlist" ;
}
return ;
}
################################################################
2020-06-28 18:49:16 +00:00
sub Get {
2018-11-20 23:30:55 +00:00
my ( $ hash , @ a ) = @ _ ;
return "\"get X\" needs at least an argument" if ( @ a < 2 ) ;
my $ name = shift @ a ;
2020-06-28 18:49:16 +00:00
my $ opt = shift @ a ;
my $ arg = shift @ a ;
my $ arg1 = shift @ a ;
my $ arg2 = shift @ a ;
my $ ret = "" ;
my $ getlist ;
2018-11-20 23:30:55 +00:00
if ( ! $ hash - > { CREDENTIALS } ) {
return ;
2020-06-28 18:49:16 +00:00
} elsif ( IsModelCam ( $ hash ) ) {
# getlist für Cams
$ getlist = "Unknown argument $opt, choose one of " .
2018-11-20 23:30:55 +00:00
"caminfoall:noArg " .
2020-06-28 18:49:16 +00:00
"caminfo:noArg " .
( ( AttrVal ( $ name , "snapGalleryNumber" , undef ) || AttrVal ( $ name , "snapGalleryBoost" , 0 ) )
? "snapGallery:noArg " : "snapGallery:$defSnum " ) .
2018-11-20 23:30:55 +00:00
( ( ReadingsVal ( "$name" , "CapPTZPresetNumber" , 0 ) != 0 ) ? "listPresets:noArg " : "" ) .
2020-06-28 18:49:16 +00:00
"snapinfo:noArg " .
2018-11-20 23:30:55 +00:00
"svsinfo:noArg " .
2018-12-31 14:26:04 +00:00
"saveRecording " .
2018-11-20 23:30:55 +00:00
"snapfileinfo:noArg " .
"eventlist:noArg " .
2020-06-28 18:49:16 +00:00
"stmUrlPath:noArg " .
"storedCredentials:noArg " .
"scanVirgin:noArg " .
2018-11-20 23:30:55 +00:00
"versionNotes "
;
2020-06-28 18:49:16 +00:00
} else {
2018-11-20 23:30:55 +00:00
# getlist für SVS Devices
2020-06-28 18:49:16 +00:00
$ getlist = "Unknown argument $opt, choose one of " .
"caminfoall:noArg " .
( $ hash - > { HELPER } { APIHMMAXVER } ? "homeModeState:noArg " : "" ) .
2018-11-20 23:30:55 +00:00
"svsinfo:noArg " .
2020-06-28 18:49:16 +00:00
"listLog " .
"storedCredentials:noArg " .
"scanVirgin:noArg " .
2018-11-20 23:30:55 +00:00
"versionNotes "
;
2020-06-28 18:49:16 +00:00
}
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
if ( $ opt eq "caminfo" ) {
# "1" ist Statusbit für manuelle Abfrage, kein Einstieg in Pollingroutine
2020-06-28 18:49:16 +00:00
if ( ! $ hash - > { CREDENTIALS } ) { return "Credentials of $name are not set - make sure you've set it with \"set $name credentials username password\"" ; }
getCamInfo ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} elsif ( $ opt eq "caminfoall" ) {
# "1" ist Statusbit für manuelle Abfrage, kein Einstieg in Pollingroutine
2020-06-28 18:49:16 +00:00
if ( ! $ hash - > { CREDENTIALS } ) { return "Credentials of $name are not set - make sure you've set it with \"set $name credentials username password\"" ; }
getCaminfoAll ( $ hash , 1 ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "homeModeState" && ! IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return "Credentials of $name are not set - make sure you've set it with \"set $name credentials username password\"" ; }
getHomeModeState ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "listLog" && ! IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return "Credentials of $name are not set - make sure you've set it with \"set $name credentials username password\"" ; }
2018-11-20 23:30:55 +00:00
# übergebenen CL-Hash (FHEMWEB) in Helper eintragen
2020-06-28 18:49:16 +00:00
getClHash ( $ hash , 1 ) ;
extlogargs ( $ hash , $ arg ) if ( $ arg ) ;
extlogargs ( $ hash , $ arg1 ) if ( $ arg1 ) ;
extlogargs ( $ hash , $ arg2 ) if ( $ arg2 ) ;
getSvsLog ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "listPresets" && IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return "Credentials of $name are not set - make sure you've set it with \"set $name credentials username password\"" ; }
2018-11-20 23:30:55 +00:00
# übergebenen CL-Hash (FHEMWEB) in Helper eintragen
2020-06-28 18:49:16 +00:00
getClHash ( $ hash , 1 ) ;
getPresets ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2018-12-31 14:26:04 +00:00
} elsif ( $ opt eq "saveRecording" ) {
2020-06-28 18:49:16 +00:00
if ( ! $ hash - > { CREDENTIALS } ) { return "Credentials of $name are not set - make sure you've set it with \"set $name credentials username password\"" ; }
2018-12-31 14:26:04 +00:00
$ hash - > { HELPER } { RECSAVEPATH } = $ arg if ( $ arg ) ;
2020-06-28 18:49:16 +00:00
getRecAndSave ( $ hash ) ;
2018-12-31 14:26:04 +00:00
2018-11-20 23:30:55 +00:00
} elsif ( $ opt eq "svsinfo" ) {
2020-06-28 18:49:16 +00:00
if ( ! $ hash - > { CREDENTIALS } ) { return "Credentials of $name are not set - make sure you've set it with \"set $name credentials username password\"" ; }
getSvsInfo ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} elsif ( $ opt eq "storedCredentials" ) {
2020-06-28 18:49:16 +00:00
if ( ! $ hash - > { CREDENTIALS } ) { return "Credentials of $name are not set - make sure you've set it with \"set $name credentials username password\"" ; }
2018-11-20 23:30:55 +00:00
# Credentials abrufen
2020-06-28 18:49:16 +00:00
my ( $ success , $ username , $ password ) = getCredentials ( $ hash , 0 , "svs" ) ;
2018-11-20 23:30:55 +00:00
unless ( $ success ) { return "Credentials couldn't be retrieved successfully - see logfile" } ;
2018-12-30 20:20:27 +00:00
2020-06-28 18:49:16 +00:00
my ( $ smtpsuccess , $ smtpuname , $ smtpword ) = getCredentials ( $ hash , 0 , "smtp" ) ;
2018-12-30 20:20:27 +00:00
my $ so ;
if ( $ smtpsuccess ) {
$ so = "SMTP-Username: $smtpuname, SMTP-Password: $smtpword" ;
} else {
$ so = "SMTP credentials are not set" ;
}
return "Stored Credentials to access surveillance station or DSM:\n" .
"=========================================================\n" .
"Username: $username, Password: $password\n" .
"\n" .
"Stored Credentials to access SMTP server:\n" .
"=========================================\n" .
"$so\n" ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "snapGallery" && IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return qq{ Credentials of $name are not set - make sure you've set it with "set $name credentials username password" } ; }
my $ txt = getClHash ( $ hash ) ;
2018-11-20 23:30:55 +00:00
return $ txt if ( $ txt ) ;
2020-06-28 18:49:16 +00:00
if ( ! AttrVal ( $ name , "snapGalleryBoost" , 0 ) ) {
# Snaphash ist nicht vorhanden und wird abgerufen
$ hash - > { HELPER } { GETSNAPGALLERY } = 1 ;
# snap-Infos für Gallerie abrufen
my ( $ sg , $ slim , $ ssize ) ;
$ slim = $ arg // AttrVal ( $ name , "snapGalleryNumber" , $ defSlim ) ; # Anzahl der abzurufenden Snapshots
$ ssize = ( AttrVal ( $ name , "snapGallerySize" , "Icon" ) eq "Icon" ) ? 1 : 2 ; # Image Size 1-Icon, 2-Full
getSnapInfo ( "$name:$slim:$ssize" ) ;
} else {
# Snaphash ist vorhanden und wird zur Ausgabe aufbereitet
$ hash - > { HELPER } { SNAPLIMIT } = AttrVal ( $ name , "snapGalleryNumber" , $ defSlim ) ;
2020-07-17 10:58:15 +00:00
my % pars = ( linkparent = > $ name ,
linkname = > '' ,
ftui = > 0
) ;
my $ htmlCode = composeGallery ( \ % pars ) ;
2020-06-28 18:49:16 +00:00
for ( my $ k = 1 ; ( defined ( $ hash - > { HELPER } { CL } { $ k } ) ) ; $ k + + ) {
if ( $ hash - > { HELPER } { CL } { $ k } - > { COMP } ) {
# CL zusammengestellt (Auslösung durch Notify)
asyncOutput ( $ hash - > { HELPER } { CL } { $ k } , "$htmlCode" ) ;
} else {
# Output wurde über FHEMWEB ausgelöst
return $ htmlCode ;
}
}
delete ( $ hash - > { HELPER } { CL } ) ;
}
} elsif ( $ opt eq "snapinfo" && IsModelCam ( $ hash ) ) {
2019-03-04 19:09:35 +00:00
# Schnappschußgalerie abrufen oder nur Info des letzten Snaps
2020-06-28 18:49:16 +00:00
if ( ! $ hash - > { CREDENTIALS } ) { return "Credentials of $name are not set - make sure you've set it with \"set $name credentials username password\"" ; }
my ( $ slim , $ ssize ) = snapLimSize ( $ hash , 1 ) ; # Force-Bit, es wird $hash->{HELPER}{GETSNAPGALLERY} gesetzt !
getSnapInfo ( "$name:$slim:$ssize" ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "snapfileinfo" && IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return "Credentials of $name are not set - make sure you've set it with \"set $name credentials username password\"" ; }
2018-11-20 23:30:55 +00:00
if ( ! ReadingsVal ( "$name" , "LastSnapId" , undef ) ) { return "Reading LastSnapId is empty - please take a snapshot before !" }
2020-06-28 18:49:16 +00:00
getSnapFilename ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "eventlist" && IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return "Credentials of $name are not set - make sure you've set it with \"set $name credentials username password\"" ; }
getEventList ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "stmUrlPath" && IsModelCam ( $ hash ) ) {
if ( ! $ hash - > { CREDENTIALS } ) { return "Credentials of $name are not set - make sure you've set it with \"set $name credentials username password\"" ; }
getStmUrlPath ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ opt eq "scanVirgin" ) {
if ( ! $ hash - > { CREDENTIALS } ) { return "Credentials of $name are not set - make sure you've set it with \"set $name credentials username password\"" ; }
sessionOff ( $ hash ) ;
delete $ hash - > { HELPER } { APIPARSET } ;
delete $ hash - > { CAMID } ;
2018-11-20 23:30:55 +00:00
# alte Readings außer state löschen
my @ allrds = keys % { $ defs { $ name } { READINGS } } ;
2020-06-30 21:16:26 +00:00
for my $ key ( @ allrds ) {
2018-11-20 23:30:55 +00:00
# Log3 ($name, 1, "DbRep $name - Reading Schlüssel: $key");
delete ( $ defs { $ name } { READINGS } { $ key } ) if ( $ key ne "state" ) ;
}
2020-06-28 18:49:16 +00:00
# "1" ist Statusbit für manuelle Abfrage, kein Einstieg in Pollingroutine
getCaminfoAll ( $ hash , 1 ) ;
2018-11-20 23:30:55 +00:00
2020-07-10 15:16:12 +00:00
} elsif ( $ opt =~ /versionNotes/x ) {
2020-06-28 18:49:16 +00:00
my $ header = "<b>Module release information</b><br>" ;
2018-11-20 23:30:55 +00:00
my $ header1 = "<b>Helpful hints</b><br>" ;
my % hs ;
2020-06-28 18:49:16 +00:00
# Ausgabetabelle erstellen
my ( $ ret , $ val0 , $ val1 ) ;
2018-11-20 23:30:55 +00:00
my $ i = 0 ;
2020-06-28 18:49:16 +00:00
2018-11-20 23:30:55 +00:00
$ ret = "<html>" ;
# Hints
2020-07-10 15:16:12 +00:00
if ( ! $ arg || $ arg =~ /hints/x || $ arg =~ /[\d]+/x ) {
2018-11-20 23:30:55 +00:00
$ ret . = sprintf ( "<div class=\"makeTable wide\"; style=\"text-align:left\">$header1 <br>" ) ;
$ ret . = "<table class=\"block wide internals\">" ;
$ ret . = "<tbody>" ;
$ ret . = "<tr class=\"even\">" ;
2020-07-10 15:16:12 +00:00
if ( $ arg && $ arg =~ /[\d]+/x ) {
2018-11-22 20:38:15 +00:00
my @ hints = split ( "," , $ arg ) ;
2020-06-30 21:16:26 +00:00
for ( @ hints ) {
2018-11-22 20:38:15 +00:00
if ( AttrVal ( "global" , "language" , "EN" ) eq "DE" ) {
2020-06-28 18:49:16 +00:00
$ hs { $ _ } = $ vHintsExt_de { $ _ } ;
2018-11-22 20:38:15 +00:00
} else {
2020-06-28 18:49:16 +00:00
$ hs { $ _ } = $ vHintsExt_en { $ _ } ;
2018-11-22 20:38:15 +00:00
}
}
2018-11-20 23:30:55 +00:00
} else {
if ( AttrVal ( "global" , "language" , "EN" ) eq "DE" ) {
2020-06-28 18:49:16 +00:00
% hs = % vHintsExt_de ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
% hs = % vHintsExt_en ;
2018-11-20 23:30:55 +00:00
}
}
$ i = 0 ;
2020-06-30 21:16:26 +00:00
for my $ key ( sortVersion ( "desc" , keys % hs ) ) {
2018-11-20 23:30:55 +00:00
$ val0 = $ hs { $ key } ;
$ ret . = sprintf ( "<td style=\"vertical-align:top\"><b>$key</b> </td><td style=\"vertical-align:top\">$val0</td>" ) ;
$ ret . = "</tr>" ;
$ i + + ;
if ( $ i & 1 ) {
# $i ist ungerade
$ ret . = "<tr class=\"odd\">" ;
} else {
$ ret . = "<tr class=\"even\">" ;
}
}
$ ret . = "</tr>" ;
$ ret . = "</tbody>" ;
$ ret . = "</table>" ;
$ ret . = "</div>" ;
}
2020-06-28 18:49:16 +00:00
2018-11-20 23:30:55 +00:00
# Notes
2020-07-10 15:16:12 +00:00
if ( ! $ arg || $ arg =~ /rel/x ) {
2018-11-20 23:30:55 +00:00
$ ret . = sprintf ( "<div class=\"makeTable wide\"; style=\"text-align:left\">$header <br>" ) ;
$ ret . = "<table class=\"block wide internals\">" ;
$ ret . = "<tbody>" ;
$ ret . = "<tr class=\"even\">" ;
$ i = 0 ;
2020-06-30 21:16:26 +00:00
for my $ key ( sortVersion ( "desc" , keys % vNotesExtern ) ) {
2020-06-28 18:49:16 +00:00
( $ val0 , $ val1 ) = split ( /\s/ , $ vNotesExtern { $ key } , 2 ) ;
2018-11-20 23:30:55 +00:00
$ ret . = sprintf ( "<td style=\"vertical-align:top\"><b>$key</b> </td><td style=\"vertical-align:top\">$val0 </td><td>$val1</td>" ) ;
$ ret . = "</tr>" ;
$ i + + ;
if ( $ i & 1 ) {
# $i ist ungerade
$ ret . = "<tr class=\"odd\">" ;
} else {
$ ret . = "<tr class=\"even\">" ;
}
}
$ ret . = "</tr>" ;
$ ret . = "</tbody>" ;
$ ret . = "</table>" ;
$ ret . = "</div>" ;
2020-06-28 18:49:16 +00:00
}
2018-11-20 23:30:55 +00:00
$ ret . = "</html>" ;
2020-06-28 18:49:16 +00:00
return $ ret ;
2018-11-20 23:30:55 +00:00
} else {
return "$getlist" ;
2020-06-28 18:49:16 +00:00
}
2018-11-20 23:30:55 +00:00
return $ ret ; # not generate trigger out of command
}
######################################################################################
# Kamera Liveview Anzeige in FHEMWEB
######################################################################################
# wird von FW aufgerufen. $FW_wname = aufrufende Webinstanz, $d = aufrufendes
# Device (z.B. CamCP1)
2020-06-28 18:49:16 +00:00
sub FWsummaryFn {
2018-11-20 23:30:55 +00:00
my ( $ FW_wname , $ d , $ room , $ pageHash ) = @ _ ; # pageHash is set for summaryFn in FHEMWEB
my $ hash = $ defs { $ d } ;
my $ name = $ hash - > { NAME } ;
my $ link = $ hash - > { HELPER } { LINK } ;
my $ wltype = $ hash - > { HELPER } { WLTYPE } ;
2018-12-30 20:20:27 +00:00
my $ ret = "" ;
2018-11-20 23:30:55 +00:00
my $ alias ;
2020-07-10 15:16:12 +00:00
return if ( ! $ hash - > { HELPER } { LINK } || ReadingsVal ( $ d , "state" , "" ) =~ /^dis/x || IsDisabled ( $ name ) ) ;
2018-11-20 23:30:55 +00:00
# Definition Tasten
2020-06-25 06:21:49 +00:00
my $ imgblank = "<img src=\"$FW_ME/www/images/sscam/black_btn_CAMBLANK.png\">" ; # nicht sichtbare Leertaste
2018-11-20 23:30:55 +00:00
my $ cmdstop = "cmd=set $d stopView" ; # Stream deaktivieren
my $ imgstop = "<img src=\"$FW_ME/www/images/default/remotecontrol/black_btn_POWEROFF3.png\">" ;
my $ cmdhlsreact = "cmd=set $d hlsreactivate" ; # HLS Stream reaktivieren
my $ imghlsreact = "<img src=\"$FW_ME/www/images/default/remotecontrol/black_btn_BACKDroid.png\">" ;
my $ cmdmjpegrun = "cmd=set $d runView live_fw" ; # MJPEG Stream aktivieren
my $ imgmjpegrun = "<img src=\"$FW_ME/www/images/sscam/black_btn_MJPEG.png\">" ;
my $ cmdhlsrun = "cmd=set $d runView live_fw_hls" ; # HLS Stream aktivieren
my $ imghlsrun = "<img src=\"$FW_ME/www/images/sscam/black_btn_HLS.png\">" ;
my $ cmdlrirun = "cmd=set $d runView lastrec_fw" ; # Last Record IFrame
my $ imglrirun = "<img src=\"$FW_ME/www/images/sscam/black_btn_LASTRECIFRAME.png\">" ;
my $ cmdlh264run = "cmd=set $d runView lastrec_fw_MPEG4/H.264" ; # Last Record H.264
my $ imglh264run = "<img src=\"$FW_ME/www/images/sscam/black_btn_LRECH264.png\">" ;
my $ cmdlmjpegrun = "cmd=set $d runView lastrec_fw_MJPEG" ; # Last Record MJPEG
my $ imglmjpegrun = "<img src=\"$FW_ME/www/images/sscam/black_btn_LRECMJPEG.png\">" ;
my $ cmdlsnaprun = "cmd=set $d runView lastsnap_fw STRM" ; # Last SNAP
my $ imglsnaprun = "<img src=\"$FW_ME/www/images/sscam/black_btn_LSNAP.png\">" ;
my $ cmdrecendless = "cmd=set $d on 0" ; # Endlosaufnahme Start
my $ imgrecendless = "<img src=\"$FW_ME/www/images/sscam/black_btn_RECSTART.png\">" ;
my $ cmdrecstop = "cmd=set $d off" ; # Aufnahme Stop
my $ imgrecstop = "<img src=\"$FW_ME/www/images/sscam/black_btn_RECSTOP.png\">" ;
2019-02-01 15:00:29 +00:00
my $ cmddosnap = "cmd=set $d snap 1 2 STRM" ; # Snapshot auslösen mit Kennzeichnung "by STRM-Device"
2018-11-20 23:30:55 +00:00
my $ imgdosnap = "<img src=\"$FW_ME/www/images/sscam/black_btn_DOSNAP.png\">" ;
2018-12-30 20:20:27 +00:00
2018-11-20 23:30:55 +00:00
my $ attr = AttrVal ( $ d , "htmlattr" , " " ) ;
2020-06-28 18:49:16 +00:00
Log3 ( $ name , 4 , "$name - FWsummaryFn called - FW_wname: $FW_wname, device: $d, room: $room, attributes: $attr" ) ;
2018-11-20 23:30:55 +00:00
2018-12-30 20:20:27 +00:00
# Javascript Bibliothek für Tooltips (http://www.walterzorn.de/tooltip/tooltip.htm#download) und Texte
my $ calias = $ hash - > { CAMNAME } ; # Alias der Kamera
my $ ttjs = "/fhem/pgm2/sscam_tooltip.js" ;
my ( $ ttrefresh , $ ttrecstart , $ ttrecstop , $ ttsnap , $ ttcmdstop , $ tthlsreact , $ ttmjpegrun , $ tthlsrun , $ ttlrrun , $ tth264run , $ ttlmjpegrun , $ ttlsnaprun ) ;
2020-07-10 15:16:12 +00:00
if ( AttrVal ( "global" , "language" , "EN" ) =~ /EN/x ) {
$ ttrecstart = $ ttips_en { "ttrecstart" } ; $ ttrecstart =~ s/§NAME§/$calias/gx ;
$ ttrecstop = $ ttips_en { "ttrecstop" } ; $ ttrecstop =~ s/§NAME§/$calias/gx ;
$ ttsnap = $ ttips_en { "ttsnap" } ; $ ttsnap =~ s/§NAME§/$calias/gx ;
$ ttcmdstop = $ ttips_en { "ttcmdstop" } ; $ ttcmdstop =~ s/§NAME§/$calias/gx ;
$ tthlsreact = $ ttips_en { "tthlsreact" } ; $ tthlsreact =~ s/§NAME§/$calias/gx ;
2018-12-30 20:20:27 +00:00
} else {
2020-07-10 15:16:12 +00:00
$ ttrecstart = $ ttips_de { "ttrecstart" } ; $ ttrecstart =~ s/§NAME§/$calias/gx ;
$ ttrecstop = $ ttips_de { "ttrecstop" } ; $ ttrecstop =~ s/§NAME§/$calias/gx ;
$ ttsnap = $ ttips_de { "ttsnap" } ; $ ttsnap =~ s/§NAME§/$calias/gx ;
$ ttcmdstop = $ ttips_de { "ttcmdstop" } ; $ ttcmdstop =~ s/§NAME§/$calias/gx ;
$ tthlsreact = $ ttips_de { "tthlsreact" } ; $ tthlsreact =~ s/§NAME§/$calias/gx ;
2018-12-30 20:20:27 +00:00
}
$ ret . = "<script type=\"text/javascript\" src=\"$ttjs\"></script>" ;
2018-11-20 23:30:55 +00:00
if ( $ wltype eq "image" ) {
2019-03-11 18:04:20 +00:00
if ( ReadingsVal ( $ name , "SVSversion" , "8.2.3-5828" ) eq "8.2.3-5828" && ReadingsVal ( $ name , "CamVideoType" , "" ) !~ /MJPEG/ ) {
$ ret . = "<td> <br> <b> Because SVS version 8.2.3-5828 is running you cannot see the MJPEG-Stream. Please upgrade to a higher SVS version ! </b> <br><br>" ;
2019-03-04 19:09:35 +00:00
} else {
$ ret . = "<img src=$link $attr><br>" ;
}
2018-12-30 20:20:27 +00:00
$ ret . = "<a onClick=\"FW_cmd('$FW_ME$FW_subdir?XHR=1&$cmdstop')\" onmouseover=\"Tip('$ttcmdstop')\" onmouseout=\"UnTip()\">$imgstop </a>" ;
2018-11-20 23:30:55 +00:00
$ ret . = $ imgblank ;
2020-07-10 15:16:12 +00:00
if ( $ hash - > { HELPER } { RUNVIEW } =~ /live_fw/x ) {
2018-11-20 23:30:55 +00:00
if ( ReadingsVal ( $ d , "Record" , "Stop" ) eq "Stop" ) {
# Aufnahmebutton endlos Start
2018-12-30 20:20:27 +00:00
$ ret . = "<a onClick=\"FW_cmd('$FW_ME$FW_subdir?XHR=1&$cmdrecendless')\" onmouseover=\"Tip('$ttrecstart')\" onmouseout=\"UnTip()\">$imgrecendless </a>" ;
2018-11-20 23:30:55 +00:00
} else {
# Aufnahmebutton Stop
2018-12-30 20:20:27 +00:00
$ ret . = "<a onClick=\"FW_cmd('$FW_ME$FW_subdir?XHR=1&$cmdrecstop')\" onmouseover=\"Tip('$ttrecstop')\" onmouseout=\"UnTip()\">$imgrecstop </a>" ;
2020-06-28 18:49:16 +00:00
}
2018-12-30 20:20:27 +00:00
$ ret . = "<a onClick=\"FW_cmd('$FW_ME$FW_subdir?XHR=1&$cmddosnap')\" onmouseover=\"Tip('$ttsnap')\" onmouseout=\"UnTip()\">$imgdosnap </a>" ;
2018-11-20 23:30:55 +00:00
}
$ ret . = "<br>" ;
if ( $ hash - > { HELPER } { AUDIOLINK } && ReadingsVal ( $ d , "CamAudioType" , "Unknown" ) !~ /Unknown/ ) {
$ ret . = " < audio src = $ hash - > { HELPER } { AUDIOLINK } preload = 'none' volume = '0.5' controls >
Your browser does not support the audio element .
</audio> " ;
}
} elsif ( $ wltype eq "iframe" ) {
2018-12-30 20:20:27 +00:00
$ ret . = " < iframe src = $ link $ attr controls autoplay >
2018-11-20 23:30:55 +00:00
Iframes disabled
</iframe> " ;
$ ret . = "<br>" ;
2018-12-30 20:20:27 +00:00
$ ret . = "<a onClick=\"FW_cmd('$FW_ME$FW_subdir?XHR=1&$cmdstop')\" onmouseover=\"Tip('$ttcmdstop')\" onmouseout=\"UnTip()\">$imgstop </a>" ;
2018-11-20 23:30:55 +00:00
if ( $ hash - > { HELPER } { AUDIOLINK } && ReadingsVal ( $ d , "CamAudioType" , "Unknown" ) !~ /Unknown/ ) {
$ ret . = " < audio src = $ hash - > { HELPER } { AUDIOLINK } preload = 'none' volume = '0.5' controls >
Your browser does not support the audio element .
</audio> " ;
}
} elsif ( $ wltype eq "embed" ) {
2018-12-30 20:20:27 +00:00
$ ret . = "<embed src=$link $attr>" ;
2018-11-20 23:30:55 +00:00
if ( $ hash - > { HELPER } { AUDIOLINK } && ReadingsVal ( $ d , "CamAudioType" , "Unknown" ) !~ /Unknown/ ) {
$ ret . = " < audio src = $ hash - > { HELPER } { AUDIOLINK } preload = 'none' volume = '0.5' controls >
Your browser does not support the audio element .
</audio> " ;
}
} elsif ( $ wltype eq "link" ) {
$ alias = $ hash - > { HELPER } { ALIAS } ;
2018-12-30 20:20:27 +00:00
$ ret . = "<a href=$link $attr>$alias</a><br>" ;
2018-11-20 23:30:55 +00:00
} elsif ( $ wltype eq "base64img" ) {
$ alias = $ hash - > { HELPER } { ALIAS } ;
2018-12-30 20:20:27 +00:00
$ ret . = "<img $attr alt='$alias' src='data:image/jpeg;base64,$link'><br>" ;
$ ret . = "<a onClick=\"FW_cmd('$FW_ME$FW_subdir?XHR=1&$cmdstop')\" onmouseover=\"Tip('$ttcmdstop')\" onmouseout=\"UnTip()\">$imgstop </a>" ;
2019-02-04 17:43:27 +00:00
$ ret . = $ imgblank ;
$ ret . = "<a onClick=\"FW_cmd('$FW_ME$FW_subdir?XHR=1&$cmddosnap')\" onmouseover=\"Tip('$ttsnap')\" onmouseout=\"UnTip()\">$imgdosnap </a>" ;
2018-11-20 23:30:55 +00:00
} elsif ( $ wltype eq "hls" ) {
$ alias = $ hash - > { HELPER } { ALIAS } ;
2018-12-30 20:20:27 +00:00
$ ret . = " < video $ attr controls autoplay >
2018-11-20 23:30:55 +00:00
< source src = $ link type = \ " application / x - mpegURL \ " >
< source src = $ link type = \ " video / MP2T \ " >
Your browser does not support the video tag
</video> " ;
$ ret . = "<br>" ;
2018-12-30 20:20:27 +00:00
$ ret . = "<a onClick=\"FW_cmd('$FW_ME$FW_subdir?XHR=1&$cmdstop')\" onmouseover=\"Tip('$ttcmdstop')\" onmouseout=\"UnTip()\">$imgstop </a>" ;
$ ret . = "<a onClick=\"FW_cmd('$FW_ME$FW_subdir?XHR=1&$cmdhlsreact')\" onmouseover=\"Tip('$tthlsreact')\" onmouseout=\"UnTip()\">$imghlsreact </a>" ;
2018-11-20 23:30:55 +00:00
$ ret . = $ imgblank ;
if ( ReadingsVal ( $ d , "Record" , "Stop" ) eq "Stop" ) {
# Aufnahmebutton endlos Start
2018-12-30 20:20:27 +00:00
$ ret . = "<a onClick=\"FW_cmd('$FW_ME$FW_subdir?XHR=1&$cmdrecendless')\" onmouseover=\"Tip('$ttrecstart')\" onmouseout=\"UnTip()\">$imgrecendless </a>" ;
2018-11-20 23:30:55 +00:00
} else {
# Aufnahmebutton Stop
2018-12-30 20:20:27 +00:00
$ ret . = "<a onClick=\"FW_cmd('$FW_ME$FW_subdir?XHR=1&$cmdrecstop')\" onmouseover=\"Tip('$ttrecstop')\" onmouseout=\"UnTip()\">$imgrecstop </a>" ;
2020-06-28 18:49:16 +00:00
}
2018-12-30 20:20:27 +00:00
$ ret . = "<a onClick=\"FW_cmd('$FW_ME$FW_subdir?XHR=1&$cmddosnap')\" onmouseover=\"Tip('$ttsnap')\" onmouseout=\"UnTip()\">$imgdosnap </a>" ;
2018-11-20 23:30:55 +00:00
} elsif ( $ wltype eq "video" ) {
2018-12-30 20:20:27 +00:00
$ ret . = " < video $ attr controls autoplay >
2018-11-20 23:30:55 +00:00
< source src = $ link type = \ " video / mp4 \ " >
< source src = $ link type = \ " video / ogg \ " >
< source src = $ link type = \ " video / webm \ " >
Your browser does not support the video tag .
</video> " ;
$ ret . = "<br>" ;
2018-12-30 20:20:27 +00:00
$ ret . = "<a onClick=\"FW_cmd('$FW_ME$FW_subdir?XHR=1&$cmdstop')\" onmouseover=\"Tip('$ttcmdstop')\" onmouseout=\"UnTip()\">$imgstop </a>" ;
2018-11-20 23:30:55 +00:00
$ ret . = "<br>" ;
if ( $ hash - > { HELPER } { AUDIOLINK } && ReadingsVal ( $ d , "CamAudioType" , "Unknown" ) !~ /Unknown/ ) {
$ ret . = " < audio src = $ hash - > { HELPER } { AUDIOLINK } preload = 'none' volume = '0.5' controls >
Your browser does not support the audio element .
</audio> " ;
}
}
return $ ret ;
}
######################################################################################
2020-06-25 06:21:49 +00:00
# Detailanzeige
2018-11-20 23:30:55 +00:00
######################################################################################
2020-06-28 18:49:16 +00:00
sub FWdetailFn {
2020-06-25 06:21:49 +00:00
my ( $ FW_wname , $ name , $ room , $ pageHash ) = @ _ ; # pageHash is set for summaryFn.
my $ hash = $ defs { $ name } ;
2019-06-01 13:25:55 +00:00
my $ ret = "" ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
checkIconpath ( $ name , $ FW_wname ) ;
2020-06-25 06:21:49 +00:00
2020-06-28 18:49:16 +00:00
$ hash - > { ".setup" } = FWconfCam ( $ name , $ room ) ;
2019-06-01 19:06:07 +00:00
if ( $ hash - > { ".setup" } ne "" ) {
$ ret . = $ hash - > { ".setup" } ;
}
2019-06-01 13:25:55 +00:00
2020-07-17 10:58:15 +00:00
my % pars = ( linkparent = > $ name ,
linkname = > $ name ,
ftui = > 0
) ;
$ hash - > { ".ptzhtml" } = ptzPanel ( \ % pars ) if ( $ hash - > { ".ptzhtml" } eq "" ) ;
2018-11-20 23:30:55 +00:00
2020-06-25 06:21:49 +00:00
if ( $ hash - > { ".ptzhtml" } ne "" && AttrVal ( $ name , "ptzPanel_use" , 1 ) ) {
2019-06-01 13:25:55 +00:00
$ ret . = $ hash - > { ".ptzhtml" } ;
}
return $ ret ;
}
###############################################################################
# Aufruf Konfigseite Kamera
###############################################################################
2020-06-28 18:49:16 +00:00
sub FWconfCam {
2019-06-01 13:25:55 +00:00
my ( $ name , $ room ) = @ _ ;
my $ hash = $ defs { $ name } ;
my $ cip = ReadingsVal ( "$name" , "CamIP" , "" ) ;
my $ svsip = $ hash - > { SERVERADDR } ;
my $ svsport = $ hash - > { SERVERPORT } ;
my $ svsprot = $ hash - > { PROTOCOL } ;
my $ ttjs = "/fhem/pgm2/sscam_tooltip.js" ;
my $ attr = AttrVal ( $ name , "htmlattr" , "" ) ;
my $ alias = AttrVal ( $ name , "alias" , $ name ) ;
my $ winname = $ name . "_view" ;
my $ cicon = 'edit_settings.svg' ; # Icon für Cam/SVS Setup-Screen
2019-06-01 21:10:48 +00:00
my $ hicon = 'info_info.svg' ; # Icon für SVS Hilfeseite
2019-06-01 13:25:55 +00:00
my $ w = 150 ;
my ( $ ret , $ cexpl , $ hexpl ) = ( "" , "" , "" ) ;
my ( $ cs , $ bs , $ ch , $ bh , ) ;
2020-06-28 18:49:16 +00:00
if ( IsModelCam ( $ hash ) ) { # Camera Device
2019-06-01 13:25:55 +00:00
return $ ret if ( ! $ cip ) ;
2020-07-10 15:16:12 +00:00
if ( AttrVal ( "global" , "language" , "EN" ) =~ /DE/x ) {
$ cexpl = $ ttips_de { confcam } ; $ cexpl =~ s/§NAME§/$alias/gx ; $ cexpl =~ s/\s+/ /gx ;
2019-06-01 13:25:55 +00:00
} else {
2020-07-10 15:16:12 +00:00
$ cexpl = $ ttips_en { confcam } ; $ cexpl =~ s/§NAME§/$alias/gx ; $ cexpl =~ s/\s+/ /gx ;
2019-06-01 13:25:55 +00:00
}
$ cs = "window.open('http://$cip')" ;
} else { # SVS-Device
return $ ret if ( ! $ svsip ) ;
2020-07-10 15:16:12 +00:00
if ( AttrVal ( "global" , "language" , "EN" ) =~ /DE/x ) {
$ cexpl = $ ttips_de { confsvs } ; $ cexpl =~ s/§NAME§/$alias/gx ; $ cexpl =~ s/\s+/ /gx ;
2019-06-01 13:25:55 +00:00
} else {
2020-07-10 15:16:12 +00:00
$ cexpl = $ ttips_en { confsvs } ; $ cexpl =~ s/§NAME§/$alias/gx ; $ cexpl =~ s/\s+/ /gx ;
2019-06-01 13:25:55 +00:00
}
$ cs = "window.open('$svsprot://$svsip:$svsport/cam')" ;
2018-11-20 23:30:55 +00:00
}
2019-06-01 13:25:55 +00:00
2020-07-10 15:16:12 +00:00
if ( AttrVal ( "global" , "language" , "EN" ) =~ /DE/x ) {
$ hexpl = $ ttips_de { "helpsvs" } ; $ hexpl =~ s/\s/ /gx ;
2019-06-01 13:25:55 +00:00
$ ch = "window.open('https://www.synology.com/de-de/knowledgebase/Surveillance/help')" ;
} else {
2020-07-10 15:16:12 +00:00
$ hexpl = $ ttips_en { "helpsvs" } ; $ hexpl =~ s/\s/ /gx ;
2020-06-21 20:37:08 +00:00
$ ch = "window.open('https://www.synology.com/en-global/knowledgebase/Surveillance/help')" ;
2019-06-01 13:25:55 +00:00
}
$ cicon = FW_makeImage ( $ cicon ) ; $ hicon = FW_makeImage ( $ hicon ) ;
2019-06-01 18:59:49 +00:00
$ bs = "Tip(`$cexpl`)" ;
$ bh = "Tip(`$hexpl`)" ;
2019-06-01 13:25:55 +00:00
$ ret . = "<script type=\"text/javascript\" src=\"$ttjs\"></script>" ;
$ ret . = "<style>TD.confcam {text-align: center; padding-left:1px; padding-right:1px; margin:0px;}</style>" ;
$ ret . = "<table class='roomoverview' width='$w' style='width:" . $ w . "px'>" ;
$ ret . = '<tbody>' ;
$ ret . = "<td>" ;
$ ret . = "<a onClick=$cs onmouseover=$bs onmouseout=\"UnTip()\"> $cicon </a>" ;
$ ret . = "</td><td>" ;
$ ret . = "<a onClick=$ch onmouseover=$bh onmouseout=\"UnTip()\"> $hicon </a>" ;
$ ret . = "</td>" ;
$ ret . = "</tr>" ;
$ ret . = '</tbody>' ;
$ ret . = "</table>" ;
$ ret . = "<br>" ;
return $ ret ;
2018-11-20 23:30:55 +00:00
}
######################################################################################
# initiale Startroutinen nach Restart FHEM
######################################################################################
2020-06-28 18:49:16 +00:00
sub initOnBoot {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ name = $ hash - > { NAME } ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::initOnBoot" ) ;
2018-11-20 23:30:55 +00:00
if ( $ init_done == 1 ) {
RemoveInternalTimer ( $ hash ) ; # alle Timer löschen
delete ( $ defs { $ name } { READINGS } { LiveStreamUrl } ) if ( $ defs { $ name } { READINGS } { LiveStreamUrl } ) ; # LiveStream URL zurücksetzen
# check ob alle Recordings = "Stop" nach Reboot -> sonst stoppen
if ( ReadingsVal ( $ hash - > { NAME } , "Record" , "Stop" ) eq "Start" ) {
Log3 ( $ name , 2 , "$name - Recording of $hash->{CAMNAME} seems to be still active after FHEM restart - try to stop it now" ) ;
2020-06-28 18:49:16 +00:00
camStopRec ( $ hash ) ;
2018-11-20 23:30:55 +00:00
}
# Konfiguration der Synology Surveillance Station abrufen
if ( ! $ hash - > { CREDENTIALS } ) {
Log3 ( $ name , 2 , "$name - Credentials of $name are not set - make sure you've set it with \"set $name credentials username password\"" ) ;
} else {
readingsSingleUpdate ( $ hash , "compstate" , "true" , 0 ) ; # Anfangswert f. versionCheck setzen
# allg. SVS-Eigenschaften abrufen
2020-06-28 18:49:16 +00:00
getSvsInfo ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
if ( IsModelCam ( $ hash ) ) {
# Kameraspezifische Infos holen
getCamInfo ( $ hash ) ;
getCapabilities ( $ hash ) ;
getStmUrlPath ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
# Preset/Patrollisten in Hash einlesen zur PTZ-Steuerung
getPtzPresetList ( $ hash ) ;
getPtzPatrolList ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2019-03-04 19:09:35 +00:00
# Schnappschußgalerie abrufen oder nur Info des letzten Snaps
2020-06-28 18:49:16 +00:00
my ( $ slim , $ ssize ) = snapLimSize ( $ hash , 1 ) ; # Force-Bit, es wird $hash->{HELPER}{GETSNAPGALLERY} erzwungen !
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getSnapInfo" ) ;
InternalTimer ( gettimeofday ( ) + 0.9 , "FHEM::SSCam::getSnapInfo" , "$name:$slim:$ssize" , 0 ) ;
}
versionCheck ( $ hash ) ; # Einstieg in regelmäßigen Check Kompatibilität
2018-11-20 23:30:55 +00:00
}
# Subroutine Watchdog-Timer starten (sollen Cam-Infos regelmäßig abgerufen werden ?), verzögerter zufälliger Start 0-30s
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::wdpollcaminfo" ) ;
InternalTimer ( gettimeofday ( ) + int ( rand ( 30 ) ) , "FHEM::SSCam::wdpollcaminfo" , $ hash , 0 ) ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 3 , "FHEM::SSCam::initOnBoot" , $ hash , 0 ) ;
2018-11-20 23:30:55 +00:00
}
return ;
}
###############################################################################
# Dauerschleife Kompatibilitätscheck SSCam <-> SVS
###############################################################################
2020-06-28 18:49:16 +00:00
sub versionCheck {
my $ hash = shift ;
my $ name = $ hash - > { NAME } ;
my $ rc = 21600 ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::versionCheck" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
my $ cs = ReadingsVal ( $ name , "compstate" , "true" ) ;
if ( $ cs eq "false" ) {
Log3 ( $ name , 2 , "$name - WARNING - The current/simulated SVS-version " . ReadingsVal ( $ name , "SVSversion" , "" ) .
2019-03-27 21:18:48 +00:00
" may be incompatible with SSCam version $hash->{HELPER}{VERSION}. " .
2019-03-04 19:09:35 +00:00
"For further information execute \"get $name versionNotes 4\"." ) ;
2018-11-20 23:30:55 +00:00
}
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + $ rc , "FHEM::SSCam::versionCheck" , $ hash , 0 ) ;
2018-11-20 23:30:55 +00:00
return ;
}
2019-03-04 19:09:35 +00:00
###############################################################################
# Liefert die bereinigte SVS-Version dreistellig xxx
###############################################################################
2020-06-28 18:49:16 +00:00
sub myVersion {
my $ hash = shift ;
my $ name = $ hash - > { NAME } ;
my $ actvs = 0 ;
2019-03-04 19:09:35 +00:00
my @ vl = split ( /-/ , ReadingsVal ( $ name , "SVSversion" , "" ) , 2 ) ;
if ( @ vl ) {
$ actvs = $ vl [ 0 ] ;
2020-07-10 15:16:12 +00:00
$ actvs =~ s/\.//gx ;
2019-03-04 19:09:35 +00:00
}
2019-04-07 15:41:23 +00:00
2019-03-04 19:09:35 +00:00
return $ actvs ;
}
2018-11-20 23:30:55 +00:00
######################################################################################
# Username / Paßwort speichern
2018-12-30 20:20:27 +00:00
# $cre = "svs" -> Credentials für SVS und Cams
# $cre = "smtp" -> Credentials für Mailversand
2018-11-20 23:30:55 +00:00
######################################################################################
2020-06-28 18:49:16 +00:00
sub setCredentials {
2018-12-30 20:20:27 +00:00
my ( $ hash , $ cre , @ credentials ) = @ _ ;
my $ name = $ hash - > { NAME } ;
my ( $ success , $ credstr , $ index , $ retcode ) ;
2018-11-20 23:30:55 +00:00
my ( @ key , $ len , $ i ) ;
2018-12-30 20:20:27 +00:00
my $ ao = ( $ cre eq "svs" ) ? "credentials" : "SMTPcredentials" ;
2018-11-20 23:30:55 +00:00
$ credstr = encode_base64 ( join ( ':' , @ credentials ) ) ;
# Beginn Scramble-Routine
@ key = qw( 1 3 4 5 6 3 2 1 9 ) ;
$ len = scalar @ key ;
$ i = 0 ;
$ credstr = join "" ,
map { $ i = ( $ i + 1 ) % $ len ;
chr ( ( ord ( $ _ ) + $ key [ $ i ] ) % 256 ) } split // , $ credstr ;
# End Scramble-Routine
2018-12-30 20:20:27 +00:00
$ index = $ hash - > { TYPE } . "_" . $ hash - > { NAME } . "_" . $ ao ;
2018-11-20 23:30:55 +00:00
$ retcode = setKeyValue ( $ index , $ credstr ) ;
if ( $ retcode ) {
Log3 ( $ name , 2 , "$name - Error while saving the Credentials - $retcode" ) ;
$ success = 0 ;
} else {
2020-06-28 18:49:16 +00:00
getCredentials ( $ hash , 1 , $ cre ) ; # Credentials nach Speicherung lesen und in RAM laden ($boot=1), $ao = credentials oder SMTPcredentials
2018-11-20 23:30:55 +00:00
$ success = 1 ;
}
return ( $ success ) ;
}
######################################################################################
# Username / Paßwort abrufen
2018-12-30 20:20:27 +00:00
# $cre = "svs" -> Credentials für SVS und Cams
# $cre = "smtp" -> Credentials für Mailversand
2018-11-20 23:30:55 +00:00
######################################################################################
2020-06-28 18:49:16 +00:00
sub getCredentials {
2018-12-30 20:20:27 +00:00
my ( $ hash , $ boot , $ cre ) = @ _ ;
my $ name = $ hash - > { NAME } ;
my ( $ success , $ username , $ passwd , $ index , $ retcode , $ credstr ) ;
2018-11-20 23:30:55 +00:00
my ( @ key , $ len , $ i ) ;
2018-12-30 20:20:27 +00:00
my $ ao = ( $ cre eq "svs" ) ? "credentials" : "SMTPcredentials" ;
my $ pp = "" ;
2018-11-20 23:30:55 +00:00
2018-12-06 22:22:15 +00:00
if ( $ boot ) {
2018-11-20 23:30:55 +00:00
# mit $boot=1 Credentials von Platte lesen und als scrambled-String in RAM legen
2018-12-30 20:20:27 +00:00
$ index = $ hash - > { TYPE } . "_" . $ hash - > { NAME } . "_" . $ ao ;
2018-11-20 23:30:55 +00:00
( $ retcode , $ credstr ) = getKeyValue ( $ index ) ;
if ( $ retcode ) {
Log3 ( $ name , 2 , "$name - Unable to read password from file: $retcode" ) ;
$ success = 0 ;
}
if ( $ credstr ) {
2018-12-30 20:20:27 +00:00
if ( $ cre eq "svs" ) {
# beim Boot scrambled Credentials in den RAM laden
$ hash - > { HELPER } { CREDENTIALS } = $ credstr ;
2018-11-20 23:30:55 +00:00
2018-12-30 20:20:27 +00:00
# "Credentials" wird als Statusbit ausgewertet. Wenn nicht gesetzt -> Warnmeldung und keine weitere Verarbeitung
$ hash - > { CREDENTIALS } = "Set" ;
$ success = 1 ;
} elsif ( $ cre eq "smtp" ) {
# beim Boot scrambled Credentials in den RAM laden
$ hash - > { HELPER } { SMTPCREDENTIALS } = $ credstr ;
# "Credentials" wird als Statusbit ausgewertet. Wenn nicht gesetzt -> Warnmeldung und keine weitere Verarbeitung
$ hash - > { SMTPCREDENTIALS } = "Set" ;
$ success = 1 ;
}
2018-11-20 23:30:55 +00:00
}
} else {
# boot = 0 -> Credentials aus RAM lesen, decoden und zurückgeben
2018-12-30 20:20:27 +00:00
if ( $ cre eq "svs" ) {
$ credstr = $ hash - > { HELPER } { CREDENTIALS } ;
} elsif ( $ cre eq "smtp" ) {
$ pp = "SMTP" ;
$ credstr = $ hash - > { HELPER } { SMTPCREDENTIALS } ;
}
if ( $ credstr ) {
# Beginn Descramble-Routine
@ key = qw( 1 3 4 5 6 3 2 1 9 ) ;
$ len = scalar @ key ;
$ i = 0 ;
$ credstr = join "" ,
map { $ i = ( $ i + 1 ) % $ len ;
chr ( ( ord ( $ _ ) - $ key [ $ i ] + 256 ) % 256 ) }
split // , $ credstr ;
# Ende Descramble-Routine
( $ username , $ passwd ) = split ( ":" , decode_base64 ( $ credstr ) ) ;
my $ logpw = AttrVal ( $ name , "showPassInLog" , "0" ) == 1 ? $ passwd : "********" ;
Log3 ( $ name , 4 , "$name - " . $ pp . "Credentials read from RAM: $username $logpw" ) ;
} else {
Log3 ( $ name , 2 , "$name - " . $ pp . "Credentials not set in RAM !" ) ;
}
2018-11-20 23:30:55 +00:00
$ success = ( defined ( $ passwd ) ) ? 1 : 0 ;
}
2018-12-06 22:22:15 +00:00
2018-11-20 23:30:55 +00:00
return ( $ success , $ username , $ passwd ) ;
}
######################################################################################
# Polling Überwachung
######################################################################################
2020-06-28 18:49:16 +00:00
sub wdpollcaminfo {
2018-11-20 23:30:55 +00:00
# Überwacht die Wert von Attribut "pollcaminfoall" und Reading "PollState"
# wenn Attribut "pollcaminfoall" > 10 und "PollState"=Inactive -> start Polling
my ( $ hash ) = @ _ ;
my $ name = $ hash - > { NAME } ;
my $ camname = $ hash - > { CAMNAME } ;
my $ pcia = AttrVal ( $ name , "pollcaminfoall" , 0 ) ;
my $ pnl = AttrVal ( $ name , "pollnologging" , 0 ) ;
2019-06-28 21:01:49 +00:00
my $ watchdogtimer = 60 + rand ( 30 ) ;
2019-01-20 16:07:48 +00:00
my $ lang = AttrVal ( "global" , "language" , "EN" ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::wdpollcaminfo" ) ;
2018-11-20 23:30:55 +00:00
# Poll-Logging prüfen
if ( $ hash - > { HELPER } { OLDVALPOLLNOLOGGING } != $ pnl ) {
$ hash - > { HELPER } { OLDVALPOLLNOLOGGING } = $ pnl ; # aktuellen pollnologging-Wert in $hash eintragen für späteren Vergleich
if ( $ pnl ) {
Log3 ( $ name , 3 , "$name - Polling-Log of $camname is deactivated" ) ;
} else {
Log3 ( $ name , 3 , "$name - Polling-Log of $camname is activated" ) ;
}
}
# Polling prüfen
if ( $ pcia && ! IsDisabled ( $ name ) ) {
if ( ReadingsVal ( $ name , "PollState" , "Active" ) eq "Inactive" ) {
readingsSingleUpdate ( $ hash , "PollState" , "Active" , 1 ) ; # Polling ist jetzt aktiv
2020-06-28 18:49:16 +00:00
readingsSingleUpdate ( $ hash , "state" , "polling" , 1 ) if ( ! IsModelCam ( $ hash ) ) ; # Polling-state bei einem SVS-Device setzten
Log3 ( $ name , 3 , "$name - Polling of $camname is activated - Pollinginterval: $pcia s" ) ;
2018-11-20 23:30:55 +00:00
$ hash - > { HELPER } { OLDVALPOLL } = $ pcia ; # in $hash eintragen für späteren Vergleich (Changes von pollcaminfoall)
2020-06-28 18:49:16 +00:00
getCaminfoAll ( $ hash , 0 ) ;
2018-11-20 23:30:55 +00:00
}
2019-01-20 16:07:48 +00:00
my $ lupd = ReadingsVal ( $ name , "LastUpdateTime" , "1970-01-01 / 01:00:00" ) ;
my ( $ year , $ month , $ mday , $ hour , $ min , $ sec ) ;
2020-07-10 15:16:12 +00:00
if ( $ lupd =~ /(\d+)\.(\d+)\.(\d+)/x ) {
2019-01-20 16:07:48 +00:00
( $ mday , $ month , $ year , $ hour , $ min , $ sec ) = ( $ lupd =~ /(\d+)\.(\d+)\.(\d+) \/ (\d+):(\d+):(\d+)/ ) ;
} else {
( $ year , $ month , $ mday , $ hour , $ min , $ sec ) = ( $ lupd =~ /(\d+)-(\d+)-(\d+) \/ (\d+):(\d+):(\d+)/ ) ;
2018-11-20 23:30:55 +00:00
}
2019-01-20 16:07:48 +00:00
$ lupd = fhemTimeLocal ( $ sec , $ min , $ hour , $ mday , $ month -= 1 , $ year -= 1900 ) ;
if ( gettimeofday ( ) > ( $ lupd + $ pcia + 20 ) ) {
2020-06-28 18:49:16 +00:00
getCaminfoAll ( $ hash , 0 ) ;
2018-11-20 23:30:55 +00:00
}
}
if ( defined ( $ hash - > { HELPER } { OLDVALPOLL } ) && $ pcia ) {
if ( $ hash - > { HELPER } { OLDVALPOLL } != $ pcia ) {
Log3 ( $ name , 3 , "$name - Pollinginterval of $camname has been changed to: $pcia s" ) ;
$ hash - > { HELPER } { OLDVALPOLL } = $ pcia ;
}
}
2020-06-30 21:16:26 +00:00
InternalTimer ( gettimeofday ( ) + $ watchdogtimer , "FHEM::SSCam::wdpollcaminfo" , $ hash , 0 ) ;
return ;
2018-11-20 23:30:55 +00:00
}
############################################################################################################
# OpMode-Startroutinen #
# $hash->{HELPER}{ACTIVE} = Funktionstoken #
# $hash->{HELPER}{ACTIVE} = "on" -> eine Routine läuft, Start anderer Routine erst wenn "off". #
# $hash->{HELPER}{ACTIVE} = "off" -> keine andere Routine läuft, sofortiger Start möglich #
############################################################################################################
###############################################################################
# Kamera Aufnahme starten
###############################################################################
2020-06-28 18:49:16 +00:00
sub camStartRec {
2019-12-11 21:16:03 +00:00
my ( $ str ) = @ _ ;
2020-06-28 18:49:16 +00:00
my ( $ name , $ emtxt , $ teletxt , $ chattxt ) = split ( "!_!" , $ str ) ;
my $ hash = $ defs { $ name } ;
2019-12-11 21:16:03 +00:00
my $ camname = $ hash - > { CAMNAME } ;
my ( $ errorcode , $ error ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "camStartRec" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
2020-07-10 15:16:12 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) =~ /^dis/x ) {
2018-11-20 23:30:55 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) eq "disabled" ) {
$ errorcode = "402" ;
} elsif ( ReadingsVal ( "$name" , "state" , "" ) eq "disconnected" ) {
$ errorcode = "502" ;
}
# Fehlertext zum Errorcode ermitteln
2020-06-28 18:49:16 +00:00
$ error = expErrors ( $ hash , $ errorcode ) ;
2018-11-20 23:30:55 +00:00
# Setreading
2019-12-11 21:16:03 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , $ errorcode ) ;
readingsBulkUpdate ( $ hash , "Error" , $ error ) ;
readingsEndUpdate ( $ hash , 1 ) ;
2018-11-20 23:30:55 +00:00
Log3 ( $ name , 2 , "$name - ERROR - Start Recording of Camera $camname can't be executed - $error" ) ;
return ;
}
2020-07-01 19:24:20 +00:00
if ( ReadingsVal ( "$name" , "Record" , "" ) eq "Start" && ! AttrVal ( $ name , "recextend" , "" ) ) {
2018-11-20 23:30:55 +00:00
Log3 ( $ name , 3 , "$name - another recording is already running - new start-command will be ignored" ) ;
return ;
}
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
# Aufnahme starten
2019-10-12 05:50:49 +00:00
$ hash - > { OPMODE } = "Start" ;
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
if ( $ emtxt || $ teletxt || $ chattxt ) {
2019-10-12 05:50:49 +00:00
$ hash - > { HELPER } { CANSENDREC } = 1 if ( $ emtxt ) ; # Versand Aufnahme soll per Email erfolgen
$ hash - > { HELPER } { CANTELEREC } = 1 if ( $ teletxt ) ; # Versand Aufnahme soll per TelegramBot erfolgen
2019-12-11 21:16:03 +00:00
$ hash - > { HELPER } { CANCHATREC } = 1 if ( $ chattxt ) ; # Versand Aufnahme soll per SSChatBot erfolgen
2019-10-12 05:50:49 +00:00
$ hash - > { HELPER } { SMTPRECMSG } = $ emtxt if ( $ emtxt ) ; # Text für Email-Versand
$ hash - > { HELPER } { TELERECMSG } = $ teletxt if ( $ teletxt ) ; # Text für Telegram-Versand
2019-12-11 21:16:03 +00:00
$ hash - > { HELPER } { CHATRECMSG } = $ chattxt if ( $ chattxt ) ; # Text für Synology Chat-Versand
2019-10-12 05:50:49 +00:00
}
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} else {
InternalTimer ( gettimeofday ( ) + 0.3 , "FHEM::SSCam::camStartRec" , "$name!_!$emtxt!_!$teletxt!_!$chattxt" , 0 ) ;
2018-11-20 23:30:55 +00:00
}
2020-07-01 19:24:20 +00:00
return ;
2018-11-20 23:30:55 +00:00
}
###############################################################################
# Kamera Aufnahme stoppen
###############################################################################
2020-06-28 18:49:16 +00:00
sub camStopRec {
2019-10-12 05:50:49 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
2018-11-20 23:30:55 +00:00
my $ errorcode ;
my $ error ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::camStopRec" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
2020-07-10 15:16:12 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) =~ /^dis/x ) {
2018-11-20 23:30:55 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) eq "disabled" ) {
$ errorcode = "402" ;
} elsif ( ReadingsVal ( "$name" , "state" , "" ) eq "disconnected" ) {
$ errorcode = "502" ;
}
# Fehlertext zum Errorcode ermitteln
2020-06-28 18:49:16 +00:00
$ error = expErrors ( $ hash , $ errorcode ) ;
2018-11-20 23:30:55 +00:00
# Setreading
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , $ errorcode ) ;
readingsBulkUpdate ( $ hash , "Error" , $ error ) ;
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , 2 , "$name - ERROR - Stop Recording of Camera $camname can't be executed - $error" ) ;
return ;
}
if ( ReadingsVal ( "$name" , "Record" , undef ) eq "Stop" ) {
Log3 ( $ name , 3 , "$name - recording is already stopped - new stop-command will be ignored" ) ;
return ;
}
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
2019-10-12 05:50:49 +00:00
$ hash - > { OPMODE } = "Stop" ;
2018-11-20 23:30:55 +00:00
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2019-02-12 20:26:31 +00:00
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 0.3 , "FHEM::SSCam::camStopRec" , $ hash , 0 ) ;
2018-11-20 23:30:55 +00:00
}
2020-07-01 19:24:20 +00:00
return ;
2018-11-20 23:30:55 +00:00
}
###############################################################################
# Kamera Auto / Day / Nightmode setzen
###############################################################################
2020-06-28 18:49:16 +00:00
sub camExpmode {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
my $ errorcode ;
my $ error ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::camExpmode" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
2020-07-10 15:16:12 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) =~ /^dis/x ) {
2018-11-20 23:30:55 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) eq "disabled" ) {
$ errorcode = "402" ;
} elsif ( ReadingsVal ( "$name" , "state" , "" ) eq "disconnected" ) {
$ errorcode = "502" ;
}
# Fehlertext zum Errorcode ermitteln
2020-06-28 18:49:16 +00:00
$ error = expErrors ( $ hash , $ errorcode ) ;
2018-11-20 23:30:55 +00:00
# Setreading
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , $ errorcode ) ;
readingsBulkUpdate ( $ hash , "Error" , $ error ) ;
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , 2 , "$name - ERROR - Setting exposure mode of Camera $camname can't be executed - $error" ) ;
return ;
}
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
$ hash - > { OPMODE } = "ExpMode" ;
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 0.5 , "FHEM::SSCam::camExpmode" , $ hash , 0 ) ;
2018-11-20 23:30:55 +00:00
}
2020-07-01 19:24:20 +00:00
return ;
2018-11-20 23:30:55 +00:00
}
###############################################################################
# Art der Bewegungserkennung setzen
###############################################################################
2020-06-28 18:49:16 +00:00
sub amMotDetSc {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
my $ errorcode ;
my $ error ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::amMotDetSc" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
2020-07-10 15:16:12 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) =~ /^dis/x ) {
2018-11-20 23:30:55 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) eq "disabled" ) {
$ errorcode = "402" ;
} elsif ( ReadingsVal ( "$name" , "state" , "" ) eq "disconnected" ) {
$ errorcode = "502" ;
}
# Fehlertext zum Errorcode ermitteln
2020-06-28 18:49:16 +00:00
$ error = expErrors ( $ hash , $ errorcode ) ;
2018-11-20 23:30:55 +00:00
# Setreading
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , $ errorcode ) ;
readingsBulkUpdate ( $ hash , "Error" , $ error ) ;
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , 2 , "$name - ERROR - Setting of motion detection source of Camera $camname can't be executed - $error" ) ;
return ;
}
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
$ hash - > { OPMODE } = "MotDetSc" ;
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 0.5 , "FHEM::SSCam::amMotDetSc" , $ hash , 0 ) ;
2018-11-20 23:30:55 +00:00
}
2020-07-01 19:24:20 +00:00
return ;
2018-11-20 23:30:55 +00:00
}
###############################################################################
# Kamera Schappschuß aufnehmen
2019-01-07 17:50:07 +00:00
# $num = Anzahl der Schnappschüsse
# $lag = Zeit zwischen zwei Schnappschüssen
# $ncount = Anzahl der Schnappschüsse zum rnterzählen
2018-11-20 23:30:55 +00:00
###############################################################################
2020-06-28 18:49:16 +00:00
sub camSnap {
2020-06-21 20:37:08 +00:00
my $ str = shift ;
2020-06-28 18:49:16 +00:00
my ( $ name , $ num , $ lag , $ ncount , $ emtxt , $ teletxt , $ chattxt , $ tac ) = split ( "!_!" , $ str ) ;
my $ hash = $ defs { $ name } ;
2019-01-04 20:07:35 +00:00
my $ camname = $ hash - > { CAMNAME } ;
2018-11-20 23:30:55 +00:00
my $ errorcode ;
my $ error ;
2019-01-08 22:49:03 +00:00
$ tac = ( defined $ tac ) ? $ tac:5000 ;
my $ ta = $ hash - > { HELPER } { TRANSACTION } ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::camSnap" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
2020-07-10 15:16:12 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) =~ /^dis/x ) {
2018-11-20 23:30:55 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) eq "disabled" ) {
$ errorcode = "402" ;
} elsif ( ReadingsVal ( "$name" , "state" , "" ) eq "disconnected" ) {
$ errorcode = "502" ;
}
# Fehlertext zum Errorcode ermitteln
2020-06-28 18:49:16 +00:00
$ error = expErrors ( $ hash , $ errorcode ) ;
2018-11-20 23:30:55 +00:00
# Setreading
2019-12-11 21:16:03 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , $ errorcode ) ;
readingsBulkUpdate ( $ hash , "Error" , $ error ) ;
readingsEndUpdate ( $ hash , 1 ) ;
2018-11-20 23:30:55 +00:00
Log3 ( $ name , 2 , "$name - ERROR - Snapshot of Camera $camname can't be executed - $error" ) ;
return ;
}
2019-01-08 22:49:03 +00:00
if ( $ hash - > { HELPER } { ACTIVE } eq "off" || ( ( defined $ ta ) && $ ta == $ tac ) ) {
2018-11-20 23:30:55 +00:00
# einen Schnappschuß aufnehmen
$ hash - > { OPMODE } = "Snap" ;
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2020-06-21 20:37:08 +00:00
$ hash - > { HELPER } { CANSENDSNAP } = 1 if ( $ emtxt ) ; # Versand Schnappschüsse soll per Email erfolgen
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { CANTELESNAP } = 1 if ( $ teletxt ) ; # Versand Schnappschüsse soll per TelegramBot erfolgen
2020-06-21 20:37:08 +00:00
$ hash - > { HELPER } { CANCHATSNAP } = 1 if ( $ chattxt ) ; # Versand Schnappschüsse soll per SSChatBot erfolgen
$ hash - > { HELPER } { SNAPNUM } = $ num if ( $ num ) ; # Gesamtzahl der auszulösenden Schnappschüsse
$ hash - > { HELPER } { SNAPLAG } = $ lag if ( $ lag ) ; # Zeitverzögerung zwischen zwei Schnappschüssen
2019-01-07 23:39:35 +00:00
$ hash - > { HELPER } { SNAPNUMCOUNT } = $ ncount if ( $ ncount ) ; # Restzahl der auszulösenden Schnappschüsse (wird runtergezählt)
2020-06-21 20:37:08 +00:00
$ hash - > { HELPER } { SMTPMSG } = $ emtxt if ( $ emtxt ) ; # Text für Email-Versand
2019-01-07 18:10:44 +00:00
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
2019-01-08 22:49:03 +00:00
$ tac = ( defined $ tac ) ? $ tac: "" ;
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 0.3 , "FHEM::SSCam::camSnap" , "$name!_!$num!_!$lag!_!$ncount!_!$emtxt!_!$teletxt!_!$chattxt!_!$tac" , 0 ) ;
2020-07-01 19:24:20 +00:00
}
return ;
2018-11-20 23:30:55 +00:00
}
2019-01-27 15:36:11 +00:00
###############################################################################
# Kamera gemachte Aufnahme abrufen
###############################################################################
2020-06-28 18:49:16 +00:00
sub getRec {
2019-01-27 15:36:11 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
my $ errorcode ;
my $ error ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getRec" ) ;
2019-01-27 15:36:11 +00:00
return if ( IsDisabled ( $ name ) ) ;
2020-07-10 15:16:12 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) =~ /^dis/x ) {
2019-01-27 15:36:11 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) eq "disabled" ) {
$ errorcode = "402" ;
} elsif ( ReadingsVal ( "$name" , "state" , "" ) eq "disconnected" ) {
$ errorcode = "502" ;
}
# Fehlertext zum Errorcode ermitteln
2020-06-28 18:49:16 +00:00
$ error = expErrors ( $ hash , $ errorcode ) ;
2019-01-27 15:36:11 +00:00
# Setreading
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , $ errorcode ) ;
readingsBulkUpdate ( $ hash , "Error" , $ error ) ;
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , 2 , "$name - ERROR - Save Recording of Camera $camname in local file can't be executed - $error" ) ;
return ;
}
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
$ hash - > { OPMODE } = "GetRec" ;
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2019-01-27 15:36:11 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 0.3 , "FHEM::SSCam::getRec" , $ hash , 0 ) ;
2020-07-01 19:24:20 +00:00
}
return ;
2019-01-27 15:36:11 +00:00
}
2018-12-31 14:26:04 +00:00
###############################################################################
# Kamera gemachte Aufnahme lokal speichern
###############################################################################
2020-06-28 18:49:16 +00:00
sub getRecAndSave {
2018-12-31 14:26:04 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
my $ errorcode ;
my $ error ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getRecAndSave" ) ;
2018-12-31 14:26:04 +00:00
return if ( IsDisabled ( $ name ) ) ;
2020-07-10 15:16:12 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) =~ /^dis/x ) {
2018-12-31 14:26:04 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) eq "disabled" ) {
$ errorcode = "402" ;
} elsif ( ReadingsVal ( "$name" , "state" , "" ) eq "disconnected" ) {
$ errorcode = "502" ;
}
# Fehlertext zum Errorcode ermitteln
2020-06-28 18:49:16 +00:00
$ error = expErrors ( $ hash , $ errorcode ) ;
2018-12-31 14:26:04 +00:00
# Setreading
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , $ errorcode ) ;
readingsBulkUpdate ( $ hash , "Error" , $ error ) ;
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , 2 , "$name - ERROR - Save Recording of Camera $camname in local file can't be executed - $error" ) ;
return ;
}
2019-01-27 15:36:11 +00:00
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
2018-12-31 14:26:04 +00:00
$ hash - > { OPMODE } = "SaveRec" ;
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-12-31 14:26:04 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 0.3 , "FHEM::SSCam::getRecAndSave" , $ hash , 0 ) ;
2020-07-01 19:24:20 +00:00
}
return ;
2018-12-31 14:26:04 +00:00
}
2018-11-20 23:30:55 +00:00
###############################################################################
# Start Object Tracking
###############################################################################
2020-06-28 18:49:16 +00:00
sub startTrack {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
my $ errorcode ;
my $ error ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::startTrack" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
2020-07-10 15:16:12 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) =~ /^dis/x ) {
2018-11-20 23:30:55 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) eq "disabled" ) {
$ errorcode = "402" ;
} elsif ( ReadingsVal ( "$name" , "state" , "" ) eq "disconnected" ) {
$ errorcode = "502" ;
}
# Fehlertext zum Errorcode ermitteln
2020-06-28 18:49:16 +00:00
$ error = expErrors ( $ hash , $ errorcode ) ;
2018-11-20 23:30:55 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , $ errorcode ) ;
readingsBulkUpdate ( $ hash , "Error" , $ error ) ;
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , 2 , "$name - ERROR - Object Tracking of Camera $camname can't switched on - $error" ) ;
return ;
}
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
$ hash - > { OPMODE } = "startTrack" ;
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 0.9 , "FHEM::SSCam::startTrack" , $ hash , 0 ) ;
2020-07-01 19:24:20 +00:00
}
return ;
2018-11-20 23:30:55 +00:00
}
###############################################################################
# Stopp Object Tracking
###############################################################################
2020-06-28 18:49:16 +00:00
sub stopTrack {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
my $ errorcode ;
my $ error ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::stopTrack" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
2020-07-10 15:16:12 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) =~ /^dis/x ) {
2018-11-20 23:30:55 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) eq "disabled" ) {
$ errorcode = "402" ;
} elsif ( ReadingsVal ( "$name" , "state" , "" ) eq "disconnected" ) {
$ errorcode = "502" ;
}
# Fehlertext zum Errorcode ermitteln
2020-06-28 18:49:16 +00:00
$ error = expErrors ( $ hash , $ errorcode ) ;
2018-11-20 23:30:55 +00:00
readingsBeginUpdate ( $ hash ) ;
2020-06-21 20:37:08 +00:00
readingsBulkUpdate ( $ hash , "Errorcode" , $ errorcode ) ;
readingsBulkUpdate ( $ hash , "Error" , $ error ) ;
readingsEndUpdate ( $ hash , 1 ) ;
2018-11-20 23:30:55 +00:00
Log3 ( $ name , 2 , "$name - ERROR - Object Tracking of Camera $camname can't switched off - $error" ) ;
return ;
}
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
$ hash - > { OPMODE } = "stopTrack" ;
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 0.9 , "FHEM::SSCam::stopTrack" , $ hash , 0 ) ;
2020-07-01 19:24:20 +00:00
}
return ;
2018-11-20 23:30:55 +00:00
}
2020-06-21 20:37:08 +00:00
###############################################################################
2020-06-22 18:11:24 +00:00
# Zoom starten / stoppen
# $op = + / stop / -
2020-06-21 20:37:08 +00:00
###############################################################################
2020-06-28 18:49:16 +00:00
sub setZoom {
2020-06-21 20:37:08 +00:00
my $ str = shift ;
my ( $ name , $ op ) = split ( "!_!" , $ str ) ;
2020-06-28 18:49:16 +00:00
my $ hash = $ defs { $ name } ;
2020-06-21 20:37:08 +00:00
my $ camname = $ hash - > { CAMNAME } ;
my $ errorcode ;
my $ error ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::setZoom" ) ;
2020-06-21 20:37:08 +00:00
return if ( IsDisabled ( $ name ) ) ;
2020-07-10 15:16:12 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) =~ /^dis/x ) {
2020-06-21 20:37:08 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) eq "disabled" ) {
$ errorcode = "402" ;
} elsif ( ReadingsVal ( "$name" , "state" , "" ) eq "disconnected" ) {
$ errorcode = "502" ;
}
# Fehlertext zum Errorcode ermitteln
2020-06-28 18:49:16 +00:00
$ error = expErrors ( $ hash , $ errorcode ) ;
2020-06-21 20:37:08 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , $ errorcode ) ;
readingsBulkUpdate ( $ hash , "Error" , $ error ) ;
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , 2 , "$name - ERROR - Zoom $op of Camera $camname can't be started - $error" ) ;
return ;
}
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { ZOOM } { DIR } = $ zd { $ op } { dir } // $ hash - > { HELPER } { ZOOM } { DIR } ; # Richtung (in / out)
$ hash - > { HELPER } { ZOOM } { MOVETYPE } = $ zd { $ op } { moveType } ; # Start / Stop
$ hash - > { HELPER } { ZOOM } { STOPTIME } = $ zd { $ op } { sttime } ; # Stopzeit -> Verzögerungszeit für Stop nach Start
2020-06-22 18:11:24 +00:00
$ hash - > { OPMODE } = "setZoom" ;
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2020-06-21 20:37:08 +00:00
2020-06-28 18:49:16 +00:00
return if ( ! $ hash - > { HELPER } { ZOOM } { DIR } ) ; # es muss ! eine Richtung gesetzt sein
InternalTimer ( gettimeofday ( ) + $ zd { $ op } { sttime } , "FHEM::SSCam::setZoom" , "$name!_!stop" , 0 ) if ( $ hash - > { HELPER } { ZOOM } { MOVETYPE } ne "Stop" ) ;
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2020-06-23 20:32:00 +00:00
2020-06-21 20:37:08 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 0.8 , "FHEM::SSCam::setZoom" , $ str , 0 ) ;
2020-07-01 19:24:20 +00:00
}
return ;
2020-06-21 20:37:08 +00:00
}
2018-11-20 23:30:55 +00:00
###############################################################################
# Preset-Array abrufen
###############################################################################
2020-06-28 18:49:16 +00:00
sub getPresets {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
my $ errorcode ;
my $ error ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getPresets" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
2020-07-10 15:16:12 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) =~ /^dis/x ) {
2018-11-20 23:30:55 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) eq "disabled" ) {
$ errorcode = "402" ;
} elsif ( ReadingsVal ( "$name" , "state" , "" ) eq "disconnected" ) {
$ errorcode = "502" ;
}
# Fehlertext zum Errorcode ermitteln
2020-06-28 18:49:16 +00:00
$ error = expErrors ( $ hash , $ errorcode ) ;
2018-11-20 23:30:55 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , $ errorcode ) ;
readingsBulkUpdate ( $ hash , "Error" , $ error ) ;
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , 2 , "$name - ERROR - Preset list of Camera $camname can't be get - $error" ) ;
return ;
}
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
$ hash - > { OPMODE } = "getPresets" ;
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 1.2 , "FHEM::SSCam::getPresets" , $ hash , 0 ) ;
2020-07-01 19:24:20 +00:00
}
return ;
2018-11-20 23:30:55 +00:00
}
###############################################################################
# einen Preset setzen
###############################################################################
2020-06-28 18:49:16 +00:00
sub setPreset {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
my $ errorcode ;
my $ error ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::setPreset" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
2020-07-10 15:16:12 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) =~ /^dis/x ) {
2018-11-20 23:30:55 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) eq "disabled" ) {
$ errorcode = "402" ;
} elsif ( ReadingsVal ( "$name" , "state" , "" ) eq "disconnected" ) {
$ errorcode = "502" ;
}
# Fehlertext zum Errorcode ermitteln
2020-06-28 18:49:16 +00:00
$ error = expErrors ( $ hash , $ errorcode ) ;
2018-11-20 23:30:55 +00:00
readingsBeginUpdate ( $ hash ) ;
2020-06-23 10:15:44 +00:00
readingsBulkUpdate ( $ hash , "Errorcode" , $ errorcode ) ;
readingsBulkUpdate ( $ hash , "Error" , $ error ) ;
readingsEndUpdate ( $ hash , 1 ) ;
2018-11-20 23:30:55 +00:00
Log3 ( $ name , 2 , "$name - ERROR - Preset of Camera $camname can't be set - $error" ) ;
return ;
}
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
2020-06-23 10:15:44 +00:00
$ hash - > { OPMODE } = "setPreset" ;
2018-11-20 23:30:55 +00:00
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 1.2 , "FHEM::SSCam::setPreset" , $ hash , 0 ) ;
2020-07-01 19:24:20 +00:00
}
return ;
2018-11-20 23:30:55 +00:00
}
###############################################################################
# einen Preset löschen
###############################################################################
2020-06-28 18:49:16 +00:00
sub delPreset {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
my $ errorcode ;
my $ error ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::delPreset" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
2020-07-10 15:16:12 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) =~ /^dis/x ) {
2018-11-20 23:30:55 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) eq "disabled" ) {
$ errorcode = "402" ;
} elsif ( ReadingsVal ( "$name" , "state" , "" ) eq "disconnected" ) {
$ errorcode = "502" ;
}
# Fehlertext zum Errorcode ermitteln
2020-06-28 18:49:16 +00:00
$ error = expErrors ( $ hash , $ errorcode ) ;
2018-11-20 23:30:55 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , $ errorcode ) ;
readingsBulkUpdate ( $ hash , "Error" , $ error ) ;
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , 2 , "$name - ERROR - Preset of Camera $camname can't be deleted - $error" ) ;
return ;
}
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
$ hash - > { OPMODE } = "delPreset" ;
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 1.4 , "FHEM::SSCam::delPreset" , $ hash , 0 ) ;
2020-07-01 19:24:20 +00:00
}
return ;
2018-11-20 23:30:55 +00:00
}
###############################################################################
# Preset Home setzen
###############################################################################
2020-06-28 18:49:16 +00:00
sub setHome {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
my $ errorcode ;
my $ error ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::setHome" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
2020-07-10 15:16:12 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) =~ /^dis/x ) {
2018-11-20 23:30:55 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) eq "disabled" ) {
$ errorcode = "402" ;
} elsif ( ReadingsVal ( "$name" , "state" , "" ) eq "disconnected" ) {
$ errorcode = "502" ;
}
# Fehlertext zum Errorcode ermitteln
2020-06-28 18:49:16 +00:00
$ error = expErrors ( $ hash , $ errorcode ) ;
2018-11-20 23:30:55 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , $ errorcode ) ;
readingsBulkUpdate ( $ hash , "Error" , $ error ) ;
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , 2 , "$name - ERROR - Home preset of Camera $camname can't be set - $error" ) ;
return ;
}
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
$ hash - > { OPMODE } = "setHome" ;
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 1.2 , "FHEM::SSCam::setHome" , $ hash , 0 ) ;
2020-07-01 19:24:20 +00:00
}
return ;
2018-11-20 23:30:55 +00:00
}
###############################################################################
# PIR Sensor aktivieren/deaktivieren
###############################################################################
2020-06-28 18:49:16 +00:00
sub managePir {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
my $ errorcode ;
my $ error ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::managePir" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
2020-07-10 15:16:12 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) =~ /^dis/x ) {
2018-11-20 23:30:55 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) eq "disabled" ) {
$ errorcode = "402" ;
} elsif ( ReadingsVal ( "$name" , "state" , "" ) eq "disconnected" ) {
$ errorcode = "502" ;
}
# Fehlertext zum Errorcode ermitteln
2020-06-28 18:49:16 +00:00
$ error = expErrors ( $ hash , $ errorcode ) ;
2018-11-20 23:30:55 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , $ errorcode ) ;
readingsBulkUpdate ( $ hash , "Error" , $ error ) ;
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , 2 , "$name - ERROR - Home preset of Camera $camname can't be set - $error" ) ;
return ;
}
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
$ hash - > { OPMODE } = "piract" ;
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 1.2 , "FHEM::SSCam::managePir" , $ hash , 0 ) ;
2020-07-01 19:24:20 +00:00
}
return ;
2018-11-20 23:30:55 +00:00
}
###############################################################################
# Kamera Liveview starten
###############################################################################
2020-06-28 18:49:16 +00:00
sub runLiveview {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
my $ errorcode ;
my $ error ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::runLiveview" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
2020-07-10 15:16:12 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) =~ /^dis/x ) {
2018-11-20 23:30:55 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) eq "disabled" ) {
$ errorcode = "402" ;
} elsif ( ReadingsVal ( "$name" , "state" , "" ) eq "disconnected" ) {
$ errorcode = "502" ;
}
# Fehlertext zum Errorcode ermitteln
2020-06-28 18:49:16 +00:00
$ error = expErrors ( $ hash , $ errorcode ) ;
2018-11-20 23:30:55 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , $ errorcode ) ;
readingsBulkUpdate ( $ hash , "Error" , $ error ) ;
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , 2 , "$name - ERROR - Liveview of Camera $camname can't be started - $error" ) ;
return ;
}
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
# Liveview starten
$ hash - > { OPMODE } = "runliveview" ;
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
# erzwingen die Camid zu ermitteln und bei login-Fehler neue SID zu holen
delete $ hash - > { CAMID } ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
2018-11-20 23:30:55 +00:00
readingsSingleUpdate ( $ hash , "state" , "runView " . $ hash - > { HELPER } { RUNVIEW } , 1 ) ;
2020-06-28 18:49:16 +00:00
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} else {
InternalTimer ( gettimeofday ( ) + 0.5 , "FHEM::SSCam::runLiveview" , $ hash , 0 ) ;
2020-07-01 19:24:20 +00:00
}
return ;
2018-11-20 23:30:55 +00:00
}
###############################################################################
# Kamera HLS-Stream aktivieren
###############################################################################
2020-06-28 18:49:16 +00:00
sub activateHls {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
my $ errorcode ;
my $ error ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::activateHls" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
2020-07-10 15:16:12 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) =~ /^dis/x ) {
2018-11-20 23:30:55 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) eq "disabled" ) {
$ errorcode = "402" ;
} elsif ( ReadingsVal ( "$name" , "state" , "" ) eq "disconnected" ) {
$ errorcode = "502" ;
}
# Fehlertext zum Errorcode ermitteln
2020-06-28 18:49:16 +00:00
$ error = expErrors ( $ hash , $ errorcode ) ;
2018-11-20 23:30:55 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , $ errorcode ) ;
readingsBulkUpdate ( $ hash , "Error" , $ error ) ;
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , 2 , "$name - ERROR - HLS-Stream of Camera $camname can't be activated - $error" ) ;
return ;
}
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
# Aktivierung starten
$ hash - > { OPMODE } = "activate_hls" ;
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} else {
InternalTimer ( gettimeofday ( ) + 0.3 , "FHEM::SSCam::activateHls" , $ hash , 0 ) ;
2020-07-01 19:24:20 +00:00
}
return ;
2018-11-20 23:30:55 +00:00
}
2018-12-06 22:22:15 +00:00
###############################################################################
# Kameras mit Autocreate erstellen
###############################################################################
2020-06-28 18:49:16 +00:00
sub camAutocreate {
2018-12-06 22:22:15 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
my $ errorcode ;
my $ error ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::camAutocreate" ) ;
2018-12-06 22:22:15 +00:00
return if ( IsDisabled ( $ name ) ) ;
2020-07-10 15:16:12 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) =~ /^dis/x ) {
2018-12-06 22:22:15 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) eq "disabled" ) {
$ errorcode = "402" ;
} elsif ( ReadingsVal ( "$name" , "state" , "" ) eq "disconnected" ) {
$ errorcode = "502" ;
}
# Fehlertext zum Errorcode ermitteln
2020-06-28 18:49:16 +00:00
$ error = expErrors ( $ hash , $ errorcode ) ;
2018-12-06 22:22:15 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , $ errorcode ) ;
readingsBulkUpdate ( $ hash , "Error" , $ error ) ;
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , 2 , "$name - ERROR - autocreate cameras - $error" ) ;
return ;
}
2018-12-09 08:19:38 +00:00
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
2018-12-06 22:22:15 +00:00
$ hash - > { OPMODE } = "Autocreate" ;
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2018-12-06 22:22:15 +00:00
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-12-06 22:22:15 +00:00
2020-06-28 18:49:16 +00:00
} else {
InternalTimer ( gettimeofday ( ) + 2.1 , "FHEM::SSCam::camAutocreate" , $ hash , 0 ) ;
2020-07-01 19:24:20 +00:00
}
return ;
2018-12-06 22:22:15 +00:00
}
2018-11-20 23:30:55 +00:00
###############################################################################
# HLS-Stream reaktivieren (stoppen & starten)
###############################################################################
2020-06-28 18:49:16 +00:00
sub reactivateHls {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
my $ errorcode ;
my $ error ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::reactivateHls" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
2020-07-10 15:16:12 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) =~ /^dis/x ) {
2018-11-20 23:30:55 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) eq "disabled" ) {
$ errorcode = "402" ;
} elsif ( ReadingsVal ( "$name" , "state" , "" ) eq "disconnected" ) {
$ errorcode = "502" ;
}
# Fehlertext zum Errorcode ermitteln
2020-06-28 18:49:16 +00:00
$ error = expErrors ( $ hash , $ errorcode ) ;
2018-11-20 23:30:55 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , $ errorcode ) ;
readingsBulkUpdate ( $ hash , "Error" , $ error ) ;
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , 2 , "$name - ERROR - HLS-Stream of Camera $camname can't be activated - $error" ) ;
return ;
}
2018-12-09 08:19:38 +00:00
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
2018-11-20 23:30:55 +00:00
$ hash - > { OPMODE } = "reactivate_hls" ;
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} else {
InternalTimer ( gettimeofday ( ) + 0.4 , "FHEM::SSCam::reactivateHls" , $ hash , 0 ) ;
2020-07-01 19:24:20 +00:00
}
return ;
2018-11-20 23:30:55 +00:00
}
###############################################################################
# Kamera Liveview stoppen
###############################################################################
2020-06-28 18:49:16 +00:00
sub stopLiveview {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
my $ errorcode ;
my $ error ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::stopLiveview" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
# Liveview stoppen
2019-05-22 17:31:17 +00:00
$ hash - > { OPMODE } = "stopliveview" ;
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
2018-11-20 23:30:55 +00:00
# Link aus Helper-hash löschen
delete $ hash - > { HELPER } { LINK } ;
delete $ hash - > { HELPER } { AUDIOLINK } ;
2020-06-30 21:16:26 +00:00
delete $ hash - > { HELPER } { ACTSTRM } ; # sprechender Name des laufenden Streamtyps für SSCamSTRM
2018-11-20 23:30:55 +00:00
# Reading LiveStreamUrl löschen
delete ( $ defs { $ name } { READINGS } { LiveStreamUrl } ) if ( $ defs { $ name } { READINGS } { LiveStreamUrl } ) ;
readingsSingleUpdate ( $ hash , "state" , "stopview" , 1 ) ;
if ( $ hash - > { HELPER } { WLTYPE } eq "hls" ) {
# HLS Stream war aktiv, Streaming beenden
$ hash - > { OPMODE } = "stopliveview_hls" ;
2020-06-28 18:49:16 +00:00
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
# kein HLS Stream
2020-06-30 21:16:26 +00:00
roomRefresh ( $ hash , 0 , 1 , 1 ) ; # kein Room-Refresh, SSCam-state-Event, SSCamSTRM-Event
2020-06-28 18:49:16 +00:00
delActiveToken ( $ hash ) ;
2018-11-20 23:30:55 +00:00
}
2020-06-28 18:49:16 +00:00
} else {
InternalTimer ( gettimeofday ( ) + 0.5 , "FHEM::SSCam::stopLiveview" , $ hash , 0 ) ;
2020-07-01 19:24:20 +00:00
}
return ;
2018-11-20 23:30:55 +00:00
}
###############################################################################
# external Event 1-10 auslösen
###############################################################################
2020-06-28 18:49:16 +00:00
sub extEvent {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ name = $ hash - > { NAME } ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::extEvent" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
$ hash - > { OPMODE } = "extevent" ;
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 0.5 , "FHEM::SSCam::extEvent" , $ hash , 0 ) ;
2020-07-01 19:24:20 +00:00
}
return ;
2018-11-20 23:30:55 +00:00
}
###############################################################################
# PTZ-Kamera auf Position fahren
###############################################################################
2020-06-28 18:49:16 +00:00
sub doPtzAaction {
2020-07-01 19:24:20 +00:00
my $ hash = shift ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
my ( $ errorcode , $ error ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::doPtzAaction" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
if ( ReadingsVal ( "$name" , "DeviceType" , "Camera" ) ne "PTZ" ) {
Log3 ( $ name , 2 , "$name - ERROR - Operation \"$hash->{HELPER}{PTZACTION}\" is only possible for cameras of DeviceType \"PTZ\" - please compare with device Readings" ) ;
return ;
}
if ( $ hash - > { HELPER } { PTZACTION } eq "goabsptz" && ! ReadingsVal ( "$name" , "CapPTZAbs" , "false" ) ) {
2020-06-23 15:50:33 +00:00
Log3 ( $ name , 2 , "$name - ERROR - Operation \"$hash->{HELPER}{PTZACTION}\" is only possible if camera supports absolute PTZ action - please compare with Reading \"CapPTZAbs\"" ) ;
2018-11-20 23:30:55 +00:00
return ;
}
if ( $ hash - > { HELPER } { PTZACTION } eq "movestart" && ReadingsVal ( "$name" , "CapPTZDirections" , "0" ) < 1 ) {
Log3 ( $ name , 2 , "$name - ERROR - Operation \"$hash->{HELPER}{PTZACTION}\" is only possible if camera supports \"Tilt\" and \"Pan\" operations - please compare with device Reading \"CapPTZDirections\"" ) ;
return ;
}
if ( $ hash - > { HELPER } { PTZACTION } eq "gopreset" ) {
if ( ! defined ( $ hash - > { HELPER } { ALLPRESETS } { $ hash - > { HELPER } { GOPRESETNAME } } ) ) {
$ errorcode = "600" ;
# Fehlertext zum Errorcode ermitteln
2020-06-28 18:49:16 +00:00
$ error = expErrors ( $ hash , $ errorcode ) ;
2018-11-20 23:30:55 +00:00
# Setreading
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , $ errorcode ) ;
readingsBulkUpdate ( $ hash , "Error" , $ error ) ;
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , 2 , "$name - ERROR - goPreset to position \"$hash->{HELPER}{GOPRESETNAME}\" of Camera $camname can't be executed - $error" ) ;
return ;
}
}
if ( $ hash - > { HELPER } { PTZACTION } eq "runpatrol" ) {
if ( ! defined ( $ hash - > { HELPER } { ALLPATROLS } { $ hash - > { HELPER } { GOPATROLNAME } } ) ) {
$ errorcode = "600" ;
# Fehlertext zum Errorcode ermitteln
2020-06-28 18:49:16 +00:00
$ error = expErrors ( $ hash , $ errorcode ) ;
2018-11-20 23:30:55 +00:00
# Setreading
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , $ errorcode ) ;
readingsBulkUpdate ( $ hash , "Error" , $ error ) ;
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , 2 , "$name - ERROR - runPatrol to patrol \"$hash->{HELPER}{GOPATROLNAME}\" of Camera $camname can't be executed - $error" ) ;
return ;
}
}
2020-07-10 15:16:12 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) =~ /^dis/x ) {
2018-11-20 23:30:55 +00:00
if ( ReadingsVal ( "$name" , "state" , "" ) eq "disabled" ) {
$ errorcode = "402" ;
} elsif ( ReadingsVal ( "$name" , "state" , "" ) eq "disconnected" ) {
$ errorcode = "502" ;
}
# Fehlertext zum Errorcode ermitteln
2020-06-28 18:49:16 +00:00
$ error = expErrors ( $ hash , $ errorcode ) ;
2018-11-20 23:30:55 +00:00
# Setreading
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , $ errorcode ) ;
readingsBulkUpdate ( $ hash , "Error" , $ error ) ;
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , 2 , "$name - ERROR - $hash->{HELPER}{PTZACTION} of Camera $camname can't be executed - $error" ) ;
return ;
}
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
if ( $ hash - > { HELPER } { PTZACTION } eq "gopreset" ) {
Log3 ( $ name , 4 , "$name - Move Camera $camname to position \"$hash->{HELPER}{GOPRESETNAME}\" with ID \"$hash->{HELPER}{ALLPRESETS}{$hash->{HELPER}{GOPRESETNAME}}\" now" ) ;
} elsif ( $ hash - > { HELPER } { PTZACTION } eq "runpatrol" ) {
Log3 ( $ name , 4 , "$name - Start patrol \"$hash->{HELPER}{GOPATROLNAME}\" with ID \"$hash->{HELPER}{ALLPATROLS}{$hash->{HELPER}{GOPATROLNAME}}\" of Camera $camname now" ) ;
} elsif ( $ hash - > { HELPER } { PTZACTION } eq "goabsptz" ) {
Log3 ( $ name , 4 , "$name - Start move Camera $camname to position posX=\"$hash->{HELPER}{GOPTZPOSX}\" and posY=\"$hash->{HELPER}{GOPTZPOSY}\" now" ) ;
} elsif ( $ hash - > { HELPER } { PTZACTION } eq "movestart" ) {
Log3 ( $ name , 4 , "$name - Start move Camera $camname to direction \"$hash->{HELPER}{GOMOVEDIR}\" with duration of $hash->{HELPER}{GOMOVETIME} s" ) ;
}
2018-12-09 08:19:38 +00:00
2018-11-20 23:30:55 +00:00
$ hash - > { OPMODE } = $ hash - > { HELPER } { PTZACTION } ;
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2018-12-09 08:19:38 +00:00
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 0.5 , "FHEM::SSCam::doPtzAaction" , $ hash , 0 ) ;
2020-07-01 19:24:20 +00:00
}
return ;
2018-11-20 23:30:55 +00:00
}
###############################################################################
2020-06-21 20:37:08 +00:00
# stoppen continued move
2018-11-20 23:30:55 +00:00
###############################################################################
2020-06-28 18:49:16 +00:00
sub moveStop {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::moveStop" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
$ hash - > { OPMODE } = "movestop" ;
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 0.3 , "FHEM::SSCam::moveStop" , $ hash , 0 ) ;
2020-07-01 19:24:20 +00:00
}
return ;
2018-11-20 23:30:55 +00:00
}
###############################################################################
# Kamera aktivieren
###############################################################################
2020-06-28 18:49:16 +00:00
sub camEnable {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::camEnable" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
# eine Kamera aktivieren
Log3 ( $ name , 4 , "$name - Enable Camera $camname" ) ;
$ hash - > { OPMODE } = "Enable" ;
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} else {
InternalTimer ( gettimeofday ( ) + 0.5 , "FHEM::SSCam::camEnable" , $ hash , 0 ) ;
2020-07-01 19:24:20 +00:00
}
return ;
2018-11-20 23:30:55 +00:00
}
###############################################################################
# Kamera deaktivieren
###############################################################################
2020-06-28 18:49:16 +00:00
sub camDisable {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::camDisable" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
if ( $ hash - > { HELPER } { ACTIVE } eq "off" and ReadingsVal ( "$name" , "Record" , "Start" ) ne "Start" ) {
# eine Kamera deaktivieren
Log3 ( $ name , 4 , "$name - Disable Camera $camname" ) ;
$ hash - > { OPMODE } = "Disable" ;
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 0.5 , "FHEM::SSCam::camDisable" , $ hash , 0 ) ;
2020-07-01 19:24:20 +00:00
}
return ;
2018-11-20 23:30:55 +00:00
}
###############################################################################
# Kamera alle Informationen abrufen (Get) bzw. Einstieg Polling
###############################################################################
2020-06-28 18:49:16 +00:00
sub getCaminfoAll {
2018-11-20 23:30:55 +00:00
my ( $ hash , $ mode ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
my ( $ now , $ new ) ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getCaminfoAll" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getSvsInfo" ) ;
InternalTimer ( gettimeofday ( ) + 1 , "FHEM::SSCam::getSvsInfo" , $ hash , 0 ) ;
if ( IsModelCam ( $ hash ) ) {
# Model ist CAM
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getEventList" ) ;
InternalTimer ( gettimeofday ( ) + 0.5 , "FHEM::SSCam::getEventList" , $ hash , 0 ) ;
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getMotionEnum" ) ;
InternalTimer ( gettimeofday ( ) + 0.6 , "FHEM::SSCam::getMotionEnum" , $ hash , 0 ) ;
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getCamInfo" ) ;
InternalTimer ( gettimeofday ( ) + 0.9 , "FHEM::SSCam::getCamInfo" , $ hash , 0 ) ;
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getCapabilities" ) ;
InternalTimer ( gettimeofday ( ) + 1.3 , "FHEM::SSCam::getCapabilities" , $ hash , 0 ) ;
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getStreamFormat" ) ;
InternalTimer ( gettimeofday ( ) + 1.4 , "FHEM::SSCam::getStreamFormat" , $ hash , 0 ) ;
2018-11-20 23:30:55 +00:00
# Schnappschußgalerie abrufen (snapGalleryBoost) oder nur Info des letzten Snaps
2020-06-28 18:49:16 +00:00
my ( $ slim , $ ssize ) = snapLimSize ( $ hash , 1 ) ; # Force-Bit, es wird $hash->{HELPER}{GETSNAPGALLERY} erzwungen !
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getSnapInfo" ) ;
InternalTimer ( gettimeofday ( ) + 1.5 , "FHEM::SSCam::getSnapInfo" , "$name:$slim:$ssize" , 0 ) ;
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getPtzPresetList" ) ;
InternalTimer ( gettimeofday ( ) + 1.6 , "FHEM::SSCam::getPtzPresetList" , $ hash , 0 ) ;
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getPtzPatrolList" ) ;
InternalTimer ( gettimeofday ( ) + 1.9 , "FHEM::SSCam::getPtzPatrolList" , $ hash , 0 ) ;
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getStmUrlPath" ) ;
InternalTimer ( gettimeofday ( ) + 2.1 , "FHEM::SSCam::getStmUrlPath" , $ hash , 0 ) ;
} else {
# Model ist SVS
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getHomeModeState" ) ;
InternalTimer ( gettimeofday ( ) + 0.7 , "FHEM::SSCam::getHomeModeState" , $ hash , 0 ) ;
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getSvsLog" ) ;
InternalTimer ( gettimeofday ( ) + 0.8 , "FHEM::SSCam::getSvsLog" , $ hash , 0 ) ;
2018-11-20 23:30:55 +00:00
}
2020-06-28 18:49:16 +00:00
# wenn gesetzt = manuelle Abfrage
2018-11-20 23:30:55 +00:00
# return if ($mode); # 24.03.2018 geänd.
my $ pcia = AttrVal ( $ name , "pollcaminfoall" , 0 ) ;
my $ pnl = AttrVal ( $ name , "pollnologging" , 0 ) ;
if ( $ pcia ) {
$ new = gettimeofday ( ) + $ pcia ;
2020-06-28 18:49:16 +00:00
InternalTimer ( $ new , "FHEM::SSCam::getCaminfoAll" , $ hash , 0 ) ;
$ now = FmtTime ( gettimeofday ( ) ) ;
2018-11-20 23:30:55 +00:00
$ new = FmtTime ( gettimeofday ( ) + $ pcia ) ;
2020-06-28 18:49:16 +00:00
readingsSingleUpdate ( $ hash , "state" , "polling" , 1 ) if ( ! IsModelCam ( $ hash ) ) ; # state für SVS-Device setzen
readingsSingleUpdate ( $ hash , "PollState" , "Active - next time: $new" , 1 ) ;
2018-11-20 23:30:55 +00:00
if ( ! $ pnl ) {
Log3 ( $ name , 3 , "$name - Polling now: $now , next Polling: $new" ) ;
}
2020-06-28 18:49:16 +00:00
} else {
2018-11-20 23:30:55 +00:00
# Beenden Polling aller Caminfos
2020-06-28 18:49:16 +00:00
readingsSingleUpdate ( $ hash , "PollState" , "Inactive" , 1 ) ;
readingsSingleUpdate ( $ hash , "state" , "initialized" , 1 ) if ( ! IsModelCam ( $ hash ) ) ; # state für SVS-Device setzen
2018-11-20 23:30:55 +00:00
Log3 ( $ name , 3 , "$name - Polling of $camname is deactivated" ) ;
}
2020-07-01 19:24:20 +00:00
2018-11-20 23:30:55 +00:00
return ;
}
###########################################################################
# Infos zu Snaps abfragen (z.B. weil nicht über SSCam ausgelöst)
2019-03-04 19:09:35 +00:00
#
# $slim = Anzahl der abzurufenden Snapinfos (snaps)
# $ssize = Snapgröße
# $tac = Transaktionscode (für gemeinsamen Versand)
2018-11-20 23:30:55 +00:00
###########################################################################
2020-06-28 18:49:16 +00:00
sub getSnapInfo {
my ( $ str ) = @ _ ;
my ( $ name , $ slim , $ ssize , $ tac ) = split ( ":" , $ str ) ;
my $ hash = $ defs { $ name } ;
my $ camname = $ hash - > { CAMNAME } ;
2019-01-08 22:49:03 +00:00
$ tac = ( defined $ tac ) ? $ tac:5000 ;
my $ ta = $ hash - > { HELPER } { TRANSACTION } ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getSnapInfo" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
2019-01-08 22:49:03 +00:00
if ( $ hash - > { HELPER } { ACTIVE } eq "off" || ( ( defined $ ta ) && $ ta == $ tac ) ) {
2019-05-22 17:31:17 +00:00
$ hash - > { OPMODE } = "getsnapinfo" ;
2020-06-28 18:49:16 +00:00
$ hash - > { OPMODE } = "getsnapgallery" if ( exists ( $ hash - > { HELPER } { GETSNAPGALLERY } ) ) ;
2018-11-20 23:30:55 +00:00
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { SNAPLIMIT } = $ slim ; # 0-alle Snapshots werden abgerufen und ausgewertet, sonst $slim
$ hash - > { HELPER } { SNAPIMGSIZE } = $ ssize ; # 0-Do not append image, 1-Icon size, 2-Full size
$ hash - > { HELPER } { KEYWORD } = $ camname ;
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
2019-01-08 22:49:03 +00:00
$ tac = ( defined $ tac ) ? $ tac: "" ;
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 1.7 , "FHEM::SSCam::getSnapInfo" , "$name:$slim:$ssize" , 0 ) ;
2018-11-20 23:30:55 +00:00
}
2020-07-01 19:24:20 +00:00
return ;
2018-11-20 23:30:55 +00:00
}
###############################################################################
# Filename zu Schappschuß ermitteln
###############################################################################
2020-06-28 18:49:16 +00:00
sub getSnapFilename {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ name = $ hash - > { NAME } ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getSnapFilename" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
2019-05-22 17:31:17 +00:00
$ hash - > { OPMODE } = "getsnapfilename" ;
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} else {
InternalTimer ( gettimeofday ( ) + 0.5 , "FHEM::SSCam::getSnapFilename" , $ hash , 0 ) ;
2020-07-01 19:24:20 +00:00
}
return ;
2018-11-20 23:30:55 +00:00
}
###########################################################################
# allgemeine Infos über Synology Surveillance Station
###########################################################################
2020-06-28 18:49:16 +00:00
sub getSvsInfo {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getSvsInfo" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
2019-05-22 17:31:17 +00:00
$ hash - > { OPMODE } = "getsvsinfo" ;
2018-11-20 23:30:55 +00:00
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 1 , "FHEM::SSCam::getSvsInfo" , $ hash , 0 ) ;
2018-11-20 23:30:55 +00:00
}
2020-07-01 19:24:20 +00:00
return ;
2018-11-20 23:30:55 +00:00
}
###########################################################################
# HomeMode setzen
###########################################################################
2020-06-28 18:49:16 +00:00
sub setHomeMode {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::setHomeMode" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) || ! defined ( $ hash - > { HELPER } { APIHMMAXVER } ) ) ;
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
2019-05-22 17:31:17 +00:00
$ hash - > { OPMODE } = "sethomemode" ;
2018-11-20 23:30:55 +00:00
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 0.6 , "FHEM::SSCam::setHomeMode" , $ hash , 0 ) ;
2018-11-20 23:30:55 +00:00
}
2020-07-01 19:24:20 +00:00
return ;
2018-11-20 23:30:55 +00:00
}
###########################################################################
# Optimierparameter setzen
###########################################################################
2020-06-28 18:49:16 +00:00
sub setOptParams {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::setOptParams" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
2019-05-22 17:31:17 +00:00
$ hash - > { OPMODE } = "setoptpar" ;
2018-11-20 23:30:55 +00:00
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 0.6 , "FHEM::SSCam::setOptParams" , $ hash , 0 ) ;
2018-11-20 23:30:55 +00:00
}
2020-07-01 19:24:20 +00:00
return ;
2018-11-20 23:30:55 +00:00
}
###########################################################################
# HomeMode Status abfragen
###########################################################################
2020-06-28 18:49:16 +00:00
sub getHomeModeState {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getHomeModeState" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) || ! defined ( $ hash - > { HELPER } { APIHMMAXVER } ) ) ;
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
2019-05-22 17:31:17 +00:00
$ hash - > { OPMODE } = "gethomemodestate" ;
2018-11-20 23:30:55 +00:00
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 0.7 , "FHEM::SSCam::getHomeModeState" , $ hash , 0 ) ;
2018-11-20 23:30:55 +00:00
}
2020-07-01 19:24:20 +00:00
return ;
2018-11-20 23:30:55 +00:00
}
###########################################################################
# SVS Log abrufen
###########################################################################
2020-06-28 18:49:16 +00:00
sub getSvsLog {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getSvsLog" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
2019-05-22 17:31:17 +00:00
$ hash - > { OPMODE } = "getsvslog" ;
2018-11-20 23:30:55 +00:00
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 0.9 , "FHEM::SSCam::getSvsLog" , $ hash , 0 ) ;
2018-11-20 23:30:55 +00:00
}
2020-07-01 19:24:20 +00:00
return ;
2018-11-20 23:30:55 +00:00
}
###########################################################################
2020-06-28 18:49:16 +00:00
# Session logout
2018-11-20 23:30:55 +00:00
###########################################################################
2020-06-28 18:49:16 +00:00
sub sessionOff {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::sessionOff" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
$ hash - > { OPMODE } = "logout" ;
2018-12-09 08:19:38 +00:00
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
logout ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 1.1 , "FHEM::SSCam::sessionOff" , $ hash , 0 ) ;
2018-11-20 23:30:55 +00:00
}
2020-07-01 19:24:20 +00:00
return ;
2018-11-20 23:30:55 +00:00
}
###########################################################################
# Kamera allgemeine Informationen abrufen (Get)
###########################################################################
2020-06-28 18:49:16 +00:00
sub getCamInfo {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getCamInfo" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
2019-05-22 17:31:17 +00:00
$ hash - > { OPMODE } = "Getcaminfo" ;
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-12-09 08:19:38 +00:00
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 2 , "FHEM::SSCam::getCamInfo" , $ hash , 0 ) ;
2018-11-20 23:30:55 +00:00
}
2020-07-01 19:24:20 +00:00
return ;
2018-11-20 23:30:55 +00:00
}
###########################################################################
# SYNO.SurveillanceStation.VideoStream query aktuelles Streamformat
###########################################################################
2020-06-28 18:49:16 +00:00
sub getStreamFormat {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getStreamFormat" ) ;
2018-11-20 23:30:55 +00:00
my $ apivideostmsmaxver = $ hash - > { HELPER } { APIVIDEOSTMSMAXVER } ;
return if ( IsDisabled ( $ name ) ) ;
if ( ! $ apivideostmsmaxver ) {
# keine API "SYNO.SurveillanceStation.VideoStream" mehr ab API v2.8
readingsSingleUpdate ( $ hash , "CamStreamFormat" , "no API" , 1 ) ;
return ;
}
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
2019-05-22 17:31:17 +00:00
$ hash - > { OPMODE } = "getstreamformat" ;
2018-11-20 23:30:55 +00:00
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 1.4 , "FHEM::SSCam::getStreamFormat" , $ hash , 0 ) ;
2018-11-20 23:30:55 +00:00
}
2020-07-01 19:24:20 +00:00
return ;
2018-11-20 23:30:55 +00:00
}
################################################################################
# Kamera Stream Urls abrufen (Get)
################################################################################
2020-06-28 18:49:16 +00:00
sub getStmUrlPath {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getStmUrlPath" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
# Stream-Urls abrufen
2019-05-22 17:31:17 +00:00
$ hash - > { OPMODE } = "getStmUrlPath" ;
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 2 , "FHEM::SSCam::getStmUrlPath" , $ hash , 0 ) ;
2018-11-20 23:30:55 +00:00
}
2020-07-01 19:24:20 +00:00
return ;
2018-11-20 23:30:55 +00:00
}
###########################################################################
# query SVS-Event information
###########################################################################
2020-06-28 18:49:16 +00:00
sub getEventList {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getEventList" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
2019-05-22 17:31:17 +00:00
$ hash - > { OPMODE } = "geteventlist" ;
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 2 , "FHEM::SSCam::getEventList" , $ hash , 0 ) ;
2020-07-01 19:24:20 +00:00
}
return ;
2018-11-20 23:30:55 +00:00
}
###########################################################################
# Enumerate motion detection parameters
###########################################################################
2020-06-28 18:49:16 +00:00
sub getMotionEnum {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getMotionEnum" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
2019-05-22 17:31:17 +00:00
$ hash - > { OPMODE } = "getmotionenum" ;
2018-11-20 23:30:55 +00:00
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 2 , "FHEM::SSCam::getMotionEnum" , $ hash , 0 ) ;
2018-11-20 23:30:55 +00:00
}
2020-07-01 19:24:20 +00:00
return ;
2018-11-20 23:30:55 +00:00
}
##########################################################################
# Capabilities von Kamera abrufen (Get)
##########################################################################
2020-06-28 18:49:16 +00:00
sub getCapabilities {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getCapabilities" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
2019-05-22 17:31:17 +00:00
$ hash - > { OPMODE } = "Getcapabilities" ;
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 2 , "FHEM::SSCam::getCapabilities" , $ hash , 0 ) ;
2018-11-20 23:30:55 +00:00
}
2020-07-01 19:24:20 +00:00
return ;
2018-11-20 23:30:55 +00:00
}
##########################################################################
# PTZ Presets abrufen (Get)
##########################################################################
2020-06-28 18:49:16 +00:00
sub getPtzPresetList {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getPtzPresetList" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
2020-06-23 11:38:46 +00:00
if ( ReadingsVal ( "$name" , "DeviceType" , "" ) ne "PTZ" ) {
2018-11-20 23:30:55 +00:00
Log3 ( $ name , 4 , "$name - Retrieval of Presets for $camname can't be executed - $camname is not a PTZ-Camera" ) ;
return ;
}
2020-06-28 18:49:16 +00:00
if ( ! IsCapPTZTilt ( $ hash ) | ! IsCapPTZPan ( $ hash ) ) {
2018-11-20 23:30:55 +00:00
Log3 ( $ name , 4 , "$name - Retrieval of Presets for $camname can't be executed - $camname has no capability to tilt/pan" ) ;
return ;
}
2020-06-28 18:49:16 +00:00
if ( $ hash - > { HELPER } { ACTIVE } eq "off" ) {
2019-05-22 17:31:17 +00:00
$ hash - > { OPMODE } = "Getptzlistpreset" ;
2018-11-20 23:30:55 +00:00
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
2020-06-28 18:49:16 +00:00
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 2 , "FHEM::SSCam::getPtzPresetList" , $ hash , 0 ) ;
2018-11-20 23:30:55 +00:00
}
2020-07-01 19:24:20 +00:00
return ;
2018-11-20 23:30:55 +00:00
}
##########################################################################
# PTZ Patrols abrufen (Get)
##########################################################################
2020-06-28 18:49:16 +00:00
sub getPtzPatrolList {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ camname = $ hash - > { CAMNAME } ;
my $ name = $ hash - > { NAME } ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getPtzPatrolList" ) ;
2018-11-20 23:30:55 +00:00
return if ( IsDisabled ( $ name ) ) ;
2020-06-23 11:38:46 +00:00
if ( ReadingsVal ( "$name" , "DeviceType" , "" ) ne "PTZ" ) {
2018-11-20 23:30:55 +00:00
Log3 ( $ name , 4 , "$name - Retrieval of Patrols for $camname can't be executed - $camname is not a PTZ-Camera" ) ;
return ;
}
2020-06-28 18:49:16 +00:00
if ( ! IsCapPTZTilt ( $ hash ) | ! IsCapPTZPan ( $ hash ) ) {
2018-11-20 23:30:55 +00:00
Log3 ( $ name , 4 , "$name - Retrieval of Patrols for $camname can't be executed - $camname has no capability to tilt/pan" ) ;
return ;
}
2020-06-23 11:38:46 +00:00
if ( $ hash - > { HELPER } { ACTIVE } ne "on" ) {
2019-05-22 17:31:17 +00:00
$ hash - > { OPMODE } = "Getptzlistpatrol" ;
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { LOGINRETRIES } = 0 ;
setActiveToken ( $ hash ) ;
getApiSites ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 2 , "FHEM::SSCam::getPtzPatrolList" , $ hash , 0 ) ;
2018-11-20 23:30:55 +00:00
}
2020-07-01 19:24:20 +00:00
return ;
2018-11-20 23:30:55 +00:00
}
#############################################################################################################################
####### Begin Kameraoperationen mit NonblockingGet (nicht blockierender HTTP-Call) #######
#############################################################################################################################
2020-06-28 18:49:16 +00:00
sub getApiSites {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ serveraddr = $ hash - > { SERVERADDR } ;
my $ serverport = $ hash - > { SERVERPORT } ;
my $ name = $ hash - > { NAME } ;
my $ apiinfo = $ hash - > { HELPER } { APIINFO } ; # Info-Seite für alle API's, einzige statische Seite !
my $ apiauth = $ hash - > { HELPER } { APIAUTH } ;
my $ apiextrec = $ hash - > { HELPER } { APIEXTREC } ;
my $ apiextevt = $ hash - > { HELPER } { APIEXTEVT } ;
my $ apicam = $ hash - > { HELPER } { APICAM } ;
my $ apitakesnap = $ hash - > { HELPER } { APISNAPSHOT } ;
my $ apiptz = $ hash - > { HELPER } { APIPTZ } ;
my $ apipreset = $ hash - > { HELPER } { APIPRESET } ;
my $ apisvsinfo = $ hash - > { HELPER } { APISVSINFO } ;
my $ apicamevent = $ hash - > { HELPER } { APICAMEVENT } ;
my $ apievent = $ hash - > { HELPER } { APIEVENT } ;
my $ apivideostm = $ hash - > { HELPER } { APIVIDEOSTM } ;
my $ apiaudiostm = $ hash - > { HELPER } { APIAUDIOSTM } ;
my $ apivideostms = $ hash - > { HELPER } { APIVIDEOSTMS } ;
my $ apistm = $ hash - > { HELPER } { APISTM } ;
my $ apihm = $ hash - > { HELPER } { APIHM } ;
my $ apilog = $ hash - > { HELPER } { APILOG } ;
2018-12-31 14:26:04 +00:00
my $ apirec = $ hash - > { HELPER } { APIREC } ;
2018-11-20 23:30:55 +00:00
my $ proto = $ hash - > { PROTOCOL } ;
my $ url ;
my $ param ;
# API-Pfade und MaxVersions ermitteln
Log3 ( $ name , 4 , "$name - ####################################################" ) ;
Log3 ( $ name , 4 , "$name - ### start cam operation $hash->{OPMODE} " ) ;
Log3 ( $ name , 4 , "$name - ####################################################" ) ;
2020-06-28 18:49:16 +00:00
Log3 ( $ name , 4 , "$name - --- Begin Function getApiSites nonblocking ---" ) ;
2018-11-20 23:30:55 +00:00
if ( $ hash - > { HELPER } { APIPARSET } ) {
# API-Hashwerte sind bereits gesetzt -> Abruf überspringen
2020-06-28 18:49:16 +00:00
Log3 ( $ name , 4 , "$name - API hashvalues already set - ignore get apisites" ) ;
return checkSid ( $ hash ) ;
2018-11-20 23:30:55 +00:00
}
my $ httptimeout = AttrVal ( $ name , "httptimeout" , 4 ) ;
Log3 ( $ name , 5 , "$name - HTTP-Call will be done with httptimeout-Value: $httptimeout s" ) ;
# URL zur Abfrage der Eigenschaften der API's
2018-12-31 14:26:04 +00:00
$ url = "$proto://$serveraddr:$serverport/webapi/query.cgi?api=$apiinfo&method=Query&version=1&query=$apiauth,$apiextrec,$apicam,$apitakesnap,$apiptz,$apipreset,$apisvsinfo,$apicamevent,$apievent,$apivideostm,$apiextevt,$apistm,$apihm,$apilog,$apiaudiostm,$apivideostms,$apirec" ;
2018-11-20 23:30:55 +00:00
Log3 ( $ name , 4 , "$name - Call-Out now: $url" ) ;
$ param = {
url = > $ url ,
timeout = > $ httptimeout ,
hash = > $ hash ,
method = > "GET" ,
header = > "Accept: application/json" ,
2020-06-28 18:49:16 +00:00
callback = > \ & getApiSites_Parse
2018-11-20 23:30:55 +00:00
} ;
HttpUtils_NonblockingGet ( $ param ) ;
2020-07-01 19:24:20 +00:00
return ;
2018-11-20 23:30:55 +00:00
}
####################################################################################
2020-06-21 20:37:08 +00:00
# Auswertung Abruf apisites
2018-11-20 23:30:55 +00:00
####################################################################################
2020-06-28 18:49:16 +00:00
sub getApiSites_Parse {
2020-06-21 20:37:08 +00:00
my $ param = shift ;
my $ err = shift ;
my $ myjson = shift ;
my $ hash = $ param - > { hash } ;
my $ name = $ hash - > { NAME } ;
my $ serveraddr = $ hash - > { SERVERADDR } ;
my $ serverport = $ hash - > { SERVERPORT } ;
my $ apiauth = $ hash - > { HELPER } { APIAUTH } ;
my $ apiextrec = $ hash - > { HELPER } { APIEXTREC } ;
my $ apiextevt = $ hash - > { HELPER } { APIEXTEVT } ;
my $ apicam = $ hash - > { HELPER } { APICAM } ;
my $ apitakesnap = $ hash - > { HELPER } { APISNAPSHOT } ;
my $ apiptz = $ hash - > { HELPER } { APIPTZ } ;
my $ apipreset = $ hash - > { HELPER } { APIPRESET } ;
my $ apisvsinfo = $ hash - > { HELPER } { APISVSINFO } ;
my $ apicamevent = $ hash - > { HELPER } { APICAMEVENT } ;
my $ apievent = $ hash - > { HELPER } { APIEVENT } ;
my $ apivideostm = $ hash - > { HELPER } { APIVIDEOSTM } ;
my $ apiaudiostm = $ hash - > { HELPER } { APIAUDIOSTM } ;
2018-11-20 23:30:55 +00:00
my $ apivideostms = $ hash - > { HELPER } { APIVIDEOSTMS } ;
2020-06-21 20:37:08 +00:00
my $ apistm = $ hash - > { HELPER } { APISTM } ;
my $ apihm = $ hash - > { HELPER } { APIHM } ;
my $ apilog = $ hash - > { HELPER } { APILOG } ;
my $ apirec = $ hash - > { HELPER } { APIREC } ;
2018-11-20 23:30:55 +00:00
my ( $ apicammaxver , $ apicampath ) ;
if ( $ err ne "" ) {
2020-06-28 18:49:16 +00:00
# wenn ein Fehler bei der HTTP Abfrage aufgetreten ist
2018-11-20 23:30:55 +00:00
Log3 ( $ name , 2 , "$name - error while requesting " . $ param - > { url } . " - $err" ) ;
readingsSingleUpdate ( $ hash , "Error" , $ err , 1 ) ;
# ausgeführte Funktion ist abgebrochen, Freigabe Funktionstoken
2020-06-28 18:49:16 +00:00
delActiveToken ( $ hash ) ;
2018-11-20 23:30:55 +00:00
return ;
2020-06-28 18:49:16 +00:00
2018-11-20 23:30:55 +00:00
} elsif ( $ myjson ne "" ) {
# Evaluiere ob Daten im JSON-Format empfangen wurden
2020-06-28 18:49:16 +00:00
( $ hash , my $ success ) = evaljson ( $ hash , $ myjson ) ;
2018-11-20 23:30:55 +00:00
unless ( $ success ) {
2020-06-28 18:49:16 +00:00
delActiveToken ( $ hash ) ;
2018-11-20 23:30:55 +00:00
return ;
}
my $ data = decode_json ( $ myjson ) ;
# Logausgabe decodierte JSON Daten
Log3 ( $ name , 5 , "$name - JSON returned: " . Dumper $ data ) ;
$ success = $ data - > { 'success' } ;
if ( $ success ) {
my $ logstr ;
# Pfad und Maxversion von "SYNO.API.Auth" ermitteln
my $ apiauthpath = $ data - > { 'data' } - > { $ apiauth } - > { 'path' } ;
$ apiauthpath =~ tr /_/ / d if ( defined ( $ apiauthpath ) ) ;
my $ apiauthmaxver = $ data - > { 'data' } - > { $ apiauth } - > { 'maxVersion' } ;
$ logstr = defined ( $ apiauthpath ) ? "Path of $apiauth selected: $apiauthpath" : "Path of $apiauth undefined - Surveillance Station may be stopped" ;
Log3 ( $ name , 4 , "$name - $logstr" ) ;
$ logstr = defined ( $ apiauthmaxver ) ? "MaxVersion of $apiauth selected: $apiauthmaxver" : "MaxVersion of $apiauth undefined - Surveillance Station may be stopped" ;
Log3 ( $ name , 4 , "$name - $logstr" ) ;
# Pfad und Maxversion von "SYNO.SurveillanceStation.ExternalRecording" ermitteln
my $ apiextrecpath = $ data - > { 'data' } - > { $ apiextrec } - > { 'path' } ;
$ apiextrecpath =~ tr /_/ / d if ( defined ( $ apiextrecpath ) ) ;
my $ apiextrecmaxver = $ data - > { 'data' } - > { $ apiextrec } - > { 'maxVersion' } ;
2020-06-28 18:49:16 +00:00
$ logstr = defined ( $ apiextrecpath ) ? "Path of $apiextrec selected: $apiextrecpath" : "Path of $apiextrec undefined - Surveillance Station may be stopped" ;
2018-11-20 23:30:55 +00:00
Log3 ( $ name , 4 , "$name - $logstr" ) ;
$ logstr = defined ( $ apiextrecmaxver ) ? "MaxVersion of $apiextrec selected: $apiextrecmaxver" : "MaxVersion of $apiextrec undefined - Surveillance Station may be stopped" ;
Log3 ( $ name , 4 , "$name - $logstr" ) ;
# Pfad und Maxversion von "SYNO.SurveillanceStation.Camera" ermitteln
$ apicampath = $ data - > { 'data' } - > { $ apicam } - > { 'path' } ;
$ apicampath =~ tr /_/ / d if ( defined ( $ apicampath ) ) ;
$ apicammaxver = $ data - > { 'data' } - > { $ apicam } - > { 'maxVersion' } ;
$ logstr = defined ( $ apicampath ) ? "Path of $apicam selected: $apicampath" : "Path of $apicam undefined - Surveillance Station may be stopped" ;
Log3 ( $ name , 4 , "$name - $logstr" ) ;
$ logstr = defined ( $ apiextrecmaxver ) ? "MaxVersion of $apicam: $apicammaxver" : "MaxVersion of $apicam undefined - Surveillance Station may be stopped" ;
Log3 ( $ name , 4 , "$name - $logstr" ) ;
# Pfad und Maxversion von "SYNO.SurveillanceStation.SnapShot" ermitteln
my $ apitakesnappath = $ data - > { 'data' } - > { $ apitakesnap } - > { 'path' } ;
$ apitakesnappath =~ tr /_/ / d if ( defined ( $ apitakesnappath ) ) ;
my $ apitakesnapmaxver = $ data - > { 'data' } - > { $ apitakesnap } - > { 'maxVersion' } ;
$ logstr = defined ( $ apitakesnappath ) ? "Path of $apitakesnap selected: $apitakesnappath" : "Path of $apitakesnap undefined - Surveillance Station may be stopped" ;
Log3 ( $ name , 4 , "$name - $logstr" ) ;
$ logstr = defined ( $ apitakesnapmaxver ) ? "MaxVersion of $apitakesnap: $apitakesnapmaxver" : "MaxVersion of $apitakesnap undefined - Surveillance Station may be stopped" ;
Log3 ( $ name , 4 , "$name - $logstr" ) ;
# Pfad und Maxversion von "SYNO.SurveillanceStation.PTZ" ermitteln
my $ apiptzpath = $ data - > { 'data' } - > { $ apiptz } - > { 'path' } ;
$ apiptzpath =~ tr /_/ / d if ( defined ( $ apiptzpath ) ) ;
my $ apiptzmaxver = $ data - > { 'data' } - > { $ apiptz } - > { 'maxVersion' } ;
$ logstr = defined ( $ apiptzpath ) ? "Path of $apiptz selected: $apiptzpath" : "Path of $apiptz undefined - Surveillance Station may be stopped" ;
Log3 ( $ name , 4 , "$name - $logstr" ) ;
$ logstr = defined ( $ apiptzmaxver ) ? "MaxVersion of $apiptz: $apiptzmaxver" : "MaxVersion of $apiptz undefined - Surveillance Station may be stopped" ;
2020-06-28 18:49:16 +00:00
Log3 ( $ name , 4 , "$name - $logstr" ) ;
2018-11-20 23:30:55 +00:00
# Pfad und Maxversion von "SYNO.SurveillanceStation.PTZ.Preset" ermitteln
my $ apipresetpath = $ data - > { 'data' } - > { $ apipreset } - > { 'path' } ;
$ apipresetpath =~ tr /_/ / d if ( defined ( $ apipresetpath ) ) ;
my $ apipresetmaxver = $ data - > { 'data' } - > { $ apipreset } - > { 'maxVersion' } ;
$ logstr = defined ( $ apipresetpath ) ? "Path of $apipreset selected: $apipresetpath" : "Path of $apipreset undefined - Surveillance Station may be stopped" ;
Log3 ( $ name , 4 , "$name - $logstr" ) ;
$ logstr = defined ( $ apipresetmaxver ) ? "MaxVersion of $apipreset: $apipresetmaxver" : "MaxVersion of $apipreset undefined - Surveillance Station may be stopped" ;
2020-06-28 18:49:16 +00:00
Log3 ( $ name , 4 , "$name - $logstr" ) ;
2018-11-20 23:30:55 +00:00
# Pfad und Maxversion von "SYNO.SurveillanceStation.Info" ermitteln
my $ apisvsinfopath = $ data - > { 'data' } - > { $ apisvsinfo } - > { 'path' } ;
$ apisvsinfopath =~ tr /_/ / d if ( defined ( $ apisvsinfopath ) ) ;
my $ apisvsinfomaxver = $ data - > { 'data' } - > { $ apisvsinfo } - > { 'maxVersion' } ;
$ logstr = defined ( $ apisvsinfopath ) ? "Path of $apisvsinfo selected: $apisvsinfopath" : "Path of $apisvsinfo undefined - Surveillance Station may be stopped" ;
Log3 ( $ name , 4 , "$name - $logstr" ) ;
$ logstr = defined ( $ apisvsinfomaxver ) ? "MaxVersion of $apisvsinfo: $apisvsinfomaxver" : "MaxVersion of $apisvsinfo undefined - Surveillance Station may be stopped" ;
Log3 ( $ name , 4 , "$name - $logstr" ) ;
# Pfad und Maxversion von "SYNO.Surveillance.Camera.Event" ermitteln
my $ apicameventpath = $ data - > { 'data' } - > { $ apicamevent } - > { 'path' } ;
$ apicameventpath =~ tr /_/ / d if ( defined ( $ apicameventpath ) ) ;
my $ apicameventmaxver = $ data - > { 'data' } - > { $ apicamevent } - > { 'maxVersion' } ;
$ logstr = defined ( $ apicameventpath ) ? "Path of $apicamevent selected: $apicameventpath" : "Path of $apicamevent undefined - Surveillance Station may be stopped" ;
Log3 ( $ name , 4 , "$name - $logstr" ) ;
$ logstr = defined ( $ apicameventmaxver ) ? "MaxVersion of $apicamevent: $apicameventmaxver" : "MaxVersion of $apicamevent undefined - Surveillance Station may be stopped" ;
Log3 ( $ name , 4 , "$name - $logstr" ) ;
# Pfad und Maxversion von "SYNO.Surveillance.Event" ermitteln
my $ apieventpath = $ data - > { 'data' } - > { $ apievent } - > { 'path' } ;
$ apieventpath =~ tr /_/ / d if ( defined ( $ apieventpath ) ) ;
my $ apieventmaxver = $ data - > { 'data' } - > { $ apievent } - > { 'maxVersion' } ;
$ logstr = defined ( $ apieventpath ) ? "Path of $apievent selected: $apieventpath" : "Path of $apievent undefined - Surveillance Station may be stopped" ;
Log3 ( $ name , 4 , "$name - $logstr" ) ;
$ logstr = defined ( $ apieventmaxver ) ? "MaxVersion of $apievent: $apieventmaxver" : "MaxVersion of $apievent undefined - Surveillance Station may be stopped" ;
Log3 ( $ name , 4 , "$name - $logstr" ) ;
# Pfad und Maxversion von "SYNO.Surveillance.VideoStream" ermitteln
my $ apivideostmpath = $ data - > { 'data' } - > { $ apivideostm } - > { 'path' } ;
$ apivideostmpath =~ tr /_/ / d if ( defined ( $ apivideostmpath ) ) ;
my $ apivideostmmaxver = $ data - > { 'data' } - > { $ apivideostm } - > { 'maxVersion' } ;
$ logstr = defined ( $ apivideostmpath ) ? "Path of $apivideostm selected: $apivideostmpath" : "Path of $apivideostm undefined - Surveillance Station may be stopped" ;
Log3 ( $ name , 4 , "$name - $logstr" ) ;
$ logstr = defined ( $ apivideostmmaxver ) ? "MaxVersion of $apivideostm: $apivideostmmaxver" : "MaxVersion of $apivideostm undefined - Surveillance Station may be stopped" ;
Log3 ( $ name , 4 , "$name - $logstr" ) ;
# Pfad und Maxversion von "SYNO.SurveillanceStation.ExternalEvent" ermitteln
my $ apiextevtpath = $ data - > { 'data' } - > { $ apiextevt } - > { 'path' } ;
$ apiextevtpath =~ tr /_/ / d if ( defined ( $ apiextevtpath ) ) ;
my $ apiextevtmaxver = $ data - > { 'data' } - > { $ apiextevt } - > { 'maxVersion' } ;
$ logstr = defined ( $ apiextevtpath ) ? "Path of $apiextevt selected: $apiextevtpath" : "Path of $apiextevt undefined - Surveillance Station may be stopped" ;
Log3 ( $ name , 4 , "$name - $logstr" ) ;
$ logstr = defined ( $ apiextevtmaxver ) ? "MaxVersion of $apiextevt selected: $apiextevtmaxver" : "MaxVersion of $apiextevt undefined - Surveillance Station may be stopped" ;
Log3 ( $ name , 4 , "$name - $logstr" ) ;
# Pfad und Maxversion von "SYNO.SurveillanceStation.Streaming" ermitteln
my $ apistmpath = $ data - > { 'data' } - > { $ apistm } - > { 'path' } ;
$ apistmpath =~ tr /_/ / d if ( defined ( $ apistmpath ) ) ;
my $ apistmmaxver = $ data - > { 'data' } - > { $ apistm } - > { 'maxVersion' } ;
$ logstr = defined ( $ apistmpath ) ? "Path of $apistm selected: $apistmpath" : "Path of $apistm undefined - Surveillance Station may be stopped" ;
Log3 ( $ name , 4 , "$name - $logstr" ) ;
$ logstr = defined ( $ apistmmaxver ) ? "MaxVersion of $apistm selected: $apistmmaxver" : "MaxVersion of $apistm undefined - Surveillance Station may be stopped" ;
Log3 ( $ name , 4 , "$name - $logstr" ) ;
# Pfad und Maxversion von "SYNO.SurveillanceStation.HomeMode" ermitteln
my $ apihmpath = $ data - > { 'data' } - > { $ apihm } - > { 'path' } ;
$ apihmpath =~ tr /_/ / d if ( defined ( $ apihmpath ) ) ;
my $ apihmmaxver = $ data - > { 'data' } - > { $ apihm } - > { 'maxVersion' } ;
$ logstr = defined ( $ apihmpath ) ? "Path of $apihm selected: $apihmpath" : "Path of $apihm undefined - Surveillance Station may be stopped" ;
Log3 ( $ name , 4 , "$name - $logstr" ) ;
$ logstr = defined ( $ apihmmaxver ) ? "MaxVersion of $apihm selected: $apihmmaxver" : "MaxVersion of $apihm undefined - Surveillance Station may be stopped" ;
Log3 ( $ name , 4 , "$name - $logstr" ) ;
# Pfad und Maxversion von "SYNO.SurveillanceStation.Log" ermitteln
my $ apilogpath = $ data - > { 'data' } - > { $ apilog } - > { 'path' } ;
$ apilogpath =~ tr /_/ / d if ( defined ( $ apilogpath ) ) ;
my $ apilogmaxver = $ data - > { 'data' } - > { $ apilog } - > { 'maxVersion' } ;
$ logstr = defined ( $ apilogpath ) ? "Path of $apilog selected: $apilogpath" : "Path of $apilog undefined - Surveillance Station may be stopped" ;
Log3 ( $ name , 4 , "$name - $logstr" ) ;
$ logstr = defined ( $ apilogmaxver ) ? "MaxVersion of $apilog selected: $apilogmaxver" : "MaxVersion of $apilog undefined - Surveillance Station may be stopped" ;
Log3 ( $ name , 4 , "$name - $logstr" ) ;
2020-06-28 18:49:16 +00:00
2018-11-20 23:30:55 +00:00
# Pfad und Maxversion von "SYNO.SurveillanceStation.AudioStream" ermitteln
my $ apiaudiostmpath = $ data - > { 'data' } - > { $ apiaudiostm } - > { 'path' } ;
$ apiaudiostmpath =~ tr /_/ / d if ( defined ( $ apiaudiostmpath ) ) ;
my $ apiaudiostmmaxver = $ data - > { 'data' } - > { $ apiaudiostm } - > { 'maxVersion' } ;
$ logstr = defined ( $ apiaudiostmpath ) ? "Path of $apiaudiostm selected: $apiaudiostmpath" : "Path of $apiaudiostm undefined - Surveillance Station may be stopped" ;
Log3 ( $ name , 4 , "$name - $logstr" ) ;
$ logstr = defined ( $ apiaudiostmmaxver ) ? "MaxVersion of $apiaudiostm selected: $apiaudiostmmaxver" : "MaxVersion of $apiaudiostm undefined - Surveillance Station may be stopped" ;
Log3 ( $ name , 4 , "$name - $logstr" ) ;
# Pfad und Maxversion von "SYNO.SurveillanceStation.VideoStream" ermitteln
my $ apivideostmspath = $ data - > { 'data' } - > { $ apivideostms } - > { 'path' } ;
$ apivideostmspath =~ tr /_/ / d if ( defined ( $ apivideostmspath ) ) ;
my $ apivideostmsmaxver = $ data - > { 'data' } - > { $ apivideostms } - > { 'maxVersion' } ;
$ logstr = defined ( $ apivideostmspath ) ? "Path of $apivideostms selected: $apivideostmspath" : "Path of $apivideostms undefined - Surveillance Station may be stopped" ;
Log3 ( $ name , 4 , "$name - $logstr" ) ;
$ logstr = defined ( $ apivideostmsmaxver ) ? "MaxVersion of $apivideostms selected: $apivideostmsmaxver" : "MaxVersion of $apivideostms undefined - Surveillance Station may be stopped" ;
Log3 ( $ name , 4 , "$name - $logstr" ) ;
2018-12-31 14:26:04 +00:00
# Pfad und Maxversion von "SYNO.SurveillanceStation.Recording" ermitteln
my $ apirecpath = $ data - > { 'data' } - > { $ apirec } - > { 'path' } ;
$ apirecpath =~ tr /_/ / d if ( defined ( $ apirecpath ) ) ;
my $ apirecmaxver = $ data - > { 'data' } - > { $ apirec } - > { 'maxVersion' } ;
2020-06-28 18:49:16 +00:00
$ logstr = defined ( $ apirecpath ) ? "Path of $apirec selected: $apirecpath" : "Path of $apirec undefined - Surveillance Station may be stopped" ;
2018-12-31 14:26:04 +00:00
Log3 ( $ name , 4 , "$name - $logstr" ) ;
$ logstr = defined ( $ apirecmaxver ) ? "MaxVersion of $apirec selected: $apirecmaxver" : "MaxVersion of $apirec undefined - Surveillance Station may be stopped" ;
Log3 ( $ name , 4 , "$name - $logstr" ) ;
2020-06-28 18:49:16 +00:00
2018-11-20 23:30:55 +00:00
# aktuelle oder simulierte SVS-Version für Fallentscheidung setzen
2020-07-01 19:24:20 +00:00
my $ major = $ hash - > { HELPER } { SVSVERSION } { MAJOR } // "" ;
my $ minor = $ hash - > { HELPER } { SVSVERSION } { MINOR } // "" ;
my $ small = $ hash - > { HELPER } { SVSVERSION } { SMALL } // "" ;
my $ build = $ hash - > { HELPER } { SVSVERSION } { BUILD } // "" ;
2018-11-20 23:30:55 +00:00
my $ actvs = $ major . $ minor . $ small . $ build ;
my $ avsc = $ major . $ minor . $ small ; # Variable zum Version Kompatibilitätscheck
2020-07-01 19:24:20 +00:00
Log3 ( $ name , 4 , "$name - installed SVS version is: $actvs" ) ;
2018-11-20 23:30:55 +00:00
if ( AttrVal ( $ name , "simu_SVSversion" , 0 ) ) {
2020-07-01 19:24:20 +00:00
my @ vl = split ( /\.|-/ , AttrVal ( $ name , "simu_SVSversion" , "" ) ) ;
$ actvs = $ vl [ 0 ] ;
2018-11-20 23:30:55 +00:00
$ actvs . = $ vl [ 1 ] ;
2020-07-10 15:16:12 +00:00
$ actvs . = ( $ vl [ 2 ] =~ /\d/x ) ? $ vl [ 2 ] . "xxxx" : $ vl [ 2 ] ;
2020-06-28 18:49:16 +00:00
$ actvs . = "-simu" ;
2018-11-20 23:30:55 +00:00
}
2020-06-28 18:49:16 +00:00
2018-11-20 23:30:55 +00:00
# Downgrades für nicht kompatible API-Versionen
2020-06-28 18:49:16 +00:00
# hier nur nutzen wenn API zentral downgraded werden soll
2018-11-20 23:30:55 +00:00
# In den neueren API-Upgrades werden nur einzelne Funktionen auf eine höhere API-Version gezogen
2020-06-28 18:49:16 +00:00
# -> diese Steuerung erfolgt in den einzelnen Funktionsaufrufen in camOp
2018-11-20 23:30:55 +00:00
Log3 ( $ name , 4 , "$name - ------- Begin of adaption section -------" ) ;
2020-06-28 18:49:16 +00:00
#$apiptzmaxver = 4;
2018-11-20 23:30:55 +00:00
#Log3($name, 4, "$name - MaxVersion of $apiptz adapted to: $apiptzmaxver");
#$apicammaxver = 8;
#Log3($name, 4, "$name - MaxVersion of $apicam adapted to: $apicammaxver");
2020-06-28 18:49:16 +00:00
Log3 ( $ name , 4 , "$name - ------- End of adaption section -------" ) ;
2018-11-20 23:30:55 +00:00
# Simulation anderer SVS-Versionen
Log3 ( $ name , 4 , "$name - ------- Begin of simulation section -------" ) ;
2020-06-28 18:49:16 +00:00
if ( AttrVal ( $ name , "simu_SVSversion" , undef ) ) {
2018-11-20 23:30:55 +00:00
Log3 ( $ name , 4 , "$name - SVS version $actvs will be simulated" ) ;
2020-07-10 15:16:12 +00:00
if ( $ actvs =~ /^71/x ) {
2018-11-20 23:30:55 +00:00
$ apicammaxver = 8 ;
Log3 ( $ name , 4 , "$name - MaxVersion of $apicam adapted to: $apicammaxver" ) ;
$ apiauthmaxver = 4 ;
Log3 ( $ name , 4 , "$name - MaxVersion of $apiauth adapted to: $apiauthmaxver" ) ;
$ apiextrecmaxver = 2 ;
Log3 ( $ name , 4 , "$name - MaxVersion of $apiextrec adapted to: $apiextrecmaxver" ) ;
$ apiptzmaxver = 4 ;
Log3 ( $ name , 4 , "$name - MaxVersion of $apiptz adapted to: $apiptzmaxver" ) ;
2020-07-10 15:16:12 +00:00
} elsif ( $ actvs =~ /^72/x ) {
2018-11-20 23:30:55 +00:00
$ apicammaxver = 8 ;
Log3 ( $ name , 4 , "$name - MaxVersion of $apicam adapted to: $apicammaxver" ) ;
$ apiauthmaxver = 6 ;
Log3 ( $ name , 4 , "$name - MaxVersion of $apiauth adapted to: $apiauthmaxver" ) ;
$ apiextrecmaxver = 3 ;
Log3 ( $ name , 4 , "$name - MaxVersion of $apiextrec adapted to: $apiextrecmaxver" ) ;
$ apiptzmaxver = 5 ;
Log3 ( $ name , 4 , "$name - MaxVersion of $apiptz adapted to: $apiptzmaxver" ) ;
2020-07-10 15:16:12 +00:00
} elsif ( $ actvs =~ /^800/x ) {
2018-11-20 23:30:55 +00:00
$ apicammaxver = 9 ;
Log3 ( $ name , 4 , "$name - MaxVersion of $apicam adapted to: $apicammaxver" ) ;
$ apiauthmaxver = 6 ;
Log3 ( $ name , 4 , "$name - MaxVersion of $apiauth adapted to: $apiauthmaxver" ) ;
$ apiextrecmaxver = 3 ;
Log3 ( $ name , 4 , "$name - MaxVersion of $apiextrec adapted to: $apiextrecmaxver" ) ;
$ apiptzmaxver = 5 ;
Log3 ( $ name , 4 , "$name - MaxVersion of $apiptz adapted to: $apiptzmaxver" ) ;
2020-07-10 15:16:12 +00:00
} elsif ( $ actvs =~ /^815/x ) {
2018-11-20 23:30:55 +00:00
$ apicammaxver = 9 ;
Log3 ( $ name , 4 , "$name - MaxVersion of $apicam adapted to: $apicammaxver" ) ;
$ apiauthmaxver = 6 ;
Log3 ( $ name , 4 , "$name - MaxVersion of $apiauth adapted to: $apiauthmaxver" ) ;
$ apiextrecmaxver = 3 ;
Log3 ( $ name , 4 , "$name - MaxVersion of $apiextrec adapted to: $apiextrecmaxver" ) ;
$ apiptzmaxver = 5 ;
Log3 ( $ name , 4 , "$name - MaxVersion of $apiptz adapted to: $apiptzmaxver" ) ;
2020-07-10 15:16:12 +00:00
} elsif ( $ actvs =~ /^820/x ) {
2018-11-20 23:30:55 +00:00
# ab API v2.8 kein "SYNO.SurveillanceStation.VideoStream", "SYNO.SurveillanceStation.AudioStream",
# "SYNO.SurveillanceStation.Streaming" mehr enthalten
$ apivideostmsmaxver = 0 ;
Log3 ( $ name , 4 , "$name - MaxVersion of $apivideostms adapted to: $apivideostmsmaxver" ) ;
$ apiaudiostmmaxver = 0 ;
Log3 ( $ name , 4 , "$name - MaxVersion of $apiaudiostm adapted to: $apiaudiostmmaxver" ) ;
}
2020-06-28 18:49:16 +00:00
} else {
2018-11-20 23:30:55 +00:00
Log3 ( $ name , 4 , "$name - no simulations done !" ) ;
}
Log3 ( $ name , 4 , "$name - ------- End of simulation section -------" ) ;
2020-06-28 18:49:16 +00:00
2018-11-20 23:30:55 +00:00
# ermittelte Werte in $hash einfügen
$ hash - > { HELPER } { APIAUTHPATH } = $ apiauthpath ;
$ hash - > { HELPER } { APIAUTHMAXVER } = $ apiauthmaxver ;
$ hash - > { HELPER } { APIEXTRECPATH } = $ apiextrecpath ;
$ hash - > { HELPER } { APIEXTRECMAXVER } = $ apiextrecmaxver ;
$ hash - > { HELPER } { APICAMPATH } = $ apicampath ;
$ hash - > { HELPER } { APICAMMAXVER } = $ apicammaxver ;
$ hash - > { HELPER } { APITAKESNAPPATH } = $ apitakesnappath ;
$ hash - > { HELPER } { APITAKESNAPMAXVER } = $ apitakesnapmaxver ;
$ hash - > { HELPER } { APIPTZPATH } = $ apiptzpath ;
$ hash - > { HELPER } { APIPTZMAXVER } = $ apiptzmaxver ;
$ hash - > { HELPER } { APIPRESETPATH } = $ apipresetpath ;
$ hash - > { HELPER } { APIPRESETMAXVER } = $ apipresetmaxver ;
$ hash - > { HELPER } { APISVSINFOPATH } = $ apisvsinfopath ;
$ hash - > { HELPER } { APISVSINFOMAXVER } = $ apisvsinfomaxver ;
$ hash - > { HELPER } { APICAMEVENTPATH } = $ apicameventpath ;
$ hash - > { HELPER } { APICAMEVENTMAXVER } = $ apicameventmaxver ;
$ hash - > { HELPER } { APIEVENTPATH } = $ apieventpath ;
$ hash - > { HELPER } { APIEVENTMAXVER } = $ apieventmaxver ;
$ hash - > { HELPER } { APIVIDEOSTMPATH } = $ apivideostmpath ;
$ hash - > { HELPER } { APIVIDEOSTMMAXVER } = $ apivideostmmaxver ;
$ hash - > { HELPER } { APIAUDIOSTMPATH } = $ apiaudiostmpath ? $ apiaudiostmpath: "undefinded" ;
$ hash - > { HELPER } { APIAUDIOSTMMAXVER } = $ apiaudiostmmaxver ? $ apiaudiostmmaxver:0 ;
$ hash - > { HELPER } { APIEXTEVTPATH } = $ apiextevtpath ;
$ hash - > { HELPER } { APIEXTEVTMAXVER } = $ apiextevtmaxver ;
$ hash - > { HELPER } { APISTMPATH } = $ apistmpath ;
$ hash - > { HELPER } { APISTMMAXVER } = $ apistmmaxver ;
$ hash - > { HELPER } { APIHMPATH } = $ apihmpath ;
$ hash - > { HELPER } { APIHMMAXVER } = $ apihmmaxver ;
$ hash - > { HELPER } { APILOGPATH } = $ apilogpath ;
$ hash - > { HELPER } { APILOGMAXVER } = $ apilogmaxver ;
$ hash - > { HELPER } { APIVIDEOSTMSPATH } = $ apivideostmspath ? $ apivideostmspath: "undefinded" ;
$ hash - > { HELPER } { APIVIDEOSTMSMAXVER } = $ apivideostmsmaxver ? $ apivideostmsmaxver:0 ;
2018-12-31 14:26:04 +00:00
$ hash - > { HELPER } { APIRECPATH } = $ apirecpath ;
$ hash - > { HELPER } { APIRECMAXVER } = $ apirecmaxver ;
2018-11-20 23:30:55 +00:00
readingsBeginUpdate ( $ hash ) ;
2020-06-21 20:37:08 +00:00
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
2020-06-28 18:49:16 +00:00
# API Hash values sind gesetzt
$ hash - > { HELPER } { APIPARSET } = 1 ;
2018-11-20 23:30:55 +00:00
} else {
my $ error = "couldn't call API-Infosite" ;
readingsBeginUpdate ( $ hash ) ;
2020-06-21 20:37:08 +00:00
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , $ error ) ;
readingsEndUpdate ( $ hash , 1 ) ;
2018-11-20 23:30:55 +00:00
Log3 ( $ name , 2 , "$name - ERROR - the API-Query couldn't be executed successfully" ) ;
# ausgeführte Funktion ist abgebrochen, Freigabe Funktionstoken
2020-06-28 18:49:16 +00:00
delActiveToken ( $ hash ) ;
2018-11-20 23:30:55 +00:00
return ;
}
2020-06-28 18:49:16 +00:00
}
2020-07-01 19:24:20 +00:00
2020-06-28 18:49:16 +00:00
return checkSid ( $ hash ) ;
2018-11-20 23:30:55 +00:00
}
#############################################################################################
# Check ob Session ID gesetzt ist - ggf. login
#############################################################################################
2020-06-28 18:49:16 +00:00
sub checkSid {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ name = $ hash - > { NAME } ;
my $ subref ;
2020-06-28 18:49:16 +00:00
if ( IsModelCam ( $ hash ) ) {
2018-11-20 23:30:55 +00:00
# Folgefunktion wenn Cam-Device
2020-06-28 18:49:16 +00:00
$ subref = "getCamId" ;
2018-11-20 23:30:55 +00:00
} else {
# Folgefunktion wenn SVS-Device
2020-06-28 18:49:16 +00:00
$ subref = "camOp" ;
2018-11-20 23:30:55 +00:00
}
# SID holen bzw. login
my $ sid = $ hash - > { HELPER } { SID } ;
if ( ! $ sid ) {
Log3 ( $ name , 3 , "$name - no session ID found - get new one" ) ;
2020-06-28 18:49:16 +00:00
login ( $ hash , $ subref ) ;
return ;
2018-11-20 23:30:55 +00:00
}
2020-06-28 18:49:16 +00:00
if ( IsModelCam ( $ hash ) || $ hash - > { OPMODE } eq "Autocreate" ) {
2018-12-06 22:22:15 +00:00
# Normalverarbeitung für Cams oder Autocreate Cams
2020-06-28 18:49:16 +00:00
return getCamId ( $ hash ) ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
# Sprung zu camOp wenn SVS Device
return camOp ( $ hash ) ;
2018-11-20 23:30:55 +00:00
}
2020-07-01 19:24:20 +00:00
return ;
2018-11-20 23:30:55 +00:00
}
#############################################################################################
# Abruf der installierten Cams
#############################################################################################
2020-06-28 18:49:16 +00:00
sub getCamId {
2018-11-20 23:30:55 +00:00
my ( $ hash ) = @ _ ;
my $ name = $ hash - > { NAME } ;
my $ serveraddr = $ hash - > { SERVERADDR } ;
my $ serverport = $ hash - > { SERVERPORT } ;
my $ apicam = $ hash - > { HELPER } { APICAM } ;
my $ apicampath = $ hash - > { HELPER } { APICAMPATH } ;
my $ apicammaxver = $ hash - > { HELPER } { APICAMMAXVER } ;
my $ sid = $ hash - > { HELPER } { SID } ;
my $ proto = $ hash - > { PROTOCOL } ;
my $ url ;
# die Kamera-Id wird aus dem Kameranamen (Surveillance Station) ermittelt
2020-06-28 18:49:16 +00:00
Log3 ( $ name , 4 , "$name - --- Begin Function getCamId nonblocking ---" ) ;
2018-11-20 23:30:55 +00:00
if ( $ hash - > { CAMID } ) {
# Camid ist bereits ermittelt -> Abruf überspringen
2020-06-28 18:49:16 +00:00
Log3 ( $ name , 4 , "$name - CAMID already set - ignore get camid" ) ;
return camOp ( $ hash ) ;
2018-11-20 23:30:55 +00:00
}
my $ httptimeout = AttrVal ( $ name , "httptimeout" , 4 ) ;
Log3 ( $ name , 5 , "$name - HTTP-Call will be done with httptimeout-Value: $httptimeout s" ) ;
$ url = "$proto://$serveraddr:$serverport/webapi/$apicampath?api=$apicam&version=$apicammaxver&method=List&basic=true&streamInfo=true&camStm=true&_sid=\"$sid\"" ;
if ( $ apicammaxver >= 9 ) {
$ url = "$proto://$serveraddr:$serverport/webapi/$apicampath?api=$apicam&version=$apicammaxver&method=\"List\"&basic=true&streamInfo=true&camStm=0&_sid=\"$sid\"" ;
}
Log3 ( $ name , 4 , "$name - Call-Out now: $url" ) ;
my $ param = {
url = > $ url ,
timeout = > $ httptimeout ,
hash = > $ hash ,
method = > "GET" ,
header = > "Accept: application/json" ,
2020-06-28 18:49:16 +00:00
callback = > \ & getCamId_Parse
2018-11-20 23:30:55 +00:00
} ;
HttpUtils_NonblockingGet ( $ param ) ;
2020-07-01 19:24:20 +00:00
return ;
2018-11-20 23:30:55 +00:00
}
#############################################################################################
# Auswertung installierte Cams, Selektion Cam , Ausführung Operation
#############################################################################################
2020-06-28 18:49:16 +00:00
sub getCamId_Parse {
2018-11-20 23:30:55 +00:00
my ( $ param , $ err , $ myjson ) = @ _ ;
my $ hash = $ param - > { hash } ;
my $ name = $ hash - > { NAME } ;
my $ camname = $ hash - > { CAMNAME } ;
2018-12-06 22:22:15 +00:00
my $ apicammaxver = $ hash - > { HELPER } { APICAMMAXVER } ;
my $ OpMode = $ hash - > { OPMODE } ;
2018-11-20 23:30:55 +00:00
my ( $ data , $ success , $ error , $ errorcode , $ camid ) ;
2018-12-06 22:22:15 +00:00
my ( $ i , $ n , $ id , $ errstate , $ camdef , $ nrcreated ) ;
my $ cdall = "" ;
2018-11-20 23:30:55 +00:00
my % allcams ;
if ( $ err ne "" ) {
# wenn ein Fehler bei der HTTP Abfrage aufgetreten ist
Log3 ( $ name , 2 , "$name - error while requesting " . $ param - > { url } . " - $err" ) ;
2020-06-28 18:49:16 +00:00
readingsSingleUpdate ( $ hash , "Error" , $ err , 1 ) ;
return login ( $ hash , 'getApiSites' ) ;
2018-11-20 23:30:55 +00:00
} elsif ( $ myjson ne "" ) {
# wenn die Abfrage erfolgreich war ($data enthält die Ergebnisdaten des HTTP Aufrufes)
# evaluiere ob Daten im JSON-Format empfangen wurden, Achtung: sehr viele Daten mit verbose=5
2020-06-28 18:49:16 +00:00
( $ hash , $ success ) = evaljson ( $ hash , $ myjson ) ;
2018-11-20 23:30:55 +00:00
unless ( $ success ) {
2020-06-28 18:49:16 +00:00
Log3 ( $ name , 4 , "$name - Data returned: " . $ myjson ) ;
delActiveToken ( $ hash ) ;
2018-11-20 23:30:55 +00:00
return ;
}
$ data = decode_json ( $ myjson ) ;
# lesbare Ausgabe der decodierten JSON-Daten
Log3 ( $ name , 5 , "$name - JSON returned: " . Dumper $ data ) ;
$ success = $ data - > { 'success' } ;
if ( $ success ) {
2020-06-28 18:49:16 +00:00
# die Liste aller Kameras konnte ausgelesen werden
2018-12-06 22:22:15 +00:00
( $ i , $ nrcreated ) = ( 0 , 0 ) ;
2018-11-20 23:30:55 +00:00
# Namen aller installierten Kameras mit Id's in Assoziatives Array einlesen
% allcams = ( ) ;
while ( $ data - > { 'data' } - > { 'cameras' } - > [ $ i ] ) {
if ( $ apicammaxver <= 8 ) {
2020-06-28 18:49:16 +00:00
$ n = $ data - > { 'data' } - > { 'cameras' } - > [ $ i ] - > { 'name' } ;
} else {
$ n = $ data - > { 'data' } - > { 'cameras' } - > [ $ i ] - > { 'newName' } ; # Änderung ab SVS 8.0.0
}
2018-11-20 23:30:55 +00:00
$ id = $ data - > { 'data' } - > { 'cameras' } - > [ $ i ] - > { 'id' } ;
$ allcams { "$n" } = "$id" ;
$ i += 1 ;
2018-12-06 22:22:15 +00:00
if ( $ OpMode eq "Autocreate" ) {
# Cam autocreate
2020-06-28 18:49:16 +00:00
( $ err , $ camdef ) = setAutocreate ( $ hash , $ n ) ;
2018-12-06 22:22:15 +00:00
if ( $ camdef ) {
$ cdall = $ cdall . ( $ cdall ? ", " : "" ) . $ camdef ;
$ nrcreated + + ;
}
$ errstate = $ err if ( $ err ) ;
}
}
if ( $ OpMode eq "Autocreate" ) {
# Cam autocreate
Log3 ( $ name , 3 , "$name - Cameras defined by autocreate: $cdall" ) if ( $ cdall ) ;
$ errstate = $ errstate ? $ errstate: "none" ;
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "NumberAutocreatedCams" , $ nrcreated ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , $ errstate ) ;
readingsBulkUpdate ( $ hash , "state" , "autocreate finished" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
CommandSave ( undef , undef ) if ( $ errstate eq "none" && $ nrcreated && AttrVal ( "global" , "autosave" , 1 ) ) ;
2020-06-28 18:49:16 +00:00
# Freigabe Funktionstoken
delActiveToken ( $ hash ) ;
2018-12-06 22:22:15 +00:00
return ;
2018-11-20 23:30:55 +00:00
}
# Ist der gesuchte Kameraname im Hash enhalten (in SVS eingerichtet ?)
if ( exists ( $ allcams { $ camname } ) ) {
$ camid = $ allcams { $ camname } ;
$ hash - > { CAMID } = $ camid ;
Log3 ( $ name , 4 , "$name - Detection Camid successful - $camname ID: $camid" ) ;
2020-06-28 18:49:16 +00:00
} else {
2018-11-20 23:30:55 +00:00
# Kameraname nicht gefunden, id = ""
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "Camera(ID) not found in Surveillance Station" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
2020-06-28 18:49:16 +00:00
Log3 ( $ name , 2 , "$name - ERROR - Cameraname $camname wasn't found in Surveillance Station. Check Userrights, Cameraname and Spelling" ) ;
delActiveToken ( $ hash ) ;
2018-11-20 23:30:55 +00:00
return ;
}
2020-06-28 18:49:16 +00:00
} else {
2018-11-20 23:30:55 +00:00
# Errorcode aus JSON ermitteln
$ errorcode = $ data - > { 'error' } - > { 'code' } ;
# Fehlertext zum Errorcode ermitteln
2020-06-28 18:49:16 +00:00
$ error = expErrors ( $ hash , $ errorcode ) ;
2018-11-20 23:30:55 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , $ errorcode ) ;
readingsBulkUpdate ( $ hash , "Error" , $ error ) ;
readingsEndUpdate ( $ hash , 1 ) ;
2020-07-10 15:16:12 +00:00
if ( $ errorcode =~ /(105|401)/x ) {
2020-06-28 18:49:16 +00:00
# neue Login-Versuche
Log3 ( $ name , 2 , "$name - ERROR - $errorcode - $error -> try new login" ) ;
return login ( $ hash , 'getApiSites' ) ;
} else {
# ausgeführte Funktion ist abgebrochen, Freigabe Funktionstoken
delActiveToken ( $ hash ) ;
Log3 ( $ name , 2 , "$name - ERROR - ID of Camera $camname couldn't be selected. Errorcode: $errorcode - $error" ) ;
2018-11-20 23:30:55 +00:00
return ;
2020-06-28 18:49:16 +00:00
}
2018-11-20 23:30:55 +00:00
}
}
2020-07-01 19:24:20 +00:00
2020-06-28 18:49:16 +00:00
return camOp ( $ hash ) ;
2018-11-20 23:30:55 +00:00
}
#############################################################################################
# Ausführung Operation
#############################################################################################
2020-06-28 18:49:16 +00:00
sub camOp {
2020-06-21 20:37:08 +00:00
my $ hash = shift ;
2018-11-20 23:30:55 +00:00
my $ name = $ hash - > { NAME } ;
2020-06-21 20:37:08 +00:00
my $ apicam = $ hash - > { HELPER } { APICAM } ; # SYNO.SurveillanceStation.Camera
2018-11-20 23:30:55 +00:00
my $ apicampath = $ hash - > { HELPER } { APICAMPATH } ;
my $ apicammaxver = $ hash - > { HELPER } { APICAMMAXVER } ;
2020-06-21 20:37:08 +00:00
my $ apiextrec = $ hash - > { HELPER } { APIEXTREC } ; # SYNO.SurveillanceStation.ExternalRecording
2018-11-20 23:30:55 +00:00
my $ apiextrecpath = $ hash - > { HELPER } { APIEXTRECPATH } ;
my $ apiextrecmaxver = $ hash - > { HELPER } { APIEXTRECMAXVER } ;
2020-06-21 20:37:08 +00:00
my $ apiextevt = $ hash - > { HELPER } { APIEXTEVT } ; # SYNO.SurveillanceStation.ExternalEvent
2018-11-20 23:30:55 +00:00
my $ apiextevtpath = $ hash - > { HELPER } { APIEXTEVTPATH } ;
my $ apiextevtmaxver = $ hash - > { HELPER } { APIEXTEVTMAXVER } ;
2020-06-21 20:37:08 +00:00
my $ apitakesnap = $ hash - > { HELPER } { APISNAPSHOT } ; # SYNO.SurveillanceStation.SnapShot
2018-11-20 23:30:55 +00:00
my $ apitakesnappath = $ hash - > { HELPER } { APITAKESNAPPATH } ;
my $ apitakesnapmaxver = $ hash - > { HELPER } { APITAKESNAPMAXVER } ;
2020-06-21 20:37:08 +00:00
my $ apiptz = $ hash - > { HELPER } { APIPTZ } ; # SYNO.SurveillanceStation.PTZ
2018-11-20 23:30:55 +00:00
my $ apiptzpath = $ hash - > { HELPER } { APIPTZPATH } ;
my $ apiptzmaxver = $ hash - > { HELPER } { APIPTZMAXVER } ;
2020-06-21 20:37:08 +00:00
my $ apipreset = $ hash - > { HELPER } { APIPRESET } ; # SYNO.SurveillanceStation.PTZ.Preset
2018-11-20 23:30:55 +00:00
my $ apipresetpath = $ hash - > { HELPER } { APIPRESETPATH } ;
my $ apipresetmaxver = $ hash - > { HELPER } { APIPRESETMAXVER } ;
2020-06-21 20:37:08 +00:00
my $ apisvsinfo = $ hash - > { HELPER } { APISVSINFO } ; # SYNO.SurveillanceStation.Info
2018-11-20 23:30:55 +00:00
my $ apisvsinfopath = $ hash - > { HELPER } { APISVSINFOPATH } ;
my $ apisvsinfomaxver = $ hash - > { HELPER } { APISVSINFOMAXVER } ;
2020-06-21 20:37:08 +00:00
my $ apicamevent = $ hash - > { HELPER } { APICAMEVENT } ; # SYNO.SurveillanceStation.Camera.Event
2018-11-20 23:30:55 +00:00
my $ apicameventpath = $ hash - > { HELPER } { APICAMEVENTPATH } ;
my $ apicameventmaxver = $ hash - > { HELPER } { APICAMEVENTMAXVER } ;
2020-06-21 20:37:08 +00:00
my $ apievent = $ hash - > { HELPER } { APIEVENT } ; # SYNO.SurveillanceStation.Event
2018-11-20 23:30:55 +00:00
my $ apieventpath = $ hash - > { HELPER } { APIEVENTPATH } ;
my $ apieventmaxver = $ hash - > { HELPER } { APIEVENTMAXVER } ;
2020-06-21 20:37:08 +00:00
my $ apivideostm = $ hash - > { HELPER } { APIVIDEOSTM } ; # SYNO.SurveillanceStation.VideoStreaming
2018-11-20 23:30:55 +00:00
my $ apivideostmpath = $ hash - > { HELPER } { APIVIDEOSTMPATH } ;
my $ apivideostmmaxver = $ hash - > { HELPER } { APIVIDEOSTMMAXVER } ;
2020-06-21 20:37:08 +00:00
my $ apiaudiostm = $ hash - > { HELPER } { APIAUDIOSTM } ; # SYNO.SurveillanceStation.AudioStream
2018-11-20 23:30:55 +00:00
my $ apiaudiostmpath = $ hash - > { HELPER } { APIAUDIOSTMPATH } ;
my $ apiaudiostmmaxver = $ hash - > { HELPER } { APIAUDIOSTMMAXVER } ;
2020-06-21 20:37:08 +00:00
my $ apistm = $ hash - > { HELPER } { APISTM } ; # SYNO.SurveillanceStation.Stream
2018-11-20 23:30:55 +00:00
my $ apistmpath = $ hash - > { HELPER } { APISTMPATH } ;
my $ apistmmaxver = $ hash - > { HELPER } { APISTMMAXVER } ;
2020-06-21 20:37:08 +00:00
my $ apihm = $ hash - > { HELPER } { APIHM } ; # SYNO.SurveillanceStation.HomeMode
2018-11-20 23:30:55 +00:00
my $ apihmpath = $ hash - > { HELPER } { APIHMPATH } ;
my $ apihmmaxver = $ hash - > { HELPER } { APIHMMAXVER } ;
2020-06-21 20:37:08 +00:00
my $ apilog = $ hash - > { HELPER } { APILOG } ; # SYNO.SurveillanceStation.Log
2018-11-20 23:30:55 +00:00
my $ apilogpath = $ hash - > { HELPER } { APILOGPATH } ;
my $ apilogmaxver = $ hash - > { HELPER } { APILOGMAXVER } ;
2020-06-21 20:37:08 +00:00
my $ apivideostms = $ hash - > { HELPER } { APIVIDEOSTMS } ; # SYNO.SurveillanceStation.VideoStream
2018-11-20 23:30:55 +00:00
my $ apivideostmspath = $ hash - > { HELPER } { APIVIDEOSTMSPATH } ;
my $ apivideostmsmaxver = $ hash - > { HELPER } { APIVIDEOSTMSMAXVER } ;
2020-06-21 20:37:08 +00:00
my $ apirec = $ hash - > { HELPER } { APIREC } ; # SYNO.SurveillanceStation.Recording
2018-12-31 14:26:04 +00:00
my $ apirecpath = $ hash - > { HELPER } { APIRECPATH } ;
my $ apirecmaxver = $ hash - > { HELPER } { APIRECMAXVER } ;
2018-11-20 23:30:55 +00:00
my $ sid = $ hash - > { HELPER } { SID } ;
my $ OpMode = $ hash - > { OPMODE } ;
my $ camid = $ hash - > { CAMID } ;
my $ proto = $ hash - > { PROTOCOL } ;
my $ serveraddr = $ hash - > { SERVERADDR } ;
my $ serverport = $ hash - > { SERVERPORT } ;
my ( $ exturl , $ winname , $ attr , $ room , $ param ) ;
my ( $ url , $ snapid , $ httptimeout , $ expmode , $ motdetsc ) ;
Log3 ( $ name , 4 , "$name - --- Begin Function $OpMode nonblocking ---" ) ;
$ httptimeout = AttrVal ( $ name , "httptimeout" , 4 ) ;
2020-07-10 15:16:12 +00:00
$ httptimeout = $ httptimeout + 90 if ( $ OpMode =~ /setoptpar|Disable/x ) ; # setzen der Optimierungsparameter/Disable dauert lange !
2018-11-20 23:30:55 +00:00
Log3 ( $ name , 5 , "$name - HTTP-Call will be done with httptimeout-Value: $httptimeout s" ) ;
if ( $ OpMode eq "Start" ) {
$ url = "$proto://$serveraddr:$serverport/webapi/$apiextrecpath?api=$apiextrec&method=Record&version=$apiextrecmaxver&cameraId=$camid&action=start&_sid=\"$sid\"" ;
if ( $ apiextrecmaxver >= 3 ) {
$ url = "$proto://$serveraddr:$serverport/webapi/$apiextrecpath?api=$apiextrec&method=Record&version=$apiextrecmaxver&cameraIds=$camid&action=start&_sid=\"$sid\"" ;
}
} elsif ( $ OpMode eq "Stop" ) {
$ url = "$proto://$serveraddr:$serverport/webapi/$apiextrecpath?api=$apiextrec&method=Record&version=$apiextrecmaxver&cameraId=$camid&action=stop&_sid=\"$sid\"" ;
if ( $ apiextrecmaxver >= 3 ) {
$ url = "$proto://$serveraddr:$serverport/webapi/$apiextrecpath?api=$apiextrec&method=Record&version=$apiextrecmaxver&cameraIds=$camid&action=stop&_sid=\"$sid\"" ;
}
} elsif ( $ OpMode eq "Snap" ) {
# ein Schnappschuß wird ausgelöst
$ url = "$proto://$serveraddr:$serverport/webapi/$apitakesnappath?api=\"$apitakesnap\"&dsId=\"0\"&method=\"TakeSnapshot\"&version=\"$apitakesnapmaxver\"&camId=\"$camid\"&blSave=\"true\"&_sid=\"$sid\"" ;
readingsSingleUpdate ( $ hash , "state" , "snap" , 1 ) ;
2019-01-27 15:36:11 +00:00
} elsif ( $ OpMode eq "SaveRec" || $ OpMode eq "GetRec" ) {
2018-12-31 14:26:04 +00:00
# eine Aufnahme soll in lokalem File (.mp4) gespeichert werden
my $ recid = ReadingsVal ( "$name" , "CamLastRecId" , 0 ) ;
if ( $ recid ) {
$ url = "$proto://$serveraddr:$serverport/webapi/$apirecpath?api=\"$apirec\"&id=$recid&mountId=0&version=\"$apirecmaxver\"&method=\"Download\"&_sid=\"$sid\"" ;
} else {
2019-01-27 15:36:11 +00:00
Log3 ( $ name , 2 , "$name - WARNING - Can't fetch recording due to no recording available." ) ;
2020-06-28 18:49:16 +00:00
delActiveToken ( $ hash ) ;
2018-12-31 14:26:04 +00:00
return ;
}
2018-11-20 23:30:55 +00:00
} elsif ( $ OpMode eq "getsnapinfo" || $ OpMode eq "getsnapgallery" ) {
# Informationen über den letzten oder mehrere Schnappschüsse ermitteln
2020-06-28 18:49:16 +00:00
my $ limit = $ hash - > { HELPER } { SNAPLIMIT } ;
my $ imgsize = $ hash - > { HELPER } { SNAPIMGSIZE } ;
my $ keyword = $ hash - > { HELPER } { KEYWORD } ;
2018-11-24 07:58:45 +00:00
my $ snapid = ReadingsVal ( "$name" , "LastSnapId" , " " ) ;
2020-07-10 15:16:12 +00:00
if ( $ OpMode eq "getsnapinfo" && $ snapid =~ /\d+/x ) {
2019-03-04 19:09:35 +00:00
# getsnapinfo UND Reading LastSnapId gesetzt
2020-06-28 18:49:16 +00:00
Log3 ( $ name , 4 , "$name - Call getsnapinfo with params: Image numbers => $limit, Image size => $imgsize, Id => $snapid" ) ;
2018-12-12 19:08:36 +00:00
$ url = "$proto://$serveraddr:$serverport/webapi/$apitakesnappath?api=\"$apitakesnap\"&method=\"List\"&version=\"$apitakesnapmaxver\"&idList=\"$snapid\"&imgSize=\"$imgsize\"&limit=\"$limit\"&_sid=\"$sid\"" ;
2018-11-24 07:58:45 +00:00
} else {
2019-03-04 19:09:35 +00:00
# snapgallery oder kein Reading LastSnapId gesetzt
2020-06-28 18:49:16 +00:00
Log3 ( $ name , 4 , "$name - Call getsnapinfo with params: Image numbers => $limit, Image size => $imgsize, Keyword => $keyword" ) ;
2018-11-24 07:58:45 +00:00
$ url = "$proto://$serveraddr:$serverport/webapi/$apitakesnappath?api=\"$apitakesnap\"&method=\"List\"&version=\"$apitakesnapmaxver\"&keyword=\"$keyword\"&imgSize=\"$imgsize\"&limit=\"$limit\"&_sid=\"$sid\"" ;
}
2018-11-20 23:30:55 +00:00
} elsif ( $ OpMode eq "getsnapfilename" ) {
# der Filename der aktuellen Schnappschuß-ID wird ermittelt
2019-01-19 15:35:22 +00:00
$ snapid = ReadingsVal ( "$name" , "LastSnapId" , "" ) ;
2018-11-20 23:30:55 +00:00
Log3 ( $ name , 4 , "$name - Get filename of present Snap-ID $snapid" ) ;
$ url = "$proto://$serveraddr:$serverport/webapi/$apitakesnappath?api=\"$apitakesnap\"&method=\"List\"&version=\"$apitakesnapmaxver\"&imgSize=\"0\"&idList=\"$snapid\"&_sid=\"$sid\"" ;
} elsif ( $ OpMode eq "gopreset" ) {
# Preset wird angefahren
$ apiptzmaxver = ( $ apiptzmaxver >= 5 ) ? 4 : $ apiptzmaxver ;
2020-06-28 18:49:16 +00:00
$ url = "$proto://$serveraddr:$serverport/webapi/$apiptzpath?api=\"$apiptz\"&version=\"$apiptzmaxver\"&method=\"GoPreset\"&position=\"$hash->{HELPER}{ALLPRESETS}{$hash->{HELPER}{GOPRESETNAME}}\"&cameraId=\"$camid\"&_sid=\"$sid\"" ;
2018-11-20 23:30:55 +00:00
} elsif ( $ OpMode eq "getPresets" ) {
# Liste der Presets abrufen
2020-06-28 18:49:16 +00:00
$ url = "$proto://$serveraddr:$serverport/webapi/$apipresetpath?api=\"$apipreset\"&version=\"$apipresetmaxver\"&method=\"Enum\"&cameraId=\"$camid\"&_sid=\"$sid\"" ;
2018-11-20 23:30:55 +00:00
} elsif ( $ OpMode eq "piract" ) {
# PIR Sensor aktivieren/deaktivieren
my $ piract = $ hash - > { HELPER } { PIRACT } ;
$ url = "$proto://$serveraddr:$serverport/webapi/$apicameventpath?api=\"$apicamevent\"&version=\"$apicameventmaxver\"&method=\"PDParamSave\"&keep=true&source=$piract&camId=\"$camid\"&_sid=\"$sid\"" ;
} elsif ( $ OpMode eq "setPreset" ) {
# einen Preset setzen
my $ pnumber = $ hash - > { HELPER } { PNUMBER } ;
my $ pname = $ hash - > { HELPER } { PNAME } ;
my $ pspeed = $ hash - > { HELPER } { PSPEED } ;
if ( $ pspeed ) {
2020-06-28 18:49:16 +00:00
$ url = "$proto://$serveraddr:$serverport/webapi/$apipresetpath?api=\"$apipreset\"&version=\"$apipresetmaxver\"&method=\"SetPreset\"&position=$pnumber&name=\"$pname\"&speed=\"$pspeed\"&cameraId=\"$camid\"&_sid=\"$sid\"" ;
2018-11-20 23:30:55 +00:00
} else {
2020-06-28 18:49:16 +00:00
$ url = "$proto://$serveraddr:$serverport/webapi/$apipresetpath?api=\"$apipreset\"&version=\"$apipresetmaxver\"&method=\"SetPreset\"&position=$pnumber&name=\"$pname\"&cameraId=\"$camid\"&_sid=\"$sid\"" ;
2018-11-20 23:30:55 +00:00
}
} elsif ( $ OpMode eq "delPreset" ) {
# einen Preset löschen
2020-06-28 18:49:16 +00:00
$ url = "$proto://$serveraddr:$serverport/webapi/$apipresetpath?api=\"$apipreset\"&version=\"$apipresetmaxver\"&method=\"DelPreset\"&position=\"$hash->{HELPER}{ALLPRESETS}{$hash->{HELPER}{DELPRESETNAME}}\"&cameraId=\"$camid\"&_sid=\"$sid\"" ;
2018-11-20 23:30:55 +00:00
} elsif ( $ OpMode eq "setHome" ) {
# aktuelle Position als Home setzen
if ( $ hash - > { HELPER } { SETHOME } eq "---currentPosition---" ) {
$ url = "$proto://$serveraddr:$serverport/webapi/$apipresetpath?api=\"$apipreset\"&version=\"$apipresetmaxver\"&method=\"SetHome\"&cameraId=\"$camid\"&_sid=\"$sid\"" ;
} else {
my $ bindpos = $ hash - > { HELPER } { ALLPRESETS } { $ hash - > { HELPER } { SETHOME } } ;
2020-06-28 18:49:16 +00:00
$ url = "$proto://$serveraddr:$serverport/webapi/$apipresetpath?api=\"$apipreset\"&version=\"$apipresetmaxver\"&method=\"SetHome\"&bindPosition=\"$bindpos\"&cameraId=\"$camid\"&_sid=\"$sid\"" ;
2018-11-20 23:30:55 +00:00
}
} elsif ( $ OpMode eq "startTrack" ) {
# Object Tracking einschalten
2020-06-28 18:49:16 +00:00
$ url = "$proto://$serveraddr:$serverport/webapi/$apiptzpath?api=\"$apiptz\"&version=\"$apiptzmaxver\"&method=\"ObjTracking\"&cameraId=\"$camid\"&_sid=\"$sid\"" ;
2018-11-20 23:30:55 +00:00
} elsif ( $ OpMode eq "stopTrack" ) {
# Object Tracking stoppen
2020-06-28 18:49:16 +00:00
$ url = "$proto://$serveraddr:$serverport/webapi/$apiptzpath?api=\"$apiptz\"&version=\"$apiptzmaxver\"&method=\"ObjTracking\"&moveType=\"Stop\"&cameraId=\"$camid\"&_sid=\"$sid\"" ;
2018-11-20 23:30:55 +00:00
2020-06-22 18:11:24 +00:00
} elsif ( $ OpMode eq "setZoom" ) {
# Zoom in / stop / out
my $ dir = $ hash - > { HELPER } { ZOOM } { DIR } ;
my $ moveType = $ hash - > { HELPER } { ZOOM } { MOVETYPE } ;
2020-06-23 20:32:00 +00:00
my $ sttime = $ hash - > { HELPER } { ZOOM } { STOPTIME } // "" ;
Log3 ( $ name , 4 , qq{ $name - execute operation Zoom "$dir:$moveType:$sttime" } ) ;
2020-06-23 10:15:44 +00:00
2020-06-28 18:49:16 +00:00
$ url = qq{ $proto://$serveraddr:$serverport/webapi/$apiptzpath?api="$apiptz"&version="$apiptzmaxver"&method="Zoom"&cameraId="$camid"&control="$dir"&moveType="$moveType"&_sid="$sid" } ;
2020-06-22 18:11:24 +00:00
2018-11-20 23:30:55 +00:00
} elsif ( $ OpMode eq "runpatrol" ) {
# eine Überwachungstour starten
2020-06-22 18:11:24 +00:00
$ url = qq{ $proto://$serveraddr:$serverport/webapi/$apiptzpath?api="$apiptz"&version="$apiptzmaxver"&method="RunPatrol"&patrolId="$hash-> { HELPER } { ALLPATROLS } { $hash-> { HELPER } { GOPATROLNAME } } "&cameraId="$camid"&_sid="$sid" } ;
2018-11-20 23:30:55 +00:00
} elsif ( $ OpMode eq "goabsptz" ) {
$ url = "$proto://$serveraddr:$serverport/webapi/$apiptzpath?api=\"$apiptz\"&version=\"$apiptzmaxver\"&method=\"AbsPtz\"&cameraId=\"$camid\"&posX=\"$hash->{HELPER}{GOPTZPOSX}\"&posY=\"$hash->{HELPER}{GOPTZPOSY}\"&_sid=\"$sid\"" ;
} elsif ( $ OpMode eq "movestart" ) {
$ url = "$proto://$serveraddr:$serverport/webapi/$apiptzpath?api=\"$apiptz\"&version=\"$apiptzmaxver\"&method=\"Move\"&cameraId=\"$camid\"&direction=\"$hash->{HELPER}{GOMOVEDIR}\"&speed=\"3\"&moveType=\"Start\"&_sid=\"$sid\"" ;
} elsif ( $ OpMode eq "movestop" ) {
Log3 ( $ name , 4 , "$name - Stop Camera $hash->{CAMNAME} moving to direction \"$hash->{HELPER}{GOMOVEDIR}\" now" ) ;
$ url = "$proto://$serveraddr:$serverport/webapi/$apiptzpath?api=\"$apiptz\"&version=\"$apiptzmaxver\"&method=\"Move\"&cameraId=\"$camid\"&direction=\"$hash->{HELPER}{GOMOVEDIR}\"&moveType=\"Stop\"&_sid=\"$sid\"" ;
} elsif ( $ OpMode eq "Enable" ) {
$ url = "$proto://$serveraddr:$serverport/webapi/$apicampath?api=$apicam&version=$apicammaxver&method=Enable&cameraIds=$camid&_sid=\"$sid\"" ;
if ( $ apicammaxver >= 9 ) {
2020-06-28 18:49:16 +00:00
$ url = "$proto://$serveraddr:$serverport/webapi/$apicampath?api=\"$apicam\"&version=$apicammaxver&method=\"Enable\"&idList=\"$camid\"&_sid=\"$sid\"" ;
}
2018-11-20 23:30:55 +00:00
} elsif ( $ OpMode eq "Disable" ) {
$ url = "$proto://$serveraddr:$serverport/webapi/$apicampath?api=$apicam&version=$apicammaxver&method=Disable&cameraIds=$camid&_sid=\"$sid\"" ;
if ( $ apicammaxver >= 9 ) {
2020-06-28 18:49:16 +00:00
$ url = "$proto://$serveraddr:$serverport/webapi/$apicampath?api=\"$apicam\"&version=$apicammaxver&method=\"Disable\"&idList=\"$camid\"&_sid=\"$sid\"" ;
}
2018-11-20 23:30:55 +00:00
} elsif ( $ OpMode eq "sethomemode" ) {
my $ sw = $ hash - > { HELPER } { HOMEMODE } ; # HomeMode on,off
2020-06-28 18:49:16 +00:00
$ sw = ( $ sw eq "on" ) ? "true" : "false" ;
2018-11-20 23:30:55 +00:00
$ url = "$proto://$serveraddr:$serverport/webapi/$apihmpath?on=$sw&api=$apihm&method=Switch&version=$apihmmaxver&_sid=\"$sid\"" ;
} elsif ( $ OpMode eq "gethomemodestate" ) {
$ url = "$proto://$serveraddr:$serverport/webapi/$apihmpath?api=$apihm&method=GetInfo&version=$apihmmaxver&_sid=\"$sid\"" ;
} elsif ( $ OpMode eq "getsvslog" ) {
2020-07-01 19:24:20 +00:00
my $ sev = $ hash - > { HELPER } { LISTLOGSEVERITY } // "" ;
my $ lim = $ hash - > { HELPER } { LISTLOGLIMIT } // 0 ;
my $ mco = $ hash - > { HELPER } { LISTLOGMATCH } // "" ;
2020-06-28 18:49:16 +00:00
2020-07-01 19:24:20 +00:00
Log3 ( $ name , 4 , "$name - get logList with params: severity => $sev, limit => $lim, matchcode => $mco" ) ;
$ mco = IsModelCam ( $ hash ) ? $ hash - > { CAMNAME } : $ mco ;
$ lim = 1 if ( ! $ hash - > { HELPER } { CL } { 1 } ) ; # Datenabruf im Hintergrund
2020-07-10 15:16:12 +00:00
$ sev = ( lc ( $ sev ) =~ /error/x ) ? 3 : ( lc ( $ sev ) =~ /warning/x ) ? 2 : ( lc ( $ sev ) =~ /info/x ) ? 1 : "" ;
2020-06-28 18:49:16 +00:00
$ url = "$proto://$serveraddr:$serverport/webapi/$apilogpath?api=$apilog&version=\"2\"&method=\"List\"&time2String=\"no\"&level=\"$sev\"&limit=\"$lim\"&keyword=\"$mco\"&_sid=\"$sid\"" ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
delete ( $ hash - > { HELPER } { LISTLOGSEVERITY } ) ;
delete ( $ hash - > { HELPER } { LISTLOGLIMIT } ) ;
delete ( $ hash - > { HELPER } { LISTLOGMATCH } ) ;
2018-11-20 23:30:55 +00:00
} elsif ( $ OpMode eq "getsvsinfo" ) {
$ url = "$proto://$serveraddr:$serverport/webapi/$apisvsinfopath?api=\"$apisvsinfo\"&version=\"$apisvsinfomaxver\"&method=\"GetInfo\"&_sid=\"$sid\"" ;
} elsif ( $ OpMode eq "setoptpar" ) {
my $ mirr = $ hash - > { HELPER } { MIRROR } ? $ hash - > { HELPER } { MIRROR } : ReadingsVal ( "$name" , "CamVideoMirror" , "" ) ;
2020-06-28 18:49:16 +00:00
my $ flip = $ hash - > { HELPER } { FLIP } ? $ hash - > { HELPER } { FLIP } : ReadingsVal ( "$name" , "CamVideoFlip" , "" ) ;
my $ rot = $ hash - > { HELPER } { ROTATE } ? $ hash - > { HELPER } { ROTATE } : ReadingsVal ( "$name" , "CamVideoRotate" , "" ) ;
my $ ntp = $ hash - > { HELPER } { NTPSERV } ? $ hash - > { HELPER } { NTPSERV } : ReadingsVal ( "$name" , "CamNTPServer" , "" ) ;
my $ clst = $ hash - > { HELPER } { CHKLIST } ? $ hash - > { HELPER } { CHKLIST } : "" ;
$ apicammaxver = ( $ apicammaxver >= 9 ) ? 8 : $ apicammaxver ;
2018-11-20 23:30:55 +00:00
$ url = "$proto://$serveraddr:$serverport/webapi/$apicampath?api=\"$apicam\"&version=\"$apicammaxver\"&method=\"SaveOptimizeParam\"&vdoMirror=$mirr&vdoRotation=$rot&vdoFlip=$flip&timeServer=\"$ntp\"&camParamChkList=$clst&cameraIds=\"$camid\"&_sid=\"$sid\"" ;
} elsif ( $ OpMode eq "Getcaminfo" ) {
$ apicammaxver = ( $ apicammaxver >= 9 ) ? 8 : $ apicammaxver ;
$ url = "$proto://$serveraddr:$serverport/webapi/$apicampath?api=\"$apicam\"&version=\"$apicammaxver\"&method=\"GetInfo\"&cameraIds=\"$camid\"&deviceOutCap=\"true\"&streamInfo=\"true\"&ptz=\"true\"&basic=\"true\"&camAppInfo=\"true\"&optimize=\"true\"&fisheye=\"true\"&eventDetection=\"true\"&_sid=\"$sid\"" ;
} elsif ( $ OpMode eq "getStmUrlPath" ) {
$ url = "$proto://$serveraddr:$serverport/webapi/$apicampath?api=\"$apicam\"&version=\"$apicammaxver\"&method=\"GetStmUrlPath\"&cameraIds=\"$camid\"&_sid=\"$sid\"" ;
if ( $ apicammaxver >= 9 ) {
2020-06-28 18:49:16 +00:00
$ url = "$proto://$serveraddr:$serverport/webapi/$apicampath?api=\"$apicam\"&method=\"GetLiveViewPath\"&version=$apicammaxver&idList=\"$camid\"&_sid=\"$sid\"" ;
}
2018-11-20 23:30:55 +00:00
} elsif ( $ OpMode eq "geteventlist" ) {
# Abruf der Events einer Kamera
$ url = "$proto://$serveraddr:$serverport/webapi/$apieventpath?api=\"$apievent\"&version=\"$apieventmaxver\"&method=\"List\"&cameraIds=\"$camid\"&locked=\"0\"&blIncludeSnapshot=\"false\"&reason=\"\"&limit=\"2\"&includeAllCam=\"false\"&_sid=\"$sid\"" ;
} elsif ( $ OpMode eq "Getptzlistpreset" ) {
$ url = "$proto://$serveraddr:$serverport/webapi/$apiptzpath?api=$apiptz&version=$apiptzmaxver&method=ListPreset&cameraId=$camid&_sid=\"$sid\"" ;
} elsif ( $ OpMode eq "Getcapabilities" ) {
# Capabilities einer Cam werden abgerufen
2020-06-28 18:49:16 +00:00
$ apicammaxver = ( $ apicammaxver >= 9 ) ? 8 : $ apicammaxver ;
2018-11-20 23:30:55 +00:00
$ url = "$proto://$serveraddr:$serverport/webapi/$apicampath?api=$apicam&version=$apicammaxver&method=\"GetCapabilityByCamId\"&cameraId=$camid&_sid=\"$sid\"" ;
} elsif ( $ OpMode eq "Getptzlistpatrol" ) {
# PTZ-ListPatrol werden abgerufen
$ url = "$proto://$serveraddr:$serverport/webapi/$apiptzpath?api=$apiptz&version=$apiptzmaxver&method=ListPatrol&cameraId=$camid&_sid=\"$sid\"" ;
} elsif ( $ OpMode eq "ExpMode" ) {
if ( $ hash - > { HELPER } { EXPMODE } eq "auto" ) {
$ expmode = "0" ;
}
elsif ( $ hash - > { HELPER } { EXPMODE } eq "day" ) {
$ expmode = "1" ;
}
elsif ( $ hash - > { HELPER } { EXPMODE } eq "night" ) {
$ expmode = "2" ;
}
2020-06-28 18:49:16 +00:00
$ apicammaxver = ( $ apicammaxver >= 9 ) ? 8 : $ apicammaxver ;
2018-11-20 23:30:55 +00:00
$ url = "$proto://$serveraddr:$serverport/webapi/$apicampath?api=\"$apicam\"&version=\"$apicammaxver\"&method=\"SaveOptimizeParam\"&cameraIds=\"$camid\"&expMode=\"$expmode\"&camParamChkList=32&_sid=\"$sid\"" ;
} elsif ( $ OpMode eq "MotDetSc" ) {
# Hash für Optionswerte sichern für Logausgabe in Befehlsauswertung
my % motdetoptions = ( ) ;
if ( $ hash - > { HELPER } { MOTDETSC } eq "disable" ) {
$ motdetsc = "-1" ;
$ url = "$proto://$serveraddr:$serverport/webapi/$apicameventpath?api=\"$apicamevent\"&version=\"$apicameventmaxver\"&method=\"MDParamSave\"&camId=\"$camid\"&source=$motdetsc&keep=true&_sid=\"$sid\"" ;
} elsif ( $ hash - > { HELPER } { MOTDETSC } eq "camera" ) {
$ motdetsc = "0" ;
2019-04-28 17:20:21 +00:00
$ motdetoptions { SENSITIVITY } = $ hash - > { HELPER } { MOTDETSC_PROP1 } if ( $ hash - > { HELPER } { MOTDETSC_PROP1 } ) ;
$ motdetoptions { OBJECTSIZE } = $ hash - > { HELPER } { MOTDETSC_PROP2 } if ( $ hash - > { HELPER } { MOTDETSC_PROP2 } ) ;
$ motdetoptions { PERCENTAGE } = $ hash - > { HELPER } { MOTDETSC_PROP3 } if ( $ hash - > { HELPER } { MOTDETSC_PROP3 } ) ;
2018-11-20 23:30:55 +00:00
$ url = "$proto://$serveraddr:$serverport/webapi/$apicameventpath?api=\"$apicamevent\"&version=\"$apicameventmaxver\"&method=\"MDParamSave\"&camId=\"$camid\"&source=$motdetsc&_sid=\"$sid\"" ;
if ( $ hash - > { HELPER } { MOTDETSC_PROP1 } || $ hash - > { HELPER } { MOTDETSC_PROP2 } || $ hash - > { HELPER } { MOTDETSC_PROP13 } ) {
# umschalten und neue Werte setzen
$ url . = "&keep=false" ;
} else {
# nur Umschaltung, alte Werte beibehalten
$ url . = "&keep=true" ;
}
if ( $ hash - > { HELPER } { MOTDETSC_PROP1 } ) {
# der Wert für Bewegungserkennung Kamera -> Empfindlichkeit ist gesetzt
my $ sensitivity = delete $ hash - > { HELPER } { MOTDETSC_PROP1 } ;
$ url . = "&sensitivity=\"$sensitivity\"" ;
}
if ( $ hash - > { HELPER } { MOTDETSC_PROP2 } ) {
# der Wert für Bewegungserkennung Kamera -> Objektgröße ist gesetzt
my $ objectsize = delete $ hash - > { HELPER } { MOTDETSC_PROP2 } ;
$ url . = "&objectSize=\"$objectsize\"" ;
}
if ( $ hash - > { HELPER } { MOTDETSC_PROP3 } ) {
# der Wert für Bewegungserkennung Kamera -> Prozentsatz für Auslösung ist gesetzt
my $ percentage = delete $ hash - > { HELPER } { MOTDETSC_PROP3 } ;
$ url . = "&percentage=\"$percentage\"" ;
}
2020-06-28 18:49:16 +00:00
} elsif ( $ hash - > { HELPER } { MOTDETSC } eq "SVS" ) {
2018-11-20 23:30:55 +00:00
$ motdetsc = "1" ;
2019-04-28 17:20:21 +00:00
$ motdetoptions { SENSITIVITY } = $ hash - > { HELPER } { MOTDETSC_PROP1 } if ( $ hash - > { HELPER } { MOTDETSC_PROP1 } ) ;
$ motdetoptions { THRESHOLD } = $ hash - > { HELPER } { MOTDETSC_PROP2 } if ( $ hash - > { HELPER } { MOTDETSC_PROP2 } ) ;
2018-11-20 23:30:55 +00:00
# nur Umschaltung, alte Werte beibehalten
$ url = "$proto://$serveraddr:$serverport/webapi/$apicameventpath?api=\"$apicamevent\"&version=\"$apicameventmaxver\"&method=\"MDParamSave\"&camId=\"$camid\"&source=$motdetsc&keep=true&_sid=\"$sid\"" ;
if ( $ hash - > { HELPER } { MOTDETSC_PROP1 } ) {
# der Wert für Bewegungserkennung SVS -> Empfindlichkeit ist gesetzt
my $ sensitivity = delete $ hash - > { HELPER } { MOTDETSC_PROP1 } ;
$ url . = "&sensitivity=\"$sensitivity\"" ;
}
if ( $ hash - > { HELPER } { MOTDETSC_PROP2 } ) {
# der Wert für Bewegungserkennung SVS -> Schwellwert ist gesetzt
my $ threshold = delete $ hash - > { HELPER } { MOTDETSC_PROP2 } ;
$ url . = "&threshold=\"$threshold\"" ;
}
}
# Optionswerte in Hash sichern für Logausgabe in Befehlsauswertung
$ hash - > { HELPER } { MOTDETOPTIONS } = \ % motdetoptions ;
} elsif ( $ OpMode eq "getmotionenum" ) {
$ url = "$proto://$serveraddr:$serverport/webapi/$apicameventpath?api=\"$apicamevent\"&version=\"$apicameventmaxver\"&method=\"MotionEnum\"&camId=\"$camid\"&_sid=\"$sid\"" ;
} elsif ( $ OpMode eq "extevent" ) {
Log3 ( $ name , 4 , "$name - trigger external event \"$hash->{HELPER}{EVENTID}\"" ) ;
$ url = "$proto://$serveraddr:$serverport/webapi/$apiextevtpath?api=$apiextevt&version=$apiextevtmaxver&method=Trigger&eventId=$hash->{HELPER}{EVENTID}&eventName=$hash->{HELPER}{EVENTID}&_sid=\"$sid\"" ;
} elsif ( $ OpMode eq "runliveview" && $ hash - > { HELPER } { RUNVIEW } !~ m/snap|^live_.*hls$/ ) {
$ exturl = AttrVal ( $ name , "livestreamprefix" , "$proto://$serveraddr:$serverport" ) ;
$ exturl = ( $ exturl eq "DEF" ) ? "$proto://$serveraddr:$serverport" : $ exturl ;
2020-07-10 15:16:12 +00:00
if ( $ hash - > { HELPER } { RUNVIEW } =~ m/live/x ) {
2020-06-28 18:49:16 +00:00
if ( $ apiaudiostmmaxver ) { # API "SYNO.SurveillanceStation.AudioStream" vorhanden ? (removed ab API v2.8)
2018-11-20 23:30:55 +00:00
$ hash - > { HELPER } { AUDIOLINK } = "$proto://$serveraddr:$serverport/webapi/$apiaudiostmpath?api=$apiaudiostm&version=$apiaudiostmmaxver&method=Stream&cameraId=$camid&_sid=$sid" ;
} else {
delete $ hash - > { HELPER } { AUDIOLINK } if ( $ hash - > { HELPER } { AUDIOLINK } ) ;
}
2020-06-28 18:49:16 +00:00
2018-11-20 23:30:55 +00:00
if ( $ apivideostmsmaxver ) { # API "SYNO.SurveillanceStation.VideoStream" vorhanden ? (removed ab API v2.8)
# externe URL in Reading setzen
$ exturl . = "/webapi/$apivideostmspath?api=$apivideostms&version=$apivideostmsmaxver&method=Stream&cameraId=$camid&format=mjpeg&_sid=$sid" ;
# interne URL
$ url = "$proto://$serveraddr:$serverport/webapi/$apivideostmspath?api=$apivideostms&version=$apivideostmsmaxver&method=Stream&cameraId=$camid&format=mjpeg&_sid=$sid" ;
} elsif ( $ hash - > { HELPER } { STMKEYMJPEGHTTP } ) {
$ url = $ hash - > { HELPER } { STMKEYMJPEGHTTP } ;
}
readingsSingleUpdate ( $ hash , "LiveStreamUrl" , $ exturl , 1 ) if ( AttrVal ( $ name , "showStmInfoFull" , undef ) ) ;
} else {
# Abspielen der letzten Aufnahme (EventId)
2018-12-31 14:26:04 +00:00
my $ lrecid = ReadingsVal ( "$name" , "CamLastRecId" , 0 ) ;
if ( $ lrecid ) {
# externe URL in Reading setzen
$ exturl . = "/webapi/$apistmpath?api=$apistm&version=$apistmmaxver&method=EventStream&eventId=$lrecid×tamp=1&_sid=$sid" ;
# interne URL
$ url = "$proto://$serveraddr:$serverport/webapi/$apistmpath?api=$apistm&version=$apistmmaxver&method=EventStream&eventId=$lrecid×tamp=1&_sid=$sid" ;
readingsSingleUpdate ( $ hash , "LiveStreamUrl" , $ exturl , 1 ) if ( AttrVal ( $ name , "showStmInfoFull" , 0 ) ) ;
}
2018-11-20 23:30:55 +00:00
}
# Liveview-Link in Hash speichern
$ hash - > { HELPER } { LINK } = $ url ;
Log3 ( $ name , 4 , "$name - Set Streaming-URL: $url" ) ;
# livestream sofort in neuem Browsertab öffnen
if ( $ hash - > { HELPER } { OPENWINDOW } ) {
$ winname = $ name . "_view" ;
$ attr = AttrVal ( $ name , "htmlattr" , "" ) ;
# öffnen streamwindow für die Instanz die "VIEWOPENROOM" oder Attr "room" aktuell geöffnet hat
if ( $ hash - > { HELPER } { VIEWOPENROOM } ) {
$ room = $ hash - > { HELPER } { VIEWOPENROOM } ;
2018-12-09 21:04:11 +00:00
map { FW_directNotify ( "FILTER=room=$room" , "#FHEMWEB:$_" , "window.open ('$url','$winname','$attr')" , "" ) } devspec2array ( "TYPE=FHEMWEB" ) ;
2018-11-20 23:30:55 +00:00
} else {
2018-12-09 21:04:11 +00:00
map { FW_directNotify ( "#FHEMWEB:$_" , "window.open ('$url','$winname','$attr')" , "" ) } devspec2array ( "TYPE=FHEMWEB" ) ;
2018-11-20 23:30:55 +00:00
}
}
2020-06-28 18:49:16 +00:00
roomRefresh ( $ hash , 0 , 1 , 1 ) ; # kein Room-Refresh, SSCam-state-Event, SSCamSTRM-Event
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
delActiveToken ( $ hash ) ;
2018-11-20 23:30:55 +00:00
return ;
2020-06-28 18:49:16 +00:00
2020-07-10 15:16:12 +00:00
} elsif ( $ OpMode eq "runliveview" && $ hash - > { HELPER } { RUNVIEW } =~ /snap/x ) {
2018-11-20 23:30:55 +00:00
# den letzten Schnappschuß live anzeigen
2020-06-28 18:49:16 +00:00
my $ limit = 1 ; # nur 1 Snap laden, für lastsnap_fw
my $ imgsize = 2 ; # full size image, für lastsnap_fw
my $ keyword = $ hash - > { CAMNAME } ; # nur Snaps von $camname selektieren, für lastsnap_fw
2018-11-20 23:30:55 +00:00
$ url = "$proto://$serveraddr:$serverport/webapi/$apitakesnappath?api=\"$apitakesnap\"&method=\"List\"&version=\"$apitakesnapmaxver\"&keyword=\"$keyword\"&imgSize=\"$imgsize\"&limit=\"$limit\"&_sid=\"$sid\"" ;
} elsif ( ( $ OpMode eq "runliveview" && $ hash - > { HELPER } { RUNVIEW } =~ m/^live_.*hls$/ ) || $ OpMode eq "activate_hls" ) {
# HLS Livestreaming aktivieren
$ httptimeout = $ httptimeout + 90 ; # aktivieren HLS dauert lange !
$ url = "$proto://$serveraddr:$serverport/webapi/$apivideostmspath?api=$apivideostms&version=$apivideostmsmaxver&method=Open&cameraId=$camid&format=hls&_sid=$sid" ;
} elsif ( $ OpMode eq "stopliveview_hls" || $ OpMode eq "reactivate_hls" ) {
# HLS Livestreaming deaktivieren
$ url = "$proto://$serveraddr:$serverport/webapi/$apivideostmspath?api=$apivideostms&version=$apivideostmsmaxver&method=Close&cameraId=$camid&format=hls&_sid=$sid" ;
} elsif ( $ OpMode eq "getstreamformat" ) {
# aktuelles Streamformat abfragen
$ url = "$proto://$serveraddr:$serverport/webapi/$apivideostmspath?api=$apivideostms&version=$apivideostmsmaxver&method=Query&cameraId=$camid&_sid=$sid" ;
}
Log3 ( $ name , 4 , "$name - Call-Out now: $url" ) ;
$ param = {
url = > $ url ,
timeout = > $ httptimeout ,
hash = > $ hash ,
method = > "GET" ,
header = > "Accept: application/json" ,
2020-06-28 18:49:16 +00:00
callback = > \ & camOp_Parse
2018-11-20 23:30:55 +00:00
} ;
2020-07-01 19:24:20 +00:00
HttpUtils_NonblockingGet ( $ param ) ;
return ;
2018-11-20 23:30:55 +00:00
}
###################################################################################
# Check ob Kameraoperation erfolgreich wie in "OpMOde" definiert
###################################################################################
2020-06-28 18:49:16 +00:00
sub camOp_Parse {
2020-06-21 20:37:08 +00:00
my $ param = shift ;
my $ err = shift ;
my $ myjson = shift ;
2018-11-20 23:30:55 +00:00
my $ hash = $ param - > { hash } ;
my $ name = $ hash - > { NAME } ;
my $ camname = $ hash - > { CAMNAME } ;
my $ OpMode = $ hash - > { OPMODE } ;
my $ serveraddr = $ hash - > { SERVERADDR } ;
my $ serverport = $ hash - > { SERVERPORT } ;
my $ camid = $ hash - > { CAMID } ;
my $ apivideostms = $ hash - > { HELPER } { APIVIDEOSTMS } ;
my $ apivideostmspath = $ hash - > { HELPER } { APIVIDEOSTMSPATH } ;
my $ apivideostmsmaxver = $ hash - > { HELPER } { APIVIDEOSTMSMAXVER } ;
my $ apicammaxver = $ hash - > { HELPER } { APICAMMAXVER } ;
my $ sid = $ hash - > { HELPER } { SID } ;
my $ proto = $ hash - > { PROTOCOL } ;
2020-06-21 20:37:08 +00:00
2018-11-20 23:30:55 +00:00
my ( $ rectime , $ data , $ success ) ;
my ( $ error , $ errorcode ) ;
my ( $ snapid , $ camLiveMode , $ update_time ) ;
my ( $ sec , $ min , $ hour , $ mday , $ mon , $ year , $ wday , $ yday , $ isdst ) ;
my ( $ deviceType , $ camStatus ) ;
my ( $ patrolcnt , $ patrolid , $ patrolname , @ patrolkeys , $ patrollist ) ;
my ( $ recStatus , $ exposuremode , $ exposurecontrol ) ;
my ( $ userPriv , $ verbose , $ motdetsc ) ;
my ( $ sensitivity_camCap , $ sensitivity_value , $ sensitivity_ssCap ) ;
my ( $ threshold_camCap , $ threshold_value , $ threshold_ssCap ) ;
my ( $ percentage_camCap , $ percentage_value , $ percentage_ssCap ) ;
my ( $ objectSize_camCap , $ objectSize_value , $ objectSize_ssCap ) ;
2019-01-20 16:07:48 +00:00
my $ lang = AttrVal ( "global" , "language" , "EN" ) ;
2018-11-20 23:30:55 +00:00
# Einstellung für Logausgabe Pollinginfos
# wenn "pollnologging" = 1 -> logging nur bei Verbose=4, sonst 3
if ( AttrVal ( $ name , "pollnologging" , 0 ) == 1 ) {
$ verbose = 4 ;
} else {
$ verbose = 3 ;
}
if ( $ err ne "" ) {
# wenn ein Fehler bei der HTTP Abfrage aufgetreten ist
Log3 ( $ name , 2 , "$name - error while requesting " . $ param - > { url } . " - $err" ) ;
2020-06-28 18:49:16 +00:00
readingsSingleUpdate ( $ hash , "Error" , $ err , 1 ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
# ausgeführte Funktion ist abgebrochen, Freigabe Funktionstoken
delActiveToken ( $ hash ) ;
2018-11-20 23:30:55 +00:00
return ;
} elsif ( $ myjson ne "" ) {
# wenn die Abfrage erfolgreich war ($data enthält die Ergebnisdaten des HTTP Aufrufes)
2018-12-31 14:26:04 +00:00
# Evaluiere ob Daten im JSON-Format empfangen wurden
2019-01-27 15:36:11 +00:00
if ( $ OpMode !~ /SaveRec|GetRec/ ) { # "SaveRec/GetRec" liefern MP4-Daten und kein JSON
2020-06-28 18:49:16 +00:00
( $ hash , $ success , $ myjson ) = evaljson ( $ hash , $ myjson ) ;
2018-12-31 14:26:04 +00:00
unless ( $ success ) {
Log3 ( $ name , 4 , "$name - Data returned: " . $ myjson ) ;
2020-06-28 18:49:16 +00:00
delActiveToken ( $ hash ) ;
2018-12-31 14:26:04 +00:00
return ;
}
$ data = decode_json ( $ myjson ) ;
# Logausgabe decodierte JSON Daten
Log3 ( $ name , 5 , "$name - JSON returned: " . Dumper $ data ) ;
$ success = $ data - > { 'success' } ;
} else {
$ success = 1 ;
2018-11-20 23:30:55 +00:00
}
if ( $ success ) {
# Kameraoperation entsprechend "OpMode" war erfolgreich
if ( $ OpMode eq "Start" ) {
# Die Aufnahmezeit setzen
# wird "set <name> on [rectime]" verwendet -> dann [rectime] nutzen,
# sonst Attribut "rectime" wenn es gesetzt ist, falls nicht -> "RECTIME_DEF"
if ( defined ( $ hash - > { HELPER } { RECTIME_TEMP } ) ) {
$ rectime = delete $ hash - > { HELPER } { RECTIME_TEMP } ;
} else {
$ rectime = AttrVal ( $ name , "rectime" , $ hash - > { HELPER } { RECTIME_DEF } ) ;
}
if ( $ rectime == "0" ) {
2020-06-28 18:49:16 +00:00
Log3 ( $ name , 3 , "$name - Camera $camname endless Recording started - stop it by stop-command !" ) ;
2018-11-20 23:30:55 +00:00
} else {
if ( ReadingsVal ( "$name" , "Record" , "Stop" ) eq "Start" ) {
# Aufnahme läuft schon und wird verlängert
Log3 ( $ name , 3 , "$name - running recording renewed to $rectime s" ) ;
} else {
2019-01-27 15:36:11 +00:00
Log3 ( $ name , 3 , "$name - Camera $camname recording with recording time $rectime s started" ) ;
2018-11-20 23:30:55 +00:00
}
}
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Record" , "Start" ) ;
2020-06-22 18:11:24 +00:00
readingsBulkUpdate ( $ hash , "state" , "on" ) ;
2018-11-20 23:30:55 +00:00
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
if ( $ rectime != 0 ) {
# Stop der Aufnahme nach Ablauf $rectime, wenn rectime = 0 -> endlose Aufnahme
2019-02-12 20:26:31 +00:00
my $ emtxt = $ hash - > { HELPER } { SMTPRECMSG } ? $ hash - > { HELPER } { SMTPRECMSG } : "" ;
my $ teletxt = $ hash - > { HELPER } { TELERECMSG } ? $ hash - > { HELPER } { TELERECMSG } : "" ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::camStopRec" ) ;
InternalTimer ( gettimeofday ( ) + $ rectime , "FHEM::SSCam::camStopRec" , $ hash ) ;
2018-11-20 23:30:55 +00:00
}
2020-06-28 18:49:16 +00:00
roomRefresh ( $ hash , 0 , 0 , 1 ) ; # kein Room-Refresh, kein SSCam-state-Event, SSCamSTRM-Event
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "Stop" ) {
2018-11-20 23:30:55 +00:00
readingsBeginUpdate ( $ hash ) ;
2020-06-22 18:11:24 +00:00
readingsBulkUpdate ( $ hash , "Record" , "Stop" ) ;
readingsBulkUpdate ( $ hash , "state" , "off" ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
2018-11-20 23:30:55 +00:00
Log3 ( $ name , 3 , "$name - Camera $camname Recording stopped" ) ;
2020-06-28 18:49:16 +00:00
roomRefresh ( $ hash , 0 , 0 , 1 ) ; # kein Room-Refresh, kein SSCam-state-Event, SSCamSTRM-Event
2018-11-20 23:30:55 +00:00
# Aktualisierung Eventlist der letzten Aufnahme
2020-06-28 18:49:16 +00:00
getEventList ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "ExpMode" ) {
2018-11-20 23:30:55 +00:00
readingsBeginUpdate ( $ hash ) ;
2020-06-22 18:11:24 +00:00
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
2018-11-20 23:30:55 +00:00
Log3 ( $ name , 3 , "$name - Camera $camname exposure mode was set to \"$hash->{HELPER}{EXPMODE}\"" ) ;
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "setZoom" ) {
2020-06-21 20:37:08 +00:00
readingsBeginUpdate ( $ hash ) ;
2020-06-22 18:11:24 +00:00
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
2020-06-21 20:37:08 +00:00
readingsEndUpdate ( $ hash , 1 ) ;
2020-06-23 10:15:44 +00:00
Log3 ( $ name , 3 , qq{ $name - Zoom operation "$hash-> { HELPER } { ZOOM } { DIR } :$hash-> { HELPER } { ZOOM } { MOVETYPE } " of Camera $camname successfully done } ) ;
2020-06-21 20:37:08 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "GetRec" ) {
2020-06-22 18:11:24 +00:00
my $ recid = ReadingsVal ( "$name" , "CamLastRecId" , "" ) ;
2019-12-11 21:16:03 +00:00
my $ createdTm = ReadingsVal ( "$name" , "CamLastRecTime" , "" ) ;
2020-06-22 18:11:24 +00:00
my $ lrec = ReadingsVal ( "$name" , "CamLastRec" , "" ) ;
2019-12-11 21:16:03 +00:00
my ( $ tdir , $ fileName ) = split ( "/" , $ lrec ) ;
my $ sn = 0 ;
2019-09-14 19:11:34 +00:00
2020-06-28 18:49:16 +00:00
my $ tac = openOrgetTrans ( $ hash ) ; # Transaktion starten
2019-01-27 15:36:11 +00:00
2019-10-26 18:41:42 +00:00
my $ cache ;
2020-06-28 18:49:16 +00:00
if ( $ hash - > { HELPER } { CANSENDREC } || $ hash - > { HELPER } { CANTELEREC } || $ hash - > { HELPER } { CANCHATREC } ) {
$ cache = cache ( $ name , "c_init" ) ; # Cache initialisieren für Versandhash
2019-10-26 18:41:42 +00:00
Log3 ( $ name , 1 , "$name - Fall back to internal Cache due to preceding failure." ) if ( ! $ cache ) ;
if ( ! $ cache || $ cache eq "internal" ) {
$ data { SSCam } { $ name } { SENDRECS } { $ tac } { $ sn } { recid } = $ recid ;
$ data { SSCam } { $ name } { SENDRECS } { $ tac } { $ sn } { createdTm } = $ createdTm ;
$ data { SSCam } { $ name } { SENDRECS } { $ tac } { $ sn } { fileName } = $ fileName ;
2019-12-11 21:16:03 +00:00
$ data { SSCam } { $ name } { SENDRECS } { $ tac } { $ sn } { tdir } = $ tdir ;
2019-10-26 18:41:42 +00:00
$ data { SSCam } { $ name } { SENDRECS } { $ tac } { $ sn } { imageData } = $ myjson ;
} else {
2020-06-28 18:49:16 +00:00
cache ( $ name , "c_write" , "{SENDRECS}{$tac}{$sn}{recid}" , $ recid ) ;
cache ( $ name , "c_write" , "{SENDRECS}{$tac}{$sn}{createdTm}" , $ createdTm ) ;
cache ( $ name , "c_write" , "{SENDRECS}{$tac}{$sn}{fileName}" , $ fileName ) ;
cache ( $ name , "c_write" , "{SENDRECS}{$tac}{$sn}{tdir}" , $ tdir ) ;
cache ( $ name , "c_write" , "{SENDRECS}{$tac}{$sn}{imageData}" , $ myjson ) ;
2019-10-26 18:41:42 +00:00
}
2020-06-28 18:49:16 +00:00
Log3 ( $ name , 4 , "$name - Recording '$sn' added to send recording hash: ID => $recid, File => $fileName, Created => $createdTm" ) ;
}
2018-12-31 14:26:04 +00:00
2019-12-11 21:16:03 +00:00
# Recording als Email / Telegram / Chat versenden
2019-10-26 18:41:42 +00:00
if ( ! $ cache || $ cache eq "internal" ) {
2020-06-28 18:49:16 +00:00
prepareSendData ( $ hash , $ OpMode , $ data { SSCam } { $ name } { SENDRECS } { $ tac } ) ;
2019-10-26 18:41:42 +00:00
} else {
2020-06-28 18:49:16 +00:00
prepareSendData ( $ hash , $ OpMode , "{SENDRECS}{$tac}" ) ;
2019-10-26 18:41:42 +00:00
}
2019-09-14 19:11:34 +00:00
2020-06-28 18:49:16 +00:00
closeTrans ( $ hash ) ; # Transaktion beenden
2019-01-27 15:36:11 +00:00
2019-12-11 21:16:03 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , $ err ) ;
readingsEndUpdate ( $ hash , 1 ) ;
2019-01-27 15:36:11 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "SaveRec" ) {
2019-01-27 15:36:11 +00:00
my $ lrec = ReadingsVal ( "$name" , "CamLastRec" , "" ) ;
$ lrec = ( split ( "/" , $ lrec ) ) [ 1 ] ;
2018-12-31 14:26:04 +00:00
my $ sp = $ hash - > { HELPER } { RECSAVEPATH } ? $ hash - > { HELPER } { RECSAVEPATH } : $ attr { global } { modpath } ;
my $ file = $ sp . "/$lrec" ;
2019-01-01 12:27:54 +00:00
delete $ hash - > { HELPER } { RECSAVEPATH } ;
2018-12-31 14:26:04 +00:00
2020-06-30 21:16:26 +00:00
open my $ fh , '>' , $ file ;
if ( $ fh ) {
binmode $ fh ;
print $ fh $ myjson ;
close ( $ fh ) ;
2018-12-31 14:26:04 +00:00
$ err = "none" ;
Log3 ( $ name , 3 , "$name - Recording was saved to local file \"$file\"" ) ;
} else {
$ err = "Can't open file \"$file\": $!" ;
Log3 ( $ name , 2 , "$name - $err" ) ;
}
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , $ err ) ;
readingsEndUpdate ( $ hash , 1 ) ;
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "sethomemode" ) {
2018-11-20 23:30:55 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , 3 , "$name - HomeMode was set to \"$hash->{HELPER}{HOMEMODE}\" " ) ;
2020-06-28 18:49:16 +00:00
# Token freigeben vor nächstem Kommando
delActiveToken ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
# neuen HomeModeState abrufen
getHomeModeState ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "gethomemodestate" ) {
2018-11-20 23:30:55 +00:00
my $ hmst = $ data - > { 'data' } { 'on' } ;
2019-01-20 17:00:05 +00:00
my $ hmststr = ( $ hmst == 1 ) ? "on" : "off" ;
( $ sec , $ min , $ hour , $ mday , $ mon , $ year , $ wday , $ yday , $ isdst ) = localtime ;
if ( $ lang eq "DE" ) {
$ update_time = sprintf "%02d.%02d.%04d / %02d:%02d:%02d" , $ mday , $ mon += 1 , $ year += 1900 , $ hour , $ min , $ sec ;
} else {
$ update_time = sprintf "%04d-%02d-%02d / %02d:%02d:%02d" , $ year += 1900 , $ mon += 1 , $ mday , $ hour , $ min , $ sec ;
2020-06-28 18:49:16 +00:00
}
2018-11-20 23:30:55 +00:00
readingsBeginUpdate ( $ hash ) ;
2020-06-28 18:49:16 +00:00
readingsBulkUpdate ( $ hash , "HomeModeState" , $ hmststr ) ;
2019-01-20 17:00:05 +00:00
readingsBulkUpdate ( $ hash , "LastUpdateTime" , $ update_time ) ;
2018-11-20 23:30:55 +00:00
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "getsvslog" ) {
2018-11-20 23:30:55 +00:00
my $ lec = $ data - > { 'data' } { 'total' } ; # abgerufene Anzahl von Log-Einträgen
my $ log = '<html>' ;
2020-06-28 18:49:16 +00:00
my $ log0 = "" ;
my $ i = 0 ;
2018-11-20 23:30:55 +00:00
while ( $ data - > { 'data' } - > { 'log' } - > [ $ i ] ) {
my $ id = $ data - > { 'data' } - > { 'log' } - > [ $ i ] { 'id' } ;
2020-06-28 18:49:16 +00:00
my $ un = $ data - > { 'data' } - > { 'log' } - > [ $ i ] { 'user_name' } ;
my $ desc = $ data - > { 'data' } - > { 'log' } - > [ $ i ] { 'desc' } ;
my $ level = $ data - > { 'data' } - > { 'log' } - > [ $ i ] { 'type' } ;
$ level = ( $ level == 3 ) ? "Error" : ( $ level == 2 ) ? "Warning" : "Information" ;
my $ time = $ data - > { 'data' } - > { 'log' } - > [ $ i ] { 'time' } ;
$ time = FmtDateTime ( $ time ) ;
$ log0 = $ time . " - " . $ level . " - " . $ desc if ( $ i == 0 ) ;
$ log . = "$time - $level - $desc<br>" ;
$ i + + ;
}
$ log = "<html><b>Surveillance Station Server \"$hash->{SERVERADDR}\" Log</b> ( $i/$lec entries are displayed )<br><br>$log</html>" ;
# asyncOutput kann normalerweise etwa 100k uebertragen (siehe fhem.pl/addToWritebuffer() fuer Details)
# bzw. https://forum.fhem.de/index.php/topic,77310.0.html
# $log = "Too much log data were selected. Please reduce amount of data by specifying all or one of 'severity', 'limit', 'match'" if (length($log) >= 102400);
2018-11-20 23:30:55 +00:00
readingsBeginUpdate ( $ hash ) ;
2020-06-28 18:49:16 +00:00
readingsBulkUpdate ( $ hash , "LastLogEntry" , $ log0 ) if ( ! $ hash - > { HELPER } { CL } { 1 } ) ; # Datenabruf im Hintergrund;
2018-11-20 23:30:55 +00:00
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
2020-06-28 18:49:16 +00:00
# Ausgabe Popup der Log-Daten (nach readingsEndUpdate positionieren sonst "Connection lost, trying reconnect every 5 seconds" wenn > 102400 Zeichen)
asyncOutput ( $ hash - > { HELPER } { CL } { 1 } , "$log" ) ;
delete ( $ hash - > { HELPER } { CL } ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "getPresets" ) {
2018-11-20 23:30:55 +00:00
my % ap = ( ) ;
2020-06-28 18:49:16 +00:00
my $ i = 0 ;
2018-11-20 23:30:55 +00:00
while ( $ data - > { 'data' } - > { 'preset' } - > [ $ i ] ) {
my $ pname = $ data - > { 'data' } - > { 'preset' } - > [ $ i ] { 'name' } ;
2020-06-28 18:49:16 +00:00
my $ ptype = $ data - > { 'data' } - > { 'preset' } - > [ $ i ] { 'type' } ;
my $ ppos = $ data - > { 'data' } - > { 'preset' } - > [ $ i ] { 'position' } ;
my $ pspeed = $ data - > { 'data' } - > { 'preset' } - > [ $ i ] { 'speed' } ;
2018-11-20 23:30:55 +00:00
my $ pextra = $ data - > { 'data' } - > { 'preset' } - > [ $ i ] { 'extra' } ;
$ ptype = ( $ ptype == 1 ) ? "Home" : "Normal" ;
$ ap { $ ppos } = "Name: $pname, Speed: $pspeed, Type: $ptype" ;
2020-06-28 18:49:16 +00:00
$ i + + ;
}
2018-11-20 23:30:55 +00:00
my $ enum ;
2020-06-30 21:16:26 +00:00
for my $ key ( sort { $ a <=> $ b } keys % ap ) {
2018-11-20 23:30:55 +00:00
$ enum . = $ key . " => " . $ ap { $ key } . "<br>" ;
2020-06-28 18:49:16 +00:00
}
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
$ enum = "<html><b>Preset positions saved of camera \"$hash->{CAMNAME}\" </b> " .
2018-11-20 23:30:55 +00:00
"(PresetNumber => Name: ..., Speed: ..., Type: ...) <br><br>$enum</html>" ;
2020-06-28 18:49:16 +00:00
# asyncOutput kann normalerweise etwa 100k uebertragen (siehe fhem.pl/addToWritebuffer() fuer Details)
# bzw. https://forum.fhem.de/index.php/topic,77310.0.html
2018-11-20 23:30:55 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
2020-06-28 18:49:16 +00:00
# Ausgabe Popup der Daten (nach readingsEndUpdate positionieren sonst
# "Connection lost, trying reconnect every 5 seconds" wenn > 102400 Zeichen)
asyncOutput ( $ hash - > { HELPER } { CL } { 1 } , "$enum" ) ;
delete ( $ hash - > { HELPER } { CL } ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "setPreset" ) {
2018-11-20 23:30:55 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
my $ pnumber = delete ( $ hash - > { HELPER } { PNUMBER } ) ;
my $ pname = delete ( $ hash - > { HELPER } { PNAME } ) ;
my $ pspeed = delete ( $ hash - > { HELPER } { PSPEED } ) ;
$ pspeed = $ pspeed ? $ pspeed: "not set" ;
2019-05-22 17:31:17 +00:00
2018-11-20 23:30:55 +00:00
Log3 ( $ name , 3 , "$name - Camera \"$camname\" preset \"$pname\" was saved to number $pnumber with speed $pspeed" ) ;
2020-06-28 18:49:16 +00:00
getPtzPresetList ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "delPreset" ) {
2018-11-20 23:30:55 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
2019-06-23 12:04:42 +00:00
my $ dp = $ hash - > { HELPER } { DELPRESETNAME } ;
delete $ hash - > { HELPER } { ALLPRESETS } { $ dp } ;
Log3 ( $ name , 3 , "$name - Preset \"$dp\" of camera \"$camname\" has been deleted" ) ;
2020-06-28 18:49:16 +00:00
getPtzPresetList ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "piract" ) {
2018-11-20 23:30:55 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
my $ piract = ( $ hash - > { HELPER } { PIRACT } == 0 ) ? "activated" : "deactivated" ;
Log3 ( $ name , 3 , "$name - PIR sensor $piract" ) ;
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "setHome" ) {
2018-11-20 23:30:55 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
my $ sh = $ hash - > { HELPER } { SETHOME } ;
Log3 ( $ name , 3 , "$name - Preset \"$sh\" of camera \"$camname\" was set as Home position" ) ;
2020-06-28 18:49:16 +00:00
getPtzPresetList ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "setoptpar" ) {
2018-11-20 23:30:55 +00:00
my $ rid = $ data - > { 'data' } { 'id' } ; # Cam ID return wenn i.O.
2020-06-28 18:49:16 +00:00
my $ ropt = $ rid == $ hash - > { CAMID } ? "none" : "error in operation" ;
delete ( $ hash - > { HELPER } { NTPSERV } ) ;
delete ( $ hash - > { HELPER } { MIRROR } ) ;
2018-11-20 23:30:55 +00:00
delete ( $ hash - > { HELPER } { FLIP } ) ;
2020-06-28 18:49:16 +00:00
delete ( $ hash - > { HELPER } { ROTATE } ) ;
delete ( $ hash - > { HELPER } { CHKLIST } ) ;
2018-11-20 23:30:55 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , $ ropt ) ;
readingsEndUpdate ( $ hash , 1 ) ;
2020-06-28 18:49:16 +00:00
# Token freigeben vor Abruf caminfo
delActiveToken ( $ hash ) ;
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getCamInfo" ) ;
InternalTimer ( gettimeofday ( ) + 0.5 , "FHEM::SSCam::getCamInfo" , $ hash , 0 ) ;
} elsif ( $ OpMode eq "MotDetSc" ) {
2018-11-20 23:30:55 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
my $ sensitivity ;
if ( $ hash - > { HELPER } { MOTDETSC } eq "SVS" && keys % { $ hash - > { HELPER } { MOTDETOPTIONS } } ) {
# Optionen für "SVS" sind gesetzt
$ sensitivity = ( $ hash - > { HELPER } { MOTDETOPTIONS } { SENSITIVITY } ) ? ( $ hash - > { HELPER } { MOTDETOPTIONS } { SENSITIVITY } ) : "-" ;
my $ threshold = ( $ hash - > { HELPER } { MOTDETOPTIONS } { THRESHOLD } ) ? ( $ hash - > { HELPER } { MOTDETOPTIONS } { THRESHOLD } ) : "-" ;
Log3 ( $ name , 3 , "$name - Camera $camname motion detection source set to \"$hash->{HELPER}{MOTDETSC}\" with options sensitivity: $sensitivity, threshold: $threshold" ) ;
} elsif ( $ hash - > { HELPER } { MOTDETSC } eq "camera" && keys % { $ hash - > { HELPER } { MOTDETOPTIONS } } ) {
# Optionen für "camera" sind gesetzt
$ sensitivity = ( $ hash - > { HELPER } { MOTDETOPTIONS } { SENSITIVITY } ) ? ( $ hash - > { HELPER } { MOTDETOPTIONS } { SENSITIVITY } ) : "-" ;
my $ objectSize = ( $ hash - > { HELPER } { MOTDETOPTIONS } { OBJECTSIZE } ) ? ( $ hash - > { HELPER } { MOTDETOPTIONS } { OBJECTSIZE } ) : "-" ;
my $ percentage = ( $ hash - > { HELPER } { MOTDETOPTIONS } { PERCENTAGE } ) ? ( $ hash - > { HELPER } { MOTDETOPTIONS } { PERCENTAGE } ) : "-" ;
Log3 ( $ name , 3 , "$name - Camera $camname motion detection source set to \"$hash->{HELPER}{MOTDETSC}\" with options sensitivity: $sensitivity, objectSize: $objectSize, percentage: $percentage" ) ;
} else {
# keine Optionen Bewegungserkennung wurden gesetzt
Log3 ( $ name , 3 , "$name - Camera $camname motion detection source set to \"$hash->{HELPER}{MOTDETSC}\" " ) ;
}
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "Snap" ) {
2018-11-20 23:30:55 +00:00
# ein Schnapschuß wurde aufgenommen
# falls Aufnahme noch läuft -> state = on setzen
2020-06-28 18:49:16 +00:00
roomRefresh ( $ hash , 0 , 1 , 0 ) ; # kein Room-Refresh, SSCam-state-Event, kein SSCamSTRM-Event
2019-01-08 22:49:03 +00:00
my $ tac = "" ;
2019-12-09 20:51:32 +00:00
if ( $ hash - > { HELPER } { CANSENDSNAP } || $ hash - > { HELPER } { CANTELESNAP } || $ hash - > { HELPER } { CANCHATSNAP } ) {
2020-06-28 18:49:16 +00:00
$ tac = openOrgetTrans ( $ hash ) ; # Transaktion starten oder vorhandenen Code holen
2019-01-08 22:49:03 +00:00
}
2018-11-20 23:30:55 +00:00
$ snapid = $ data - > { data } { 'id' } ;
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
2019-01-20 09:08:49 +00:00
if ( $ snapid ) {
Log3 ( $ name , 3 , "$name - Snapshot of Camera $camname created. ID: $snapid" ) ;
} else {
Log3 ( $ name , 1 , "$name - Snapshot of Camera $camname probably not created. No ID was delivered." ) ;
}
2018-11-20 23:30:55 +00:00
2019-01-04 20:07:35 +00:00
2019-02-01 15:00:29 +00:00
my $ num = $ hash - > { HELPER } { SNAPNUM } ; # Gesamtzahl der auszulösenden Schnappschüsse
my $ ncount = $ hash - > { HELPER } { SNAPNUMCOUNT } ; # Restzahl der auszulösenden Schnappschüsse
2019-06-01 13:25:55 +00:00
if ( AttrVal ( $ name , "debugactivetoken" , 0 ) ) {
2019-11-06 20:01:26 +00:00
Log3 ( $ name , 1 , "$name - Snapshot number " . ( $ num - $ ncount + 1 ) . " (ID: $snapid) of total $num snapshots with TA-code: $tac done" ) ;
2019-06-01 13:25:55 +00:00
}
2019-02-01 15:00:29 +00:00
$ ncount - - ; # wird vermindert je Snap
my $ lag = $ hash - > { HELPER } { SNAPLAG } ; # Zeitverzögerung zwischen zwei Schnappschüssen
my $ emtxt = $ hash - > { HELPER } { SMTPMSG } ? $ hash - > { HELPER } { SMTPMSG } : "" ; # Text für Email-Versand
2020-06-28 18:49:16 +00:00
my $ teletxt = $ hash - > { HELPER } { TELEMSG } ? $ hash - > { HELPER } { TELEMSG } : "" ; # Text für TelegramBot-Versand
2019-12-09 20:51:32 +00:00
my $ chattxt = $ hash - > { HELPER } { CHATMSG } ? $ hash - > { HELPER } { CHATMSG } : "" ; # Text für SSChatBot-Versand
2019-01-07 17:50:07 +00:00
if ( $ ncount > 0 ) {
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + $ lag , "FHEM::SSCam::camSnap" , "$name!_!$num!_!$lag!_!$ncount!_!$emtxt!_!$teletxt!_!$chattxt!_!$tac" , 0 ) ;
2019-01-11 14:20:30 +00:00
if ( ! $ tac ) {
2020-06-28 18:49:16 +00:00
delActiveToken ( $ hash ) ; # Token freigeben wenn keine Transaktion läuft
}
2019-01-04 20:07:35 +00:00
return ;
}
2018-11-20 23:30:55 +00:00
2019-01-09 18:54:08 +00:00
# Anzahl und Size für Schnappschußabruf bestimmen
2020-06-28 18:49:16 +00:00
my ( $ slim , $ ssize ) = snapLimSize ( $ hash ) ;
2019-06-01 13:25:55 +00:00
if ( AttrVal ( $ name , "debugactivetoken" , 0 ) ) {
2019-11-06 20:01:26 +00:00
Log3 ( $ name , 1 , "$name - start get snapinfo of last $slim snapshots with TA-code: $tac" ) ;
2019-06-01 13:25:55 +00:00
}
2019-01-07 18:40:45 +00:00
2019-01-09 18:54:08 +00:00
if ( ! $ hash - > { HELPER } { TRANSACTION } ) {
# Token freigeben vor nächstem Kommando wenn keine Transaktion läuft
2020-06-28 18:49:16 +00:00
delActiveToken ( $ hash ) ;
2019-01-07 23:39:35 +00:00
}
2019-01-07 18:40:45 +00:00
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::getSnapInfo" ) ;
InternalTimer ( gettimeofday ( ) + 0.6 , "FHEM::SSCam::getSnapInfo" , "$name:$slim:$ssize:$tac" , 0 ) ;
2019-01-07 23:39:35 +00:00
return ;
2018-11-20 23:30:55 +00:00
2020-07-10 15:16:12 +00:00
} elsif ( $ OpMode eq "getsnapinfo" || $ OpMode eq "getsnapgallery" || ( $ OpMode eq "runliveview" && $ hash - > { HELPER } { RUNVIEW } =~ /snap/x ) ) {
2019-10-26 18:41:42 +00:00
my ( $ cache , @ as , $ g ) ;
2019-11-03 17:50:18 +00:00
2020-06-28 18:49:16 +00:00
Log3 ( $ name , $ verbose , "$name - Snapinfos of camera $camname retrieved" ) ;
# aktuellsten Snap zur Anzeige im streamDev "lastsnap" speichern
2019-11-03 17:50:18 +00:00
# $hash->{HELPER}{".LASTSNAP"} = $data->{data}{data}[0]{imageData};
2020-06-28 18:49:16 +00:00
$ cache = cache ( $ name , "c_init" ) ; # Cache initialisieren
2019-11-03 17:50:18 +00:00
Log3 ( $ name , 1 , "$name - Fall back to internal Cache due to preceding failure." ) if ( ! $ cache ) ;
if ( ! $ cache || $ cache eq "internal" ) {
$ data { SSCam } { $ name } { LASTSNAP } = $ data - > { data } { data } [ 0 ] { imageData } ;
} else {
2020-06-28 18:49:16 +00:00
cache ( $ name , "c_write" , "{LASTSNAP}" , $ data - > { data } { data } [ 0 ] { imageData } ) ;
2019-11-03 17:50:18 +00:00
}
2019-02-06 21:06:40 +00:00
2019-01-21 18:40:02 +00:00
my % snaps = ( 0 = > { 'createdTm' = > 'n.a.' , 'fileName' = > 'n.a.' , 'snapid' = > 'n.a.' } ) ; # Hilfshash
my ( $ k , $ l ) = ( 0 , 0 ) ;
2020-06-28 18:49:16 +00:00
if ( $ data - > { 'data' } { 'data' } [ 0 ] { 'createdTm' } ) {
2019-01-14 20:09:44 +00:00
while ( $ data - > { 'data' } { 'data' } [ $ k ] ) {
2019-03-08 14:23:11 +00:00
if ( ! $ data - > { 'data' } { 'data' } [ $ k ] { 'camName' } || $ data - > { 'data' } { 'data' } [ $ k ] { 'camName' } ne $ camname ) { # Forum:#97706
2019-01-14 20:09:44 +00:00
$ k += 1 ;
next ;
}
2019-01-21 18:40:02 +00:00
my @ t = split ( " " , FmtDateTime ( $ data - > { data } { data } [ $ k ] { createdTm } ) ) ;
my @ d = split ( "-" , $ t [ 0 ] ) ;
2019-01-20 16:07:48 +00:00
my $ createdTm ;
if ( $ lang eq "DE" ) {
$ createdTm = "$d[2].$d[1].$d[0] / $t[1]" ;
} else {
$ createdTm = "$d[0]-$d[1]-$d[2] / $t[1]" ;
}
2019-01-14 20:09:44 +00:00
$ snaps { $ l } { createdTm } = $ createdTm ;
$ snaps { $ l } { fileName } = $ data - > { data } { data } [ $ k ] { fileName } ;
$ snaps { $ l } { snapid } = $ data - > { data } { data } [ $ k ] { id } ;
Log3 ( $ name , 4 , "$name - Snap [$l]: ID => $data->{data}{data}[$k]{id}, File => $data->{data}{data}[$k]{fileName}, Created => $createdTm" ) ;
$ l += 1 ;
$ k += 1 ;
2019-02-06 21:06:40 +00:00
}
2019-01-14 20:09:44 +00:00
}
2019-01-19 15:35:22 +00:00
my $ rotnum = AttrVal ( $ name , "snapReadingRotate" , 0 ) ;
2019-01-21 18:40:02 +00:00
my $ o = ReadingsVal ( $ name , "LastSnapId" , "n.a." ) ;
if ( $ rotnum && "$o" ne "$snaps{0}{snapid}" ) {
@ as = sort { $ b <=> $ a } keys % snaps ;
2020-06-30 21:16:26 +00:00
for my $ key ( @ as ) {
2020-06-28 18:49:16 +00:00
rotateReading ( $ hash , "LastSnapId" , $ snaps { $ key } { snapid } , $ rotnum , 1 ) ;
rotateReading ( $ hash , "LastSnapFilename" , $ snaps { $ key } { fileName } , $ rotnum , 1 ) ;
rotateReading ( $ hash , "LastSnapTime" , $ snaps { $ key } { createdTm } , $ rotnum , 1 ) ;
2019-01-21 18:40:02 +00:00
}
} else {
@ as = sort { $ a <=> $ b } keys % snaps ;
2020-06-28 18:49:16 +00:00
rotateReading ( $ hash , "LastSnapId" , $ snaps { $ as [ 0 ] } { snapid } , $ rotnum , 1 ) ;
rotateReading ( $ hash , "LastSnapFilename" , $ snaps { $ as [ 0 ] } { fileName } , $ rotnum , 1 ) ;
rotateReading ( $ hash , "LastSnapTime" , $ snaps { $ as [ 0 ] } { createdTm } , $ rotnum , 1 ) ;
2019-01-14 20:09:44 +00:00
}
2020-06-28 18:49:16 +00:00
##### ein Schnapschuss soll als liveView angezeigt werden #####
2019-10-26 18:41:42 +00:00
#################################################################
2020-06-28 18:49:16 +00:00
Log3 ( $ name , 3 , "$name - There is no snapshot of camera $camname to display ! Take one snapshot before." )
2020-07-10 15:16:12 +00:00
if ( exists ( $ hash - > { HELPER } { RUNVIEW } ) && $ hash - > { HELPER } { RUNVIEW } =~ /snap/x && ! exists ( $ data - > { 'data' } { 'data' } [ 0 ] { imageData } ) ) ;
2020-06-28 18:49:16 +00:00
2020-07-10 15:16:12 +00:00
if ( exists ( $ hash - > { HELPER } { RUNVIEW } ) && $ hash - > { HELPER } { RUNVIEW } =~ /snap/x && exists ( $ data - > { 'data' } { 'data' } [ 0 ] { imageData } ) ) {
2020-06-28 18:49:16 +00:00
delete $ hash - > { HELPER } { RUNVIEW } ;
$ hash - > { HELPER } { LINK } = $ data - > { data } { data } [ 0 ] { imageData } ;
}
##### eine Schnapschussgalerie soll angezeigt oder als Bulk versendet werden #####
2019-10-26 18:41:42 +00:00
####################################################################################
2020-06-28 18:49:16 +00:00
my $ tac = openOrgetTrans ( $ hash ) ; # Transaktion vorhandenen Code holen
2019-10-26 18:41:42 +00:00
2018-11-20 23:30:55 +00:00
if ( $ OpMode eq "getsnapgallery" ) {
2020-06-28 18:49:16 +00:00
if ( $ hash - > { HELPER } { CANSENDSNAP } || $ hash - > { HELPER } { CANTELESNAP } || $ hash - > { HELPER } { CANCHATSNAP } ) {
# es sollen die Anzahl "$hash->{HELPER}{SNAPNUM}" Schnappschüsse versendet werden
my $ i = 0 ;
my $ sn = 0 ;
2019-07-14 15:03:56 +00:00
2019-10-26 18:41:42 +00:00
# bestehende Schnappschußdaten im Cache auf OLD schreiben und löschen #
#######################################################################
2020-06-28 18:49:16 +00:00
$ cache = cache ( $ name , "c_init" ) ; # Cache initialisieren
2019-10-26 18:41:42 +00:00
Log3 ( $ name , 1 , "$name - Fall back to internal Cache due to preceding failure." ) if ( ! $ cache ) ;
if ( ! $ cache || $ cache eq "internal" ) {
if ( $ data { SSCam } { $ name } { SNAPHASH } ) {
2020-06-30 21:16:26 +00:00
for my $ key ( sort ( keys % { $ data { SSCam } { $ name } { SNAPHASH } } ) ) {
2019-10-26 18:41:42 +00:00
$ data { SSCam } { $ name } { SNAPOLDHASH } { $ key } = delete ( $ data { SSCam } { $ name } { SNAPHASH } { $ key } ) ;
}
}
} else {
2020-06-28 18:49:16 +00:00
for ( cache ( $ name , "c_getkeys" ) ) { # relevant keys aus allen vorkommenden selektieren
2019-10-27 08:07:57 +00:00
next if $ _ !~ /\{SNAPHASH\}\{(\d+)\}\{.*\}/ ;
2019-10-26 18:41:42 +00:00
$ _ =~ s/\{SNAPHASH\}\{(\d+)\}\{.*\}/$1/ ;
2020-07-10 15:16:12 +00:00
push @ as , $ _ if ( $ _ =~ /^(\d+)$/x ) ;
2019-10-26 18:41:42 +00:00
}
my % seen ;
my @ unique = sort { $ a <=> $ b } grep { ! $ seen { $ _ } + + } @ as ;
2020-06-30 21:16:26 +00:00
for my $ key ( @ unique ) {
2020-06-28 18:49:16 +00:00
$ g = cache ( $ name , "c_read" , "{SNAPHASH}{$key}{snapid}" ) ;
cache ( $ name , "c_write" , "{SNAPOLDHASH}{$key}{snapid}" , $ g ) if ( defined $ g ) ;
cache ( $ name , "c_remove" , "{SNAPHASH}{$key}{snapid}" ) ;
$ g = cache ( $ name , "c_read" , "{SNAPHASH}{$key}{createdTm}" ) ;
cache ( $ name , "c_write" , "{SNAPOLDHASH}{$key}{createdTm}" , $ g ) if ( defined $ g ) ;
cache ( $ name , "c_remove" , "{SNAPHASH}{$key}{createdTm}" ) ;
$ g = cache ( $ name , "c_read" , "{SNAPHASH}{$key}{fileName}" ) ;
cache ( $ name , "c_write" , "{SNAPOLDHASH}{$key}{fileName}" , $ g ) if ( defined $ g ) ;
cache ( $ name , "c_remove" , "{SNAPHASH}{$key}{fileName}" ) ;
$ g = cache ( $ name , "c_read" , "{SNAPHASH}{$key}{imageData}" ) ;
cache ( $ name , "c_write" , "{SNAPOLDHASH}{$key}{imageData}" , $ g ) if ( defined $ g ) ;
cache ( $ name , "c_remove" , "{SNAPHASH}{$key}{imageData}" ) ;
2019-10-26 18:41:42 +00:00
}
2019-07-14 15:03:56 +00:00
}
2020-06-28 18:49:16 +00:00
while ( $ data - > { 'data' } { 'data' } [ $ i ] ) {
if ( ! $ data - > { 'data' } { 'data' } [ $ i ] { 'camName' } || $ data - > { 'data' } { 'data' } [ $ i ] { 'camName' } ne $ camname ) { # Forum:#97706
$ i += 1 ;
next ;
}
$ snapid = $ data - > { data } { data } [ $ i ] { id } ;
2019-01-20 16:07:48 +00:00
my @ t = split ( " " , FmtDateTime ( $ data - > { data } { data } [ $ i ] { createdTm } ) ) ;
my @ d = split ( "-" , $ t [ 0 ] ) ;
my $ createdTm ;
if ( $ lang eq "DE" ) {
$ createdTm = "$d[2].$d[1].$d[0] / $t[1]" ;
} else {
$ createdTm = "$d[0]-$d[1]-$d[2] / $t[1]" ;
}
2020-06-28 18:49:16 +00:00
my $ fileName = $ data - > { data } { data } [ $ i ] { fileName } ;
my $ imageData = $ data - > { data } { data } [ $ i ] { imageData } ; # Image data of snapshot in base64 format
2019-04-28 17:20:21 +00:00
# Schnappschuss Hash zum Versand wird erstellt
2019-10-26 18:41:42 +00:00
##############################################
2019-12-09 20:51:32 +00:00
if ( $ hash - > { HELPER } { CANSENDSNAP } || $ hash - > { HELPER } { CANTELESNAP } || $ hash - > { HELPER } { CANCHATSNAP } ) {
2020-06-28 18:49:16 +00:00
$ cache = cache ( $ name , "c_init" ) ; # Cache initialisieren
2019-10-26 18:41:42 +00:00
Log3 ( $ name , 1 , "$name - Fall back to internal Cache due to preceding failure." ) if ( ! $ cache ) ;
if ( ! $ cache || $ cache eq "internal" ) {
$ data { SSCam } { $ name } { SENDSNAPS } { $ tac } { $ sn } { snapid } = $ snapid ;
$ data { SSCam } { $ name } { SENDSNAPS } { $ tac } { $ sn } { createdTm } = $ createdTm ;
$ data { SSCam } { $ name } { SENDSNAPS } { $ tac } { $ sn } { fileName } = $ fileName ;
$ data { SSCam } { $ name } { SENDSNAPS } { $ tac } { $ sn } { imageData } = $ imageData ;
} else {
2020-06-28 18:49:16 +00:00
cache ( $ name , "c_write" , "{SENDSNAPS}{$tac}{$sn}{snapid}" , $ snapid ) ;
cache ( $ name , "c_write" , "{SENDSNAPS}{$tac}{$sn}{createdTm}" , $ createdTm ) ;
cache ( $ name , "c_write" , "{SENDSNAPS}{$tac}{$sn}{fileName}" , $ fileName ) ;
cache ( $ name , "c_write" , "{SENDSNAPS}{$tac}{$sn}{imageData}" , $ imageData ) ;
2019-10-26 18:41:42 +00:00
}
Log3 ( $ name , 4 , "$name - Snap '$sn' added to send gallery hash: ID => $snapid, File => $fileName, Created => $createdTm" ) ;
}
# Snaphash erstellen für Galerie
################################
2020-06-28 18:49:16 +00:00
$ cache = cache ( $ name , "c_init" ) ; # Cache initialisieren
2019-10-26 18:41:42 +00:00
Log3 ( $ name , 1 , "$name - Fall back to internal Cache due to preceding failure." ) if ( ! $ cache ) ;
if ( ! $ cache || $ cache eq "internal" ) {
$ data { SSCam } { $ name } { SNAPHASH } { $ sn } { snapid } = $ snapid ;
$ data { SSCam } { $ name } { SNAPHASH } { $ sn } { createdTm } = $ createdTm ;
$ data { SSCam } { $ name } { SNAPHASH } { $ sn } { fileName } = $ fileName ;
$ data { SSCam } { $ name } { SNAPHASH } { $ sn } { imageData } = $ imageData ;
} else {
2020-06-28 18:49:16 +00:00
cache ( $ name , "c_write" , "{SNAPHASH}{$sn}{snapid}" , $ snapid ) ;
cache ( $ name , "c_write" , "{SNAPHASH}{$sn}{createdTm}" , $ createdTm ) ;
cache ( $ name , "c_write" , "{SNAPHASH}{$sn}{fileName}" , $ fileName ) ;
cache ( $ name , "c_write" , "{SNAPHASH}{$sn}{imageData}" , $ imageData ) ;
2019-10-26 18:41:42 +00:00
}
2020-06-28 18:49:16 +00:00
Log3 ( $ name , 4 , "$name - Snap '$sn' added to gallery hash: ID => $snapid, File => $fileName, Created => $createdTm" ) ;
2019-02-01 15:00:29 +00:00
$ sn += 1 ;
2020-06-28 18:49:16 +00:00
$ i += 1 ;
2019-11-02 10:26:16 +00:00
undef $ imageData ;
undef $ fileName ;
undef $ createdTm ;
2020-06-28 18:49:16 +00:00
}
2019-02-01 15:00:29 +00:00
2019-07-14 15:03:56 +00:00
my $ sgn = AttrVal ( $ name , "snapGalleryNumber" , 3 ) ;
my $ ss = $ sn ;
$ sn = 0 ;
2020-06-28 18:49:16 +00:00
$ cache = cache ( $ name , "c_init" ) ; # Cache initialisieren
2019-10-26 18:41:42 +00:00
Log3 ( $ name , 1 , "$name - Fall back to internal Cache due to preceding failure." ) if ( ! $ cache ) ;
if ( ! $ cache || $ cache eq "internal" ) {
if ( $ data { SSCam } { $ name } { SNAPOLDHASH } && $ sgn > $ ss ) {
for my $ kn ( $ ss .. ( $ sgn - 1 ) ) {
$ data { SSCam } { $ name } { SNAPHASH } { $ kn } { snapid } = delete $ data { SSCam } { $ name } { SNAPOLDHASH } { $ sn } { snapid } ;
$ data { SSCam } { $ name } { SNAPHASH } { $ kn } { createdTm } = delete $ data { SSCam } { $ name } { SNAPOLDHASH } { $ sn } { createdTm } ;
$ data { SSCam } { $ name } { SNAPHASH } { $ kn } { fileName } = delete $ data { SSCam } { $ name } { SNAPOLDHASH } { $ sn } { fileName } ;
$ data { SSCam } { $ name } { SNAPHASH } { $ kn } { imageData } = delete $ data { SSCam } { $ name } { SNAPOLDHASH } { $ sn } { imageData } ;
$ sn += 1 ;
}
}
} else {
2019-07-14 15:03:56 +00:00
for my $ kn ( $ ss .. ( $ sgn - 1 ) ) {
2019-10-26 18:41:42 +00:00
# next if $kn >= $hash->{HELPER}{SNAPLIMIT};
2020-06-28 18:49:16 +00:00
$ g = cache ( $ name , "c_read" , "{SNAPOLDHASH}{$sn}{snapid}" ) ;
cache ( $ name , "c_write" , "{SNAPHASH}{$kn}{snapid}" , $ g ) if ( defined $ g ) ;
cache ( $ name , "c_remove" , "{SNAPOLDHASH}{$sn}{snapid}" ) ;
$ g = cache ( $ name , "c_read" , "{SNAPOLDHASH}{$sn}{createdTm}" ) ;
cache ( $ name , "c_write" , "{SNAPHASH}{$kn}{createdTm}" , $ g ) if ( defined $ g ) ;
cache ( $ name , "c_remove" , "{SNAPOLDHASH}{$sn}{createdTm}" ) ;
$ g = cache ( $ name , "c_read" , "{SNAPOLDHASH}{$sn}{fileName}" ) ;
cache ( $ name , "c_write" , "{SNAPHASH}{$kn}{fileName}" , $ g ) if ( defined $ g ) ;
cache ( $ name , "c_remove" , "{SNAPOLDHASH}{$sn}{fileName}" ) ;
$ g = cache ( $ name , "c_read" , "{SNAPOLDHASH}{$sn}{imageData}" ) ;
cache ( $ name , "c_write" , "{SNAPHASH}{$kn}{imageData}" , $ g ) if ( defined $ g ) ;
cache ( $ name , "c_remove" , "{SNAPOLDHASH}{$sn}{imageData}" ) ;
2019-07-14 15:03:56 +00:00
$ sn += 1 ;
2019-10-26 18:41:42 +00:00
}
2019-07-14 15:03:56 +00:00
}
2020-06-28 18:49:16 +00:00
# Schnappschüsse als Email / Telegram / SSChatBot versenden
2019-12-09 20:51:32 +00:00
###########################################################
2019-10-26 18:41:42 +00:00
if ( ! $ cache || $ cache eq "internal" ) {
2020-06-28 18:49:16 +00:00
prepareSendData ( $ hash , $ OpMode , $ data { SSCam } { $ name } { SENDSNAPS } { $ tac } ) ;
2019-10-26 18:41:42 +00:00
} else {
2020-06-28 18:49:16 +00:00
prepareSendData ( $ hash , $ OpMode , "{SENDSNAPS}{$tac}" ) ;
2019-10-26 18:41:42 +00:00
}
2020-06-28 18:49:16 +00:00
} else {
2019-02-01 15:00:29 +00:00
# es soll eine Schnappschußgalerie bereitgestellt (Attr snapGalleryBoost=1) bzw. gleich angezeigt
2019-10-26 18:41:42 +00:00
# werden (Attr snapGalleryBoost=0) => kein Versand !!
#################################################################################################
my $ i = 0 ;
2019-02-01 15:00:29 +00:00
my $ sn = 0 ;
$ hash - > { HELPER } { TOTALCNT } = $ data - > { data } { total } ; # total Anzahl Schnappschüsse
2019-10-26 18:41:42 +00:00
# bestehende Schnappschußdaten in OLD schieben und löschen #
############################################################
2020-06-28 18:49:16 +00:00
$ cache = cache ( $ name , "c_init" ) ; # Cache initialisieren
2019-10-26 18:41:42 +00:00
Log3 ( $ name , 1 , "$name - Fall back to internal Cache due to preceding failure." ) if ( ! $ cache ) ;
if ( ! $ cache || $ cache eq "internal" ) {
if ( $ data { SSCam } { $ name } { SNAPHASH } ) {
2020-06-30 21:16:26 +00:00
for my $ key ( sort ( keys % { $ data { SSCam } { $ name } { SNAPHASH } } ) ) {
2019-10-26 18:41:42 +00:00
$ data { SSCam } { $ name } { SNAPOLDHASH } { $ key } = delete ( $ data { SSCam } { $ name } { SNAPHASH } { $ key } ) ;
}
}
} else {
2020-06-28 18:49:16 +00:00
for ( cache ( $ name , "c_getkeys" ) ) { # relevant keys aus allen vorkommenden selektieren
2019-10-27 08:07:57 +00:00
next if $ _ !~ /\{SNAPHASH\}\{(\d+)\}\{.*\}/ ;
2019-10-26 18:41:42 +00:00
$ _ =~ s/\{SNAPHASH\}\{(\d+)\}\{.*\}/$1/ ;
2020-07-10 15:16:12 +00:00
push @ as , $ _ if ( $ _ =~ /^(\d+)$/x ) ;
2019-10-26 18:41:42 +00:00
}
my % seen ;
my @ unique = sort { $ a <=> $ b } grep { ! $ seen { $ _ } + + } @ as ;
2020-06-30 21:16:26 +00:00
for my $ key ( @ unique ) {
2020-06-28 18:49:16 +00:00
$ g = cache ( $ name , "c_read" , "{SNAPHASH}{$key}{snapid}" ) ;
cache ( $ name , "c_write" , "{SNAPOLDHASH}{$key}{snapid}" , $ g ) if ( defined $ g ) ;
cache ( $ name , "c_remove" , "{SNAPHASH}{$key}{snapid}" ) ;
$ g = cache ( $ name , "c_read" , "{SNAPHASH}{$key}{createdTm}" ) ;
cache ( $ name , "c_write" , "{SNAPOLDHASH}{$key}{createdTm}" , $ g ) if ( defined $ g ) ;
cache ( $ name , "c_remove" , "{SNAPHASH}{$key}{createdTm}" ) ;
$ g = cache ( $ name , "c_read" , "{SNAPHASH}{$key}{fileName}" ) ;
cache ( $ name , "c_write" , "{SNAPOLDHASH}{$key}{fileName}" , $ g ) if ( defined $ g ) ;
cache ( $ name , "c_remove" , "{SNAPHASH}{$key}{fileName}" ) ;
$ g = cache ( $ name , "c_read" , "{SNAPHASH}{$key}{imageData}" ) ;
cache ( $ name , "c_write" , "{SNAPOLDHASH}{$key}{imageData}" , $ g ) if ( defined $ g ) ;
cache ( $ name , "c_remove" , "{SNAPHASH}{$key}{imageData}" ) ;
2019-10-26 18:41:42 +00:00
}
2019-07-14 15:03:56 +00:00
}
2019-02-01 15:00:29 +00:00
while ( $ data - > { 'data' } { 'data' } [ $ i ] ) {
2020-06-28 18:49:16 +00:00
if ( ! $ data - > { 'data' } { 'data' } [ $ i ] { 'camName' } || $ data - > { 'data' } { 'data' } [ $ i ] { 'camName' } ne $ camname ) { # Forum:#97706
$ i += 1 ;
next ;
}
2019-02-01 15:00:29 +00:00
$ snapid = $ data - > { data } { data } [ $ i ] { id } ;
my $ createdTm = $ data - > { data } { data } [ $ i ] { createdTm } ;
my $ fileName = $ data - > { data } { data } [ $ i ] { fileName } ;
my $ imageData = $ data - > { data } { data } [ $ i ] { imageData } ; # Image data of snapshot in base64 format
2019-01-20 16:07:48 +00:00
my @ t = split ( " " , FmtDateTime ( $ data - > { data } { data } [ $ i ] { createdTm } ) ) ;
my @ d = split ( "-" , $ t [ 0 ] ) ;
if ( $ lang eq "DE" ) {
$ createdTm = "$d[2].$d[1].$d[0] / $t[1]" ;
} else {
$ createdTm = "$d[0]-$d[1]-$d[2] / $t[1]" ;
}
2019-07-14 15:03:56 +00:00
2019-10-26 18:41:42 +00:00
# Snaphash erstellen für Galerie #
##################################
2020-06-28 18:49:16 +00:00
$ cache = cache ( $ name , "c_init" ) ; # Cache initialisieren
2019-10-26 18:41:42 +00:00
Log3 ( $ name , 1 , "$name - Fall back to internal Cache due to preceding failure." ) if ( ! $ cache ) ;
if ( ! $ cache || $ cache eq "internal" ) {
$ data { SSCam } { $ name } { SNAPHASH } { $ sn } { snapid } = $ snapid ;
$ data { SSCam } { $ name } { SNAPHASH } { $ sn } { createdTm } = $ createdTm ;
$ data { SSCam } { $ name } { SNAPHASH } { $ sn } { fileName } = $ fileName ;
$ data { SSCam } { $ name } { SNAPHASH } { $ sn } { imageData } = $ imageData ;
} else {
2020-06-28 18:49:16 +00:00
cache ( $ name , "c_write" , "{SNAPHASH}{$sn}{snapid}" , $ snapid ) ;
cache ( $ name , "c_write" , "{SNAPHASH}{$sn}{createdTm}" , $ createdTm ) ;
cache ( $ name , "c_write" , "{SNAPHASH}{$sn}{fileName}" , $ fileName ) ;
cache ( $ name , "c_write" , "{SNAPHASH}{$sn}{imageData}" , $ imageData ) ;
2019-10-26 18:41:42 +00:00
}
Log3 ( $ name , 4 , "$name - Snap '$sn' added to gallery hash: SN => $sn, ID => $snapid, File => $fileName, Created => $createdTm" ) ;
2019-07-14 15:03:56 +00:00
2019-02-01 15:00:29 +00:00
$ sn += 1 ;
2019-10-26 18:41:42 +00:00
$ i += 1 ;
2019-11-02 10:26:16 +00:00
undef $ imageData ;
undef $ fileName ;
undef $ createdTm ;
2019-02-01 15:00:29 +00:00
}
2019-07-14 15:03:56 +00:00
my $ sgn = AttrVal ( $ name , "snapGalleryNumber" , 3 ) ;
my $ ss = $ sn ;
$ sn = 0 ;
2019-10-26 18:41:42 +00:00
2020-06-28 18:49:16 +00:00
$ cache = cache ( $ name , "c_init" ) ; # Cache initialisieren
2019-10-26 18:41:42 +00:00
Log3 ( $ name , 1 , "$name - Fall back to internal Cache due to preceding failure." ) if ( ! $ cache ) ;
if ( ! $ cache || $ cache eq "internal" ) {
if ( $ data { SSCam } { $ name } { SNAPOLDHASH } && $ sgn > $ ss ) {
for my $ kn ( $ ss .. ( $ sgn - 1 ) ) {
$ data { SSCam } { $ name } { SNAPHASH } { $ kn } { snapid } = delete $ data { SSCam } { $ name } { SNAPOLDHASH } { $ sn } { snapid } ;
$ data { SSCam } { $ name } { SNAPHASH } { $ kn } { createdTm } = delete $ data { SSCam } { $ name } { SNAPOLDHASH } { $ sn } { createdTm } ;
$ data { SSCam } { $ name } { SNAPHASH } { $ kn } { fileName } = delete $ data { SSCam } { $ name } { SNAPOLDHASH } { $ sn } { fileName } ;
$ data { SSCam } { $ name } { SNAPHASH } { $ kn } { imageData } = delete $ data { SSCam } { $ name } { SNAPOLDHASH } { $ sn } { imageData } ;
$ sn += 1 ;
}
}
} else {
2020-04-14 15:41:21 +00:00
for my $ kn ( $ ss .. ( $ sgn - 1 ) ) {
2020-06-28 18:49:16 +00:00
$ g = cache ( $ name , "c_read" , "{SNAPOLDHASH}{$sn}{snapid}" ) ;
cache ( $ name , "c_write" , "{SNAPHASH}{$kn}{snapid}" , $ g ) if ( defined $ g ) ;
cache ( $ name , "c_remove" , "{SNAPOLDHASH}{$sn}{snapid}" ) ;
$ g = cache ( $ name , "c_read" , "{SNAPOLDHASH}{$sn}{createdTm}" ) ;
cache ( $ name , "c_write" , "{SNAPHASH}{$kn}{createdTm}" , $ g ) if ( defined $ g ) ;
cache ( $ name , "c_remove" , "{SNAPOLDHASH}{$sn}{createdTm}" ) ;
$ g = cache ( $ name , "c_read" , "{SNAPOLDHASH}{$sn}{fileName}" ) ;
cache ( $ name , "c_write" , "{SNAPHASH}{$kn}{fileName}" , $ g ) if ( defined $ g ) ;
cache ( $ name , "c_remove" , "{SNAPOLDHASH}{$sn}{fileName}" ) ;
$ g = cache ( $ name , "c_read" , "{SNAPOLDHASH}{$sn}{imageData}" ) ;
cache ( $ name , "c_write" , "{SNAPHASH}{$kn}{imageData}" , $ g ) if ( defined $ g ) ;
cache ( $ name , "c_remove" , "{SNAPOLDHASH}{$sn}{imageData}" ) ;
2019-07-14 15:03:56 +00:00
$ sn += 1 ;
2019-10-26 18:41:42 +00:00
}
2019-07-14 15:03:56 +00:00
}
2019-02-01 15:00:29 +00:00
# Direktausgabe Snaphash wenn nicht gepollt wird
2020-07-17 10:58:15 +00:00
if ( ! AttrVal ( $ name , "snapGalleryBoost" , 0 ) ) {
my % pars = ( linkparent = > $ name ,
linkname = > '' ,
ftui = > 0
) ;
my $ htmlCode = composeGallery ( \ % pars ) ;
2019-02-01 15:00:29 +00:00
for ( my $ k = 1 ; ( defined ( $ hash - > { HELPER } { CL } { $ k } ) ) ; $ k + + ) {
2020-06-28 18:49:16 +00:00
asyncOutput ( $ hash - > { HELPER } { CL } { $ k } , "$htmlCode" ) ;
2019-02-01 15:00:29 +00:00
}
2019-10-10 19:10:13 +00:00
delete ( $ data { SSCam } { $ name } { SNAPHASH } ) ; # Snaphash Referenz löschen %allsnaps = ();
2019-02-01 15:00:29 +00:00
delete ( $ hash - > { HELPER } { CL } ) ;
}
}
2019-01-04 20:07:35 +00:00
}
2019-01-09 18:54:08 +00:00
2019-01-14 20:09:44 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
2019-01-14 23:09:42 +00:00
readingsEndUpdate ( $ hash , 1 ) ;
2019-01-14 20:09:44 +00:00
2020-06-28 18:49:16 +00:00
undef % snaps ;
2019-10-26 18:41:42 +00:00
undef $ g ;
2020-06-28 18:49:16 +00:00
delete $ hash - > { HELPER } { GETSNAPGALLERY } ; # Steuerbit getsnapgallery
2019-10-26 18:41:42 +00:00
delete $ data { SSCam } { $ name } { SNAPOLDHASH } ;
2020-06-28 18:49:16 +00:00
closeTrans ( $ hash ) ; # Transaktion beenden
2019-09-14 19:11:34 +00:00
2020-06-28 18:49:16 +00:00
######## fallabhängige Eventgenerierung ########
2019-07-12 20:10:53 +00:00
if ( $ hash - > { HELPER } { INFORM } || $ hash - > { HELPER } { LSNAPBYSTRMDEV } ) {
2018-11-20 23:30:55 +00:00
# Snap durch SSCamSTRM-Device ausgelöst
2020-06-28 18:49:16 +00:00
roomRefresh ( $ hash , 0 , 0 , 1 ) ; # kein Room-Refresh, kein SSCam-state-Event, SSCamSTRM-Event
2018-11-20 23:30:55 +00:00
delete $ hash - > { HELPER } { LSNAPBYSTRMDEV } ;
} elsif ( $ hash - > { HELPER } { LSNAPBYDEV } ) {
2020-06-28 18:49:16 +00:00
roomRefresh ( $ hash , 0 , 1 , 0 ) ; # kein Room-Refresh, SSCam-state-Event, kein SSCamSTRM-Event
2018-11-20 23:30:55 +00:00
delete $ hash - > { HELPER } { LSNAPBYDEV } ;
} else {
2020-06-28 18:49:16 +00:00
roomRefresh ( $ hash , 0 , 0 , 0 ) ; # kein Room-Refresh, SSCam-state-Event, SSCamSTRM-Event
2018-11-20 23:30:55 +00:00
}
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "runliveview" && $ hash - > { HELPER } { RUNVIEW } =~ m/^live_.*hls$/ ) {
2018-11-20 23:30:55 +00:00
# HLS Streaming wurde aktiviert
$ hash - > { HELPER } { HLSSTREAM } = "active" ;
# externe LivestreamURL setzen
my $ exturl = AttrVal ( $ name , "livestreamprefix" , "$proto://$serveraddr:$serverport" ) ;
$ exturl . = "/webapi/$apivideostmspath?api=$apivideostms&version=$apivideostmsmaxver&method=Stream&cameraId=$camid&format=hls&_sid=$sid" ;
readingsSingleUpdate ( $ hash , "LiveStreamUrl" , $ exturl , 1 ) if ( AttrVal ( $ name , "showStmInfoFull" , undef ) ) ;
my $ url = "$proto://$serveraddr:$serverport/webapi/$apivideostmspath?api=$apivideostms&version=$apivideostmsmaxver&method=Stream&cameraId=$camid&format=hls&_sid=$sid" ;
# Liveview-Link in Hash speichern und Aktivitätsstatus speichern
$ hash - > { HELPER } { LINK } = $ url ;
Log3 ( $ name , 4 , "$name - HLS Streaming of camera \"$name\" activated, Streaming-URL: $url" ) if ( AttrVal ( $ name , "verbose" , 3 ) == 4 ) ;
Log3 ( $ name , 3 , "$name - HLS Streaming of camera \"$name\" activated" ) if ( AttrVal ( $ name , "verbose" , 3 ) == 3 ) ;
2020-06-28 18:49:16 +00:00
roomRefresh ( $ hash , 0 , 1 , 1 ) ; # kein Room-Refresh, SSCam-state-Event, SSCamSTRM-Event
2018-11-20 23:30:55 +00:00
} elsif ( $ OpMode eq "stopliveview_hls" ) {
# HLS Streaming wurde deaktiviert, Aktivitätsstatus speichern
$ hash - > { HELPER } { HLSSTREAM } = "inactive" ;
Log3 ( $ name , 3 , "$name - HLS Streaming of camera \"$name\" deactivated" ) ;
2020-06-28 18:49:16 +00:00
roomRefresh ( $ hash , 0 , 1 , 1 ) ; # kein Room-Refresh, SSCam-state-Event, SSCamSTRM-Event
2018-11-20 23:30:55 +00:00
} elsif ( $ OpMode eq "reactivate_hls" ) {
# HLS Streaming wurde deaktiviert, Aktivitätsstatus speichern
$ hash - > { HELPER } { HLSSTREAM } = "inactive" ;
Log3 ( $ name , 4 , "$name - HLS Streaming of camera \"$name\" deactivated for streaming device" ) ;
2020-06-28 18:49:16 +00:00
# Token freigeben vor hlsactivate
delActiveToken ( $ hash ) ;
activateHls ( $ hash ) ;
2019-01-07 23:39:35 +00:00
return ;
2018-11-20 23:30:55 +00:00
} elsif ( $ OpMode eq "activate_hls" ) {
# HLS Streaming wurde aktiviert, Aktivitätsstatus speichern
$ hash - > { HELPER } { HLSSTREAM } = "active" ;
Log3 ( $ name , 4 , "$name - HLS Streaming of camera \"$name\" activated for streaming device" ) ;
2020-06-28 18:49:16 +00:00
roomRefresh ( $ hash , 0 , 1 , 1 ) ; # kein Room-Refresh, SSCam-state-Event, SSCamSTRM-Event
2018-11-20 23:30:55 +00:00
} elsif ( $ OpMode eq "getsnapfilename" ) {
# den Filenamen eines Schnapschusses ermitteln
2019-01-19 15:35:22 +00:00
$ snapid = ReadingsVal ( "$name" , "LastSnapId" , "" ) ;
if ( ! $ snapid ) {
Log3 ( $ name , 2 , "$name - Snap-ID \"LastSnapId\" isn't set. Filename can't be retrieved" ) ;
return ;
}
2018-11-20 23:30:55 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsBulkUpdate ( $ hash , "LastSnapFilename" , $ data - > { 'data' } { 'data' } [ 0 ] { 'fileName' } ) ;
readingsEndUpdate ( $ hash , 1 ) ;
2019-05-22 17:31:17 +00:00
2018-11-20 23:30:55 +00:00
Log3 ( $ name , 4 , "$name - Filename of Snap-ID $snapid is \"$data->{'data'}{'data'}[0]{'fileName'}\"" ) if ( $ data - > { 'data' } { 'data' } [ 0 ] { 'fileName' } ) ;
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "getstreamformat" ) {
2018-11-20 23:30:55 +00:00
# aktuelles Streamformat abgefragt
2020-06-28 18:49:16 +00:00
my $ sformat = jboolmap ( $ data - > { 'data' } - > { 'format' } ) ;
2018-11-20 23:30:55 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsBulkUpdate ( $ hash , "CamStreamFormat" , uc ( $ sformat ) ) if ( $ sformat ) ;
readingsEndUpdate ( $ hash , 1 ) ;
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "gopreset" ) {
2018-11-20 23:30:55 +00:00
# eine Presetposition wurde angefahren
# falls Aufnahme noch läuft -> state = on setzen
my $ st = ( ReadingsVal ( "$name" , "Record" , "Stop" ) eq "Start" ) ? "on" : "off" ;
readingsSingleUpdate ( $ hash , "state" , $ st , 0 ) ;
DoTrigger ( $ name , "move stop" ) ;
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
# Logausgabe
Log3 ( $ name , 3 , "$name - Camera $camname has been moved to position \"$hash->{HELPER}{GOPRESETNAME}\"" ) ;
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "runpatrol" ) {
2018-11-20 23:30:55 +00:00
# eine Tour wurde gestartet
# falls Aufnahme noch läuft -> state = on setzen
my $ st = ( ReadingsVal ( "$name" , "Record" , "Stop" ) eq "Start" ) ? "on" : "off" ;
readingsSingleUpdate ( $ hash , "state" , $ st , 0 ) ;
DoTrigger ( $ name , "patrol started" ) ;
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , 3 , "$name - Patrol \"$hash->{HELPER}{GOPATROLNAME}\" of camera $camname has been started successfully" ) ;
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "goabsptz" ) {
2018-11-20 23:30:55 +00:00
# eine absolute PTZ-Position wurde angefahren
# falls Aufnahme noch läuft -> state = on setzen
my $ st = ( ReadingsVal ( "$name" , "Record" , "Stop" ) eq "Start" ) ? "on" : "off" ;
readingsSingleUpdate ( $ hash , "state" , $ st , 0 ) ;
DoTrigger ( $ name , "move stop" ) ;
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , 3 , "$name - Camera $camname has been moved to absolute position \"posX=$hash->{HELPER}{GOPTZPOSX}\" and \"posY=$hash->{HELPER}{GOPTZPOSY}\"" ) ;
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "startTrack" ) {
2018-11-20 23:30:55 +00:00
# Object Tracking wurde eingeschaltet
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , 3 , "$name - Object tracking of Camera $camname has been switched on" ) ;
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "stopTrack" ) {
2018-11-20 23:30:55 +00:00
# Object Tracking wurde eingeschaltet
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , 3 , "$name - Object tracking of Camera $camname has been stopped" ) ;
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "movestart" ) {
2018-11-20 23:30:55 +00:00
# ein "Move" in eine bestimmte Richtung wird durchgeführt
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , 3 , "$name - Camera $camname started move to direction \"$hash->{HELPER}{GOMOVEDIR}\" with duration of $hash->{HELPER}{GOMOVETIME} s" ) ;
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::moveStop" ) ;
InternalTimer ( gettimeofday ( ) + ( $ hash - > { HELPER } { GOMOVETIME } ) , "FHEM::SSCam::moveStop" , $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "movestop" ) {
2018-11-20 23:30:55 +00:00
# ein "Move" in eine bestimmte Richtung wurde durchgeführt
# falls Aufnahme noch läuft -> state = on setzen
my $ st = ( ReadingsVal ( "$name" , "Record" , "Stop" ) eq "Start" ) ? "on" : "off" ;
readingsSingleUpdate ( $ hash , "state" , $ st , 0 ) ;
DoTrigger ( $ name , "move stop" ) ;
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , 3 , "$name - Camera $camname stopped move to direction \"$hash->{HELPER}{GOMOVEDIR}\"" ) ;
} elsif ( $ OpMode eq "Enable" ) {
# Kamera wurde aktiviert, sonst kann nichts laufen -> "off"
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Availability" , "enabled" ) ;
readingsBulkUpdate ( $ hash , "state" , "off" ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
# Logausgabe
Log3 ( $ name , 3 , "$name - Camera $camname has been enabled successfully" ) ;
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "Disable" ) {
2018-11-20 23:30:55 +00:00
# Kamera wurde deaktiviert
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Availability" , "disabled" ) ;
readingsBulkUpdate ( $ hash , "state" , "disabled" ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , 3 , "$name - Camera $camname has been disabled successfully" ) ;
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "getsvsinfo" ) {
2018-11-20 23:30:55 +00:00
# Parse SVS-Infos
$ userPriv = $ data - > { 'data' } { 'userPriv' } ;
if ( defined ( $ userPriv ) ) {
if ( $ userPriv eq "0" ) {
$ userPriv = "No Access" ;
} elsif ( $ userPriv eq "1" ) {
$ userPriv = "Admin" ;
} elsif ( $ userPriv eq "2" ) {
$ userPriv = "Manager" ;
} elsif ( $ userPriv eq "4" ) {
$ userPriv = "Viewer" ;
}
}
2019-04-28 17:20:21 +00:00
2018-11-20 23:30:55 +00:00
# Werte in $hash zur späteren Auswertung einfügen
2019-04-28 17:20:21 +00:00
$ hash - > { HELPER } { SVSVERSION } { MAJOR } = $ data - > { 'data' } { 'version' } { 'major' } ;
$ hash - > { HELPER } { SVSVERSION } { MINOR } = $ data - > { 'data' } { 'version' } { 'minor' } ;
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { SVSVERSION } { SMALL } = $ data - > { 'data' } { 'version' } { 'small' } ;
2019-04-28 17:20:21 +00:00
$ hash - > { HELPER } { SVSVERSION } { BUILD } = $ data - > { 'data' } { 'version' } { 'build' } ;
2020-06-28 18:49:16 +00:00
my $ major = $ hash - > { HELPER } { SVSVERSION } { MAJOR } ;
my $ minor = $ hash - > { HELPER } { SVSVERSION } { MINOR } ;
my $ small = $ hash - > { HELPER } { SVSVERSION } { SMALL } ;
my $ build = $ hash - > { HELPER } { SVSVERSION } { BUILD } ;
2018-11-20 23:30:55 +00:00
# simulieren einer anderen SVS-Version
if ( AttrVal ( $ name , "simu_SVSversion" , undef ) ) {
Log3 ( $ name , 4 , "$name - another SVS-version " . AttrVal ( $ name , "simu_SVSversion" , undef ) . " will be simulated" ) ;
2020-06-28 18:49:16 +00:00
#delete $version{"SMALL"} if ($version{"SMALL"});
2018-11-20 23:30:55 +00:00
my @ vl = split ( /\.|-/ , AttrVal ( $ name , "simu_SVSversion" , "" ) ) ;
$ major = $ vl [ 0 ] ;
$ minor = $ vl [ 1 ] ;
2020-07-10 15:16:12 +00:00
$ small = ( $ vl [ 2 ] =~ /\d/x ) ? $ vl [ 2 ] : '' ;
2018-11-20 23:30:55 +00:00
$ build = "xxxx-simu" ;
}
# Kompatibilitätscheck
2020-07-10 15:16:12 +00:00
my $ avsc = $ major . $ minor . ( ( $ small =~ /\d/x ) ? $ small : 0 ) ;
2018-11-20 23:30:55 +00:00
my $ avcomp = $ hash - > { COMPATIBILITY } ;
2020-07-10 15:16:12 +00:00
$ avcomp =~ s/\.//gx ;
2018-11-20 23:30:55 +00:00
my $ compstate ;
if ( $ avsc <= $ avcomp ) {
$ compstate = "true" ;
} else {
$ compstate = "false" ;
}
readingsSingleUpdate ( $ hash , "compstate" , $ compstate , 1 ) ;
if ( ! exists ( $ data - > { 'data' } { 'customizedPortHttp' } ) ) {
delete $ defs { $ name } { READINGS } { SVScustomPortHttp } ;
}
if ( ! exists ( $ data - > { 'data' } { 'customizedPortHttps' } ) ) {
delete $ defs { $ name } { READINGS } { SVScustomPortHttps } ;
}
2020-07-10 15:16:12 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "SVScustomPortHttp" , $ data - > { 'data' } { 'customizedPortHttp' } ) ;
readingsBulkUpdate ( $ hash , "SVScustomPortHttps" , $ data - > { 'data' } { 'customizedPortHttps' } ) ;
readingsBulkUpdate ( $ hash , "SVSlicenseNumber" , $ data - > { 'data' } { 'liscenseNumber' } ) ;
readingsBulkUpdate ( $ hash , "SVSuserPriv" , $ userPriv ) ;
2020-06-28 18:49:16 +00:00
if ( defined ( $ small ) ) {
2020-07-10 15:16:12 +00:00
readingsBulkUpdate ( $ hash , "SVSversion" , $ major . "." . $ minor . "." . $ small . "-" . $ build ) ;
2020-06-28 18:49:16 +00:00
} else {
2020-07-10 15:16:12 +00:00
readingsBulkUpdate ( $ hash , "SVSversion" , $ major . "." . $ minor . "-" . $ build ) ;
2020-06-28 18:49:16 +00:00
}
2020-07-10 15:16:12 +00:00
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
2018-11-20 23:30:55 +00:00
Log3 ( $ name , $ verbose , "$name - Informations related to Surveillance Station retrieved" ) ;
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "getStmUrlPath" ) {
2018-11-20 23:30:55 +00:00
# Parse SVS-Infos
2020-06-28 18:49:16 +00:00
my ( $ camforcemcast , $ mjpegHttp , $ multicst , $ mxpegHttp , $ unicastOverHttp , $ unicastPath ) ;
if ( $ apicammaxver < 9 ) {
$ camforcemcast = jboolmap ( $ data - > { 'data' } { 'pathInfos' } [ 0 ] { 'forceEnableMulticast' } ) ;
2018-11-20 23:30:55 +00:00
$ mjpegHttp = $ data - > { 'data' } { 'pathInfos' } [ 0 ] { 'mjpegHttpPath' } ;
$ multicst = $ data - > { 'data' } { 'pathInfos' } [ 0 ] { 'multicstPath' } ;
$ mxpegHttp = $ data - > { 'data' } { 'pathInfos' } [ 0 ] { 'mxpegHttpPath' } ;
$ unicastOverHttp = $ data - > { 'data' } { 'pathInfos' } [ 0 ] { 'unicastOverHttpPath' } ;
$ unicastPath = $ data - > { 'data' } { 'pathInfos' } [ 0 ] { 'unicastPath' } ;
2020-06-28 18:49:16 +00:00
}
if ( $ apicammaxver >= 9 ) {
2018-11-20 23:30:55 +00:00
$ mjpegHttp = $ data - > { 'data' } [ 0 ] { 'mjpegHttpPath' } ;
$ multicst = $ data - > { 'data' } [ 0 ] { 'multicstPath' } ;
$ mxpegHttp = $ data - > { 'data' } [ 0 ] { 'mxpegHttpPath' } ;
$ unicastOverHttp = $ data - > { 'data' } [ 0 ] { 'rtspOverHttpPath' } ;
$ unicastPath = $ data - > { 'data' } [ 0 ] { 'rtspPath' } ;
2020-06-28 18:49:16 +00:00
}
2018-11-20 23:30:55 +00:00
# Rewrite Url's falls livestreamprefix ist gesetzt
if ( AttrVal ( $ name , "livestreamprefix" , undef ) ) {
my $ exturl = AttrVal ( $ name , "livestreamprefix" , "$proto://$serveraddr:$serverport" ) ;
2020-07-10 15:16:12 +00:00
$ exturl = ( $ exturl eq "DEF" ) ? "$proto://$serveraddr:$serverport" : $ exturl ;
my @ mjh = split ( /\// , $ mjpegHttp , 4 ) ;
2018-11-20 23:30:55 +00:00
$ mjpegHttp = $ exturl . "/" . $ mjh [ 3 ] ;
2020-07-10 15:16:12 +00:00
my @ mxh = split ( /\// , $ mxpegHttp , 4 ) ;
2018-11-20 23:30:55 +00:00
$ mxpegHttp = $ exturl . "/" . $ mxh [ 3 ] ;
2020-06-28 18:49:16 +00:00
if ( $ unicastPath ) {
2020-07-10 15:16:12 +00:00
my @ ucp = split ( /[@\|:]/ , $ unicastPath ) ;
my @ lspf = split ( /[\/\/\|:]/ , $ exturl ) ;
2018-11-20 23:30:55 +00:00
$ unicastPath = $ ucp [ 0 ] . ":" . $ ucp [ 1 ] . ":" . $ ucp [ 2 ] . "@" . $ lspf [ 3 ] . ":" . $ ucp [ 4 ] ;
2020-06-28 18:49:16 +00:00
}
2018-11-20 23:30:55 +00:00
}
# StmKey extrahieren
2020-07-10 15:16:12 +00:00
my @ sk = split ( /&StmKey=/ , $ mjpegHttp ) ;
2018-11-20 23:30:55 +00:00
my $ stmkey = $ sk [ 1 ] ;
2019-05-21 06:30:06 +00:00
2020-06-28 18:49:16 +00:00
# Quotes in StmKey entfernen falls noQuotesForSID gesetzt
2019-05-21 06:30:06 +00:00
if ( AttrVal ( $ name , "noQuotesForSID" , 0 ) ) { # Forum: https://forum.fhem.de/index.php/topic,45671.msg938236.html#msg938236
2020-06-28 18:49:16 +00:00
$ mjpegHttp =~ tr /"/ / d ;
2019-05-21 06:30:06 +00:00
$ mxpegHttp =~ tr /"/ / d ;
$ stmkey =~ tr /"/ / d ;
}
2018-11-20 23:30:55 +00:00
# Streaminginfos in Helper speichern
2020-07-10 15:16:12 +00:00
$ hash - > { HELPER } { STMKEYMJPEGHTTP } = $ mjpegHttp if ( $ mjpegHttp ) ;
$ hash - > { HELPER } { STMKEYMXPEGHTTP } = $ mxpegHttp if ( $ mxpegHttp ) ;
$ hash - > { HELPER } { STMKEYUNICSTOVERHTTP } = $ unicastOverHttp if ( $ unicastOverHttp ) ;
$ hash - > { HELPER } { STMKEYUNICST } = $ unicastPath if ( $ unicastPath ) ;
2018-11-20 23:30:55 +00:00
readingsBeginUpdate ( $ hash ) ;
2020-07-10 15:16:12 +00:00
readingsBulkUpdate ( $ hash , "CamForceEnableMulticast" , $ camforcemcast ) if ( $ camforcemcast ) ;
readingsBulkUpdate ( $ hash , "StmKey" , $ stmkey ) ;
readingsBulkUpdate ( $ hash , "StmKeymjpegHttp" , $ mjpegHttp ) if ( AttrVal ( $ name , "showStmInfoFull" , 0 ) ) ;
readingsBulkUpdate ( $ hash , "StmKeymxpegHttp" , $ mxpegHttp ) if ( AttrVal ( $ name , "showStmInfoFull" , 0 ) ) ;
readingsBulkUpdate ( $ hash , "StmKeyUnicstOverHttp" , $ unicastOverHttp ) if ( AttrVal ( $ name , "showStmInfoFull" , 0 ) && $ unicastOverHttp ) ;
readingsBulkUpdate ( $ hash , "StmKeyUnicst" , $ unicastPath ) if ( AttrVal ( $ name , "showStmInfoFull" , 0 ) && $ unicastPath ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
2018-11-20 23:30:55 +00:00
readingsEndUpdate ( $ hash , 1 ) ;
2019-05-22 17:31:17 +00:00
2018-11-20 23:30:55 +00:00
Log3 ( $ name , $ verbose , "$name - Stream-URLs of camera $camname retrieved" ) ;
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "Getcaminfo" ) {
2018-11-20 23:30:55 +00:00
# Parse Caminfos
$ camLiveMode = $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'camLiveMode' } ;
2020-07-10 15:16:12 +00:00
if ( $ camLiveMode eq "0" ) {
$ camLiveMode = "Liveview from DS" ;
} elsif ( $ camLiveMode eq "1" ) {
$ camLiveMode = "Liveview from Camera" ;
}
2018-11-20 23:30:55 +00:00
( $ sec , $ min , $ hour , $ mday , $ mon , $ year , $ wday , $ yday , $ isdst ) = localtime ;
2019-01-20 16:07:48 +00:00
if ( $ lang eq "DE" ) {
$ update_time = sprintf "%02d.%02d.%04d / %02d:%02d:%02d" , $ mday , $ mon += 1 , $ year += 1900 , $ hour , $ min , $ sec ;
} else {
$ update_time = sprintf "%04d-%02d-%02d / %02d:%02d:%02d" , $ year += 1900 , $ mon += 1 , $ mday , $ hour , $ min , $ sec ;
}
2018-11-20 23:30:55 +00:00
$ deviceType = $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'deviceType' } ;
if ( $ deviceType eq "1" ) {
$ deviceType = "Camera" ;
} elsif ( $ deviceType eq "2" ) {
$ deviceType = "Video_Server" ;
} elsif ( $ deviceType eq "4" ) {
$ deviceType = "PTZ" ;
} elsif ( $ deviceType eq "8" ) {
$ deviceType = "Fisheye" ;
}
2020-06-28 18:49:16 +00:00
$ camStatus = jboolmap ( $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'camStatus' } ) ;
2018-11-20 23:30:55 +00:00
if ( $ camStatus eq "1" ) {
$ camStatus = "enabled" ;
# falls Aufnahme noch läuft -> STATE = on setzen
if ( ReadingsVal ( "$name" , "Record" , "Stop" ) eq "Start" ) {
readingsSingleUpdate ( $ hash , "state" , "on" , 0 ) ;
} else {
readingsSingleUpdate ( $ hash , "state" , "off" , 0 ) ;
}
2020-06-28 18:49:16 +00:00
} elsif ( $ camStatus eq "3" ) {
2018-11-20 23:30:55 +00:00
$ camStatus = "disconnected" ;
readingsSingleUpdate ( $ hash , "state" , "disconnected" , 0 ) ;
} elsif ( $ camStatus eq "7" ) {
$ camStatus = "disabled" ;
readingsSingleUpdate ( $ hash , "state" , "disabled" , 0 ) ;
} else {
$ camStatus = "other" ;
}
$ recStatus = $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'recStatus' } ;
if ( $ recStatus ne "0" ) {
$ recStatus = "Start" ;
} else {
$ recStatus = "Stop" ;
}
2020-06-28 18:49:16 +00:00
my $ rotate = $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'video_rotation' } ;
2020-07-10 15:16:12 +00:00
$ rotate = $ rotate == 1 ? "true" : "false" ;
2020-06-28 18:49:16 +00:00
$ exposuremode = jboolmap ( $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'exposure_mode' } ) ;
2018-11-20 23:30:55 +00:00
if ( $ exposuremode == 0 ) {
$ exposuremode = "Auto" ;
} elsif ( $ exposuremode == 1 ) {
$ exposuremode = "Day" ;
} elsif ( $ exposuremode == 2 ) {
$ exposuremode = "Night" ;
} elsif ( $ exposuremode == 3 ) {
$ exposuremode = "Schedule" ;
} elsif ( $ exposuremode == 4 ) {
$ exposuremode = "Unknown" ;
}
2020-06-28 18:49:16 +00:00
$ exposurecontrol = jboolmap ( $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'exposure_control' } ) ;
2018-11-20 23:30:55 +00:00
if ( $ exposurecontrol == 0 ) {
$ exposurecontrol = "Auto" ;
} elsif ( $ exposurecontrol == 1 ) {
$ exposurecontrol = "50HZ" ;
} elsif ( $ exposurecontrol == 2 ) {
$ exposurecontrol = "60HZ" ;
} elsif ( $ exposurecontrol == 3 ) {
$ exposurecontrol = "Hold" ;
} elsif ( $ exposurecontrol == 4 ) {
$ exposurecontrol = "Outdoor" ;
} elsif ( $ exposurecontrol == 5 ) {
$ exposurecontrol = "None" ;
} elsif ( $ exposurecontrol == 6 ) {
$ exposurecontrol = "Unknown" ;
}
2020-06-28 18:49:16 +00:00
my $ camaudiotype = jboolmap ( $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'detailInfo' } { 'camAudioType' } ) ;
2018-11-20 23:30:55 +00:00
if ( $ camaudiotype == 0 ) {
$ camaudiotype = "Unknown" ;
} elsif ( $ camaudiotype == 1 ) {
$ camaudiotype = "PCM" ;
} elsif ( $ camaudiotype == 2 ) {
$ camaudiotype = "G711" ;
} elsif ( $ camaudiotype == 3 ) {
$ camaudiotype = "G726" ;
} elsif ( $ camaudiotype == 4 ) {
$ camaudiotype = "AAC" ;
} elsif ( $ camaudiotype == 5 ) {
$ camaudiotype = "AMR" ;
}
2020-06-28 18:49:16 +00:00
my $ pdcap = jboolmap ( $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'PDCap' } ) ;
2018-11-20 23:30:55 +00:00
if ( ! $ pdcap || $ pdcap == 0 ) {
$ pdcap = "false" ;
} else {
$ pdcap = "true" ;
}
2020-06-28 18:49:16 +00:00
$ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'video_flip' } = jboolmap ( $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'video_flip' } ) ;
$ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'video_mirror' } = jboolmap ( $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'video_mirror' } ) ;
$ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'blPresetSpeed' } = jboolmap ( $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'blPresetSpeed' } ) ;
2018-11-20 23:30:55 +00:00
my $ clstrmno = $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'detailInfo' } { 'camLiveStreamNo' } ;
$ clstrmno + + if ( $ clstrmno == 0 ) ;
my $ fw = $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'detailInfo' } { 'camFirmware' } ;
readingsBeginUpdate ( $ hash ) ;
2020-07-10 15:16:12 +00:00
readingsBulkUpdate ( $ hash , "CamAudioType" , $ camaudiotype ) ;
readingsBulkUpdate ( $ hash , "CamFirmware" , $ fw ) if ( $ fw ) ;
readingsBulkUpdate ( $ hash , "CamLiveMode" , $ camLiveMode ) ;
readingsBulkUpdate ( $ hash , "CamLiveFps" , $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'detailInfo' } { 'camLiveFps' } ) ;
readingsBulkUpdate ( $ hash , "CamLiveResolution" , $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'detailInfo' } { 'camLiveResolution' } ) ;
readingsBulkUpdate ( $ hash , "CamLiveQuality" , $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'detailInfo' } { 'camLiveQuality' } ) ;
readingsBulkUpdate ( $ hash , "CamLiveStreamNo" , $ clstrmno ) ;
readingsBulkUpdate ( $ hash , "CamExposureMode" , $ exposuremode ) ;
readingsBulkUpdate ( $ hash , "CamExposureControl" , $ exposurecontrol ) ;
readingsBulkUpdate ( $ hash , "CamModel" , $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'detailInfo' } { 'camModel' } ) ;
readingsBulkUpdate ( $ hash , "CamRecShare" , $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'camRecShare' } ) ;
readingsBulkUpdate ( $ hash , "CamRecVolume" , $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'camRecVolume' } ) ;
readingsBulkUpdate ( $ hash , "CamIP" , $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'host' } ) ;
readingsBulkUpdate ( $ hash , "CamNTPServer" , $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'time_server' } ) if ( $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'time_server' } ) ;
readingsBulkUpdate ( $ hash , "CamVendor" , $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'detailInfo' } { 'camVendor' } ) ;
readingsBulkUpdate ( $ hash , "CamVideoType" , $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'camVideoType' } ) ;
readingsBulkUpdate ( $ hash , "CamPreRecTime" , $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'detailInfo' } { 'camPreRecTime' } ) ;
readingsBulkUpdate ( $ hash , "CamPort" , $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'port' } ) ;
readingsBulkUpdate ( $ hash , "CamPtSpeed" , $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'ptSpeed' } ) if ( $ deviceType =~ /PTZ/x ) ;
readingsBulkUpdate ( $ hash , "CamblPresetSpeed" , $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'blPresetSpeed' } ) ;
readingsBulkUpdate ( $ hash , "CamVideoMirror" , $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'video_mirror' } ) ;
readingsBulkUpdate ( $ hash , "CamVideoFlip" , $ data - > { 'data' } - > { 'cameras' } - > [ 0 ] - > { 'video_flip' } ) ;
readingsBulkUpdate ( $ hash , "CamVideoRotate" , $ rotate ) ;
readingsBulkUpdate ( $ hash , "CapPIR" , $ pdcap ) ;
readingsBulkUpdate ( $ hash , "Availability" , $ camStatus ) ;
readingsBulkUpdate ( $ hash , "DeviceType" , $ deviceType ) ;
readingsBulkUpdate ( $ hash , "LastUpdateTime" , $ update_time ) ;
readingsBulkUpdate ( $ hash , "Record" , $ recStatus ) ;
readingsBulkUpdate ( $ hash , "UsedSpaceMB" , $ data - > { 'data' } { 'cameras' } [ 0 ] { 'volume_space' } ) ;
readingsBulkUpdate ( $ hash , "VideoFolder" , AttrVal ( $ name , "videofolderMap" , $ data - > { 'data' } { 'cameras' } [ 0 ] { 'folder' } ) ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
2018-11-20 23:30:55 +00:00
readingsEndUpdate ( $ hash , 1 ) ;
2020-06-28 18:49:16 +00:00
$ hash - > { MODEL } = ReadingsVal ( $ name , "CamVendor" , "" ) . " - " . ReadingsVal ( $ name , "CamModel" , "CAM" ) if ( IsModelCam ( $ hash ) ) ;
2018-11-20 23:30:55 +00:00
Log3 ( $ name , $ verbose , "$name - Informations of camera $camname retrieved" ) ;
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "geteventlist" ) {
2018-12-31 14:26:04 +00:00
my $ eventnum = $ data - > { 'data' } { 'total' } ;
my $ lrec = $ data - > { 'data' } { 'events' } [ 0 ] { name } ;
my $ lrecid = $ data - > { 'data' } { 'events' } [ 0 ] { 'eventId' } ;
2018-11-20 23:30:55 +00:00
my ( $ lastrecstarttime , $ lastrecstoptime ) ;
if ( $ eventnum > 0 ) {
$ lastrecstarttime = $ data - > { 'data' } { 'events' } [ 0 ] { startTime } ;
( $ sec , $ min , $ hour , $ mday , $ mon , $ year , $ wday , $ yday , $ isdst ) = localtime ( $ lastrecstarttime ) ;
2019-01-20 16:07:48 +00:00
if ( $ lang eq "DE" ) {
$ lastrecstarttime = sprintf "%02d.%02d.%04d / %02d:%02d:%02d" , $ mday , $ mon += 1 , $ year += 1900 , $ hour , $ min , $ sec ;
} else {
$ lastrecstarttime = sprintf "%04d-%02d-%02d / %02d:%02d:%02d" , $ year += 1900 , $ mon += 1 , $ mday , $ hour , $ min , $ sec ;
}
2018-11-20 23:30:55 +00:00
$ lastrecstoptime = $ data - > { 'data' } { 'events' } [ 0 ] { stopTime } ;
( $ sec , $ min , $ hour , $ mday , $ mon , $ year , $ wday , $ yday , $ isdst ) = localtime ( $ lastrecstoptime ) ;
$ lastrecstoptime = sprintf "%02d:%02d:%02d" , $ hour , $ min , $ sec ;
}
2019-12-11 21:16:03 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "CamEventNum" , $ eventnum ) ;
readingsBulkUpdate ( $ hash , "CamLastRec" , $ lrec ) if ( $ lrec ) ;
readingsBulkUpdate ( $ hash , "CamLastRecId" , $ lrecid ) if ( $ lrecid ) ;
readingsBulkUpdate ( $ hash , "CamLastRecTime" , $ lastrecstarttime . " - " . $ lastrecstoptime ) if ( $ lastrecstarttime ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
2018-11-20 23:30:55 +00:00
Log3 ( $ name , $ verbose , "$name - Query eventlist of camera $camname retrieved" ) ;
2019-01-27 15:36:11 +00:00
# Versand Aufnahme initiieren
2019-12-11 21:16:03 +00:00
if ( $ hash - > { HELPER } { CANSENDREC } || $ hash - > { HELPER } { CANTELEREC } || $ hash - > { HELPER } { CANCHATREC } ) {
2020-06-28 18:49:16 +00:00
getRec ( $ hash ) ;
2019-01-27 15:36:11 +00:00
}
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "getmotionenum" ) {
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
$ motdetsc = $ data - > { 'data' } { 'MDParam' } { 'source' } ;
2018-11-20 23:30:55 +00:00
$ sensitivity_camCap = $ data - > { 'data' } { 'MDParam' } { 'sensitivity' } { 'camCap' } ;
$ sensitivity_value = $ data - > { 'data' } { 'MDParam' } { 'sensitivity' } { 'value' } ;
$ sensitivity_ssCap = $ data - > { 'data' } { 'MDParam' } { 'sensitivity' } { 'ssCap' } ;
$ threshold_camCap = $ data - > { 'data' } { 'MDParam' } { 'threshold' } { 'camCap' } ;
$ threshold_value = $ data - > { 'data' } { 'MDParam' } { 'threshold' } { 'value' } ;
$ threshold_ssCap = $ data - > { 'data' } { 'MDParam' } { 'threshold' } { 'ssCap' } ;
$ percentage_camCap = $ data - > { 'data' } { 'MDParam' } { 'percentage' } { 'camCap' } ;
$ percentage_value = $ data - > { 'data' } { 'MDParam' } { 'percentage' } { 'value' } ;
$ percentage_ssCap = $ data - > { 'data' } { 'MDParam' } { 'percentage' } { 'ssCap' } ;
$ objectSize_camCap = $ data - > { 'data' } { 'MDParam' } { 'objectSize' } { 'camCap' } ;
$ objectSize_value = $ data - > { 'data' } { 'MDParam' } { 'objectSize' } { 'value' } ;
$ objectSize_ssCap = $ data - > { 'data' } { 'MDParam' } { 'objectSize' } { 'ssCap' } ;
if ( $ motdetsc == - 1 ) {
$ motdetsc = "disabled" ;
}
elsif ( $ motdetsc == 0 ) {
$ motdetsc = "Camera" ;
if ( $ sensitivity_camCap ) {
$ motdetsc . = ", sensitivity: $sensitivity_value" ;
}
if ( $ threshold_camCap ) {
$ motdetsc . = ", threshold: $threshold_value" ;
}
if ( $ percentage_camCap ) {
$ motdetsc . = ", percentage: $percentage_value" ;
}
if ( $ objectSize_camCap ) {
$ motdetsc . = ", objectSize: $objectSize_value" ;
}
}
elsif ( $ motdetsc == 1 ) {
$ motdetsc = "SVS" ;
if ( $ sensitivity_ssCap ) {
$ motdetsc . = ", sensitivity: $sensitivity_value" ;
}
if ( $ threshold_ssCap ) {
$ motdetsc . = ", threshold: $threshold_value" ;
}
if ( $ percentage_ssCap ) {
$ motdetsc . = ", percentage: $percentage_value" ;
}
if ( $ objectSize_ssCap ) {
$ motdetsc . = ", objectSize: $objectSize_value" ;
}
}
# Setreading
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "CamMotDetSc" , $ motdetsc ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , $ verbose , "$name - Enumerate motion detection parameters of camera $camname retrieved" ) ;
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "Getcapabilities" ) {
2018-11-20 23:30:55 +00:00
# Parse Infos
my $ ptzfocus = $ data - > { 'data' } { 'ptzFocus' } ;
if ( $ ptzfocus eq "0" ) {
$ ptzfocus = "false" ;
}
elsif ( $ ptzfocus eq "1" ) {
$ ptzfocus = "support step operation" ;
}
elsif ( $ ptzfocus eq "2" ) {
$ ptzfocus = "support continuous operation" ;
}
my $ ptztilt = $ data - > { 'data' } { 'ptzTilt' } ;
if ( $ ptztilt eq "0" ) {
$ ptztilt = "false" ;
}
elsif ( $ ptztilt eq "1" ) {
$ ptztilt = "support step operation" ;
}
elsif ( $ ptztilt eq "2" ) {
$ ptztilt = "support continuous operation" ;
}
my $ ptzzoom = $ data - > { 'data' } { 'ptzZoom' } ;
if ( $ ptzzoom eq "0" ) {
$ ptzzoom = "false" ;
}
elsif ( $ ptzzoom eq "1" ) {
$ ptzzoom = "support step operation" ;
}
elsif ( $ ptzzoom eq "2" ) {
$ ptzzoom = "support continuous operation" ;
}
my $ ptzpan = $ data - > { 'data' } { 'ptzPan' } ;
if ( $ ptzpan eq "0" ) {
$ ptzpan = "false" ;
}
elsif ( $ ptzpan eq "1" ) {
$ ptzpan = "support step operation" ;
}
elsif ( $ ptzpan eq "2" ) {
$ ptzpan = "support continuous operation" ;
}
my $ ptziris = $ data - > { 'data' } { 'ptzIris' } ;
if ( $ ptziris eq "0" ) {
$ ptziris = "false" ;
}
elsif ( $ ptziris eq "1" ) {
$ ptziris = "support step operation" ;
}
elsif ( $ ptziris eq "2" ) {
$ ptziris = "support continuous operation" ;
}
2020-06-28 18:49:16 +00:00
$ data - > { 'data' } { 'ptzHasObjTracking' } = jboolmap ( $ data - > { 'data' } { 'ptzHasObjTracking' } ) ;
$ data - > { 'data' } { 'audioOut' } = jboolmap ( $ data - > { 'data' } { 'audioOut' } ) ;
$ data - > { 'data' } { 'ptzSpeed' } = jboolmap ( $ data - > { 'data' } { 'ptzSpeed' } ) ;
$ data - > { 'data' } { 'ptzAbs' } = jboolmap ( $ data - > { 'data' } { 'ptzAbs' } ) ;
$ data - > { 'data' } { 'ptzAutoFocus' } = jboolmap ( $ data - > { 'data' } { 'ptzAutoFocus' } ) ;
$ data - > { 'data' } { 'ptzHome' } = jboolmap ( $ data - > { 'data' } { 'ptzHome' } ) ;
2018-11-20 23:30:55 +00:00
# Setreading
readingsBeginUpdate ( $ hash ) ;
2020-06-23 11:24:53 +00:00
readingsBulkUpdate ( $ hash , "CapPTZAutoFocus" , $ data - > { 'data' } { 'ptzAutoFocus' } ) ;
readingsBulkUpdate ( $ hash , "CapAudioOut" , $ data - > { 'data' } { 'audioOut' } ) ;
readingsBulkUpdate ( $ hash , "CapChangeSpeed" , $ data - > { 'data' } { 'ptzSpeed' } ) ;
readingsBulkUpdate ( $ hash , "CapPTZHome" , $ data - > { 'data' } { 'ptzHome' } ) ;
readingsBulkUpdate ( $ hash , "CapPTZAbs" , $ data - > { 'data' } { 'ptzAbs' } ) ;
readingsBulkUpdate ( $ hash , "CapPTZDirections" , $ data - > { 'data' } { 'ptzDirection' } ) ;
readingsBulkUpdate ( $ hash , "CapPTZFocus" , $ ptzfocus ) ;
readingsBulkUpdate ( $ hash , "CapPTZIris" , $ ptziris ) ;
readingsBulkUpdate ( $ hash , "CapPTZObjTracking" , $ data - > { 'data' } { 'ptzHasObjTracking' } ) ;
readingsBulkUpdate ( $ hash , "CapPTZPan" , $ ptzpan ) ;
readingsBulkUpdate ( $ hash , "CapPTZPresetNumber" , $ data - > { 'data' } { 'ptzPresetNumber' } ) ;
readingsBulkUpdate ( $ hash , "CapPTZTilt" , $ ptztilt ) ;
readingsBulkUpdate ( $ hash , "CapPTZZoom" , $ ptzzoom ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
2018-11-20 23:30:55 +00:00
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , $ verbose , "$name - Capabilities of camera $camname retrieved" ) ;
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "Getptzlistpreset" ) {
2018-11-20 23:30:55 +00:00
# Parse PTZ-ListPresets
my $ presetcnt = $ data - > { 'data' } - > { 'total' } ;
my $ cnt = 0 ;
# alle Presets der Kamera mit Id's in Assoziatives Array einlesen
2019-06-23 12:04:42 +00:00
delete $ hash - > { HELPER } { ALLPRESETS } ; # besetehende Presets löschen und neu einlesen
2018-11-20 23:30:55 +00:00
my $ home = "not set" ;
while ( $ cnt < $ presetcnt ) {
# my $presid = $data->{'data'}->{'presets'}->[$cnt]->{'id'};
my $ presid = $ data - > { 'data' } - > { 'presets' } - > [ $ cnt ] - > { 'position' } ;
my $ presname = $ data - > { 'data' } - > { 'presets' } - > [ $ cnt ] - > { 'name' } ;
2019-06-23 12:04:42 +00:00
$ presname =~ s/\s+/_/g ; # Leerzeichen im Namen ersetzen falls vorhanden
2019-04-28 17:20:21 +00:00
$ hash - > { HELPER } { ALLPRESETS } { $ presname } = "$presid" ;
2018-11-20 23:30:55 +00:00
my $ ptype = $ data - > { 'data' } - > { 'presets' } - > [ $ cnt ] - > { 'type' } ;
if ( $ ptype ) {
$ home = $ presname ;
}
$ cnt += 1 ;
}
2019-04-28 17:20:21 +00:00
my @ preskeys = sort ( keys ( % { $ hash - > { HELPER } { ALLPRESETS } } ) ) ;
2018-11-20 23:30:55 +00:00
my $ presetlist = join ( "," , @ preskeys ) ;
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Presets" , $ presetlist ) ;
readingsBulkUpdate ( $ hash , "PresetHome" , $ home ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
# spezifische Attribute für PTZ-Cams verfügbar machen
2020-06-28 18:49:16 +00:00
addptzattr ( $ name ) ;
2018-11-20 23:30:55 +00:00
Log3 ( $ name , $ verbose , "$name - PTZ Presets of camera $camname retrieved" ) ;
2020-06-28 18:49:16 +00:00
} elsif ( $ OpMode eq "Getptzlistpatrol" ) {
2018-11-20 23:30:55 +00:00
# Parse PTZ-ListPatrols
$ patrolcnt = $ data - > { 'data' } - > { 'total' } ;
my $ cnt = 0 ;
# alle Patrols der Kamera mit Id's in Assoziatives Array einlesen
2019-04-28 17:20:21 +00:00
delete $ hash - > { HELPER } { ALLPATROLS } ;
2018-11-20 23:30:55 +00:00
while ( $ cnt < $ patrolcnt ) {
$ patrolid = $ data - > { 'data' } - > { 'patrols' } - > [ $ cnt ] - > { 'id' } ;
$ patrolname = $ data - > { 'data' } - > { 'patrols' } - > [ $ cnt ] - > { 'name' } ;
2019-06-23 12:04:42 +00:00
$ patrolname =~ s/\s+/_/g ; # Leerzeichen im Namen ersetzen falls vorhanden
2019-04-28 17:20:21 +00:00
$ hash - > { HELPER } { ALLPATROLS } { $ patrolname } = $ patrolid ;
2018-11-20 23:30:55 +00:00
$ cnt += 1 ;
}
2019-04-28 17:20:21 +00:00
@ patrolkeys = sort ( keys ( % { $ hash - > { HELPER } { ALLPATROLS } } ) ) ;
2018-11-20 23:30:55 +00:00
$ patrollist = join ( "," , @ patrolkeys ) ;
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Patrols" , $ patrollist ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , $ verbose , "$name - PTZ Patrols of camera $camname retrieved" ) ;
2019-10-26 18:41:42 +00:00
2018-11-20 23:30:55 +00:00
}
} else {
# die API-Operation war fehlerhaft
# Errorcode aus JSON ermitteln
$ errorcode = $ data - > { 'error' } - > { 'code' } ;
# Fehlertext zum Errorcode ermitteln
2020-06-28 18:49:16 +00:00
$ error = expErrors ( $ hash , $ errorcode ) ;
2018-11-20 23:30:55 +00:00
readingsBeginUpdate ( $ hash ) ;
2020-06-30 21:16:26 +00:00
readingsBulkUpdate ( $ hash , "Errorcode" , $ errorcode ) ;
readingsBulkUpdate ( $ hash , "Error" , $ error ) ;
readingsEndUpdate ( $ hash , 1 ) ;
2020-06-28 18:49:16 +00:00
2020-07-10 15:16:12 +00:00
if ( $ errorcode =~ /105/x ) {
2020-06-28 18:49:16 +00:00
Log3 ( $ name , 2 , "$name - ERROR - $errorcode - $error in operation $OpMode -> try new login" ) ;
2019-10-26 18:41:42 +00:00
undef $ data ;
undef $ myjson ;
2020-06-28 18:49:16 +00:00
return login ( $ hash , 'getApiSites' ) ;
}
2018-11-20 23:30:55 +00:00
Log3 ( $ name , 2 , "$name - ERROR - Operation $OpMode of Camera $camname was not successful. Errorcode: $errorcode - $error" ) ;
}
2019-10-26 18:41:42 +00:00
undef $ data ;
undef $ myjson ;
2018-11-20 23:30:55 +00:00
}
# Token freigeben
2020-06-28 18:49:16 +00:00
delActiveToken ( $ hash ) ;
2018-11-20 23:30:55 +00:00
return ;
}
#############################################################################################################################
######### Hilfsroutinen #############
#############################################################################################################################
####################################################################################
# Login in SVS wenn kein oder ungültige Session-ID vorhanden ist
2020-06-28 18:49:16 +00:00
sub login {
2018-11-20 23:30:55 +00:00
my ( $ hash , $ fret ) = @ _ ;
my $ name = $ hash - > { NAME } ;
my $ serveraddr = $ hash - > { SERVERADDR } ;
my $ serverport = $ hash - > { SERVERPORT } ;
my $ apiauth = $ hash - > { HELPER } { APIAUTH } ;
my $ apiauthpath = $ hash - > { HELPER } { APIAUTHPATH } ;
my $ apiauthmaxver = $ hash - > { HELPER } { APIAUTHMAXVER } ;
my $ proto = $ hash - > { PROTOCOL } ;
my $ lrt = AttrVal ( $ name , "loginRetries" , 3 ) ;
my ( $ url , $ param ) ;
2019-01-04 21:14:37 +00:00
delete $ hash - > { HELPER } { SID } ;
2018-11-20 23:30:55 +00:00
# Login und SID ermitteln
2020-06-28 18:49:16 +00:00
Log3 ( $ name , 4 , "$name - --- Begin Function login ---" ) ;
2018-11-20 23:30:55 +00:00
# Credentials abrufen
2020-06-28 18:49:16 +00:00
my ( $ success , $ username , $ password ) = getCredentials ( $ hash , 0 , "svs" ) ;
2018-11-20 23:30:55 +00:00
unless ( $ success ) {
Log3 ( $ name , 2 , "$name - Credentials couldn't be retrieved successfully - make sure you've set it with \"set $name credentials <username> <password>\"" ) ;
2020-06-28 18:49:16 +00:00
delActiveToken ( $ hash ) ;
2018-11-20 23:30:55 +00:00
return ;
}
if ( $ hash - > { HELPER } { LOGINRETRIES } >= $ lrt ) {
# login wird abgebrochen, Freigabe Funktionstoken
2020-06-28 18:49:16 +00:00
delActiveToken ( $ hash ) ;
Log3 ( $ name , 2 , "$name - ERROR - Login or privilege of user $username unsuccessful" ) ;
2018-11-20 23:30:55 +00:00
return ;
}
2019-06-28 19:36:00 +00:00
my $ httptimeout = AttrVal ( $ name , "httptimeout" , 60 ) ;
$ httptimeout = 60 if ( $ httptimeout < 60 ) ;
Log3 ( $ name , 4 , "$name - HTTP-Call login will be done with httptimeout-Value: $httptimeout s" ) ;
2018-11-20 23:30:55 +00:00
my $ urlwopw ; # nur zur Anzeige bei verbose >= 4 und "showPassInLog" == 0
# sid in Quotes einschliessen oder nicht -> bei Problemen mit 402 - Permission denied
my $ sid = AttrVal ( $ name , "noQuotesForSID" , "0" ) == 1 ? "sid" : "\"sid\"" ;
if ( AttrVal ( $ name , "session" , "DSM" ) eq "SurveillanceStation" ) {
$ url = "$proto://$serveraddr:$serverport/webapi/$apiauthpath?api=$apiauth&version=$apiauthmaxver&method=Login&account=$username&passwd=$password&session=SurveillanceStation&format=$sid" ;
$ urlwopw = "$proto://$serveraddr:$serverport/webapi/$apiauthpath?api=$apiauth&version=$apiauthmaxver&method=Login&account=$username&passwd=*****&session=SurveillanceStation&format=$sid" ;
} else {
$ url = "$proto://$serveraddr:$serverport/webapi/$apiauthpath?api=$apiauth&version=$apiauthmaxver&method=Login&account=$username&passwd=$password&format=$sid" ;
$ urlwopw = "$proto://$serveraddr:$serverport/webapi/$apiauthpath?api=$apiauth&version=$apiauthmaxver&method=Login&account=$username&passwd=*****&format=$sid" ;
}
AttrVal ( $ name , "showPassInLog" , "0" ) == 1 ? Log3 ( $ name , 4 , "$name - Call-Out now: $url" ) : Log3 ( $ name , 4 , "$name - Call-Out now: $urlwopw" ) ;
$ hash - > { HELPER } { LOGINRETRIES } + + ;
$ param = {
url = > $ url ,
timeout = > $ httptimeout ,
hash = > $ hash ,
2020-06-28 18:49:16 +00:00
user = > $ username ,
funcret = > $ fret ,
2018-11-20 23:30:55 +00:00
method = > "GET" ,
header = > "Accept: application/json" ,
2020-06-28 18:49:16 +00:00
callback = > \ & loginReturn
2018-11-20 23:30:55 +00:00
} ;
HttpUtils_NonblockingGet ( $ param ) ;
2020-07-01 19:24:20 +00:00
return ;
2018-11-20 23:30:55 +00:00
}
2020-06-30 21:16:26 +00:00
sub loginReturn {
2018-11-20 23:30:55 +00:00
my ( $ param , $ err , $ myjson ) = @ _ ;
my $ hash = $ param - > { hash } ;
my $ name = $ hash - > { NAME } ;
my $ username = $ param - > { user } ;
my $ fret = $ param - > { funcret } ;
my $ subref = \ & $ fret ;
my $ success ;
# Verarbeitung der asynchronen Rückkehrdaten aus sub "login_nonbl"
if ( $ err ne "" ) {
# ein Fehler bei der HTTP Abfrage ist aufgetreten
Log3 ( $ name , 2 , "$name - error while requesting " . $ param - > { url } . " - $err" ) ;
readingsSingleUpdate ( $ hash , "Error" , $ err , 1 ) ;
2020-06-28 18:49:16 +00:00
return login ( $ hash , $ fret ) ;
2018-11-20 23:30:55 +00:00
} elsif ( $ myjson ne "" ) {
# wenn die Abfrage erfolgreich war ($data enthält die Ergebnisdaten des HTTP Aufrufes)
2020-06-28 18:49:16 +00:00
# Evaluiere ob Daten im JSON-Format empfangen wurden
( $ hash , $ success ) = evaljson ( $ hash , $ myjson ) ;
2018-11-20 23:30:55 +00:00
unless ( $ success ) {
Log3 ( $ name , 4 , "$name - no JSON-Data returned: " . $ myjson ) ;
2020-06-28 18:49:16 +00:00
delActiveToken ( $ hash ) ;
2018-11-20 23:30:55 +00:00
return ;
}
my $ data = decode_json ( $ myjson ) ;
# Logausgabe decodierte JSON Daten
Log3 ( $ name , 5 , "$name - JSON decoded: " . Dumper $ data ) ;
$ success = $ data - > { 'success' } ;
if ( $ success ) {
2020-06-28 18:49:16 +00:00
# login war erfolgreich
2018-11-20 23:30:55 +00:00
my $ sid = $ data - > { 'data' } - > { 'sid' } ;
# Session ID in hash eintragen
$ hash - > { HELPER } { SID } = $ sid ;
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "none" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , 4 , "$name - Login of User $username successful - SID: $sid" ) ;
2020-06-28 18:49:16 +00:00
return & $ subref ( $ hash ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
} else {
2018-11-20 23:30:55 +00:00
# Errorcode aus JSON ermitteln
my $ errorcode = $ data - > { 'error' } - > { 'code' } ;
# Fehlertext zum Errorcode ermitteln
2020-06-28 18:49:16 +00:00
my $ error = expErrorsAuth ( $ hash , $ errorcode ) ;
2018-11-20 23:30:55 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , $ errorcode ) ;
readingsBulkUpdate ( $ hash , "Error" , $ error ) ;
readingsEndUpdate ( $ hash , 1 ) ;
Log3 ( $ name , 3 , "$name - Login of User $username unsuccessful. Code: $errorcode - $error - try again" ) ;
2020-06-28 18:49:16 +00:00
return login ( $ hash , $ fret ) ;
2018-11-20 23:30:55 +00:00
}
}
2020-07-01 19:24:20 +00:00
2020-06-28 18:49:16 +00:00
return login ( $ hash , $ fret ) ;
2018-11-20 23:30:55 +00:00
}
###################################################################################
# Funktion logout
###################################################################################
2020-06-28 18:49:16 +00:00
sub logout {
2020-06-21 20:37:08 +00:00
my $ hash = shift ;
my $ name = $ hash - > { NAME } ;
my $ serveraddr = $ hash - > { SERVERADDR } ;
my $ serverport = $ hash - > { SERVERPORT } ;
my $ apiauth = $ hash - > { HELPER } { APIAUTH } ;
my $ apiauthpath = $ hash - > { HELPER } { APIAUTHPATH } ;
my $ apiauthmaxver = $ hash - > { HELPER } { APIAUTHMAXVER } ;
my $ sid = $ hash - > { HELPER } { SID } ;
my $ proto = $ hash - > { PROTOCOL } ;
2018-11-20 23:30:55 +00:00
my $ url ;
my $ param ;
my $ httptimeout ;
Log3 ( $ name , 4 , "$name - ####################################################" ) ;
Log3 ( $ name , 4 , "$name - ### start cam operation $hash->{OPMODE} " ) ;
Log3 ( $ name , 4 , "$name - ####################################################" ) ;
2020-06-28 18:49:16 +00:00
Log3 ( $ name , 4 , "$name - --- Begin Function logout nonblocking ---" ) ;
2018-11-20 23:30:55 +00:00
$ httptimeout = AttrVal ( $ name , "httptimeout" , 4 ) ;
Log3 ( $ name , 5 , "$name - HTTP-Call will be done with httptimeout-Value: $httptimeout s" ) ;
if ( AttrVal ( $ name , "session" , "DSM" ) eq "SurveillanceStation" ) {
$ url = "$proto://$serveraddr:$serverport/webapi/$apiauthpath?api=$apiauth&version=$apiauthmaxver&method=Logout&session=SurveillanceStation&_sid=$sid" ;
} else {
$ url = "$proto://$serveraddr:$serverport/webapi/$apiauthpath?api=$apiauth&version=$apiauthmaxver&method=Logout&_sid=$sid" ;
}
$ param = {
url = > $ url ,
timeout = > $ httptimeout ,
hash = > $ hash ,
method = > "GET" ,
header = > "Accept: application/json" ,
2020-06-28 18:49:16 +00:00
callback = > \ & logoutReturn
2018-11-20 23:30:55 +00:00
} ;
2020-07-01 19:24:20 +00:00
HttpUtils_NonblockingGet ( $ param ) ;
return ;
2018-11-20 23:30:55 +00:00
}
2020-06-28 18:49:16 +00:00
sub logoutReturn {
2018-11-20 23:30:55 +00:00
my ( $ param , $ err , $ myjson ) = @ _ ;
my $ hash = $ param - > { hash } ;
my $ name = $ hash - > { NAME } ;
my $ sid = $ hash - > { HELPER } { SID } ;
2020-06-28 18:49:16 +00:00
my ( $ success , $ username ) = getCredentials ( $ hash , 0 , "svs" ) ;
2018-11-20 23:30:55 +00:00
my $ OpMode = $ hash - > { OPMODE } ;
my $ data ;
my $ error ;
my $ errorcode ;
2018-12-09 08:19:38 +00:00
if ( $ err ne "" ) {
2018-11-20 23:30:55 +00:00
# wenn ein Fehler bei der HTTP Abfrage aufgetreten ist
2018-12-09 08:19:38 +00:00
Log3 ( $ name , 2 , "$name - error while requesting " . $ param - > { url } . " - $err" ) ;
2020-06-28 18:49:16 +00:00
readingsSingleUpdate ( $ hash , "Error" , $ err , 1 ) ;
2018-12-09 08:19:38 +00:00
} elsif ( $ myjson ne "" ) {
2018-11-20 23:30:55 +00:00
# wenn die Abfrage erfolgreich war ($data enthält die Ergebnisdaten des HTTP Aufrufes)
Log3 ( $ name , 4 , "$name - URL-Call: " . $ param - > { url } ) ;
# Evaluiere ob Daten im JSON-Format empfangen wurden
2020-06-28 18:49:16 +00:00
( $ hash , $ success ) = evaljson ( $ hash , $ myjson ) ;
2018-11-20 23:30:55 +00:00
unless ( $ success ) {
Log3 ( $ name , 4 , "$name - Data returned: " . $ myjson ) ;
2020-06-28 18:49:16 +00:00
delActiveToken ( $ hash ) ;
2018-11-20 23:30:55 +00:00
return ;
}
$ data = decode_json ( $ myjson ) ;
# Logausgabe decodierte JSON Daten
Log3 ( $ name , 4 , "$name - JSON returned: " . Dumper $ data ) ;
$ success = $ data - > { 'success' } ;
if ( $ success ) {
# die Logout-URL konnte erfolgreich aufgerufen werden
2019-03-25 22:23:11 +00:00
Log3 ( $ name , 2 , "$name - Session of User \"$username\" terminated - session ID \"$sid\" deleted" ) ;
2018-11-20 23:30:55 +00:00
} else {
# Errorcode aus JSON ermitteln
$ errorcode = $ data - > { 'error' } - > { 'code' } ;
# Fehlertext zum Errorcode ermitteln
2020-06-28 18:49:16 +00:00
$ error = expErrorsAuth ( $ hash , $ errorcode ) ;
2018-11-20 23:30:55 +00:00
Log3 ( $ name , 2 , "$name - ERROR - Logout of User $username was not successful, however SID: \"$sid\" has been deleted. Errorcode: $errorcode - $error" ) ;
}
}
# Session-ID aus Helper-hash löschen
delete $ hash - > { HELPER } { SID } ;
# ausgeführte Funktion ist erledigt (auch wenn logout nicht erfolgreich), Freigabe Funktionstoken
2020-06-28 18:49:16 +00:00
delActiveToken ( $ hash ) ;
2018-12-06 22:22:15 +00:00
2019-03-25 22:23:11 +00:00
CancelDelayedShutdown ( $ name ) ;
2020-06-21 20:37:08 +00:00
2018-11-20 23:30:55 +00:00
return ;
}
2018-12-06 22:22:15 +00:00
#############################################################################################
# Autocreate für Kameras
# $sn = Name der Kamera in SVS
#############################################################################################
2020-06-28 18:49:16 +00:00
sub setAutocreate {
2018-12-06 22:22:15 +00:00
my ( $ hash , $ sn ) = @ _ ;
my $ name = $ hash - > { NAME } ;
my $ type = $ hash - > { TYPE } ;
2018-12-12 19:08:36 +00:00
my ( $ cmd , $ err , $ camname , $ camhash ) ;
my $ dcn = ( devspec2array ( "TYPE=SSCam:FILTER=CAMNAME=$sn" ) ) [ 0 ] ; # ist das Device aus der SVS bereits angelegt ?
$ camhash = $ defs { $ dcn } if ( $ dcn ) ; # existiert ein Hash des Devices ?
2018-12-06 22:22:15 +00:00
if ( ! $ camhash ) {
2018-12-12 19:08:36 +00:00
$ camname = "SSCam." . makeDeviceName ( $ sn ) ; # erlaubten Kameranamen für FHEM erzeugen
2020-04-14 15:41:21 +00:00
my $ arg = $ hash - > { SERVERADDR } . " " . $ hash - > { SERVERPORT } . " " . $ hash - > { PROTOCOL } ;
$ cmd = "$camname $type $sn $arg" ;
2018-12-06 22:22:15 +00:00
Log3 ( $ name , 2 , "$name - Autocreate camera: define $cmd" ) ;
2020-04-14 15:41:21 +00:00
$ err = CommandDefine ( undef , $ cmd ) ;
2018-12-06 22:22:15 +00:00
if ( $ err ) {
Log3 ( $ name , 1 , "ERROR: $err" ) ;
} else {
2020-04-14 15:41:21 +00:00
my $ room = AttrVal ( $ name , "room" , "SSCam" ) ;
my $ session = AttrVal ( $ name , "session" , "DSM" ) ;
CommandAttr ( undef , "$camname room $room" ) ;
CommandAttr ( undef , "$camname session $session" ) ;
CommandAttr ( undef , "$camname icon it_camera" ) ;
CommandAttr ( undef , "$camname devStateIcon .*isable.*:set_off .*nap:li_wht_on" ) ;
CommandAttr ( undef , "$camname pollcaminfoall 210" ) ;
2020-06-28 18:49:16 +00:00
CommandAttr ( undef , "$camname pollnologging 1" ) ;
2020-04-14 15:41:21 +00:00
CommandAttr ( undef , "$camname httptimeout 20" ) ;
2018-12-06 22:22:15 +00:00
# Credentials abrufen und setzen
2020-06-28 18:49:16 +00:00
my ( $ success , $ username , $ password ) = getCredentials ( $ hash , 0 , "svs" ) ;
2018-12-06 22:22:15 +00:00
if ( $ success ) {
CommandSet ( undef , "$camname credentials $username $password" ) ;
}
}
2019-05-22 17:31:17 +00:00
2018-12-06 22:22:15 +00:00
} else {
2018-12-12 19:08:36 +00:00
Log3 ( $ name , 4 , "$name - Autocreate - SVS camera \"$sn\" already defined by \"$dcn\" " ) ;
2018-12-06 22:22:15 +00:00
$ camname = "" ;
}
return ( $ err , $ camname ) ;
2018-12-30 20:20:27 +00:00
}
2018-12-06 22:22:15 +00:00
2018-11-20 23:30:55 +00:00
###############################################################################
# Test ob JSON-String empfangen wurde
###############################################################################
2020-06-28 18:49:16 +00:00
sub evaljson {
2018-11-20 23:30:55 +00:00
my ( $ hash , $ myjson ) = @ _ ;
my $ OpMode = $ hash - > { OPMODE } ;
my $ name = $ hash - > { NAME } ;
my $ success = 1 ;
eval { decode_json ( $ myjson ) } or do
{
2018-12-31 14:26:04 +00:00
if ( ( $ hash - > { HELPER } { RUNVIEW } && $ hash - > { HELPER } { RUNVIEW } =~ m/^live_.*hls$/ ) || $ OpMode =~ m/^.*_hls$/ ) {
2018-11-20 23:30:55 +00:00
# HLS aktivate/deaktivate bringt kein JSON wenn bereits aktiviert/deaktiviert
Log3 ( $ name , 5 , "$name - HLS-activation data return: $myjson" ) ;
2020-07-10 15:16:12 +00:00
if ( $ myjson =~ m/{"success":true}/x ) {
2018-11-20 23:30:55 +00:00
$ success = 1 ;
$ myjson = '{"success":true}' ;
}
} else {
$ success = 0 ;
2019-05-22 17:31:17 +00:00
2018-11-20 23:30:55 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "Errorcode" , "none" ) ;
readingsBulkUpdate ( $ hash , "Error" , "malformed JSON string received" ) ;
readingsEndUpdate ( $ hash , 1 ) ;
}
} ;
2020-07-01 19:24:20 +00:00
return ( $ hash , $ success , $ myjson ) ;
2018-11-20 23:30:55 +00:00
}
######################################################################################################
2020-07-13 20:38:52 +00:00
# Refresh eines Raumes
2018-11-20 23:30:55 +00:00
# $hash, $pload (1=Page reload), SSCam-state-Event(1=Event), SSCamSTRM-Event (1=Event)
######################################################################################################
2020-06-30 21:16:26 +00:00
sub roomRefresh {
2018-11-20 23:30:55 +00:00
my ( $ hash , $ pload , $ lpoll_scm , $ lpoll_strm ) = @ _ ;
2019-07-12 20:10:53 +00:00
my ( $ name , $ st ) ;
2020-07-18 07:10:26 +00:00
if ( ref $ hash ne "HASH" ) {
( $ name , $ pload , $ lpoll_scm , $ lpoll_strm ) = split "," , $ hash ;
$ hash = $ defs { $ name } ;
2018-11-20 23:30:55 +00:00
} else {
2020-07-18 07:10:26 +00:00
$ name = $ hash - > { NAME } ;
2018-11-20 23:30:55 +00:00
}
2020-07-18 07:10:26 +00:00
2018-11-20 23:30:55 +00:00
my $ fpr = 0 ;
2019-07-12 20:10:53 +00:00
# SSCamSTRM-Device mit hinterlegter FUUID ($hash->{HELPER}{INFORM}) selektieren
my @ spgs = devspec2array ( "TYPE=SSCamSTRM" ) ;
my $ room = "" ;
2020-07-18 07:10:26 +00:00
2020-07-18 12:34:49 +00:00
for my $ sd ( @ spgs ) {
if ( $ defs { $ sd } { LINKPARENT } eq $ name ) {
next if ( IsDisabled ( $ defs { $ sd } { NAME } ) || ! $ hash - > { HELPER } { INFORM } || $ hash - > { HELPER } { INFORM } ne $ defs { $ sd } { FUUID } ) ;
$ fpr = AttrVal ( $ defs { $ sd } { NAME } , "forcePageRefresh" , 0 ) ;
$ room = AttrVal ( $ defs { $ sd } { NAME } , "room" , "" ) ;
Log3 ( $ name , 4 , "$name - roomRefresh - pagerefresh: $defs{$sd}{NAME}" ) if ( $ fpr ) ;
2019-07-12 20:10:53 +00:00
}
}
2018-11-20 23:30:55 +00:00
# Page-Reload
2019-07-12 20:10:53 +00:00
if ( $ pload && $ room ) {
if ( ! $ fpr ) {
# nur Räume mit dem SSCamSTRM-Device reloaden
2020-06-28 18:49:16 +00:00
my @ rooms = split ( "," , $ room ) ;
2020-07-18 12:34:49 +00:00
for my $ r ( @ rooms ) {
2019-07-12 20:10:53 +00:00
{ map { FW_directNotify ( "FILTER=room=$r" , "#FHEMWEB:$_" , "location.reload('true')" , "" ) } devspec2array ( "TYPE=FHEMWEB" ) }
2020-06-28 18:49:16 +00:00
}
2019-07-12 20:10:53 +00:00
}
2020-07-18 07:10:26 +00:00
2019-07-12 20:10:53 +00:00
} elsif ( $ pload || $ fpr ) {
# trifft zu bei Detailansicht oder im FLOORPLAN bzw. Dashboard oder wenn Seitenrefresh mit dem
# SSCamSTRM-Attribut "forcePageRefresh" erzwungen wird
2018-11-20 23:30:55 +00:00
{ map { FW_directNotify ( "#FHEMWEB:$_" , "location.reload('true')" , "" ) } devspec2array ( "TYPE=FHEMWEB" ) }
2019-07-12 20:10:53 +00:00
}
2018-11-20 23:30:55 +00:00
# Aufnahmestatus/Disabledstatus in state abbilden & SSCam-Device state setzen (mit/ohne Event)
2019-07-12 20:10:53 +00:00
$ st = ( ReadingsVal ( $ name , "Availability" , "enabled" ) eq "disabled" ) ? "disabled" : ( ReadingsVal ( $ name , "Record" , "" ) eq "Start" ) ? "on" : "off" ;
2018-11-20 23:30:55 +00:00
if ( $ lpoll_scm ) {
readingsSingleUpdate ( $ hash , "state" , $ st , 1 ) ;
} else {
readingsSingleUpdate ( $ hash , "state" , $ st , 0 ) ;
}
2020-07-18 12:34:49 +00:00
# parentState des SSCamSTRM-Device updaten ($hash->{HELPER}{INFORM} des LINKPARENT Devices muss FUUID des Streaming Devices haben)
2020-07-18 07:10:26 +00:00
if ( $ lpoll_strm ) {
$ st = ReadingsVal ( $ name , "state" , "initialized" ) ;
2020-07-18 12:34:49 +00:00
for my $ sp ( @ spgs ) {
if ( $ defs { $ sp } { LINKPARENT } eq $ name ) {
next if ( IsDisabled ( $ defs { $ sp } { NAME } ) || ! $ hash - > { HELPER } { INFORM } || $ hash - > { HELPER } { INFORM } ne $ defs { $ sp } { FUUID } ) ;
2020-07-18 07:10:26 +00:00
2020-07-18 12:34:49 +00:00
readingsBeginUpdate ( $ defs { $ sp } ) ;
readingsBulkUpdate ( $ defs { $ sp } , "parentState" , $ st ) ;
readingsBulkUpdate ( $ defs { $ sp } , "state" , "updated" ) ;
readingsEndUpdate ( $ defs { $ sp } , 1 ) ;
2020-07-18 07:10:26 +00:00
2020-07-18 12:34:49 +00:00
Log3 ( $ name , 4 , "$name - roomRefresh - caller: $sp, FUUID: $hash->{HELPER}{INFORM}" ) ;
2020-07-18 07:10:26 +00:00
delete $ hash - > { HELPER } { INFORM } ;
}
2018-11-20 23:30:55 +00:00
}
}
return ;
}
###############################################################################
2020-06-23 10:15:44 +00:00
# Eigenschaften des Device liefern
2018-11-20 23:30:55 +00:00
###############################################################################
2020-06-28 18:49:16 +00:00
sub IsModelCam { # Modelleigenschaft liefern Cam-> 1 , sonst 0
2020-06-21 20:37:08 +00:00
my $ hash = shift ;
my $ m = ( $ hash - > { MODEL } ne "SVS" ) ? 1 : 0 ;
return $ m ;
2018-11-20 23:30:55 +00:00
}
2020-06-28 18:49:16 +00:00
sub IsCapHLS { # HLS Lieferfähigkeit (existiert "SYNO.SurveillanceStation.VideoStream" & Reading)
2020-06-23 10:15:44 +00:00
my ( $ hash ) = @ _ ;
my $ name = $ hash - > { NAME } ;
my $ cap = 0 ;
my $ api = $ hash - > { HELPER } { APIVIDEOSTMSMAXVER } ;
my $ csf = ( ReadingsVal ( $ name , "CamStreamFormat" , "MJPEG" ) eq "HLS" ) ? 1 : 0 ;
$ cap = 1 if ( $ api && $ csf ) ;
return $ cap ;
}
2020-06-28 18:49:16 +00:00
sub IsCapZoom { # PTZ Zoom Eigenschaft
2020-06-23 10:15:44 +00:00
my $ hash = shift ;
my $ name = $ hash - > { NAME } ;
2020-07-10 19:12:49 +00:00
2020-06-23 11:38:46 +00:00
my $ cap = ReadingsVal ( $ name , "CapPTZZoom" , "false" ) ne "false" ? 1 : 0 ;
2020-06-23 11:24:53 +00:00
return $ cap ;
}
2020-06-28 18:49:16 +00:00
sub IsCapPTZPan { # PTZ Pan Eigenschaft
2020-06-23 11:24:53 +00:00
my $ hash = shift ;
my $ name = $ hash - > { NAME } ;
2020-06-23 20:32:00 +00:00
2020-06-23 11:38:46 +00:00
my $ cap = ReadingsVal ( $ name , "CapPTZPan" , "false" ) ne "false" ? 1 : 0 ;
return $ cap ;
}
2020-06-28 18:49:16 +00:00
sub IsCapPTZTilt { # PTZ Tilt Eigenschaft
2020-06-23 11:38:46 +00:00
my $ hash = shift ;
my $ name = $ hash - > { NAME } ;
2020-06-23 20:32:00 +00:00
2020-06-23 11:38:46 +00:00
my $ cap = ReadingsVal ( $ name , "CapPTZTilt" , "false" ) ne "false" ? 1 : 0 ;
2020-06-23 10:15:44 +00:00
return $ cap ;
}
2020-06-28 18:49:16 +00:00
sub IsCapPTZObjTrack { # PTZ Objekt Tracking Eigenschaft
2020-06-24 15:24:16 +00:00
my $ hash = shift ;
my $ name = $ hash - > { NAME } ;
my $ cap = ReadingsVal ( $ name , "CapPTZObjTracking" , "false" ) ne "false" ? 1 : 0 ;
return $ cap ;
}
2020-06-28 18:49:16 +00:00
sub IsCapPTZAbs { # PTZ go to absolute Position Eigenschaft
2020-06-24 15:24:16 +00:00
my $ hash = shift ;
my $ name = $ hash - > { NAME } ;
my $ cap = ReadingsVal ( $ name , "CapPTZAbs" , "false" ) ne "false" ? 1 : 0 ;
return $ cap ;
}
2020-06-28 18:49:16 +00:00
sub IsCapPTZDir { # PTZ Directions möglich Eigenschaft
2020-06-24 15:24:16 +00:00
my $ hash = shift ;
my $ name = $ hash - > { NAME } ;
my $ cap = ReadingsVal ( $ name , "CapPTZDirections" , 0 ) > 0 ? 1 : 0 ;
return $ cap ;
}
2020-06-23 11:38:46 +00:00
2020-06-28 18:49:16 +00:00
sub IsCapPIR { # hat Kamera einen PIR
2020-06-25 06:21:49 +00:00
my $ hash = shift ;
my $ name = $ hash - > { NAME } ;
my $ cap = ReadingsVal ( $ name , "CapPIR" , "false" ) ne "false" ? 1 : 0 ;
return $ cap ;
}
2018-11-20 23:30:55 +00:00
###############################################################################
2019-01-15 22:25:17 +00:00
# JSON Boolean Test und Mapping
2018-11-20 23:30:55 +00:00
###############################################################################
2020-06-28 18:49:16 +00:00
sub jboolmap {
2018-11-20 23:30:55 +00:00
my ( $ bool ) = @ _ ;
if ( JSON:: is_bool ( $ bool ) ) {
$ bool = $ bool ? "true" : "false" ;
}
return $ bool ;
}
###############################################################################
2019-01-15 22:25:17 +00:00
# Ermittlung Anzahl und Größe der abzurufenden Schnappschußdaten
2019-03-04 19:09:35 +00:00
#
# $force = wenn auf jeden Fall der/die letzten Snaps von der SVS
# abgerufen werden sollen unabhängig ob LastSnapId vorhanden ist
2018-11-20 23:30:55 +00:00
###############################################################################
2020-06-28 18:49:16 +00:00
sub snapLimSize {
2019-03-04 19:09:35 +00:00
my ( $ hash , $ force ) = @ _ ;
2018-11-20 23:30:55 +00:00
my $ name = $ hash - > { NAME } ;
my ( $ slim , $ ssize ) ;
if ( ! AttrVal ( $ name , "snapGalleryBoost" , 0 ) ) {
$ slim = 1 ;
2018-12-30 20:20:27 +00:00
$ ssize = 0 ;
2018-11-20 23:30:55 +00:00
} else {
$ hash - > { HELPER } { GETSNAPGALLERY } = 1 ;
2020-06-28 18:49:16 +00:00
$ slim = AttrVal ( $ name , "snapGalleryNumber" , $ defSlim ) ; # Anzahl der abzurufenden Snaps
2019-02-06 21:06:40 +00:00
}
if ( AttrVal ( $ name , "snapGallerySize" , "Icon" ) eq "Full" ) {
$ ssize = 2 ; # Full Size
} else {
$ ssize = 1 ; # Icon Size
2019-01-04 20:07:35 +00:00
}
2019-12-09 20:51:32 +00:00
if ( $ hash - > { HELPER } { CANSENDSNAP } || $ hash - > { HELPER } { CANTELESNAP } || $ hash - > { HELPER } { CANCHATSNAP } ) {
2019-01-14 20:09:44 +00:00
# Versand Schnappschuß darf erfolgen falls gewünscht
2019-12-09 20:51:32 +00:00
$ ssize = 2 ; # Full Size für EMail/Telegram/SSChatBot -Versand
2019-01-04 20:07:35 +00:00
}
2019-01-14 20:09:44 +00:00
2019-01-15 22:25:17 +00:00
if ( $ hash - > { HELPER } { SNAPNUM } ) {
$ slim = delete $ hash - > { HELPER } { SNAPNUM } ; # enthält die Anzahl der ausgelösten Schnappschüsse
$ hash - > { HELPER } { GETSNAPGALLERY } = 1 ; # Steuerbit für Snap-Galerie bzw. Daten mehrerer Schnappschüsse abrufen
}
2019-02-06 21:06:40 +00:00
my @ strmdevs = devspec2array ( "TYPE=SSCamSTRM:FILTER=PARENT=$name:FILTER=MODEL=lastsnap" ) ;
if ( scalar ( @ strmdevs ) >= 1 ) {
Log3 ( $ name , 4 , "$name - Streaming devs of type \"lastsnap\": @strmdevs" ) ;
}
2019-03-04 19:09:35 +00:00
$ hash - > { HELPER } { GETSNAPGALLERY } = 1 if ( $ force ) ; # Bugfix 04.03.2019 Forum:https://forum.fhem.de/index.php/topic,45671.msg914685.html#msg914685
2018-11-20 23:30:55 +00:00
return ( $ slim , $ ssize ) ;
}
###############################################################################
# Helper für listLog-Argumente extrahieren
###############################################################################
2020-06-28 18:49:16 +00:00
sub extlogargs {
2018-11-20 23:30:55 +00:00
my ( $ hash , $ a ) = @ _ ;
2020-07-10 15:16:12 +00:00
$ hash - > { HELPER } { LISTLOGSEVERITY } = ( split ( "severity:" , $ a ) ) [ 1 ] if ( lc ( $ a ) =~ m/^severity:/x ) ;
$ hash - > { HELPER } { LISTLOGLIMIT } = ( split ( "limit:" , $ a ) ) [ 1 ] if ( lc ( $ a ) =~ m/^limit:/x ) ;
$ hash - > { HELPER } { LISTLOGMATCH } = ( split ( "match:" , $ a ) ) [ 1 ] if ( lc ( $ a ) =~ m/^match:/x ) ;
2018-11-20 23:30:55 +00:00
return ;
}
###############################################################################
# Helper für optimizeParams-Argumente extrahieren
###############################################################################
2020-06-28 18:49:16 +00:00
sub extoptpar {
2018-11-20 23:30:55 +00:00
my ( $ hash , $ a , $ cpcl ) = @ _ ;
2020-07-10 15:16:12 +00:00
$ hash - > { HELPER } { MIRROR } = ( split ( "mirror:" , $ a ) ) [ 1 ] if ( lc ( $ a ) =~ m/^mirror:/x ) ;
$ hash - > { HELPER } { FLIP } = ( split ( "flip:" , $ a ) ) [ 1 ] if ( lc ( $ a ) =~ m/^flip:/x ) ;
$ hash - > { HELPER } { ROTATE } = ( split ( "rotate:" , $ a ) ) [ 1 ] if ( lc ( $ a ) =~ m/^rotate:/x ) ;
$ hash - > { HELPER } { NTPSERV } = ( split ( "ntp:" , $ a ) ) [ 1 ] if ( lc ( $ a ) =~ m/^ntp:/x ) ;
2018-11-20 23:30:55 +00:00
$ hash - > { HELPER } { CHKLIST } = ( $ hash - > { HELPER } { NTPSERV } ? $ cpcl - > { ntp } : 0 ) +
( $ hash - > { HELPER } { MIRROR } ? $ cpcl - > { mirror } : 0 ) +
( $ hash - > { HELPER } { FLIP } ? $ cpcl - > { flip } : 0 ) +
2020-06-28 18:49:16 +00:00
( $ hash - > { HELPER } { ROTATE } ? $ cpcl - > { rotate } : 0 ) ;
2018-11-20 23:30:55 +00:00
return ;
}
###############################################################################
# Clienthash übernehmen oder zusammenstellen
# Identifikation ob über FHEMWEB ausgelöst oder nicht -> erstellen $hash->CL
2020-06-21 20:37:08 +00:00
###############################################################################
2020-06-28 18:49:16 +00:00
sub getClHash {
2018-11-20 23:30:55 +00:00
my ( $ hash , $ nobgd ) = @ _ ;
my $ name = $ hash - > { NAME } ;
my $ ret ;
if ( $ nobgd ) {
# nur übergebenen CL-Hash speichern,
2020-06-28 18:49:16 +00:00
# keine Hintergrundverarbeitung bzw. synthetische Erstellung CL-Hash
$ hash - > { HELPER } { CL } { 1 } = $ hash - > { CL } ;
2020-06-30 21:16:26 +00:00
return ;
2018-11-20 23:30:55 +00:00
}
if ( ! defined ( $ hash - > { CL } ) ) {
# Clienthash wurde nicht übergeben und wird erstellt (FHEMWEB Instanzen mit canAsyncOutput=1 analysiert)
2020-06-28 18:49:16 +00:00
my $ outdev ;
my @ webdvs = devspec2array ( "TYPE=FHEMWEB:FILTER=canAsyncOutput=1:FILTER=STATE=Connected" ) ;
my $ i = 1 ;
2020-06-30 21:16:26 +00:00
for ( @ webdvs ) {
2018-11-20 23:30:55 +00:00
$ outdev = $ _ ;
next if ( ! $ defs { $ outdev } ) ;
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { CL } { $ i } - > { NAME } = $ defs { $ outdev } { NAME } ;
2018-11-20 23:30:55 +00:00
$ hash - > { HELPER } { CL } { $ i } - > { NR } = $ defs { $ outdev } { NR } ;
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { CL } { $ i } - > { COMP } = 1 ;
$ i + + ;
2018-11-20 23:30:55 +00:00
}
} else {
# übergebenen CL-Hash in Helper eintragen
2020-06-28 18:49:16 +00:00
$ hash - > { HELPER } { CL } { 1 } = $ hash - > { CL } ;
2018-11-20 23:30:55 +00:00
}
2020-06-28 18:49:16 +00:00
2018-11-20 23:30:55 +00:00
# Clienthash auflösen zur Fehlersuche (aufrufende FHEMWEB Instanz
if ( defined ( $ hash - > { HELPER } { CL } { 1 } ) ) {
for ( my $ k = 1 ; ( defined ( $ hash - > { HELPER } { CL } { $ k } ) ) ; $ k + + ) {
2020-06-28 18:49:16 +00:00
Log3 ( $ name , 4 , "$name - Clienthash number: $k" ) ;
2018-11-20 23:30:55 +00:00
while ( my ( $ key , $ val ) = each ( % { $ hash - > { HELPER } { CL } { $ k } } ) ) {
$ val = $ val ? $ val: " " ;
Log3 ( $ name , 4 , "$name - Clienthash: $key -> $val" ) ;
}
2020-06-28 18:49:16 +00:00
}
2018-11-20 23:30:55 +00:00
} else {
Log3 ( $ name , 2 , "$name - Clienthash was neither delivered nor created !" ) ;
2020-06-28 18:49:16 +00:00
$ ret = "Clienthash was neither delivered nor created. Can't use asynchronous output for function." ;
2018-11-20 23:30:55 +00:00
}
return ( $ ret ) ;
}
###############################################################################
# konvertiere alle ptzPanel_rowXX-attribute zu html-Code für
2020-06-28 18:49:16 +00:00
# das generierte Widget und das weblink-Device ptzPanel_$name
2018-11-20 23:30:55 +00:00
###############################################################################
2020-06-28 18:49:16 +00:00
sub ptzPanel {
2020-07-17 10:58:15 +00:00
my $ paref = shift ;
my $ name = $ paref - > { linkparent } ;
my $ ptzcdev = $ paref - > { linkname } ;
my $ ftui = $ paref - > { ftui } ;
2020-07-17 11:52:37 +00:00
2019-09-09 22:24:51 +00:00
my $ hash = $ defs { $ name } ;
2020-06-23 10:15:44 +00:00
my $ iconpath = AttrVal ( "$name" , "ptzPanel_iconPath" , "www/images/sscam" ) ;
my $ iconprefix = AttrVal ( "$name" , "ptzPanel_iconPrefix" , "black_btn_" ) ;
my $ valPresets = ReadingsVal ( "$name" , "Presets" , "" ) ;
my $ valPatrols = ReadingsVal ( "$name" , "Patrols" , "" ) ;
2019-09-09 22:24:51 +00:00
my $ rowisset = 0 ;
my ( $ pbs , $ pbsf ) = ( "" , "" ) ;
my ( $ row , $ ptz_ret ) ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
return "" if ( myVersion ( $ hash ) <= 71 ) ;
2019-09-09 22:24:51 +00:00
2020-06-24 19:51:57 +00:00
$ pbs = AttrVal ( $ ptzcdev , "ptzButtonSize" , 100 ) ; # Größe der Druckbuttons in %
2019-09-09 22:24:51 +00:00
$ pbsf = AttrVal ( $ ptzcdev , "ptzButtonSizeFTUI" , 100 ) ; # Größe der Druckbuttons im FTUI in %
2019-07-15 17:55:43 +00:00
2019-09-09 22:24:51 +00:00
$ ptz_ret = "" ;
$ ptz_ret . = "<style>TD.ptzcontrol {padding: 5px 7px;}</style>" ;
2020-06-23 10:15:44 +00:00
$ ptz_ret . = "<style>TD.pcenter {text-align: center;} </style>" ;
2019-09-09 22:24:51 +00:00
$ ptz_ret . = "<style>.defsize { font-size:16px; } </style>" ;
2020-06-24 19:51:57 +00:00
### PTZ-Elemente
#########################
2019-09-09 22:24:51 +00:00
$ ptz_ret . = '<table class="rc_body defsize">' ;
2020-07-10 15:16:12 +00:00
$ ptz_ret . = "<tr>" ;
$ ptz_ret . = "<td style='text-align:center' colspan=10>PTZ Control</td>" ;
$ ptz_ret . = "</tr>" ;
2020-07-10 19:59:12 +00:00
$ ptz_ret . = "<tr>" ;
$ ptz_ret . = "<td style='text-align:center' colspan=10><hr /></td>" ;
$ ptz_ret . = "</tr>" ;
2018-11-20 23:30:55 +00:00
2020-06-23 10:15:44 +00:00
for my $ rownr ( 0 .. 9 ) {
2018-11-20 23:30:55 +00:00
$ rownr = sprintf ( "%2.2d" , $ rownr ) ;
$ row = AttrVal ( "$name" , "ptzPanel_row$rownr" , undef ) ;
next if ( ! $ row ) ;
$ rowisset = 1 ;
$ ptz_ret . = "<tr>" ;
2019-09-09 22:24:51 +00:00
my @ btn = split ( "," , $ row ) ; # die Anzahl Buttons in einer Reihe
2018-11-20 23:30:55 +00:00
2020-06-23 10:15:44 +00:00
for my $ btnnr ( 0 .. $# btn ) {
$ ptz_ret . = "<td class='ptzcontrol'>" ;
2018-11-20 23:30:55 +00:00
if ( $ btn [ $ btnnr ] ne "" ) {
2020-06-24 19:51:57 +00:00
my ( $ cmd , $ img ) ;
2020-06-23 10:15:44 +00:00
2019-09-09 22:24:51 +00:00
if ( $ btn [ $ btnnr ] =~ /(.*?):(.*)/ ) { # enthält Komando -> <command>:<image>
2018-11-20 23:30:55 +00:00
$ cmd = $ 1 ;
$ img = $ 2 ;
2020-06-23 10:15:44 +00:00
2019-09-09 22:24:51 +00:00
} else { # button has format <command> or is empty
2018-11-20 23:30:55 +00:00
$ cmd = $ btn [ $ btnnr ] ;
$ img = $ btn [ $ btnnr ] ;
}
2020-06-28 18:49:16 +00:00
2020-07-12 12:31:21 +00:00
if ( $ img =~ m/\.svg/x ) { # Verwendung für SVG's
2020-06-28 18:49:16 +00:00
$ img = FW_makeImage ( $ img , $ cmd , "rc-button" ) ;
2020-07-12 12:31:21 +00:00
} else { # $FW_ME = URL-Pfad unter dem der FHEMWEB-Server via HTTP erreichbar ist, z.B. /fhem
2019-09-09 22:24:51 +00:00
if ( $ ftui ) {
$ img = "<img src=\"$FW_ME/$iconpath/$iconprefix$img\" height=\"$pbsf%\" width=\"$pbsf%\">" ;
} else {
$ img = "<img src=\"$FW_ME/$iconpath/$iconprefix$img\" height=\"$pbs%\" width=\"$pbs%\">" ;
}
}
2020-06-23 10:15:44 +00:00
2018-11-20 23:30:55 +00:00
if ( $ cmd || $ cmd eq "0" ) {
2019-09-09 22:24:51 +00:00
my $ cmd1 = "FW_cmd('$FW_ME$FW_subdir?XHR=1&cmd=set $name $cmd')" ; # $FW_subdir = Sub-path in URL, used by FLOORPLAN/weblink
2019-07-12 20:10:53 +00:00
$ cmd1 = "ftui.setFhemStatus('set $name $cmd')" if ( $ ftui ) ;
$ ptz_ret . = "<a onClick=\"$cmd1\">$img</a>" ;
2018-11-20 23:30:55 +00:00
} else {
$ ptz_ret . = $ img ;
}
}
$ ptz_ret . = "</td>" ;
$ ptz_ret . = "\n" ;
}
2020-06-24 19:51:57 +00:00
$ ptz_ret . = "</tr>\n" ;
2018-11-20 23:30:55 +00:00
}
2020-06-24 19:51:57 +00:00
### Zoom
###############################
2020-07-12 12:31:21 +00:00
if ( IsCapZoom ( $ hash ) ) { # wenn Zoom Eigenschaft
2020-06-24 19:51:57 +00:00
2020-07-10 19:07:02 +00:00
$ ptz_ret . = "<tr>" ;
$ ptz_ret . = "<td style='text-align:center' colspan=10><hr /></td>" ;
$ ptz_ret . = "</tr>" ;
2020-06-24 19:51:57 +00:00
$ ptz_ret . = "<tr>" ;
2020-07-01 19:24:20 +00:00
2020-07-06 16:35:38 +00:00
my @ za = qw( .++ + stop - --. ) ;
2020-06-24 19:51:57 +00:00
for my $ cmd ( @ za ) {
$ ptz_ret . = "<td class='ptzcontrol'>" ;
my $ img = $ zd { $ cmd } { panimg } ;
if ( ! $ img ) {
$ ptz_ret . = $ cmd ;
$ ptz_ret . = "</td>" ;
next ;
}
if ( $ img =~ m/\.svg/x ) { # Verwendung für SVG's
$ img = FW_makeImage ( $ img , $ cmd , "rc-button" ) ;
} else { # $FW_ME = URL-Pfad unter dem der FHEMWEB-Server via HTTP erreichbar ist, z.B. /fhem
2020-07-12 12:31:21 +00:00
my $ iPath = FW_iconPath ( $ img ) ; # automatisches Suchen der Icons im FHEMWEB iconPath
if ( $ iPath ) {
$ iPath = "$FW_ME/$FW_icondir/$iPath" ;
} else {
$ iPath = "$FW_ME/$iconpath/$img" ;
}
2020-06-24 19:51:57 +00:00
if ( $ ftui ) {
2020-07-12 12:31:21 +00:00
$ img = "<img src=\"$iPath\" height=\"$pbsf%\" width=\"$pbsf%\">" ;
2020-06-24 19:51:57 +00:00
} else {
2020-07-12 12:31:21 +00:00
$ img = "<img src=\"$iPath\" height=\"$pbs%\" width=\"$pbs%\">" ;
2020-06-24 19:51:57 +00:00
}
}
my $ cmd1 = "FW_cmd('$FW_ME$FW_subdir?XHR=1&cmd=set $name setZoom $cmd')" ; # $FW_subdir = Sub-path in URL, used by FLOORPLAN/weblink
$ cmd1 = "ftui.setFhemStatus('set $name setZoom $cmd')" if ( $ ftui ) ;
$ ptz_ret . = "<a onClick=\"$cmd1\">$img</a>" ;
$ ptz_ret . = "</td>" ;
}
$ ptz_ret . = "</tr>" ;
}
2020-07-10 19:07:02 +00:00
$ ptz_ret . = "</table>" ;
2020-06-24 19:51:57 +00:00
### add Preset / Patrols
2020-06-23 10:15:44 +00:00
###############################
2019-07-12 20:10:53 +00:00
if ( ! $ ftui ) {
2020-07-16 06:14:56 +00:00
my ( $ Presets , $ Patrols ) ;
2019-07-12 20:10:53 +00:00
my $ cmdPreset = "goPreset" ;
my $ cmdPatrol = "runPatrol" ;
2020-06-23 10:15:44 +00:00
## Presets
2020-06-30 21:16:26 +00:00
for my $ fn ( sort keys % { $ data { webCmdFn } } ) {
2020-07-01 19:24:20 +00:00
next if ( $ data { webCmdFn } { $ fn } ne "FW_widgetFallbackFn" ) ;
2020-06-30 21:16:26 +00:00
no strict "refs" ; ## no critic 'NoStrict'
2019-07-12 20:10:53 +00:00
$ Presets = & { $ data { webCmdFn } { $ fn } } ( $ FW_wname , $ name , "" , $ cmdPreset , $ valPresets ) ;
use strict "refs" ;
last if ( defined ( $ Presets ) ) ;
}
if ( $ Presets ) {
$ Presets =~ s , ^ <td[^> ] * > ( . * ) </td> $, $ 1 , ;
} else {
$ Presets = FW_pH "cmd.$name=set $name $cmdPreset" , $ cmdPreset , 0 , "" , 1 , 1 ;
}
2018-12-06 22:22:15 +00:00
2020-06-23 10:15:44 +00:00
## Patrols
2020-06-30 21:16:26 +00:00
for my $ fn ( sort keys % { $ data { webCmdFn } } ) {
2020-07-01 19:24:20 +00:00
next if ( $ data { webCmdFn } { $ fn } ne "FW_widgetFallbackFn" ) ;
2020-06-30 21:16:26 +00:00
no strict "refs" ; ## no critic 'NoStrict'
2019-07-12 20:10:53 +00:00
$ Patrols = & { $ data { webCmdFn } { $ fn } } ( $ FW_wname , $ name , "" , $ cmdPatrol , $ valPatrols ) ;
use strict "refs" ;
last if ( defined ( $ Patrols ) ) ;
}
2019-09-09 22:24:51 +00:00
if ( $ Patrols ) {
$ Patrols =~ s , ^ <td[^> ] * > ( . * ) </td> $, $ 1 , ;
} else {
$ Patrols = FW_pH "cmd.$name=set $name $cmdPatrol" , $ cmdPatrol , 0 , "" , 1 , 1 ;
}
2020-06-23 10:15:44 +00:00
## Ausgabe
2019-09-09 22:24:51 +00:00
$ ptz_ret . = '<table class="rc_body defsize">' ;
2019-07-12 20:10:53 +00:00
2020-06-23 15:50:33 +00:00
if ( $ valPresets ) {
$ ptz_ret . = "<tr>" ;
$ ptz_ret . = "<td>Preset: </td><td>$Presets</td>" ;
$ ptz_ret . = "</tr>" ;
}
2019-07-12 20:10:53 +00:00
2020-06-23 15:50:33 +00:00
if ( $ valPatrols ) {
$ ptz_ret . = "<tr>" ;
$ ptz_ret . = "<td>Patrol: </td><td>$Patrols</td>" ;
$ ptz_ret . = "</tr>" ;
}
2019-09-09 22:24:51 +00:00
2020-06-23 10:15:44 +00:00
$ ptz_ret . = "</table>" ;
2019-09-09 22:24:51 +00:00
}
2018-12-06 22:22:15 +00:00
2018-11-20 23:30:55 +00:00
if ( $ rowisset ) {
return $ ptz_ret ;
} else {
return "" ;
}
}
###############################################################################
# spezielle Attribute für PTZ-ControlPanel verfügbar machen
###############################################################################
2020-06-28 18:49:16 +00:00
sub addptzattr {
2020-06-21 20:37:08 +00:00
my $ name = shift ;
my $ hash = $ defs { $ name } ;
2018-11-20 23:30:55 +00:00
my $ actvs ;
my @ vl = split ( /\.|-/ , ReadingsVal ( $ name , "SVSversion" , "" ) ) ;
if ( @ vl ) {
$ actvs = $ vl [ 0 ] ;
$ actvs . = $ vl [ 1 ] ;
}
return if ( ReadingsVal ( $ name , "DeviceType" , "Camera" ) ne "PTZ" || $ actvs <= 71 ) ;
2020-06-30 21:16:26 +00:00
for my $ n ( 0 .. 9 ) {
2018-11-20 23:30:55 +00:00
$ n = sprintf ( "%2.2d" , $ n ) ;
addToDevAttrList ( $ name , "ptzPanel_row$n" ) ;
}
2019-06-23 12:04:42 +00:00
my $ p = ReadingsVal ( "$name" , "Presets" , "" ) ;
if ( $ p ne "" ) {
my @ h ;
my $ arg = "ptzPanel_Home" ;
my @ ua = split ( " " , $ attr { $ name } { userattr } ) ;
2020-06-30 21:16:26 +00:00
for ( @ ua ) {
2019-06-23 12:04:42 +00:00
push ( @ h , $ _ ) if ( $ _ !~ m/$arg.*/ ) ;
}
$ attr { $ name } { userattr } = join ( ' ' , @ h ) ;
addToDevAttrList ( $ name , "ptzPanel_Home:" . $ p ) ;
2018-11-20 23:30:55 +00:00
}
addToDevAttrList ( $ name , "ptzPanel_iconPrefix" ) ;
addToDevAttrList ( $ name , "ptzPanel_iconPath" ) ;
addToDevAttrList ( $ name , "ptzPanel_use:0,1" ) ;
# PTZ Panel Widget initial generieren
my $ upleftfast = "move upleft" ;
my $ upfast = "move up" ;
my $ uprightfast = "move upright" ;
my $ upleft = "move upleft 0.5" ;
my $ up = "move up 0.5" ;
my $ upright = "move upright 0.5" ;
my $ leftfast = "move left" ;
my $ left = "move left 0.5" ;
my $ home = "goPreset " . AttrVal ( $ name , "ptzPanel_Home" , ReadingsVal ( $ name , "PresetHome" , "" ) ) ;
my $ right = "move right 0.5" ;
my $ rightfast = "move right" ;
my $ downleft = "move downleft 0.5" ;
my $ down = "move down 0.5" ;
my $ downright = "move downright 0.5" ;
my $ downleftfast = "move downleft" ;
my $ downfast = "move down" ;
my $ downrightfast = "move downright" ;
$ attr { $ name } { ptzPanel_row00 } = "$upleftfast:CAMUPLEFTFAST.png,:CAMBLANK.png,$upfast:CAMUPFAST.png,:CAMBLANK.png,$uprightfast:CAMUPRIGHTFAST.png"
if ( ! AttrVal ( $ name , "ptzPanel_row00" , undef ) ) ;
$ attr { $ name } { ptzPanel_row01 } = ":CAMBLANK.png,$upleft:CAMUPLEFT.png,$up:CAMUP.png,$upright:CAMUPRIGHT.png"
if ( ! AttrVal ( $ name , "ptzPanel_row01" , undef ) ) ;
$ attr { $ name } { ptzPanel_row02 } = "$leftfast:CAMLEFTFAST.png,$left:CAMLEFT.png,$home:CAMHOME.png,$right:CAMRIGHT.png,$rightfast:CAMRIGHTFAST.png"
if ( ! AttrVal ( $ name , "ptzPanel_row02" , undef ) || $ home ne $ hash - > { HELPER } { OLDPTZHOME } ) ;
$ attr { $ name } { ptzPanel_row03 } = ":CAMBLANK.png,$downleft:CAMDOWNLEFT.png,$down:CAMDOWN.png,$downright:CAMDOWNRIGHT.png"
if ( ! AttrVal ( $ name , "ptzPanel_row03" , undef ) ) ;
$ attr { $ name } { ptzPanel_row04 } = "$downleftfast:CAMDOWNLEFTFAST.png,:CAMBLANK.png,$downfast:CAMDOWNFAST.png,:CAMBLANK.png,$downrightfast:CAMDOWNRIGHTFAST.png"
if ( ! AttrVal ( $ name , "ptzPanel_row04" , undef ) ) ;
$ hash - > { HELPER } { OLDPTZHOME } = $ home ;
2020-06-28 18:49:16 +00:00
$ hash - > { ".ptzhtml" } = "" ; # ptzPanel wird neu durchlaufen
2018-11-20 23:30:55 +00:00
return ;
}
######################################################################################
2020-07-17 11:52:37 +00:00
# Funktion für SSCamSTRM-Devices
2018-12-30 20:20:27 +00:00
#
# $camname = Name der Kamaera (Parent-Device)
# $strmdev = Name des Streaming-Devices
2020-07-12 12:31:21 +00:00
# $fmt = Streaming Format (Vergleich auf "eq" !)
2018-12-30 20:20:27 +00:00
#
2018-11-20 23:30:55 +00:00
######################################################################################
2020-07-13 20:38:52 +00:00
sub streamDev { ## no critic 'complexity'
2020-07-17 10:58:15 +00:00
my $ paref = shift ;
my $ camname = $ paref - > { linkparent } ;
my $ strmdev = $ paref - > { linkname } ;
my $ fmt = $ paref - > { linkmodel } ;
my $ ftui = $ paref - > { ftui } ;
2020-07-13 20:38:52 +00:00
my $ hash = $ defs { $ camname } ;
my $ streamHash = $ defs { $ strmdev } ; # Hash des SSCamSTRM-Devices
my $ uuid = $ streamHash - > { FUUID } ; # eindeutige UUID des Streamingdevices
my $ hdrAlign = "center" ;
2018-11-20 23:30:55 +00:00
2018-12-09 15:03:29 +00:00
delete $ streamHash - > { HELPER } { STREAM } ;
2020-07-12 12:31:21 +00:00
delete $ streamHash - > { HELPER } { STREAMACTIVE } ; # Statusbit ob ein Stream aktiviert ist
my ( $ show , $ cause , $ ret ) ;
2018-11-20 23:30:55 +00:00
# Definition Tasten
2019-07-12 20:10:53 +00:00
my $ imgblank = "<img src=\"$FW_ME/www/images/sscam/black_btn_CAMBLANK.png\">" ; # nicht sichtbare Leertaste
my $ cmdstop = "FW_cmd('$FW_ME$FW_subdir?XHR=1&cmd=set $camname stopView STRM:$uuid')" ; # Stream deaktivieren
2020-07-13 20:38:52 +00:00
my $ imgstop = "<img src=\"$FW_ME/www/images/default/remotecontrol/black_btn_POWEROFF3.png\">" ;
2019-07-12 20:10:53 +00:00
my $ cmdhlsreact = "FW_cmd('$FW_ME$FW_subdir?XHR=1&cmd=set $camname hlsreactivate')" ; # HLS Stream reaktivieren
2018-11-20 23:30:55 +00:00
my $ imghlsreact = "<img src=\"$FW_ME/www/images/default/remotecontrol/black_btn_BACKDroid.png\">" ;
2019-07-12 20:10:53 +00:00
my $ cmdmjpegrun = "FW_cmd('$FW_ME$FW_subdir?XHR=1&cmd=set $camname runView live_fw STRM:$uuid')" ; # MJPEG Stream aktivieren
2018-11-20 23:30:55 +00:00
my $ imgmjpegrun = "<img src=\"$FW_ME/www/images/sscam/black_btn_MJPEG.png\">" ;
2019-07-12 20:10:53 +00:00
my $ cmdhlsrun = "FW_cmd('$FW_ME$FW_subdir?XHR=1&cmd=set $camname runView live_fw_hls STRM:$uuid')" ; # HLS Stream aktivieren
2020-07-13 20:38:52 +00:00
my $ imghlsrun = "<img src=\"$FW_ME/www/images/sscam/black_btn_HLS.png\">" ;
2019-07-12 20:10:53 +00:00
my $ cmdlrirun = "FW_cmd('$FW_ME$FW_subdir?XHR=1&cmd=set $camname runView lastrec_fw STRM:$uuid')" ; # Last Record IFrame
2018-11-20 23:30:55 +00:00
my $ imglrirun = "<img src=\"$FW_ME/www/images/sscam/black_btn_LASTRECIFRAME.png\">" ;
2019-07-12 20:10:53 +00:00
my $ cmdlh264run = "FW_cmd('$FW_ME$FW_subdir?XHR=1&cmd=set $camname runView lastrec_fw_MPEG4/H.264 STRM:$uuid')" ; # Last Record H.264
2018-11-20 23:30:55 +00:00
my $ imglh264run = "<img src=\"$FW_ME/www/images/sscam/black_btn_LRECH264.png\">" ;
2019-07-12 20:10:53 +00:00
my $ cmdlmjpegrun = "FW_cmd('$FW_ME$FW_subdir?XHR=1&cmd=set $camname runView lastrec_fw_MJPEG STRM:$uuid')" ; # Last Record MJPEG
2018-11-20 23:30:55 +00:00
my $ imglmjpegrun = "<img src=\"$FW_ME/www/images/sscam/black_btn_LRECMJPEG.png\">" ;
2019-07-12 20:10:53 +00:00
my $ cmdlsnaprun = "FW_cmd('$FW_ME$FW_subdir?XHR=1&cmd=set $camname runView lastsnap_fw STRM:$uuid')" ; # Last SNAP
2018-11-20 23:30:55 +00:00
my $ imglsnaprun = "<img src=\"$FW_ME/www/images/sscam/black_btn_LSNAP.png\">" ;
2019-07-12 20:10:53 +00:00
my $ cmdrecendless = "FW_cmd('$FW_ME$FW_subdir?XHR=1&cmd=set $camname on 0 STRM:$uuid')" ; # Endlosaufnahme Start
2018-11-20 23:30:55 +00:00
my $ imgrecendless = "<img src=\"$FW_ME/www/images/sscam/black_btn_RECSTART.png\">" ;
2019-07-12 20:10:53 +00:00
my $ cmdrecstop = "FW_cmd('$FW_ME$FW_subdir?XHR=1&cmd=set $camname off STRM:$uuid')" ; # Aufnahme Stop
2018-11-20 23:30:55 +00:00
my $ imgrecstop = "<img src=\"$FW_ME/www/images/sscam/black_btn_RECSTOP.png\">" ;
2019-07-12 20:10:53 +00:00
my $ cmddosnap = "FW_cmd('$FW_ME$FW_subdir?XHR=1&cmd=set $camname snap 1 2 STRM:$uuid')" ; # Snapshot auslösen mit Kennzeichnung "by STRM-Device"
2018-11-20 23:30:55 +00:00
my $ imgdosnap = "<img src=\"$FW_ME/www/images/sscam/black_btn_DOSNAP.png\">" ;
2019-07-12 20:10:53 +00:00
my $ cmdrefresh = "FW_cmd('$FW_ME$FW_subdir?XHR=1&cmd=set $camname refresh STRM:$uuid')" ; # Refresh in SSCamSTRM-Devices
2018-11-20 23:30:55 +00:00
my $ imgrefresh = "<img src=\"$FW_ME/www/images/default/Restart.png\">" ;
2019-07-12 20:10:53 +00:00
# bei Aufruf durch FTUI Kommandosyntax anpassen
if ( $ ftui ) {
$ cmddosnap = "ftui.setFhemStatus('set $camname snap 1 2 STRM:$uuid')" ;
$ cmdstop = "ftui.setFhemStatus('set $camname stopView STRM:$uuid')" ;
$ cmdhlsreact = "ftui.setFhemStatus('set $camname hlsreactivate STRM:$uuid')" ;
$ cmdmjpegrun = "ftui.setFhemStatus('set $camname runView live_fw STRM:$uuid')" ;
$ cmdhlsrun = "ftui.setFhemStatus('set $camname runView live_fw_hls STRM:$uuid')" ;
$ cmdlrirun = "ftui.setFhemStatus('set $camname runView lastrec_fw STRM:$uuid')" ;
$ cmdlh264run = "ftui.setFhemStatus('set $camname runView lastrec_fw_MPEG4/H.264 STRM:$uuid')" ;
$ cmdlmjpegrun = "ftui.setFhemStatus('set $camname runView lastrec_fw_MJPEG STRM:$uuid')" ;
$ cmdlsnaprun = "ftui.setFhemStatus('set $camname runView lastsnap_fw STRM STRM:$uuid')" ;
$ cmdrecendless = "ftui.setFhemStatus('set $camname on 0 STRM:$uuid')" ;
$ cmdrecstop = "ftui.setFhemStatus('set $camname off STRM:$uuid')" ;
$ cmdrefresh = "ftui.setFhemStatus('set $camname refresh STRM:$uuid')" ;
}
2020-07-12 12:31:21 +00:00
# Javascript Bibliothek für Tooltips (http://www.walterzorn.de/tooltip/tooltip.htm#download) und Texte
my $ calias = $ hash - > { CAMNAME } ; # Alias der Kamera
my $ ttjs = "/fhem/pgm2/sscam_tooltip.js" ;
2020-07-16 06:14:56 +00:00
my ( $ ttrefresh , $ ttrecstart , $ ttrecstop , $ ttsnap , $ ttcmdstop , $ tthlsreact ) ;
my ( $ ttmjpegrun , $ tthlsrun , $ ttlrrun , $ tth264run , $ ttlmjpegrun , $ ttlsnaprun ) ;
2019-07-14 18:18:07 +00:00
2020-07-12 12:31:21 +00:00
# Hinweis Popups
if ( AttrVal ( "global" , "language" , "EN" ) =~ /EN/x ) {
$ ttrefresh = $ ttips_en { "ttrefresh" } ; $ ttrefresh =~ s/§NAME§/$calias/gx ;
$ ttrecstart = $ ttips_en { "ttrecstart" } ; $ ttrecstart =~ s/§NAME§/$calias/gx ;
$ ttrecstop = $ ttips_en { "ttrecstop" } ; $ ttrecstop =~ s/§NAME§/$calias/gx ;
$ ttsnap = $ ttips_en { "ttsnap" } ; $ ttsnap =~ s/§NAME§/$calias/gx ;
$ ttcmdstop = $ ttips_en { "ttcmdstop" } ; $ ttcmdstop =~ s/§NAME§/$calias/gx ;
$ tthlsreact = $ ttips_en { "tthlsreact" } ; $ tthlsreact =~ s/§NAME§/$calias/gx ;
$ ttmjpegrun = $ ttips_en { "ttmjpegrun" } ; $ ttmjpegrun =~ s/§NAME§/$calias/gx ;
$ tthlsrun = $ ttips_en { "tthlsrun" } ; $ tthlsrun =~ s/§NAME§/$calias/gx ;
$ ttlrrun = $ ttips_en { "ttlrrun" } ; $ ttlrrun =~ s/§NAME§/$calias/gx ;
$ tth264run = $ ttips_en { "tth264run" } ; $ tth264run =~ s/§NAME§/$calias/gx ;
$ ttlmjpegrun = $ ttips_en { "ttlmjpegrun" } ; $ ttlmjpegrun =~ s/§NAME§/$calias/gx ;
$ ttlsnaprun = $ ttips_en { "ttlsnaprun" } ; $ ttlsnaprun =~ s/§NAME§/$calias/gx ;
} else {
$ ttrefresh = $ ttips_de { "ttrefresh" } ; $ ttrefresh =~ s/§NAME§/$calias/gx ;
$ ttrecstart = $ ttips_de { "ttrecstart" } ; $ ttrecstart =~ s/§NAME§/$calias/gx ;
$ ttrecstop = $ ttips_de { "ttrecstop" } ; $ ttrecstop =~ s/§NAME§/$calias/gx ;
$ ttsnap = $ ttips_de { "ttsnap" } ; $ ttsnap =~ s/§NAME§/$calias/gx ;
$ ttcmdstop = $ ttips_de { "ttcmdstop" } ; $ ttcmdstop =~ s/§NAME§/$calias/gx ;
$ tthlsreact = $ ttips_de { "tthlsreact" } ; $ tthlsreact =~ s/§NAME§/$calias/gx ;
$ ttmjpegrun = $ ttips_de { "ttmjpegrun" } ; $ ttmjpegrun =~ s/§NAME§/$calias/gx ;
$ tthlsrun = $ ttips_de { "tthlsrun" } ; $ tthlsrun =~ s/§NAME§/$calias/gx ;
$ ttlrrun = $ ttips_de { "ttlrrun" } ; $ ttlrrun =~ s/§NAME§/$calias/gx ;
$ tth264run = $ ttips_de { "tth264run" } ; $ tth264run =~ s/§NAME§/$calias/gx ;
$ ttlmjpegrun = $ ttips_de { "ttlmjpegrun" } ; $ ttlmjpegrun =~ s/§NAME§/$calias/gx ;
$ ttlsnaprun = $ ttips_de { "ttlsnaprun" } ; $ ttlsnaprun =~ s/§NAME§/$calias/gx ;
}
2019-09-09 22:24:51 +00:00
2020-07-12 12:31:21 +00:00
my $ ha = AttrVal ( $ camname , "htmlattr" , 'width="500" height="325"' ) ; # HTML Attribute der Cam
$ ha = AttrVal ( $ strmdev , "htmlattr" , $ ha ) ; # htmlattr mit htmlattr Streaming-Device übersteuern
$ ha = AttrVal ( $ strmdev , "htmlattrFTUI" , $ ha ) if ( $ ftui ) ; # wenn aus FTUI aufgerufen divers setzen
my $ hb = AttrVal ( $ strmdev , "hideButtons" , 0 ) ; # Drucktasten im Footer ausblenden ?
my $ hau = AttrVal ( $ strmdev , "hideAudio" , 0 ) ; # Audio Steuerblock im Footer ausblenden ?
my $ pws = AttrVal ( $ strmdev , "popupWindowSize" , "" ) ; # Größe eines Popups
2020-07-10 15:16:12 +00:00
$ pws =~ s/"//gx if ( $ pws ) ;
2019-07-14 18:18:07 +00:00
2020-07-10 15:16:12 +00:00
$ show = $ defs { $ streamHash - > { PARENT } } - > { HELPER } { ACTSTRM } if ( $ streamHash - > { MODEL } =~ /switched/x ) ;
2020-06-30 21:16:26 +00:00
$ show = $ show ? "($show)" : "" ;
2019-07-14 18:18:07 +00:00
2019-09-09 22:24:51 +00:00
my $ alias = AttrVal ( $ strmdev , "alias" , $ strmdev ) ; # Linktext als Aliasname oder Devicename setzen
2019-07-14 18:18:07 +00:00
my $ dlink = "<a href=\"/fhem?detail=$strmdev\">$alias</a>" ;
2019-09-21 13:03:06 +00:00
$ dlink = $ alias if ( AttrVal ( $ strmdev , "noLink" , 0 ) ) ; # keine Links im Stream-Dev generieren
2019-07-14 18:18:07 +00:00
2018-11-20 23:30:55 +00:00
my $ StmKey = ReadingsVal ( $ camname , "StmKey" , undef ) ;
2020-07-13 20:38:52 +00:00
my % params = (
camname = > $ camname ,
strmdev = > $ strmdev ,
ftui = > $ ftui ,
uuid = > $ uuid ,
ha = > $ ha ,
hb = > $ hb ,
hau = > $ hau ,
pws = > $ pws ,
serveraddr = > $ hash - > { SERVERADDR } ,
serverport = > $ hash - > { SERVERPORT } ,
apivideostm = > $ hash - > { HELPER } { APIVIDEOSTM } ,
apivideostmpath = > $ hash - > { HELPER } { APIVIDEOSTMPATH } ,
apivideostmmaxver = > $ hash - > { HELPER } { APIVIDEOSTMMAXVER } ,
apiaudiostm = > $ hash - > { HELPER } { APIAUDIOSTM } ,
apiaudiostmpath = > $ hash - > { HELPER } { APIAUDIOSTMPATH } ,
apiaudiostmmaxver = > $ hash - > { HELPER } { APIAUDIOSTMMAXVER } ,
apivideostms = > $ hash - > { HELPER } { APIVIDEOSTMS } ,
apivideostmspath = > $ hash - > { HELPER } { APIVIDEOSTMSPATH } ,
apivideostmsmaxver = > $ hash - > { HELPER } { APIVIDEOSTMSMAXVER } ,
camid = > $ hash - > { CAMID } ,
sid = > $ hash - > { HELPER } { SID } ,
proto = > $ hash - > { PROTOCOL } ,
cmdstop = > $ cmdstop ,
cmdhlsreact = > $ cmdhlsreact ,
cmdmjpegrun = > $ cmdmjpegrun ,
cmdhlsrun = > $ cmdhlsrun ,
cmdlrirun = > $ cmdlrirun ,
cmdlh264run = > $ cmdlh264run ,
cmdlmjpegrun = > $ cmdlmjpegrun ,
cmdlsnaprun = > $ cmdlsnaprun ,
cmdrecendless = > $ cmdrecendless ,
cmdrecstop = > $ cmdrecstop ,
cmddosnap = > $ cmddosnap ,
cmdrefresh = > $ cmdrefresh ,
imgblank = > $ imgblank ,
imgstop = > $ imgstop ,
imghlsreact = > $ imghlsreact ,
imgmjpegrun = > $ imgmjpegrun ,
imghlsrun = > $ imghlsrun ,
imglrirun = > $ imglrirun ,
imglh264run = > $ imglh264run ,
imglmjpegrun = > $ imglmjpegrun ,
imglsnaprun = > $ imglsnaprun ,
imgrecendless = > $ imgrecendless ,
imgrecstop = > $ imgrecstop ,
imgdosnap = > $ imgdosnap ,
imgrefresh = > $ imgrefresh ,
ttrefresh = > $ ttrefresh ,
ttrecstart = > $ ttrecstart ,
ttrecstop = > $ ttrecstop ,
ttsnap = > $ ttsnap ,
ttcmdstop = > $ ttcmdstop ,
tthlsreact = > $ tthlsreact ,
ttmjpegrun = > $ ttmjpegrun ,
tthlsrun = > $ tthlsrun ,
ttlrrun = > $ ttlrrun ,
tth264run = > $ tth264run ,
ttlmjpegrun = > $ ttlmjpegrun ,
ttlsnaprun = > $ ttlsnaprun ,
) ;
2018-12-30 20:20:27 +00:00
2018-11-20 23:30:55 +00:00
$ ret = "" ;
2019-07-12 20:10:53 +00:00
$ ret . = "<script type=\"text/javascript\" src=\"$ttjs\"></script>" ;
2019-07-14 15:03:56 +00:00
$ ret . = '<table class="block wide internals" style="margin-left:auto;margin-right:auto">' ;
2019-07-14 18:18:07 +00:00
if ( $ ftui ) {
2019-07-14 19:43:22 +00:00
$ ret . = "<span align=\"$hdrAlign\">$dlink $show </span><br>" if ( ! AttrVal ( $ strmdev , "hideDisplayNameFTUI" , 0 ) ) ;
2019-07-14 18:18:07 +00:00
} else {
2019-07-14 19:43:22 +00:00
$ ret . = "<span align=\"$hdrAlign\">$dlink $show </span><br>" if ( ! AttrVal ( $ strmdev , "hideDisplayName" , 0 ) ) ;
2019-07-14 18:18:07 +00:00
}
2018-11-20 23:30:55 +00:00
$ ret . = '<tbody>' ;
$ ret . = '<tr class="odd">' ;
2020-07-16 06:14:56 +00:00
my $ ismm = FHEM::SSCamSTRM:: IsModelMaster ( $ streamHash ) ; # prüfen ob Streaming Dev ist MODEL = master
if ( ! $ ismm && ( ! $ StmKey || ReadingsVal ( $ camname , "Availability" , "" ) ne "enabled" || IsDisabled ( $ camname ) ) ) {
2018-11-20 23:30:55 +00:00
# Ausgabe bei Fehler
2019-07-14 18:18:07 +00:00
my $ cam = AttrVal ( $ camname , "alias" , $ camname ) ; # Linktext als Aliasname oder Devicename setzen
2020-07-16 06:14:56 +00:00
$ cause = ! $ StmKey ? "Camera $cam has no Reading \"StmKey\" set !" : "Cam \"$cam\" is disabled" ;
2019-07-14 18:18:07 +00:00
$ cause = "Camera \"$cam\" is disabled" if ( IsDisabled ( $ camname ) ) ;
$ ret . = "<td> <br> <b> $cause </b> <br><br></td>" ;
$ ret . = '</tr>' ;
$ ret . = '</tbody>' ;
$ ret . = '</table>' ;
$ ret . = '</div>' ;
2018-11-20 23:30:55 +00:00
return $ ret ;
}
2020-07-12 12:31:21 +00:00
# Streaming ausführen
no strict "refs" ; ## no critic 'NoStrict'
if ( defined & { $ sdfn { $ fmt } { fn } } ) {
$ ret . = & { $ sdfn { $ fmt } { fn } } ( \ % params ) ;
} else {
$ cause = qq{ Streaming of format "$fmt" is not supported } ;
2020-07-16 06:14:56 +00:00
$ cause = qq{ Select a Streaming client with the "adoptFrom" command. } if ( $ ismm ) ;
2020-07-12 12:31:21 +00:00
$ ret . = "<td> <br> <b> $cause </b> <br><br></td>" ;
}
use strict "refs" ;
$ ret . = '</tr>' ;
$ ret . = '</tbody>' ;
$ ret . = '</table>' ;
return $ ret ;
}
######################################################################################
# Streaming Device Typ: mjpeg
sub _streamDevMJPEG {
my $ params = shift ;
my $ camname = $ params - > { camname } ;
my $ strmdev = $ params - > { strmdev } ;
my $ hash = $ defs { $ camname } ;
my $ streamHash = $ defs { $ strmdev } ;
my $ ftui = $ params - > { ftui } ;
my $ camid = $ params - > { camid } ;
my $ proto = $ params - > { proto } ;
my $ sid = $ params - > { sid } ;
my $ pws = $ params - > { pws } ;
my $ ha = $ params - > { ha } ;
my $ hb = $ params - > { hb } ;
my $ hau = $ params - > { hau } ;
my $ serveraddr = $ params - > { serveraddr } ;
my $ serverport = $ params - > { serverport } ;
my $ apivideostms = $ params - > { apivideostms } ;
my $ apivideostmspath = $ params - > { apivideostmspath } ;
my $ apivideostmsmaxver = $ params - > { apivideostmsmaxver } ;
my $ apiaudiostm = $ params - > { apiaudiostm } ;
my $ apiaudiostmpath = $ params - > { apiaudiostmpath } ;
my $ apiaudiostmmaxver = $ params - > { apiaudiostmmaxver } ;
my $ cmdrecendless = $ params - > { cmdrecendless } ;
my $ ttrecstart = $ params - > { ttrecstart } ;
my $ imgrecendless = $ params - > { imgrecendless } ;
my $ cmdrecstop = $ params - > { cmdrecstop } ;
my $ ttrecstop = $ params - > { ttrecstop } ;
my $ imgrecstop = $ params - > { imgrecstop } ;
my $ cmddosnap = $ params - > { cmddosnap } ;
my $ ttsnap = $ params - > { ttsnap } ;
my $ imgdosnap = $ params - > { imgdosnap } ;
my ( $ link , $ audiolink ) ;
my $ ret = "" ;
if ( ReadingsVal ( $ camname , "SVSversion" , "8.2.3-5828" ) eq "8.2.3-5828" && ReadingsVal ( $ camname , "CamVideoType" , "" ) !~ /MJPEG/ ) {
2020-07-13 20:38:52 +00:00
$ ret . = "<td> <br> <b> Because SVS version 8.2.3-5828 is running you cannot play back MJPEG-Stream. Please upgrade to a higher SVS version ! </b> <br><br>" ;
return $ ret ;
2020-07-12 12:31:21 +00:00
} else {
if ( $ apivideostmsmaxver ) {
$ link = "$proto://$serveraddr:$serverport/webapi/$apivideostmspath?api=$apivideostms&version=$apivideostmsmaxver&method=Stream&cameraId=$camid&format=mjpeg&_sid=$sid" ;
} elsif ( $ hash - > { HELPER } { STMKEYMJPEGHTTP } ) {
$ link = $ hash - > { HELPER } { STMKEYMJPEGHTTP } ;
2018-11-20 23:30:55 +00:00
}
2020-07-13 20:38:52 +00:00
2020-07-12 12:31:21 +00:00
if ( $ apiaudiostmmaxver ) {
$ audiolink = "$proto://$serveraddr:$serverport/webapi/$apiaudiostmpath?api=$apiaudiostm&version=$apiaudiostmmaxver&method=Stream&cameraId=$camid&_sid=$sid" ;
2018-11-20 23:30:55 +00:00
}
2020-07-13 20:38:52 +00:00
2020-07-12 12:31:21 +00:00
if ( ! $ ftui ) {
$ ret . = "<td><img src=$link $ha onClick=\"FW_okDialog('<img src=$link $pws>')\"><br>" ;
2019-11-03 17:50:18 +00:00
} else {
2020-07-12 12:31:21 +00:00
$ ret . = "<td><img src=$link $ha><br>" ;
2019-11-03 17:50:18 +00:00
}
2020-07-13 20:38:52 +00:00
2020-07-12 12:31:21 +00:00
$ streamHash - > { HELPER } { STREAM } = "<img src=$link $pws>" ; # Stream für "get <SSCamSTRM-Device> popupStream" speichern
$ streamHash - > { HELPER } { STREAMACTIVE } = 1 if ( $ link ) ; # Statusbit wenn ein Stream aktiviert ist
}
2020-07-13 20:38:52 +00:00
2020-07-12 12:31:21 +00:00
if ( ! $ hb ) {
if ( ReadingsVal ( $ camname , "Record" , "Stop" ) eq "Stop" ) {
# Aufnahmebutton endlos Start
$ ret . = "<a onClick=\"$cmdrecendless\" onmouseover=\"Tip('$ttrecstart')\" onmouseout=\"UnTip()\">$imgrecendless </a>" ;
2019-07-12 20:10:53 +00:00
} else {
2020-07-12 12:31:21 +00:00
# Aufnahmebutton Stop
$ ret . = "<a onClick=\"$cmdrecstop\" onmouseover=\"Tip('$ttrecstop')\" onmouseout=\"UnTip()\">$imgrecstop </a>" ;
}
$ ret . = "<a onClick=\"$cmddosnap\" onmouseover=\"Tip('$ttsnap')\" onmouseout=\"UnTip()\">$imgdosnap </a>" ;
2020-07-13 20:38:52 +00:00
}
$ ret . = "</td>" ;
2020-07-12 12:31:21 +00:00
if ( AttrVal ( $ camname , "ptzPanel_use" , 1 ) ) {
2020-07-17 10:58:15 +00:00
my % pars = ( linkparent = > $ camname ,
linkname = > $ strmdev ,
ftui = > $ ftui
) ;
my $ ptz_ret = ptzPanel ( \ % pars ) ;
2020-07-12 12:31:21 +00:00
if ( $ ptz_ret ) {
$ ret . = "<td>$ptz_ret</td>" ;
2019-02-06 21:06:40 +00:00
}
2020-07-12 12:31:21 +00:00
}
2020-07-13 20:38:52 +00:00
2020-07-12 12:31:21 +00:00
if ( $ audiolink && ReadingsVal ( $ camname , "CamAudioType" , "Unknown" ) !~ /Unknown/ && ! $ hau ) {
$ ret . = '</tr>' ;
$ ret . = '<tr class="odd">' ;
$ ret . = " <td> < audio src = $ audiolink preload = 'none' volume = '0.5' controls >
Your browser does not support the audio element .
</audio> " ;
$ ret . = "</td>" ;
$ ret . = "<td></td>" if ( AttrVal ( $ camname , "ptzPanel_use" , 0 ) ) ;
}
2019-02-06 21:06:40 +00:00
2020-07-12 12:31:21 +00:00
Log3 ( $ strmdev , 4 , "$strmdev - Link called: $link" ) if ( $ link ) ;
undef $ link ;
return $ ret ;
}
2018-11-20 23:30:55 +00:00
2020-07-12 12:31:21 +00:00
######################################################################################
# Streaming Device Typ: lastsnap
sub _streamDevLASTSNAP {
my $ params = shift ;
my $ camname = $ params - > { camname } ;
my $ strmdev = $ params - > { strmdev } ;
my $ hash = $ defs { $ camname } ;
my $ streamHash = $ defs { $ strmdev } ;
my $ ftui = $ params - > { ftui } ;
my $ pws = $ params - > { pws } ;
my $ ha = $ params - > { ha } ;
my $ hb = $ params - > { hb } ;
my $ cmddosnap = $ params - > { cmddosnap } ;
my $ ttsnap = $ params - > { ttsnap } ;
my $ imgdosnap = $ params - > { imgdosnap } ;
my ( $ link , $ cause , $ ret ) = ( "" , "" , "" ) ;
my $ cache = cache ( $ camname , "c_init" ) ; # Cache initialisieren
Log3 ( $ camname , 1 , "$camname - Fall back to internal Cache due to preceding failure." ) if ( ! $ cache ) ;
if ( ! $ cache || $ cache eq "internal" ) {
$ link = $ data { SSCam } { $ camname } { LASTSNAP } ;
} else {
$ link = cache ( $ camname , "c_read" , "{LASTSNAP}" ) ;
}
my $ gattr = ( AttrVal ( $ camname , "snapGallerySize" , "Icon" ) eq "Full" ) ? $ ha : "" ;
if ( $ link ) {
if ( ! $ ftui ) {
$ ret . = "<td><img src='data:image/jpeg;base64,$link' $gattr onClick=\"FW_okDialog('<img src=data:image/jpeg;base64,$link $pws>')\"><br>" ;
} else {
$ ret . = "<td><img src='data:image/jpeg;base64,$link' $gattr><br>" ;
2018-12-10 22:11:29 +00:00
}
2020-07-12 12:31:21 +00:00
2019-09-21 13:03:06 +00:00
if ( ! $ hb ) {
2019-09-09 22:24:51 +00:00
$ ret . = "<a onClick=\"$cmddosnap\" onmouseover=\"Tip('$ttsnap')\" onmouseout=\"UnTip()\">$imgdosnap </a>" ;
2020-07-12 12:31:21 +00:00
}
$ ret . = "</td>" ;
$ streamHash - > { HELPER } { STREAM } = "<img src=data:image/jpeg;base64,$link $pws>" ; # Stream für "get <SSCamSTRM-Device> popupStream" speichern
$ streamHash - > { HELPER } { STREAMACTIVE } = 1 if ( $ link ) ; # Statusbit wenn ein Stream aktiviert ist
} else {
$ cause = "no snapshot available to display" ;
$ cause = "kein Schnappschuss zur Anzeige vorhanden" if ( AttrVal ( "global" , "language" , "EN" ) =~ /DE/ix ) ;
$ ret . = "<td> <br> <b> $cause </b> <br><br></td>" ;
}
2018-11-20 23:30:55 +00:00
2020-07-12 12:31:21 +00:00
Log3 ( $ strmdev , 4 , "$strmdev - Link called: $link" ) if ( $ link ) ;
undef $ link ;
return $ ret ;
}
2018-12-30 20:20:27 +00:00
2020-07-12 12:31:21 +00:00
######################################################################################
# Streaming Device Typ: generic
sub _streamDevGENERIC {
my $ params = shift ;
my $ camname = $ params - > { camname } ;
my $ strmdev = $ params - > { strmdev } ;
my $ hash = $ defs { $ camname } ;
my $ streamHash = $ defs { $ strmdev } ;
my $ ftui = $ params - > { ftui } ;
my $ pws = $ params - > { pws } ;
my $ ha = $ params - > { ha } ;
my $ hb = $ params - > { hb } ;
my $ cmdrefresh = $ params - > { cmdrefresh } ;
my $ cmdrecendless = $ params - > { cmdrecendless } ;
my $ cmdrecstop = $ params - > { cmdrecstop } ;
my $ cmddosnap = $ params - > { cmddosnap } ;
my $ imgrecendless = $ params - > { imgrecendless } ;
my $ imgrecstop = $ params - > { imgrecstop } ;
my $ imgdosnap = $ params - > { imgdosnap } ;
my $ imgrefresh = $ params - > { imgrefresh } ;
my $ imgblank = $ params - > { imgblank } ;
my $ ttrefresh = $ params - > { ttrefresh } ;
my $ ttsnap = $ params - > { ttsnap } ;
my $ ttrecstop = $ params - > { ttrecstop } ;
my $ ttrecstart = $ params - > { ttrecstart } ;
my $ ret = "" ;
my $ htag = AttrVal ( $ strmdev , "genericStrmHtmlTag" , AttrVal ( $ camname , "genericStrmHtmlTag" , "" ) ) ;
if ( $ htag =~ m/^\s*(.*)\s*$/s ) {
$ htag = $ 1 ;
$ htag =~ s/\$NAME/$camname/xg ;
$ htag =~ s/\$HTMLATTR/$ha/g ;
$ htag =~ s/\$PWS/$pws/g ;
}
if ( ! $ htag ) {
$ ret . = "<td> <br> <b> Set attribute \"genericStrmHtmlTag\" in device <a href=\"/fhem?detail=$camname\">$camname</a> or in device <a href=\"/fhem?detail=$strmdev\">$strmdev</a></b> <br><br></td>" ;
$ ret . = '</tr>' ;
$ ret . = '</tbody>' ;
$ ret . = '</table>' ;
$ ret . = '</div>' ;
2018-12-30 20:20:27 +00:00
return $ ret ;
2020-07-12 12:31:21 +00:00
}
$ ret . = "<td>" ;
$ ret . = "$htag" ;
if ( $ htag ) {
# Popup-Tag um den Popup-Teil bereinigen
my $ ptag = $ htag ;
$ ptag =~ m/^(\s+)?(?<b><)(\s+)?(?<heart>.*)(\s+)?(?<nh>onClick=.*)(\s+)?(?<e>>)(\s+)?$/s ;
$ ptag = $+ { heart } ? $+ { b } . $+ { heart } . $+ { e } : $ ptag ;
$ streamHash - > { HELPER } { STREAM } = "$ptag" ; # Stream für "set <SSCamSTRM-Device> popupStream" speichern
$ streamHash - > { HELPER } { STREAM } =~ s/["']//gx ;
$ streamHash - > { HELPER } { STREAM } =~ s/\s+/ /gx ;
$ streamHash - > { HELPER } { STREAMACTIVE } = 1 ; # Statusbit wenn ein Stream aktiviert ist
}
$ ret . = "<br>" ;
Log3 ( $ strmdev , 4 , "$strmdev - generic Stream params:\n$htag" ) ;
if ( ! $ hb ) {
$ ret . = "<a onClick=\"$cmdrefresh\" onmouseover=\"Tip('$ttrefresh')\" onmouseout=\"UnTip()\">$imgrefresh </a>" ;
$ ret . = $ imgblank ;
2018-12-30 20:20:27 +00:00
2020-07-12 12:31:21 +00:00
if ( ReadingsVal ( $ camname , "Record" , "Stop" ) eq "Stop" ) { # Aufnahmebutton endlos Start
$ ret . = "<a onClick=\"$cmdrecendless\" onmouseover=\"Tip('$ttrecstart')\" onmouseout=\"UnTip()\">$imgrecendless </a>" ;
} else { # Aufnahmebutton Stop
$ ret . = "<a onClick=\"$cmdrecstop\" onmouseover=\"Tip('$ttrecstop')\" onmouseout=\"UnTip()\">$imgrecstop </a>" ;
}
2018-12-30 20:20:27 +00:00
2020-07-12 12:31:21 +00:00
$ ret . = "<a onClick=\"$cmddosnap\" onmouseover=\"Tip('$ttsnap')\" onmouseout=\"UnTip()\">$imgdosnap </a>" ;
}
$ ret . = "</td>" ;
if ( AttrVal ( $ camname , "ptzPanel_use" , 1 ) ) {
2020-07-17 10:58:15 +00:00
my % pars = ( linkparent = > $ camname ,
linkname = > $ strmdev ,
ftui = > $ ftui
) ;
my $ ptz_ret = ptzPanel ( \ % pars ) ;
2020-07-12 12:31:21 +00:00
if ( $ ptz_ret ) {
$ ret . = "<td>$ptz_ret</td>" ;
}
}
return $ ret ;
}
######################################################################################
# Streaming Device Typ: hls
sub _streamDevHLS {
my $ params = shift ;
my $ camname = $ params - > { camname } ;
my $ strmdev = $ params - > { strmdev } ;
my $ hash = $ defs { $ camname } ;
my $ streamHash = $ defs { $ strmdev } ;
my $ ftui = $ params - > { ftui } ;
my $ pws = $ params - > { pws } ;
my $ ha = $ params - > { ha } ;
my $ hb = $ params - > { hb } ;
my $ cmdrefresh = $ params - > { cmdrefresh } ;
my $ cmdrecendless = $ params - > { cmdrecendless } ;
my $ cmdrecstop = $ params - > { cmdrecstop } ;
my $ cmddosnap = $ params - > { cmddosnap } ;
my $ imgrecendless = $ params - > { imgrecendless } ;
my $ imgrecstop = $ params - > { imgrecstop } ;
my $ imgdosnap = $ params - > { imgdosnap } ;
my $ imgrefresh = $ params - > { imgrefresh } ;
my $ imgblank = $ params - > { imgblank } ;
my $ ttrefresh = $ params - > { ttrefresh } ;
my $ ttsnap = $ params - > { ttsnap } ;
my $ ttrecstop = $ params - > { ttrecstop } ;
my $ ttrecstart = $ params - > { ttrecstart } ;
my ( $ cause , $ ret ) = ( "" , "" ) ;
# es ist ein .m3u8-File bzw. ein Link dorthin zu übergeben
my $ cam = AttrVal ( $ camname , "alias" , $ camname ) ;
my $ m3u8 = AttrVal ( $ camname , "hlsStrmObject" , "" ) ;
if ( $ m3u8 =~ m/^\s*(.*)\s*$/s ) {
$ m3u8 = $ 1 ;
$ m3u8 =~ s/\$NAME/$camname/gx ;
}
my $ d = $ camname ;
$ d =~ s/\./_/x ; # Namensableitung zur javascript Codeanpassung
if ( ! $ m3u8 ) {
$ cause = "You have to specify attribute \"hlsStrmObject\" in Camera $cam !" ;
$ ret . = "<td> <br> <b> $cause </b> <br><br></td>" ;
$ ret . = '</tr>' ;
$ ret . = '</tbody>' ;
$ ret . = '</table>' ;
$ ret . = '</div>' ;
return $ ret ;
}
$ ret . = "<td><video $ha id=video_$d controls autoplay muted></video><br>" ;
$ ret . = bindhlsjs ( $ camname , $ strmdev , $ m3u8 , $ d ) ;
2018-12-30 20:20:27 +00:00
2020-07-12 12:31:21 +00:00
$ streamHash - > { HELPER } { STREAM } = "<video $pws id=video_$d></video>" ; # Stream für "set <SSCamSTRM-Device> popupStream" speichern
$ streamHash - > { HELPER } { STREAMACTIVE } = 1 ; # Statusbit wenn ein Stream aktiviert ist
if ( ! $ hb ) {
$ ret . = "<a onClick=\"$cmdrefresh\" onmouseover=\"Tip('$ttrefresh')\" onmouseout=\"UnTip()\">$imgrefresh </a>" ;
$ ret . = $ imgblank ;
2018-11-20 23:30:55 +00:00
2020-07-12 12:31:21 +00:00
if ( ReadingsVal ( $ camname , "Record" , "Stop" ) eq "Stop" ) { # Aufnahmebutton endlos Start
$ ret . = "<a onClick=\"$cmdrecendless\" onmouseover=\"Tip('$ttrecstart')\" onmouseout=\"UnTip()\">$imgrecendless </a>" ;
} else { # Aufnahmebutton Stop
$ ret . = "<a onClick=\"$cmdrecstop\" onmouseover=\"Tip('$ttrecstop')\" onmouseout=\"UnTip()\">$imgrecstop </a>" ;
}
$ ret . = "<a onClick=\"$cmddosnap\" onmouseover=\"Tip('$ttsnap')\" onmouseout=\"UnTip()\">$imgdosnap </a>" ;
}
$ ret . = "</td>" ;
if ( AttrVal ( $ camname , "ptzPanel_use" , 1 ) ) {
2020-07-17 10:58:15 +00:00
my % pars = ( linkparent = > $ camname ,
linkname = > $ strmdev ,
ftui = > $ ftui
) ;
my $ ptz_ret = ptzPanel ( \ % pars ) ;
2020-07-12 12:31:21 +00:00
if ( $ ptz_ret ) {
$ ret . = "<td>$ptz_ret</td>" ;
}
}
return $ ret ;
}
######################################################################################
# Streaming Device Typ: switched
sub _streamDevSWITCHED {
my $ params = shift ;
my $ camname = $ params - > { camname } ;
my $ strmdev = $ params - > { strmdev } ;
my $ hash = $ defs { $ camname } ;
2020-07-13 20:38:52 +00:00
2020-07-12 12:31:21 +00:00
my $ cmdmjpegrun = $ params - > { cmdmjpegrun } ;
my $ cmdhlsrun = $ params - > { cmdhlsrun } ;
my $ cmdlrirun = $ params - > { cmdlrirun } ;
my $ cmdlh264run = $ params - > { cmdlh264run } ;
my $ cmdlsnaprun = $ params - > { cmdlsnaprun } ;
my $ cmdlmjpegrun = $ params - > { cmdlmjpegrun } ;
2020-07-13 20:38:52 +00:00
2020-07-12 12:31:21 +00:00
my $ imgmjpegrun = $ params - > { imgmjpegrun } ;
my $ imghlsrun = $ params - > { imghlsrun } ;
my $ imglh264run = $ params - > { imglh264run } ;
my $ imglmjpegrun = $ params - > { imglmjpegrun } ;
my $ imglsnaprun = $ params - > { imglsnaprun } ;
2020-07-13 20:38:52 +00:00
my $ imglrirun = $ params - > { imglrirun } ;
2020-07-12 12:31:21 +00:00
my $ ttmjpegrun = $ params - > { ttmjpegrun } ;
my $ tthlsrun = $ params - > { tthlsrun } ;
my $ ttlrrun = $ params - > { ttlrrun } ;
my $ tth264run = $ params - > { tth264run } ;
my $ ttlmjpegrun = $ params - > { ttlmjpegrun } ;
my $ ttlsnaprun = $ params - > { ttlsnaprun } ;
my ( $ link , $ cause , $ ret ) = ( "" , "" , "" ) ;
my $ wltype = $ hash - > { HELPER } { WLTYPE } ;
$ link = $ hash - > { HELPER } { LINK } ;
2020-07-13 20:38:52 +00:00
if ( ! $ link ) {
2020-07-12 12:31:21 +00:00
my $ cam = AttrVal ( $ camname , "alias" , $ camname ) ;
$ cause = "Playback cam \"$cam\" switched off" ;
$ ret . = "<td> <br> <b> $cause </b> <br><br>" ;
$ ret . = "<a onClick=\"$cmdmjpegrun\" onmouseover=\"Tip('$ttmjpegrun')\" onmouseout=\"UnTip()\">$imgmjpegrun </a>" ;
$ ret . = "<a onClick=\"$cmdhlsrun\" onmouseover=\"Tip('$tthlsrun')\" onmouseout=\"UnTip()\">$imghlsrun </a>" if ( IsCapHLS ( $ hash ) ) ;
$ ret . = "<a onClick=\"$cmdlrirun\" onmouseover=\"Tip('$ttlrrun')\" onmouseout=\"UnTip()\">$imglrirun </a>" ;
$ ret . = "<a onClick=\"$cmdlh264run\" onmouseover=\"Tip('$tth264run')\" onmouseout=\"UnTip()\">$imglh264run </a>" ;
$ ret . = "<a onClick=\"$cmdlmjpegrun\" onmouseover=\"Tip('$ttlmjpegrun')\" onmouseout=\"UnTip()\">$imglmjpegrun </a>" ;
$ ret . = "<a onClick=\"$cmdlsnaprun\" onmouseover=\"Tip('$ttlsnaprun')\" onmouseout=\"UnTip()\">$imglsnaprun </a>" ;
2020-07-13 20:38:52 +00:00
$ ret . = "</td>" ;
return $ ret ;
2018-11-20 23:30:55 +00:00
}
2020-07-13 20:38:52 +00:00
# Streaming ausführen
no strict "refs" ; ## no critic 'NoStrict'
if ( defined & { $ sdswfn { $ wltype } { fn } } ) {
$ ret . = & { $ sdswfn { $ wltype } { fn } } ( $ params ) ;
} else {
$ cause = qq{ Streaming of format "$wltype" is not supported } ;
$ ret . = "<td> <br> <b> $cause </b> <br><br></td>" ;
}
use strict "refs" ;
Log3 ( $ strmdev , 4 , "$strmdev - Link called: $link" ) ;
2019-11-06 20:01:26 +00:00
undef $ link ;
2020-07-12 12:31:21 +00:00
2018-11-20 23:30:55 +00:00
return $ ret ;
}
2020-07-13 20:38:52 +00:00
######################################################################################
# Streaming Device Typ: switched image
sub __switchedIMAGE {
my $ params = shift ;
my $ camname = $ params - > { camname } ;
my $ strmdev = $ params - > { strmdev } ;
my $ hash = $ defs { $ camname } ;
my $ streamHash = $ defs { $ strmdev } ;
my $ ftui = $ params - > { ftui } ;
my $ pws = $ params - > { pws } ;
my $ ha = $ params - > { ha } ;
my $ hau = $ params - > { hau } ;
my $ cmdrecendless = $ params - > { cmdrecendless } ;
my $ cmdrecstop = $ params - > { cmdrecstop } ;
my $ cmddosnap = $ params - > { cmddosnap } ;
my $ cmdstop = $ params - > { cmdstop } ;
my $ imgrecendless = $ params - > { imgrecendless } ;
my $ imgrecstop = $ params - > { imgrecstop } ;
my $ imgdosnap = $ params - > { imgdosnap } ;
my $ imgblank = $ params - > { imgblank } ;
my $ imgstop = $ params - > { imgstop } ;
my $ ttsnap = $ params - > { ttsnap } ;
my $ ttrecstop = $ params - > { ttrecstop } ;
my $ ttrecstart = $ params - > { ttrecstart } ;
my $ ttcmdstop = $ params - > { ttcmdstop } ;
my ( $ link , $ ret ) = ( "" , "" ) ;
$ link = $ hash - > { HELPER } { LINK } ;
if ( ReadingsVal ( $ camname , "SVSversion" , "8.2.3-5828" ) eq "8.2.3-5828" && ReadingsVal ( $ camname , "CamVideoType" , "" ) !~ /MJPEG/ ) {
$ ret . = "<td> <br> <b> Because SVS version 8.2.3-5828 is running you cannot see the MJPEG-Stream. Please upgrade to a higher SVS version ! </b> <br><br>" ;
} else {
if ( ! $ ftui ) {
$ ret . = "<td><img src=$link $ha onClick=\"FW_okDialog('<img src=$link $pws>')\"><br>" if ( $ link ) ;
} else {
$ ret . = "<td><img src=$link $ha><br>" if ( $ link ) ;
}
$ streamHash - > { HELPER } { STREAM } = "<img src=$link $pws>" ; # Stream für "set <SSCamSTRM-Device> popupStream" speichern
$ streamHash - > { HELPER } { STREAMACTIVE } = 1 ; # Statusbit wenn ein Stream aktiviert ist
}
$ ret . = "<a onClick=\"$cmdstop\" onmouseover=\"Tip('$ttcmdstop')\" onmouseout=\"UnTip()\">$imgstop </a>" ;
$ ret . = $ imgblank ;
if ( $ hash - > { HELPER } { RUNVIEW } =~ /live_fw/x ) {
if ( ReadingsVal ( $ camname , "Record" , "Stop" ) eq "Stop" ) { # Aufnahmebutton endlos Start
$ ret . = "<a onClick=\"$cmdrecendless\" onmouseover=\"Tip('$ttrecstart')\" onmouseout=\"UnTip()\">$imgrecendless </a>" ;
} else { # Aufnahmebutton Stop
$ ret . = "<a onClick=\"$cmdrecstop\" onmouseover=\"Tip('$ttrecstop')\" onmouseout=\"UnTip()\">$imgrecstop </a>" ;
}
$ ret . = "<a onClick=\"$cmddosnap\" onmouseover=\"Tip('$ttsnap')\" onmouseout=\"UnTip()\">$imgdosnap </a>" ;
}
$ ret . = "</td>" ;
if ( AttrVal ( $ camname , "ptzPanel_use" , 1 ) && $ hash - > { HELPER } { RUNVIEW } =~ /live_fw/x ) {
2020-07-17 10:58:15 +00:00
my % pars = ( linkparent = > $ camname ,
linkname = > $ strmdev ,
ftui = > $ ftui
) ;
my $ ptz_ret = ptzPanel ( \ % pars ) ;
2020-07-13 20:38:52 +00:00
if ( $ ptz_ret ) {
$ ret . = "<td>$ptz_ret</td>" ;
}
}
if ( $ hash - > { HELPER } { AUDIOLINK } && ReadingsVal ( $ camname , "CamAudioType" , "Unknown" ) !~ /Unknown/ && ! $ hau ) {
$ ret . = "</tr>" ;
$ ret . = '<tr class="odd">' ;
$ ret . = " <td> < audio src = $ hash - > { HELPER } { AUDIOLINK } preload = 'none' volume = '0.5' controls >
Your browser does not support the audio element .
</audio> " ;
$ ret . = "</td>" ;
$ ret . = "<td></td>" if ( AttrVal ( $ camname , "ptzPanel_use" , 0 ) ) ;
}
return $ ret ;
}
######################################################################################
# Streaming Device Typ: switched iframe
sub __switchedIFRAME {
my $ params = shift ;
my $ camname = $ params - > { camname } ;
my $ strmdev = $ params - > { strmdev } ;
my $ hash = $ defs { $ camname } ;
my $ streamHash = $ defs { $ strmdev } ;
my $ ftui = $ params - > { ftui } ;
my $ pws = $ params - > { pws } ;
my $ ha = $ params - > { ha } ;
my $ hau = $ params - > { hau } ;
my $ cmdstop = $ params - > { cmdstop } ;
my $ cmdrefresh = $ params - > { cmdrefresh } ;
my $ imgstop = $ params - > { imgstop } ;
my $ imgrefresh = $ params - > { imgrefresh } ;
my $ ttcmdstop = $ params - > { ttcmdstop } ;
my $ ttrefresh = $ params - > { ttrefresh } ;
my ( $ link , $ ret ) = ( "" , "" ) ;
$ link = $ hash - > { HELPER } { LINK } ;
if ( ! $ ftui ) {
$ ret . = "<td><iframe src=$link $ha controls autoplay onClick=\"FW_okDialog('<img src=$link $pws>')\">" .
"Iframes disabled" .
"</iframe><br>" if ( $ link ) ;
} else {
$ ret . = "<td><iframe src=$link $ha controls autoplay>" .
"Iframes disabled" .
"</iframe><br>" if ( $ link ) ;
}
$ streamHash - > { HELPER } { STREAM } = "<iframe src=$link $pws controls autoplay>" .
"Iframes disabled" .
"</iframe>" ; # Stream für "set <SSCamSTRM-Device> popupStream" speichern
$ streamHash - > { HELPER } { STREAMACTIVE } = 1 ; # Statusbit wenn ein Stream aktiviert ist
$ ret . = "<a onClick=\"$cmdstop\" onmouseover=\"Tip('$ttcmdstop')\" onmouseout=\"UnTip()\">$imgstop </a>" ;
$ ret . = "<a onClick=\"$cmdrefresh\" onmouseover=\"Tip('$ttrefresh')\" onmouseout=\"UnTip()\">$imgrefresh </a>" ;
$ ret . = "</td>" ;
if ( $ hash - > { HELPER } { AUDIOLINK } && ReadingsVal ( $ camname , "CamAudioType" , "Unknown" ) !~ /Unknown/ && ! $ hau ) {
$ ret . = '</tr>' ;
$ ret . = '<tr class="odd">' ;
$ ret . = " <td> < audio src = $ hash - > { HELPER } { AUDIOLINK } preload = 'none' volume = '0.5' controls >
Your browser does not support the audio element .
</audio> " ;
$ ret . = "</td>" ;
$ ret . = "<td></td>" if ( AttrVal ( $ camname , "ptzPanel_use" , 0 ) ) ;
}
return $ ret ;
}
######################################################################################
# Streaming Device Typ: switched video
sub __switchedVIDEO {
my $ params = shift ;
my $ camname = $ params - > { camname } ;
my $ strmdev = $ params - > { strmdev } ;
my $ hash = $ defs { $ camname } ;
my $ streamHash = $ defs { $ strmdev } ;
my $ ftui = $ params - > { ftui } ;
my $ pws = $ params - > { pws } ;
my $ ha = $ params - > { ha } ;
my $ hau = $ params - > { hau } ;
my $ cmdstop = $ params - > { cmdstop } ;
my $ imgstop = $ params - > { imgstop } ;
my $ ttcmdstop = $ params - > { ttcmdstop } ;
my ( $ link , $ ret ) = ( "" , "" ) ;
$ link = $ hash - > { HELPER } { LINK } ;
$ ret . = " <td> < video $ ha controls autoplay >
< source src = $ link type = \ " video / mp4 \ " >
< source src = $ link type = \ " video / ogg \ " >
< source src = $ link type = \ " video / webm \ " >
Your browser does not support the video tag
</video> <br> " ;
$ streamHash - > { HELPER } { STREAM } = "<video $pws controls autoplay>" .
"<source src=$link type=\"video/mp4\">" .
"<source src=$link type=\"video/ogg\">" .
"<source src=$link type=\"video/webm\">" .
"Your browser does not support the video tag" .
"</video>" ; # Stream für "set <SSCamSTRM-Device> popupStream" speichern
$ streamHash - > { HELPER } { STREAMACTIVE } = 1 ; # Statusbit wenn ein Stream aktiviert ist
$ ret . = "<a onClick=\"$cmdstop\" onmouseover=\"Tip('$ttcmdstop')\" onmouseout=\"UnTip()\">$imgstop </a>" ;
$ ret . = "</td>" ;
if ( $ hash - > { HELPER } { AUDIOLINK } && ReadingsVal ( $ camname , "CamAudioType" , "Unknown" ) !~ /Unknown/ && ! $ hau ) {
$ ret . = '</tr>' ;
$ ret . = '<tr class="odd">' ;
$ ret . = " <td> < audio src = $ hash - > { HELPER } { AUDIOLINK } preload = 'none' volume = '0.5' controls >
Your browser does not support the audio element .
</audio> " ;
$ ret . = "</td>" ;
$ ret . = "<td></td>" if ( AttrVal ( $ camname , "ptzPanel_use" , 0 ) ) ;
}
return $ ret ;
}
######################################################################################
# Streaming Device Typ: switched base64img
sub __switchedBASE64IMG {
my $ params = shift ;
my $ camname = $ params - > { camname } ;
my $ strmdev = $ params - > { strmdev } ;
my $ hash = $ defs { $ camname } ;
my $ streamHash = $ defs { $ strmdev } ;
my $ ftui = $ params - > { ftui } ;
my $ pws = $ params - > { pws } ;
my $ ha = $ params - > { ha } ;
my $ cmdstop = $ params - > { cmdstop } ;
my $ cmddosnap = $ params - > { cmddosnap } ;
my $ imgstop = $ params - > { imgstop } ;
my $ imgdosnap = $ params - > { imgdosnap } ;
my $ imgblank = $ params - > { imgblank } ;
my $ ttcmdstop = $ params - > { ttcmdstop } ;
my $ ttsnap = $ params - > { ttsnap } ;
my ( $ link , $ ret ) = ( "" , "" ) ;
$ link = $ hash - > { HELPER } { LINK } ;
if ( ! $ ftui ) {
$ ret . = "<td><img src='data:image/jpeg;base64,$link' $ha onClick=\"FW_okDialog('<img src=data:image/jpeg;base64,$link $pws>')\"><br>" if ( $ link ) ;
} else {
$ ret . = "<td><img src='data:image/jpeg;base64,$link' $ha><br>" if ( $ link ) ;
}
$ streamHash - > { HELPER } { STREAM } = "<img src=data:image/jpeg;base64,$link $pws>" ; # Stream für "get <SSCamSTRM-Device> popupStream" speichern
$ streamHash - > { HELPER } { STREAMACTIVE } = 1 ; # Statusbit wenn ein Stream aktiviert ist
$ ret . = "<a onClick=\"$cmdstop\" onmouseover=\"Tip('$ttcmdstop')\" onmouseout=\"UnTip()\">$imgstop </a>" ;
$ ret . = $ imgblank ;
$ ret . = "<a onClick=\"$cmddosnap\" onmouseover=\"Tip('$ttsnap')\" onmouseout=\"UnTip()\">$imgdosnap </a>" ;
$ ret . = "</td>" ;
return $ ret ;
}
######################################################################################
# Streaming Device Typ: switched embed
sub __switchedEMBED {
my $ params = shift ;
my $ camname = $ params - > { camname } ;
my $ strmdev = $ params - > { strmdev } ;
my $ hash = $ defs { $ camname } ;
my $ streamHash = $ defs { $ strmdev } ;
my $ ftui = $ params - > { ftui } ;
my $ pws = $ params - > { pws } ;
my $ ha = $ params - > { ha } ;
my ( $ link , $ ret ) = ( "" , "" ) ;
$ link = $ hash - > { HELPER } { LINK } ;
if ( ! $ ftui ) {
$ ret . = "<td><embed src=$link $ha onClick=\"FW_okDialog('<img src=$link $pws>')\"></td>" if ( $ link ) ;
} else {
$ ret . = "<td><embed src=$link $ha></td>" if ( $ link ) ;
}
$ streamHash - > { HELPER } { STREAM } = "<embed src=$link $pws>" ; # Stream für "set <SSCamSTRM-Device> popupStream" speichern
$ streamHash - > { HELPER } { STREAMACTIVE } = 1 ; # Statusbit wenn ein Stream aktiviert ist
return $ ret ;
}
######################################################################################
# Streaming Device Typ: switched hls
sub __switchedHLS {
my $ params = shift ;
my $ camname = $ params - > { camname } ;
my $ strmdev = $ params - > { strmdev } ;
my $ hash = $ defs { $ camname } ;
my $ streamHash = $ defs { $ strmdev } ;
my $ ftui = $ params - > { ftui } ;
my $ pws = $ params - > { pws } ;
my $ ha = $ params - > { ha } ;
my $ cmdrecendless = $ params - > { cmdrecendless } ;
my $ cmdrecstop = $ params - > { cmdrecstop } ;
my $ cmddosnap = $ params - > { cmddosnap } ;
my $ cmdstop = $ params - > { cmdstop } ;
my $ cmdrefresh = $ params - > { cmdrefresh } ;
my $ cmdhlsreact = $ params - > { cmdhlsreact } ;
my $ imgrecendless = $ params - > { imgrecendless } ;
my $ imgrecstop = $ params - > { imgrecstop } ;
my $ imgdosnap = $ params - > { imgdosnap } ;
my $ imgblank = $ params - > { imgblank } ;
my $ imgstop = $ params - > { imgstop } ;
my $ imgrefresh = $ params - > { imgrefresh } ;
my $ imghlsreact = $ params - > { imghlsreact } ;
my $ ttsnap = $ params - > { ttsnap } ;
my $ ttrecstop = $ params - > { ttrecstop } ;
my $ ttrecstart = $ params - > { ttrecstart } ;
my $ ttcmdstop = $ params - > { ttcmdstop } ;
my $ ttrefresh = $ params - > { ttrefresh } ;
my $ tthlsreact = $ params - > { tthlsreact } ;
my ( $ link , $ ret ) = ( "" , "" ) ;
$ link = $ hash - > { HELPER } { LINK } ;
$ ret . = " <td> < video $ ha controls autoplay >
< source src = $ link type = \ " application / x - mpegURL \ " >
< source src = $ link type = \ " video / MP2T \ " >
Your browser does not support the video tag
</video> <br> " ;
$ streamHash - > { HELPER } { STREAM } = "<video $pws controls autoplay>" .
"<source src=$link type=\"application/x-mpegURL\">" .
"<source src=$link type=\"video/MP2T\">" .
"Your browser does not support the video tag" .
"</video>" ; # Stream für "set <SSCamSTRM-Device> popupStream" speichern
$ streamHash - > { HELPER } { STREAMACTIVE } = 1 ; # Statusbit wenn ein Stream aktiviert ist
$ ret . = "<a onClick=\"$cmdstop\" onmouseover=\"Tip('$ttcmdstop')\" onmouseout=\"UnTip()\">$imgstop </a>" ;
$ ret . = "<a onClick=\"$cmdrefresh\" onmouseover=\"Tip('$ttrefresh')\" onmouseout=\"UnTip()\">$imgrefresh </a>" ;
$ ret . = "<a onClick=\"$cmdhlsreact\" onmouseover=\"Tip('$tthlsreact')\" onmouseout=\"UnTip()\">$imghlsreact </a>" ;
$ ret . = $ imgblank ;
if ( ReadingsVal ( $ camname , "Record" , "Stop" ) eq "Stop" ) { # Aufnahmebutton endlos Start
$ ret . = "<a onClick=\"$cmdrecendless\" onmouseover=\"Tip('$ttrecstart')\" onmouseout=\"UnTip()\">$imgrecendless </a>" ;
} else { # Aufnahmebutton Stop
$ ret . = "<a onClick=\"$cmdrecstop\" onmouseover=\"Tip('$ttrecstop')\" onmouseout=\"UnTip()\">$imgrecstop </a>" ;
}
$ ret . = "<a onClick=\"$cmddosnap\" onmouseover=\"Tip('$ttsnap')\" onmouseout=\"UnTip()\">$imgdosnap </a>" ;
$ ret . = "</td>" ;
if ( AttrVal ( $ camname , "ptzPanel_use" , 1 ) ) {
2020-07-17 10:58:15 +00:00
my % pars = ( linkparent = > $ camname ,
linkname = > $ strmdev ,
ftui = > $ ftui
) ;
my $ ptz_ret = ptzPanel ( \ % pars ) ;
2020-07-13 20:38:52 +00:00
if ( $ ptz_ret ) {
$ ret . = "<td>$ptz_ret</td>" ;
}
}
return $ ret ;
}
2018-12-30 20:20:27 +00:00
#############################################################################################
# hls.js laden für Streamimgdevice Typen HLS, RTSP
# $m3u8 - ein .m3u8-File oder ein entsprechender Link
# $d - ein Unique-Name zur Codeableitung (darf keinen . enthalten)
#############################################################################################
2020-06-28 18:49:16 +00:00
sub bindhlsjs {
2018-12-30 20:20:27 +00:00
my ( $ camname , $ strmdev , $ m3u8 , $ d ) = @ _ ;
my $ hlsjs = "sscam_hls.js" ; # hls.js Release von Projekteite https://github.com/video-dev/hls.js/releases
2020-06-30 21:16:26 +00:00
my ( $ ret , $ uns ) ;
2018-12-30 20:20:27 +00:00
$ ret . = " < meta charset = \ " utf - 8 \ " / >
< ! - - script src = \ " https: //c dn . jsdelivr . net /npm/ hls . js \ @ latest \ " > </script-->
" ;
my $ dcs = ( devspec2array ( "TYPE=SSCam:FILTER=MODEL=SVS" ) ) [ 0 ] ; # ist ein SVS-Device angelegt ?
2020-06-30 21:16:26 +00:00
$ uns = AttrVal ( $ dcs , "hlsNetScript" , 0 ) if ( $ dcs ) ; # ist in einem SVS Device die Nutzung hls.js auf Projektseite ausgewählt ?
2018-12-30 20:20:27 +00:00
if ( $ uns ) {
my $ lib = "https://cdn.jsdelivr.net/npm/hls.js\@latest" ;
$ ret . = "<script src=\"$lib\"></script>" ;
Log3 ( $ strmdev , 4 , "$strmdev - HLS Streaming use net library \"$lib\" " ) ;
} else {
$ ret . = "<script type=\"text/javascript\" src=\"/fhem/pgm2/$hlsjs\"></script>" ;
Log3 ( $ strmdev , 4 , "$strmdev - HLS Streaming use local file \"/fhem/pgm2/$hlsjs\" " ) ;
}
$ ret . = " <script>
if ( Hls . isSupported ( ) ) {
var video_ $ d = document . getElementById ( 'video_$d' ) ;
var hls = new Hls ( ) ;
// bind them together
hls . attachMedia ( video_ $ d ) ;
hls . on ( Hls . Events . MEDIA_ATTACHED , function ( ) {
console . log ( \ " video and hls . js are now bound together ! \ " ) ;
hls . loadSource ( \ " $ m3u8 \ " ) ;
hls . on ( Hls . Events . MANIFEST_PARSED , function ( event , data ) {
console . log ( \ " manifest loaded , found \ " + data . levels . length + \ " quality level \ " ) ;
video_ $ d . play ( ) ;
} ) ;
} ) ;
}
</script> " ;
return $ ret ;
}
2018-11-20 23:30:55 +00:00
###############################################################################
# Schnappschußgalerie zusammenstellen
2018-12-06 22:22:15 +00:00
# Verwendung durch SSCamSTRM-Devices
2018-11-20 23:30:55 +00:00
###############################################################################
2020-06-28 18:49:16 +00:00
sub composeGallery {
2020-07-17 10:58:15 +00:00
my $ paref = shift ;
my $ name = $ paref - > { linkparent } ;
my $ strmdev = $ paref - > { linkname } ;
my $ ftui = $ paref - > { ftui } ;
2020-07-17 11:52:37 +00:00
2018-11-20 23:30:55 +00:00
my $ hash = $ defs { $ name } ;
2019-10-14 18:51:54 +00:00
my $ camname = $ hash - > { CAMNAME } ;
2019-07-12 20:10:53 +00:00
my $ sgc = AttrVal ( $ name , "snapGalleryColumns" , 3 ) ; # Anzahl der Images in einer Tabellenzeile
my $ lss = ReadingsVal ( $ name , "LastSnapTime" , "" ) ; # Zeitpunkt neueste Aufnahme
my $ lang = AttrVal ( "global" , "language" , "EN" ) ; # Systemsprache
2019-11-02 10:26:16 +00:00
my $ limit = AttrVal ( $ name , "snapGalleryNumber" , 3 ) ; # abgerufene Anzahl Snaps
2019-07-12 20:10:53 +00:00
my $ totalcnt = $ hash - > { HELPER } { TOTALCNT } ; # totale Anzahl Snaps
$ limit = $ totalcnt if ( $ limit > $ totalcnt ) ; # wenn weniger Snaps vorhanden sind als $limit -> Text in Anzeige korrigieren
my $ uuid = "" ;
2019-07-14 19:43:22 +00:00
my $ hdrAlign = "center" ;
2018-11-20 23:30:55 +00:00
my $ lupt = ( ( ReadingsTimestamp ( $ name , "LastSnapTime" , " " ) gt ReadingsTimestamp ( $ name , "LastUpdateTime" , " " ) )
? ReadingsTimestamp ( $ name , "LastSnapTime" , " " )
2020-06-28 18:49:16 +00:00
: ReadingsTimestamp ( $ name , "LastUpdateTime" , " " ) ) ; # letzte Aktualisierung
2018-11-20 23:30:55 +00:00
$ lupt =~ s/ / \/ / ;
2019-09-21 13:03:06 +00:00
my ( $ alias , $ dlink , $ hb ) = ( "" , "" , "" ) ;
2019-10-26 18:41:42 +00:00
my ( $ cache , $ imgdat , $ imgTm ) ;
2018-11-20 23:30:55 +00:00
2019-07-12 20:10:53 +00:00
if ( $ strmdev ) {
2020-06-28 18:49:16 +00:00
my $ streamHash = $ defs { $ strmdev } ; # Hash des SSCamSTRM-Devices
2020-07-16 06:14:56 +00:00
$ uuid = $ streamHash - > { FUUID } ; # eindeutige UUID des Streamingdevices
2020-06-28 18:49:16 +00:00
delete $ streamHash - > { HELPER } { STREAM } ;
2019-09-09 22:24:51 +00:00
$ alias = AttrVal ( $ strmdev , "alias" , $ strmdev ) ; # Linktext als Aliasname oder Devicename setzen
2019-09-21 13:03:06 +00:00
if ( AttrVal ( $ strmdev , "noLink" , 0 ) ) {
$ dlink = $ alias ; # keine Links im Stream-Dev generieren
} else {
$ dlink = "<a href=\"/fhem?detail=$strmdev\">$alias</a>" ;
}
2019-07-12 20:10:53 +00:00
}
2018-12-06 22:22:15 +00:00
2020-07-16 06:14:56 +00:00
my $ cmddosnap = "FW_cmd('$FW_ME$FW_subdir?XHR=1&cmd=set $name snap 1 2 STRM:$uuid')" ; # Snapshot auslösen mit Kennzeichnung "by STRM-Device"
my $ imgdosnap = "<img src=\"$FW_ME/www/images/sscam/black_btn_DOSNAP.png\">" ;
2019-07-12 20:10:53 +00:00
# bei Aufruf durch FTUI Kommandosyntax anpassen
if ( $ ftui ) {
$ cmddosnap = "ftui.setFhemStatus('set $name snap 1 2 STRM:$uuid')" ;
}
2018-11-20 23:30:55 +00:00
2019-07-14 18:18:07 +00:00
my $ ha = AttrVal ( $ name , "snapGalleryHtmlAttr" , AttrVal ( $ name , "htmlattr" , 'width="500" height="325"' ) ) ;
2019-09-09 22:24:51 +00:00
2020-06-28 18:49:16 +00:00
# falls "composeGallery" durch ein SSCamSTRM-Device aufgerufen wird
2019-04-07 10:20:19 +00:00
my $ pws = "" ;
2018-11-20 23:30:55 +00:00
if ( $ strmdev ) {
2019-07-14 18:18:07 +00:00
$ pws = AttrVal ( $ strmdev , "popupWindowSize" , "" ) ; # Größe eines Popups (umgelegt: Forum:https://forum.fhem.de/index.php/topic,45671.msg927912.html#msg927912)
2020-07-10 15:16:12 +00:00
$ pws =~ s/"//xg if ( $ pws ) ;
2019-07-14 18:18:07 +00:00
$ ha = AttrVal ( $ strmdev , "htmlattr" , $ ha ) ; # htmlattr vom SSCamSTRM-Device übernehmen falls von SSCamSTRM-Device aufgerufen und gesetzt
2019-09-21 13:03:06 +00:00
$ hb = AttrVal ( $ strmdev , "hideButtons" , 0 ) ; # Drucktasten im unteren Bereich ausblenden ?
2019-07-14 18:18:07 +00:00
if ( $ ftui ) {
$ ha = AttrVal ( $ strmdev , "htmlattrFTUI" , $ ha ) ; # wenn aus FTUI aufgerufen divers setzen
}
2018-11-20 23:30:55 +00:00
}
# wenn SSCamSTRM-device genutzt wird und attr "snapGalleryBoost" nicht gesetzt ist -> Warnung in Gallerie ausgeben
my $ sgbnote = " " ;
if ( $ strmdev && ! AttrVal ( $ name , "snapGalleryBoost" , 0 ) ) {
$ sgbnote = "<b>CAUTION</b> - No snapshots can be retrieved. Please set the attribute \"snapGalleryBoost=1\" in device <a href=\"/fhem?detail=$name\">$name</a>" if ( $ lang eq "EN" ) ;
2020-06-28 18:49:16 +00:00
$ sgbnote = "<b>ACHTUNG</b> - Es können keine Schnappschüsse abgerufen werden. Bitte setzen sie das Attribut \"snapGalleryBoost=1\" im Device <a href=\"/fhem?detail=$name\">$name</a>" if ( $ lang eq "DE" ) ;
2018-11-20 23:30:55 +00:00
}
2018-12-30 20:20:27 +00:00
# Javascript Bibliothek für Tooltips (http://www.walterzorn.de/tooltip/tooltip.htm#download) und Texte
my $ ttjs = "/fhem/pgm2/sscam_tooltip.js" ;
2019-07-12 20:10:53 +00:00
2020-07-10 15:16:12 +00:00
my $ ttsnap = $ ttips_en { "ttsnap" } ; $ ttsnap =~ s/§NAME§/$camname/xg ;
if ( AttrVal ( "global" , "language" , "EN" ) =~ /DE/x ) {
$ ttsnap = $ ttips_de { "ttsnap" } ; $ ttsnap =~ s/§NAME§/$camname/xg ;
2018-12-30 20:20:27 +00:00
}
2019-07-14 18:18:07 +00:00
# Header Generierung
2019-09-18 18:17:39 +00:00
my $ header ;
2019-09-21 13:03:06 +00:00
if ( $ strmdev ) { # Forum: https://forum.fhem.de/index.php/topic,45671.msg975610.html#msg975610
2019-09-18 18:17:39 +00:00
if ( $ ftui ) {
$ header . = "$dlink <br>" if ( ! AttrVal ( $ strmdev , "hideDisplayNameFTUI" , 0 ) ) ;
} else {
$ header . = "$dlink <br>" if ( ! AttrVal ( $ strmdev , "hideDisplayName" , 0 ) ) ;
}
2019-07-14 18:18:07 +00:00
}
2019-09-18 18:17:39 +00:00
2018-11-20 23:30:55 +00:00
if ( $ lang eq "EN" ) {
2019-07-14 18:18:07 +00:00
$ header . = "Snapshots ($limit/$totalcnt) of camera <b>$camname</b> - newest Snapshot: $lss<br>" ;
2020-06-28 18:49:16 +00:00
$ header . = " (Possibly another snapshots are available. Last recall: $lupt)<br>" if ( AttrVal ( $ name , "snapGalleryBoost" , 0 ) ) ;
2018-11-20 23:30:55 +00:00
} else {
2019-07-14 18:18:07 +00:00
$ header . = "Schnappschüsse ($limit/$totalcnt) von Kamera <b>$camname</b> - neueste Aufnahme: $lss <br>" ;
2019-07-14 15:03:56 +00:00
$ lupt =~ /(\d+)-(\d\d)-(\d\d)\s+(.*)/ ;
2020-06-28 18:49:16 +00:00
$ lupt = "$3.$2.$1 $4" ;
$ header . = " (Eventuell sind neuere Aufnahmen verfügbar. Letzter Abruf: $lupt)<br>" if ( AttrVal ( $ name , "snapGalleryBoost" , 0 ) ) ;
2018-11-20 23:30:55 +00:00
}
$ header . = $ sgbnote ;
2019-02-06 21:06:40 +00:00
my $ gattr = ( AttrVal ( $ name , "snapGallerySize" , "Icon" ) eq "Full" ) ? $ ha: "" ;
2018-11-20 23:30:55 +00:00
# Ausgabetabelle erstellen
2020-07-16 06:14:56 +00:00
my $ htmlCode ;
2020-07-17 10:58:15 +00:00
$ htmlCode = "<html>" ;
2018-12-30 20:20:27 +00:00
$ htmlCode . = "<script type=\"text/javascript\" src=\"$ttjs\"></script>" ;
2019-07-14 19:43:22 +00:00
$ htmlCode . = "<div class=\"makeTable wide\"; style=\"text-align:$hdrAlign\"> $header <br>" ;
2019-07-14 15:03:56 +00:00
$ htmlCode . = '<table class="block wide internals" style="margin-left:auto;margin-right:auto">' ;
2018-11-20 23:30:55 +00:00
$ htmlCode . = "<tbody>" ;
$ htmlCode . = "<tr class=\"odd\">" ;
2019-11-06 20:01:26 +00:00
my $ cell = 1 ;
2019-10-14 18:51:54 +00:00
my $ idata = "" ;
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
$ cache = cache ( $ name , "c_init" ) ; # Cache initialisieren
2019-10-26 18:41:42 +00:00
Log3 ( $ name , 1 , "$name - Fall back to internal Cache due to preceding failure." ) if ( ! $ cache ) ;
if ( ! $ cache || $ cache eq "internal" ) {
2020-06-30 21:16:26 +00:00
for my $ key ( sort { $ a <=> $ b } keys % { $ data { SSCam } { $ name } { SNAPHASH } } ) {
2019-10-26 18:41:42 +00:00
if ( ! $ ftui ) {
$ idata = "onClick=\"FW_okDialog('<img src=data:image/jpeg;base64,$data{SSCam}{$name}{SNAPHASH}{$key}{imageData} $pws>')\"" if ( AttrVal ( $ name , "snapGalleryBoost" , 0 ) ) ;
}
$ cell + + ;
if ( $ cell == $ sgc + 1 ) {
2020-07-16 06:14:56 +00:00
$ htmlCode . = sprintf ( "<td>$data{SSCam}{$name}{SNAPHASH}{$key}{createdTm}<br> <img src=\"data:image/jpeg;base64,$data{SSCam}{$name}{SNAPHASH}{$key}{imageData}\" $gattr $idata> </td>" ) ;
$ htmlCode . = "</tr>" ;
$ htmlCode . = "<tr class=\"odd\">" ;
$ cell = 1 ;
2019-10-26 18:41:42 +00:00
} else {
2020-07-16 06:14:56 +00:00
$ htmlCode . = sprintf ( "<td>$data{SSCam}{$name}{SNAPHASH}{$key}{createdTm}<br> <img src=\"data:image/jpeg;base64,$data{SSCam}{$name}{SNAPHASH}{$key}{imageData}\" $gattr $idata> </td>" ) ;
2019-10-26 18:41:42 +00:00
}
$ idata = "" ;
2018-11-20 23:30:55 +00:00
}
2020-07-16 06:14:56 +00:00
2019-10-26 18:41:42 +00:00
} else {
my @ as ;
2020-06-28 18:49:16 +00:00
for ( cache ( $ name , "c_getkeys" ) ) { # relevant keys aus allen vorkommenden selektieren
2019-10-27 08:07:57 +00:00
next if $ _ !~ /\{SNAPHASH\}\{(\d+)\}\{.*\}/ ;
2019-10-26 18:41:42 +00:00
$ _ =~ s/\{SNAPHASH\}\{(\d+)\}\{.*\}/$1/ ;
2020-07-10 15:16:12 +00:00
push @ as , $ _ if ( $ _ =~ /^(\d+)$/x ) ;
2019-10-26 18:41:42 +00:00
}
my % seen ;
my @ unique = sort { $ a <=> $ b } grep { ! $ seen { $ _ } + + } @ as ; # distinct / unique the keys
2020-07-16 06:14:56 +00:00
2020-06-30 21:16:26 +00:00
for my $ key ( @ unique ) {
2020-06-28 18:49:16 +00:00
$ imgdat = cache ( $ name , "c_read" , "{SNAPHASH}{$key}{imageData}" ) ;
$ imgTm = cache ( $ name , "c_read" , "{SNAPHASH}{$key}{createdTm}" ) ;
2019-10-26 18:41:42 +00:00
if ( ! $ ftui ) {
$ idata = "onClick=\"FW_okDialog('<img src=data:image/jpeg;base64,$imgdat $pws>')\"" if ( AttrVal ( $ name , "snapGalleryBoost" , 0 ) ) ;
}
$ cell + + ;
if ( $ cell == $ sgc + 1 ) {
2020-07-16 06:14:56 +00:00
$ htmlCode . = sprintf ( "<td>$imgTm<br> <img src=\"data:image/jpeg;base64,$imgdat\" $gattr $idata> </td>" ) ;
$ htmlCode . = "</tr>" ;
$ htmlCode . = "<tr class=\"odd\">" ;
$ cell = 1 ;
2019-10-26 18:41:42 +00:00
} else {
2020-07-16 06:14:56 +00:00
$ htmlCode . = sprintf ( "<td>$imgTm<br> <img src=\"data:image/jpeg;base64,$imgdat\" $gattr $idata> </td>" ) ;
2019-10-26 18:41:42 +00:00
}
$ idata = "" ;
}
2018-11-20 23:30:55 +00:00
}
if ( $ cell == 2 ) {
2019-10-14 18:51:54 +00:00
$ htmlCode . = "<td> </td>" ;
2018-11-20 23:30:55 +00:00
}
2018-12-30 20:20:27 +00:00
2018-11-20 23:30:55 +00:00
$ htmlCode . = "</tr>" ;
2020-07-16 06:14:56 +00:00
2019-09-21 13:03:06 +00:00
if ( ! $ hb ) {
2020-07-16 06:14:56 +00:00
$ htmlCode . = "<tr>" ;
$ htmlCode . = "<td style='text-align:left' colspan=10>" ;
2019-09-09 22:24:51 +00:00
$ htmlCode . = "<a onClick=\"$cmddosnap\" onmouseover=\"Tip('$ttsnap')\" onmouseout=\"UnTip()\">$imgdosnap </a>" if ( $ strmdev ) ;
2020-07-16 06:14:56 +00:00
$ htmlCode . = "</td>" ;
$ htmlCode . = "</tr>" ;
2019-09-09 22:24:51 +00:00
}
2020-07-16 06:14:56 +00:00
$ htmlCode . = "</tbody>" ;
$ htmlCode . = "</table>" ;
$ htmlCode . = "</div>" ;
2020-07-17 10:58:15 +00:00
$ htmlCode . = "</html>" ;
2019-10-14 18:51:54 +00:00
2019-10-26 18:41:42 +00:00
undef $ imgdat ;
undef $ imgTm ;
undef $ idata ;
2018-11-20 23:30:55 +00:00
return $ htmlCode ;
}
##############################################################################
# Auflösung Errorcodes bei Login / Logout
2019-05-22 17:31:17 +00:00
# Übernahmewerte sind $hash, $errorcode
2018-11-20 23:30:55 +00:00
##############################################################################
2020-06-28 18:49:16 +00:00
sub expErrorsAuth {
2020-06-30 21:16:26 +00:00
my $ hash = shift ;
my $ errorcode = shift ;
my $ device = $ hash - > { NAME } ;
2018-11-20 23:30:55 +00:00
my $ error ;
2020-06-30 21:16:26 +00:00
unless ( exists ( $ errauthlist { "$errorcode" } ) ) { $ error = qq{ Message of errorcode "$errorcode" not found. Please turn to Synology Web API-Guide. } ; return ( $ error ) ; }
2018-11-20 23:30:55 +00:00
# Fehlertext aus Hash-Tabelle %errorauthlist ermitteln
2020-06-28 18:49:16 +00:00
$ error = $ errauthlist { "$errorcode" } ;
2018-12-07 19:41:01 +00:00
2018-11-20 23:30:55 +00:00
return ( $ error ) ;
}
##############################################################################
# Auflösung Errorcodes SVS API
2019-05-22 17:31:17 +00:00
# Übernahmewerte sind $hash, $errorcode
2019-01-19 15:35:22 +00:00
##############################################################################
2020-06-28 18:49:16 +00:00
sub expErrors {
2020-06-30 21:16:26 +00:00
my $ hash = shift ;
my $ errorcode = shift ;
2018-11-20 23:30:55 +00:00
my $ device = $ hash - > { NAME } ;
my $ error ;
2020-06-30 21:16:26 +00:00
unless ( exists ( $ errlist { "$errorcode" } ) ) { $ error = qq{ Message of errorcode "$errorcode" not found. Please turn to Synology Web API-Guide. } ; return ( $ error ) ; }
2018-11-20 23:30:55 +00:00
# Fehlertext aus Hash-Tabelle %errorlist ermitteln
2020-06-28 18:49:16 +00:00
$ error = $ errlist { "$errorcode" } ;
2018-12-07 19:41:01 +00:00
return ( $ error ) ;
2018-11-20 23:30:55 +00:00
}
2019-01-27 15:36:11 +00:00
################################################################
# sortiert eine Liste von Versionsnummern x.x.x
# Schwartzian Transform and the GRT transform
# Übergabe: "asc | desc",<Liste von Versionsnummern>
################################################################
2020-06-28 18:49:16 +00:00
sub sortVersion {
2019-01-27 15:36:11 +00:00
my ( $ sseq , @ versions ) = @ _ ;
my @ sorted = map { $ _ - > [ 0 ] }
2020-06-28 18:49:16 +00:00
sort { $ a - > [ 1 ] cmp $ b - > [ 1 ] }
map { [ $ _ , pack "C*" , split /\./ ] } @ versions ;
2019-01-27 15:36:11 +00:00
@ sorted = map { join "." , unpack "C*" , $ _ }
sort
map { pack "C*" , split /\./ } @ versions ;
if ( $ sseq eq "desc" ) {
@ sorted = reverse @ sorted ;
}
return @ sorted ;
}
2019-01-19 15:35:22 +00:00
##############################################################################
# Zusätzliche Redings in Rotation erstellen
# Sub ($hash,<readingName>,<Wert>,<Rotationszahl>,<Trigger[0|1]>)
##############################################################################
2020-06-28 18:49:16 +00:00
sub rotateReading {
2019-01-19 15:35:22 +00:00
my ( $ hash , $ readingName , $ val , $ rotnum , $ do_trigger ) = @ _ ;
my $ name = $ hash - > { NAME } ;
2019-01-20 09:08:49 +00:00
2019-01-19 15:35:22 +00:00
readingsBeginUpdate ( $ hash ) ;
my $ o = ReadingsVal ( $ name , $ readingName , "n.a." ) ;
if ( $ val ne "n.a." && $ rotnum >= 1 ) {
if ( "$o" ne "$val" ) {
for ( my $ i = $ rotnum ; $ i > 0 ; $ i - - ) {
my $ l = $ i - 1 ;
my $ g = ReadingsVal ( $ name , $ readingName . $ i , "n.a." ) ;
if ( $ l ) {
$ l = ReadingsVal ( $ name , $ readingName . $ l , "n.a." ) ;
} else {
$ l = ReadingsVal ( $ name , $ readingName , "n.a." ) ;
}
if ( "$l" ne "$g" ) {
readingsBulkUpdate ( $ hash , $ readingName . $ i , $ l ) ;
Log3 ( $ name , 4 , "$name - Rotate \"$readingName.$i\" to value: $l" ) ;
}
}
}
}
readingsBulkUpdate ( $ hash , $ readingName , $ val ) ;
readingsEndUpdate ( $ hash , $ do_trigger ) ;
return ;
}
2018-12-30 20:20:27 +00:00
#############################################################################################
# Vorbereitung SMTP EMail-Versand
# $OpMode = aktueller Operation Mode zur Unterscheidung was versendet werden soll
2019-09-14 19:11:34 +00:00
# $dat = zu versendende Daten, evtl. als Hash Referenz
2018-12-30 20:20:27 +00:00
#############################################################################################
2020-06-28 18:49:16 +00:00
sub prepareSendData {
2019-09-14 19:11:34 +00:00
my ( $ hash , $ OpMode , $ dat ) = @ _ ;
2018-12-30 20:20:27 +00:00
my $ name = $ hash - > { NAME } ;
2019-01-14 23:09:42 +00:00
my $ calias = AttrVal ( $ name , "alias" , $ hash - > { CAMNAME } ) ; # Alias der Kamera wenn gesetzt oder Originalname aus SVS
2019-10-26 18:41:42 +00:00
my $ type = AttrVal ( $ name , "cacheType" , "internal" ) ;
2019-12-09 20:51:32 +00:00
my ( $ ret , $ vdat , $ fname , $ snapid , $ tac ) = ( '' , '' , '' , '' , '' ) ;
2019-10-26 18:41:42 +00:00
my @ as ;
2019-02-12 20:26:31 +00:00
2019-10-26 18:41:42 +00:00
# prüfen ob Schnappschnüsse aller Kameras durch ein SVS-Device angefordert wurde,
# Bilddaten jeder Kamera werden nach Erstellung dem zentralen Schnappshußhash hinzugefügt
# Bilddaten werden erst zum Versand weitergeleitet wenn Schnappshußhash komplett gefüllt ist
2019-01-14 23:09:42 +00:00
my $ asref ;
my @ allsvs = devspec2array ( "TYPE=SSCam:FILTER=MODEL=SVS" ) ;
2020-06-30 21:16:26 +00:00
for ( @ allsvs ) {
my $ svshash ;
$ svshash = $ defs { $ _ } if ( $ defs { $ _ } ) ;
2019-10-26 18:41:42 +00:00
next if ( ! $ svshash || ! AttrVal ( $ _ , "snapEmailTxt" , "" ) || ! $ svshash - > { HELPER } { CANSENDSNAP } ) ; # Sammel-Schnappschüsse nur senden wenn CANSENDSNAP und Attribut gesetzt ist
2019-01-14 23:09:42 +00:00
if ( $ svshash - > { HELPER } { ALLSNAPREF } ) {
2019-10-26 18:41:42 +00:00
$ asref = $ svshash - > { HELPER } { ALLSNAPREF } ; # Hashreferenz zum summarischen Snaphash
2020-06-30 21:16:26 +00:00
for my $ key ( keys % { $ asref } ) {
2019-10-26 18:41:42 +00:00
if ( $ key eq $ name ) { # Kamera Key im Bildhash matcht -> Bilddaten übernehmen
if ( $ type eq "internal" ) {
2020-06-30 21:16:26 +00:00
for my $ pkey ( keys % { $ dat } ) {
my $ nkey = time ( ) + int ( rand ( 1000 ) ) ;
2019-10-26 18:41:42 +00:00
$ asref - > { $ nkey . $ pkey } { createdTm } = $ dat - > { $ pkey } { createdTm } ; # Aufnahmezeit der Kamera werden im summarischen Snaphash eingefügt
$ asref - > { $ nkey . $ pkey } { imageData } = $ dat - > { $ pkey } { imageData } ; # Bilddaten der Kamera werden im summarischen Snaphash eingefügt
$ asref - > { $ nkey . $ pkey } { fileName } = $ dat - > { $ pkey } { fileName } ; # Filenamen der Kamera werden im summarischen Snaphash eingefügt
Log3 ( $ _ , 4 , "$_ - Central Snaphash filled up with snapdata of cam \"$name\" and key [" . $ nkey . $ pkey . "]" ) ;
}
2020-06-30 21:16:26 +00:00
2019-10-26 18:41:42 +00:00
} else {
# alle Serial Numbers "{$sn}" der Transaktion ermitteln
# Muster: {SENDSNAPS}{2222}{0}{imageData}
2020-06-28 18:49:16 +00:00
for ( cache ( $ name , "c_getkeys" ) ) { # relevant keys aus allen vorkommenden selektieren
2019-10-27 08:07:57 +00:00
next if $ _ !~ /\{SENDSNAPS\}\{.*\}\{(\d+)\}\{.*\}/ ;
2019-10-26 18:41:42 +00:00
$ _ =~ s/\{SENDSNAPS\}\{.*\}\{(\d+)\}\{.*\}/$1/ ;
2020-07-10 15:16:12 +00:00
push @ as , $ _ if ( $ _ =~ /^(\d+)$/x ) ;
2019-10-26 18:41:42 +00:00
}
my % seen ;
my @ unique = sort { $ a <=> $ b } grep { ! $ seen { $ _ } + + } @ as ; # distinct / unique the keys
2020-06-30 21:16:26 +00:00
for my $ pkey ( @ unique ) {
2020-06-28 18:49:16 +00:00
next if ( ! cache ( $ name , "c_isvalidkey" , "$dat" . "{$pkey}{imageData}" ) ) ;
2020-06-30 21:16:26 +00:00
my $ nkey = time ( ) + int ( rand ( 1000 ) ) ;
2020-06-28 18:49:16 +00:00
$ asref - > { $ nkey . $ pkey } { createdTm } = cache ( $ name , "c_read" , "$dat" . "{$pkey}{createdTm}" ) ; # Aufnahmezeit der Kamera werden im summarischen Snaphash eingefügt
$ asref - > { $ nkey . $ pkey } { imageData } = cache ( $ name , "c_read" , "$dat" . "{$pkey}{imageData}" ) ; # Bilddaten der Kamera werden im summarischen Snaphash eingefügt
$ asref - > { $ nkey . $ pkey } { fileName } = cache ( $ name , "c_read" , "$dat" . "{$pkey}{fileName}" ) ; # Filenamen der Kamera werden im summarischen Snaphash eingefügt
2019-10-26 18:41:42 +00:00
Log3 ( $ _ , 4 , "$_ - Central Snaphash filled up with snapdata of cam \"$name\" and key [" . $ nkey . $ pkey . "]" ) ;
}
}
delete $ hash - > { HELPER } { CANSENDSNAP } ; # Flag im Kamera-Device !! löschen
2019-01-14 23:09:42 +00:00
delete $ asref - > { $ key } ; # ursprünglichen Key (Kameranamen) löschen
}
}
$ asref = $ svshash - > { HELPER } { ALLSNAPREF } ; # Hashreferenz zum summarischen Snaphash
2020-07-16 06:14:56 +00:00
for my $ key ( keys % { $ asref } ) { # prüfen ob Bildhash komplett ?
2019-01-14 23:09:42 +00:00
if ( ! $ asref - > { $ key } ) {
return ; # Bildhash noch nicht komplett
}
}
2019-09-14 19:11:34 +00:00
2019-01-14 23:09:42 +00:00
delete $ svshash - > { HELPER } { ALLSNAPREF } ; # ALLSNAPREF löschen -> gemeinsamer Versand beendet
$ hash = $ svshash ; # Hash durch SVS-Hash ersetzt
2019-10-26 18:41:42 +00:00
$ name = $ svshash - > { NAME } ; # Name des auslösenden SVS-Devices wird eingesetzt
Log3 ( $ name , 4 , "$name - Central Snaphash fillup completed by all selected cams. Send it now ..." ) ;
2020-07-16 06:14:56 +00:00
my $ cache = cache ( $ name , "c_init" ) ; # Cache initialisieren (im SVS Device)
2019-10-26 18:41:42 +00:00
if ( ! $ cache || $ cache eq "internal" ) {
delete $ data { SSCam } { RS } ;
2020-07-16 06:14:56 +00:00
for my $ key ( keys % { $ asref } ) { # Referenz zum summarischen Hash einsetzen
2019-10-26 18:41:42 +00:00
$ data { SSCam } { RS } { $ key } = delete $ asref - > { $ key } ;
}
$ dat = $ data { SSCam } { RS } ; # Referenz zum summarischen Hash einsetzen
} else {
2020-06-28 18:49:16 +00:00
cache ( $ name , "c_clear" ) ;
2020-06-30 21:16:26 +00:00
for my $ key ( keys % { $ asref } ) {
2020-06-28 18:49:16 +00:00
cache ( $ name , "c_write" , "{RS}{multiple_snapsend}{$key}{createdTm}" , delete $ asref - > { $ key } { createdTm } ) ;
cache ( $ name , "c_write" , "{RS}{multiple_snapsend}{$key}{imageData}" , delete $ asref - > { $ key } { imageData } ) ;
cache ( $ name , "c_write" , "{RS}{multiple_snapsend}{$key}{fileName}" , delete $ asref - > { $ key } { fileName } ) ;
2019-10-26 18:41:42 +00:00
}
$ dat = "{RS}{multiple_snapsend}" ; # Referenz zum summarischen Hash einsetzen
}
2019-01-14 23:09:42 +00:00
$ calias = AttrVal ( $ name , "alias" , $ hash - > { NAME } ) ; # Alias des SVS-Devices
2019-09-14 19:11:34 +00:00
$ hash - > { HELPER } { TRANSACTION } = "multiple_snapsend" ; # fake Transaction im SVS Device setzen
2019-01-14 23:09:42 +00:00
last ; # Schleife verlassen und mit Senden weiter
}
2019-01-02 19:35:10 +00:00
}
2019-01-04 20:07:35 +00:00
2019-01-27 15:36:11 +00:00
my $ sp = AttrVal ( $ name , "smtpPort" , 25 ) ;
my $ nousessl = AttrVal ( $ name , "smtpNoUseSSL" , 0 ) ;
my ( $ sec , $ min , $ hour , $ mday , $ mon , $ year , $ wday , $ yday , $ isdst ) = localtime ;
my $ date = sprintf "%02d.%02d.%04d" , $ mday , $ mon += 1 , $ year += 1900 ;
my $ time = sprintf "%02d:%02d:%02d" , $ hour , $ min , $ sec ;
my $ sslfrominit = 0 ;
my $ smtpsslport = 465 ;
if ( AttrVal ( $ name , "smtpSSLPort" , 0 ) ) {
$ sslfrominit = 1 ;
$ smtpsslport = AttrVal ( $ name , "smtpSSLPort" , 0 ) ;
}
2019-10-26 18:41:42 +00:00
$ tac = $ hash - > { HELPER } { TRANSACTION } ; # Code der laufenden Transaktion
$ data { SSCam } { $ name } { SENDCOUNT } { $ tac } = 0 ; # Hilfszähler Senden, init -> +1 , done -> -1, keine Daten
2020-06-28 18:49:16 +00:00
# d. Transaktion werden gelöscht bis Zähler wieder 0 !! (siehe closeTrans)
2019-10-26 18:41:42 +00:00
Log3 ( $ name , 1 , "$name - Send Counter transaction \"$tac\": " . $ data { SSCam } { $ name } { SENDCOUNT } { $ tac } ) if ( AttrVal ( $ name , "debugactivetoken" , 0 ) ) ;
2019-09-14 19:11:34 +00:00
2019-02-12 20:26:31 +00:00
### Schnappschüsse als Email versenden wenn $hash->{HELPER}{CANSENDSNAP} definiert ist
2020-07-10 15:16:12 +00:00
if ( $ OpMode =~ /^getsnap/x && $ hash - > { HELPER } { CANSENDSNAP } ) {
2019-02-01 15:00:29 +00:00
delete $ hash - > { HELPER } { CANSENDSNAP } ;
2019-10-26 18:41:42 +00:00
$ data { SSCam } { $ name } { SENDCOUNT } { $ tac } + + ;
Log3 ( $ name , 1 , "$name - Send Counter transaction \"$tac\": " . $ data { SSCam } { $ name } { SENDCOUNT } { $ tac } ) if ( AttrVal ( $ name , "debugactivetoken" , 0 ) ) ;
2019-02-01 15:00:29 +00:00
my $ mt = delete $ hash - > { HELPER } { SMTPMSG } ;
2020-07-10 15:16:12 +00:00
$ mt =~ s/['"]//xg ;
2019-01-14 23:09:42 +00:00
my ( $ subj , $ body ) = split ( "," , $ mt , 2 ) ;
my ( $ subjk , $ subjt ) = split ( "=>" , $ subj ) ;
my ( $ bodyk , $ bodyt ) = split ( "=>" , $ body ) ;
2020-06-28 18:49:16 +00:00
$ subjk = trim ( $ subjk ) ;
$ subjt = trim ( $ subjt ) ;
2020-07-10 15:16:12 +00:00
$ subjt =~ s/\$CAM/$calias/gx ;
$ subjt =~ s/\$DATE/$date/gx ;
$ subjt =~ s/\$TIME/$time/gx ;
2020-06-28 18:49:16 +00:00
$ bodyk = trim ( $ bodyk ) ;
$ bodyt = trim ( $ bodyt ) ;
2020-07-10 15:16:12 +00:00
$ bodyt =~ s/\$CAM/$calias/gx ;
$ bodyt =~ s/\$DATE/$date/gx ;
$ bodyt =~ s/\$TIME/$time/gx ;
2019-01-14 23:09:42 +00:00
my % smtpmsg = ( ) ;
$ smtpmsg { $ subjk } = "$subjt" ;
$ smtpmsg { $ bodyk } = "$bodyt" ;
2019-10-10 19:10:13 +00:00
2020-06-28 18:49:16 +00:00
$ ret = sendEmail ( $ hash , { 'subject' = > $ smtpmsg { subject } ,
2020-07-16 06:14:56 +00:00
'part1txt' = > $ smtpmsg { body } ,
'part2type' = > 'image/jpeg' ,
'smtpport' = > $ sp ,
'sdat' = > $ dat ,
'opmode' = > $ OpMode ,
'smtpnousessl' = > $ nousessl ,
'sslfrominit' = > $ sslfrominit ,
'smtpsslport' = > $ smtpsslport ,
'tac' = > $ tac ,
}
2019-01-14 23:09:42 +00:00
) ;
2019-10-26 18:41:42 +00:00
readingsSingleUpdate ( $ hash , "sendEmailState" , $ ret , 1 ) if ( $ ret ) ;
2019-01-04 20:07:35 +00:00
}
2019-01-27 15:36:11 +00:00
2019-02-12 20:26:31 +00:00
### Aufnahmen als Email versenden wenn $hash->{HELPER}{CANSENDREC} definiert ist
2020-07-10 15:16:12 +00:00
if ( $ OpMode =~ /^GetRec/x && $ hash - > { HELPER } { CANSENDREC } ) {
2019-01-27 15:36:11 +00:00
delete $ hash - > { HELPER } { CANSENDREC } ;
2019-10-26 18:41:42 +00:00
$ data { SSCam } { $ name } { SENDCOUNT } { $ tac } + + ;
Log3 ( $ name , 1 , "$name - Send Counter transaction \"$tac\": " . $ data { SSCam } { $ name } { SENDCOUNT } { $ tac } ) if ( AttrVal ( $ name , "debugactivetoken" , 0 ) ) ;
2019-01-27 15:36:11 +00:00
my $ mt = delete $ hash - > { HELPER } { SMTPRECMSG } ;
2020-07-10 15:16:12 +00:00
$ mt =~ s/['"]//gx ;
2019-01-27 15:36:11 +00:00
my ( $ subj , $ body ) = split ( "," , $ mt , 2 ) ;
my ( $ subjk , $ subjt ) = split ( "=>" , $ subj ) ;
my ( $ bodyk , $ bodyt ) = split ( "=>" , $ body ) ;
2020-06-28 18:49:16 +00:00
$ subjk = trim ( $ subjk ) ;
$ subjt = trim ( $ subjt ) ;
2020-07-10 15:16:12 +00:00
$ subjt =~ s/\$CAM/$calias/gx ;
$ subjt =~ s/\$DATE/$date/gx ;
$ subjt =~ s/\$TIME/$time/gx ;
2020-06-28 18:49:16 +00:00
$ bodyk = trim ( $ bodyk ) ;
$ bodyt = trim ( $ bodyt ) ;
2020-07-10 15:16:12 +00:00
$ bodyt =~ s/\$CAM/$calias/gx ;
$ bodyt =~ s/\$DATE/$date/gx ;
$ bodyt =~ s/\$TIME/$time/gx ;
2019-01-27 15:36:11 +00:00
my % smtpmsg = ( ) ;
$ smtpmsg { $ subjk } = "$subjt" ;
$ smtpmsg { $ bodyk } = "$bodyt" ;
2019-10-10 19:10:13 +00:00
2020-06-28 18:49:16 +00:00
$ ret = sendEmail ( $ hash , { 'subject' = > $ smtpmsg { subject } ,
2020-07-16 06:14:56 +00:00
'part1txt' = > $ smtpmsg { body } ,
'part2type' = > 'video/mpeg' ,
'smtpport' = > $ sp ,
'vdat' = > $ dat ,
'opmode' = > $ OpMode ,
'smtpnousessl' = > $ nousessl ,
'sslfrominit' = > $ sslfrominit ,
'smtpsslport' = > $ smtpsslport ,
'tac' = > $ tac ,
}
2019-02-01 15:00:29 +00:00
) ;
2019-10-26 18:41:42 +00:00
readingsSingleUpdate ( $ hash , "sendEmailState" , $ ret , 1 ) if ( $ ret ) ;
2019-01-27 15:36:11 +00:00
}
2019-01-14 23:09:42 +00:00
2019-02-12 20:26:31 +00:00
### Schnappschüsse mit Telegram versenden
2020-07-10 15:16:12 +00:00
if ( $ OpMode =~ /^getsnap/x && $ hash - > { HELPER } { CANTELESNAP } ) {
2019-02-01 15:00:29 +00:00
# snapTelegramTxt aus $hash->{HELPER}{TELEMSG}
# Format in $hash->{HELPER}{TELEMSG} muss sein: tbot => <teleBot Device>, peers => <peer1 peer2 ..>, subject => <Beschreibungstext>
delete $ hash - > { HELPER } { CANTELESNAP } ;
2019-10-26 18:41:42 +00:00
$ data { SSCam } { $ name } { SENDCOUNT } { $ tac } + + ;
Log3 ( $ name , 1 , "$name - Send Counter transaction \"$tac\": " . $ data { SSCam } { $ name } { SENDCOUNT } { $ tac } ) if ( AttrVal ( $ name , "debugactivetoken" , 0 ) ) ;
2019-02-01 15:00:29 +00:00
my $ mt = delete $ hash - > { HELPER } { TELEMSG } ;
2020-07-10 15:16:12 +00:00
$ mt =~ s/['"]//gx ;
2019-02-01 15:00:29 +00:00
2020-06-30 21:16:26 +00:00
my ( $ tbotk , $ tbott , $ peerk , $ peert , $ subjk , $ subjt ) ;
2020-07-16 06:14:56 +00:00
my ( $ telebot , $ peers , $ subj ) = split ( "," , $ mt , 3 ) ;
2020-06-30 21:16:26 +00:00
( $ tbotk , $ tbott ) = split ( "=>" , $ telebot ) if ( $ telebot ) ;
( $ peerk , $ peert ) = split ( "=>" , $ peers ) if ( $ peers ) ;
( $ subjk , $ subjt ) = split ( "=>" , $ subj ) if ( $ subj ) ;
2019-02-01 15:00:29 +00:00
2020-06-28 18:49:16 +00:00
$ tbotk = trim ( $ tbotk ) if ( $ tbotk ) ;
$ tbott = trim ( $ tbott ) if ( $ tbott ) ;
$ peerk = trim ( $ peerk ) if ( $ peerk ) ;
$ peert = trim ( $ peert ) if ( $ peert ) ;
$ subjk = trim ( $ subjk ) if ( $ subjk ) ;
2019-02-01 15:00:29 +00:00
if ( $ subjt ) {
2020-06-28 18:49:16 +00:00
$ subjt = trim ( $ subjt ) ;
2020-07-10 15:16:12 +00:00
$ subjt =~ s/\$CAM/$calias/gx ;
$ subjt =~ s/\$DATE/$date/gx ;
$ subjt =~ s/\$TIME/$time/gx ;
2019-02-01 15:00:29 +00:00
}
my % telemsg = ( ) ;
2020-06-28 18:49:16 +00:00
$ telemsg { $ tbotk } = "$tbott" if ( $ tbott ) ;
$ telemsg { $ peerk } = "$peert" if ( $ peert ) ;
2019-02-01 15:00:29 +00:00
$ telemsg { $ subjk } = "$subjt" if ( $ subjt ) ;
2019-10-10 19:10:13 +00:00
2020-06-28 18:49:16 +00:00
$ ret = sendTelegram ( $ hash , { 'subject' = > $ telemsg { subject } ,
2020-07-16 06:14:56 +00:00
'part2type' = > 'image/jpeg' ,
'sdat' = > $ dat ,
'opmode' = > $ OpMode ,
'tac' = > $ tac ,
'telebot' = > $ telemsg { $ tbotk } ,
'peers' = > $ telemsg { $ peerk } ,
'MediaStream' = > '-1' , # Code für MediaStream im TelegramBot (png/jpg = -1)
}
2019-10-26 18:41:42 +00:00
) ;
readingsSingleUpdate ( $ hash , "sendTeleState" , $ ret , 1 ) if ( $ ret ) ;
2019-02-01 15:00:29 +00:00
}
2019-02-12 20:26:31 +00:00
### Aufnahmen mit Telegram versenden
2020-07-10 15:16:12 +00:00
if ( $ OpMode =~ /^GetRec/x && $ hash - > { HELPER } { CANTELEREC } ) {
2019-02-12 20:26:31 +00:00
# recTelegramTxt aus $hash->{HELPER}{TELERECMSG}
# Format in $hash->{HELPER}{TELEMSG} muss sein: tbot => <teleBot Device>, peers => <peer1 peer2 ..>, subject => <Beschreibungstext>
delete $ hash - > { HELPER } { CANTELEREC } ;
2019-10-26 18:41:42 +00:00
$ data { SSCam } { $ name } { SENDCOUNT } { $ tac } + + ;
Log3 ( $ name , 1 , "$name - Send Counter transaction \"$tac\": " . $ data { SSCam } { $ name } { SENDCOUNT } { $ tac } ) if ( AttrVal ( $ name , "debugactivetoken" , 0 ) ) ;
2019-02-12 20:26:31 +00:00
my $ mt = delete $ hash - > { HELPER } { TELERECMSG } ;
2020-07-10 15:16:12 +00:00
$ mt =~ s/['"]//gx ;
2019-02-12 20:26:31 +00:00
2020-06-30 21:16:26 +00:00
my ( $ tbotk , $ tbott , $ peerk , $ peert , $ subjk , $ subjt ) ;
my ( $ telebot , $ peers , $ subj ) = split ( "," , $ mt , 3 ) ;
( $ tbotk , $ tbott ) = split ( "=>" , $ telebot ) if ( $ telebot ) ;
( $ peerk , $ peert ) = split ( "=>" , $ peers ) if ( $ peers ) ;
( $ subjk , $ subjt ) = split ( "=>" , $ subj ) if ( $ subj ) ;
2019-02-12 20:26:31 +00:00
2020-06-28 18:49:16 +00:00
$ tbotk = trim ( $ tbotk ) if ( $ tbotk ) ;
$ tbott = trim ( $ tbott ) if ( $ tbott ) ;
$ peerk = trim ( $ peerk ) if ( $ peerk ) ;
$ peert = trim ( $ peert ) if ( $ peert ) ;
$ subjk = trim ( $ subjk ) if ( $ subjk ) ;
2019-02-12 20:26:31 +00:00
if ( $ subjt ) {
2020-06-28 18:49:16 +00:00
$ subjt = trim ( $ subjt ) ;
2020-07-10 15:16:12 +00:00
$ subjt =~ s/\$CAM/$calias/gx ;
$ subjt =~ s/\$DATE/$date/gx ;
$ subjt =~ s/\$TIME/$time/gx ;
2019-02-12 20:26:31 +00:00
}
my % telemsg = ( ) ;
2020-06-28 18:49:16 +00:00
$ telemsg { $ tbotk } = "$tbott" if ( $ tbott ) ;
$ telemsg { $ peerk } = "$peert" if ( $ peert ) ;
2019-02-12 20:26:31 +00:00
$ telemsg { $ subjk } = "$subjt" if ( $ subjt ) ;
2019-09-14 19:11:34 +00:00
$ vdat = $ dat ;
2020-07-16 06:14:56 +00:00
$ ret = sendTelegram ( $ hash , { 'subject' = > $ telemsg { subject } ,
'vdat' = > $ vdat ,
'opmode' = > $ OpMode ,
'telebot' = > $ telemsg { $ tbotk } ,
'peers' = > $ telemsg { $ peerk } ,
'tac' = > $ tac ,
'MediaStream' = > '-30' , # Code für MediaStream im TelegramBot (png/jpg = -1)
}
2019-10-26 18:41:42 +00:00
) ;
readingsSingleUpdate ( $ hash , "sendTeleState" , $ ret , 1 ) if ( $ ret ) ;
2019-02-12 20:26:31 +00:00
}
2019-02-01 15:00:29 +00:00
2019-12-11 21:16:03 +00:00
### Schnappschüsse mit Synology Chat versenden
2020-07-10 15:16:12 +00:00
if ( $ OpMode =~ /^getsnap/x && $ hash - > { HELPER } { CANCHATSNAP } ) {
2019-12-09 20:51:32 +00:00
# snapChatTxt aus $hash->{HELPER}{CHATMSG}
# Format in $hash->{HELPER}{CHATMSG} muss sein: snapChatTxt:"chatbot => <SSChatBot Device>, peers => <peer1 peer2 ..>, subject => <Beschreibungstext>"
delete $ hash - > { HELPER } { CANCHATSNAP } ;
$ data { SSCam } { $ name } { SENDCOUNT } { $ tac } + + ;
Log3 ( $ name , 1 , "$name - Send Counter transaction \"$tac\": " . $ data { SSCam } { $ name } { SENDCOUNT } { $ tac } ) if ( AttrVal ( $ name , "debugactivetoken" , 0 ) ) ;
my $ mt = delete $ hash - > { HELPER } { CHATMSG } ;
2020-07-10 15:16:12 +00:00
$ mt =~ s/['"]//gx ;
2019-12-09 20:51:32 +00:00
2020-06-30 21:16:26 +00:00
my ( $ cbotk , $ cbott , $ peerk , $ peert , $ subjk , $ subjt ) ;
my ( $ chatbot , $ peers , $ subj ) = split ( "," , $ mt , 3 ) ;
( $ cbotk , $ cbott ) = split ( "=>" , $ chatbot ) if ( $ chatbot ) ;
( $ peerk , $ peert ) = split ( "=>" , $ peers ) if ( $ peers ) ;
( $ subjk , $ subjt ) = split ( "=>" , $ subj ) if ( $ subj ) ;
2019-12-09 20:51:32 +00:00
2020-06-28 18:49:16 +00:00
$ cbotk = trim ( $ cbotk ) if ( $ cbotk ) ;
$ cbott = trim ( $ cbott ) if ( $ cbott ) ;
$ peerk = trim ( $ peerk ) if ( $ peerk ) ;
$ peert = trim ( $ peert ) if ( $ peert ) ;
$ subjk = trim ( $ subjk ) if ( $ subjk ) ;
2019-12-09 20:51:32 +00:00
if ( $ subjt ) {
2020-06-28 18:49:16 +00:00
$ subjt = trim ( $ subjt ) ;
2020-07-10 15:16:12 +00:00
$ subjt =~ s/\$CAM/$calias/gx ;
$ subjt =~ s/\$DATE/$date/gx ;
$ subjt =~ s/\$TIME/$time/gx ;
2019-12-09 20:51:32 +00:00
}
my % chatmsg = ( ) ;
2020-06-28 18:49:16 +00:00
$ chatmsg { $ cbotk } = "$cbott" if ( $ cbott ) ;
$ chatmsg { $ peerk } = "$peert" if ( $ peert ) ;
2019-12-09 20:51:32 +00:00
$ chatmsg { $ subjk } = "$subjt" if ( $ subjt ) ;
2020-06-28 18:49:16 +00:00
$ ret = sendChat ( $ hash , { 'subject' = > $ chatmsg { subject } ,
2020-07-16 06:14:56 +00:00
'opmode' = > $ OpMode ,
'tac' = > $ tac ,
'sdat' = > $ dat ,
'chatbot' = > $ chatmsg { $ cbotk } ,
'peers' = > $ chatmsg { $ peerk } ,
}
2019-12-11 21:16:03 +00:00
) ;
2019-12-09 20:51:32 +00:00
readingsSingleUpdate ( $ hash , "sendChatState" , $ ret , 1 ) if ( $ ret ) ;
}
2019-12-11 21:16:03 +00:00
### Aufnahmen mit Synology Chat versenden
2020-07-10 15:16:12 +00:00
if ( $ OpMode =~ /^GetRec/x && $ hash - > { HELPER } { CANCHATREC } ) {
2019-12-11 21:16:03 +00:00
# recChatTxt aus $hash->{HELPER}{CHATRECMSG}
# Format in $hash->{HELPER}{CHATRECMSG} muss sein: chatbot => <SSChatBot Device>, peers => <peer1 peer2 ..>, subject => <Beschreibungstext>
delete $ hash - > { HELPER } { CANCHATREC } ;
$ data { SSCam } { $ name } { SENDCOUNT } { $ tac } + + ;
Log3 ( $ name , 1 , "$name - Send Counter transaction \"$tac\": " . $ data { SSCam } { $ name } { SENDCOUNT } { $ tac } ) if ( AttrVal ( $ name , "debugactivetoken" , 0 ) ) ;
my $ mt = delete $ hash - > { HELPER } { CHATRECMSG } ;
2020-07-10 15:16:12 +00:00
$ mt =~ s/['"]//gx ;
2020-06-30 21:16:26 +00:00
my ( $ cbotk , $ cbott , $ peerk , $ peert , $ subjk , $ subjt ) ;
my ( $ chatbot , $ peers , $ subj ) = split ( "," , $ mt , 3 ) ;
( $ cbotk , $ cbott ) = split ( "=>" , $ chatbot ) if ( $ chatbot ) ;
( $ peerk , $ peert ) = split ( "=>" , $ peers ) if ( $ peers ) ;
( $ subjk , $ subjt ) = split ( "=>" , $ subj ) if ( $ subj ) ;
2019-12-11 21:16:03 +00:00
2020-06-28 18:49:16 +00:00
$ cbotk = trim ( $ cbotk ) if ( $ cbotk ) ;
$ cbott = trim ( $ cbott ) if ( $ cbott ) ;
$ peerk = trim ( $ peerk ) if ( $ peerk ) ;
$ peert = trim ( $ peert ) if ( $ peert ) ;
$ subjk = trim ( $ subjk ) if ( $ subjk ) ;
2019-12-11 21:16:03 +00:00
if ( $ subjt ) {
2020-06-28 18:49:16 +00:00
$ subjt = trim ( $ subjt ) ;
2020-07-10 15:16:12 +00:00
$ subjt =~ s/\$CAM/$calias/gx ;
$ subjt =~ s/\$DATE/$date/gx ;
$ subjt =~ s/\$TIME/$time/gx ;
2019-12-11 21:16:03 +00:00
}
my % chatmsg = ( ) ;
2020-06-28 18:49:16 +00:00
$ chatmsg { $ cbotk } = "$cbott" if ( $ cbott ) ;
$ chatmsg { $ peerk } = "$peert" if ( $ peert ) ;
2019-12-11 21:16:03 +00:00
$ chatmsg { $ subjk } = "$subjt" if ( $ subjt ) ;
2020-07-16 06:14:56 +00:00
$ ret = sendChat ( $ hash , { 'subject' = > $ chatmsg { subject } ,
'opmode' = > $ OpMode ,
'tac' = > $ tac ,
'vdat' = > $ dat ,
'chatbot' = > $ chatmsg { $ cbotk } ,
'peers' = > $ chatmsg { $ peerk } ,
}
2019-12-11 21:16:03 +00:00
) ;
readingsSingleUpdate ( $ hash , "sendChatState" , $ ret , 1 ) if ( $ ret ) ;
}
2020-06-28 18:49:16 +00:00
closeTrans ( $ hash ) if ( $ hash - > { HELPER } { TRANSACTION } eq "multiple_snapsend" ) ; # Transaction Sammelversand (SVS) schließen, Daten bereinigen
2019-10-26 18:41:42 +00:00
2019-01-14 23:09:42 +00:00
return ;
2018-12-30 20:20:27 +00:00
}
2019-12-09 20:51:32 +00:00
#############################################################################################
# Synology Chat-Versand
#############################################################################################
2020-06-28 18:49:16 +00:00
sub sendChat {
2019-12-09 20:51:32 +00:00
my ( $ hash , $ extparamref ) = @ _ ;
2019-12-11 21:16:03 +00:00
my $ name = $ hash - > { NAME } ;
my $ type = AttrVal ( $ name , "cacheType" , "internal" ) ;
my $ mtype = "" ;
2019-12-09 20:51:32 +00:00
my ( $ ret , $ cache ) ;
Log3 ( $ name , 4 , "$name - ####################################################" ) ;
2020-07-01 19:24:20 +00:00
Log3 ( $ name , 4 , "$name - ### start send Snap or Video by SSChatBot " ) ;
2019-12-09 20:51:32 +00:00
Log3 ( $ name , 4 , "$name - ####################################################" ) ;
2020-06-28 18:49:16 +00:00
my % chatparams = (
2020-07-16 06:14:56 +00:00
'subject' = > { 'default' = > '' , 'required' = > 1 , 'set' = > 1 } ,
'opmode' = > { 'default' = > '' , 'required' = > 1 , 'set' = > 1 } , # OpMode muss gesetzt sein
'tac' = > { 'default' = > '' , 'required' = > 0 , 'set' = > 1 } , # übermittelter Transaktionscode der ausgewerteten Transaktion
'sdat' = > { 'default' = > '' , 'required' = > 0 , 'set' = > 1 } , # Hashref der Bilddaten (Bilddaten base64 codiert)
'vdat' = > { 'default' = > '' , 'required' = > 0 , 'set' = > 1 } , # Hashref der Videodaten
'chatbot' = > { 'default' = > '' , 'required' = > 1 , 'set' = > 1 } , # SSChatBot-Device welches zum Senden verwendet werden soll
'peers' = > { 'default' = > '' , 'required' = > 0 , 'set' = > 1 } , # SSChatBot Peers
'videofolderMap' = > { 'attr' = > 'videofolderMap' , 'default' = > '' , 'required' = > 1 , 'set' = > 1 } , # Wert des Attributs videofolderMap (muss gesetzt sein !)
2019-12-09 20:51:32 +00:00
) ;
my $ tac = $ extparamref - > { tac } ;
2020-06-30 21:16:26 +00:00
for my $ key ( keys % chatparams ) {
2020-06-28 18:49:16 +00:00
$ data { SSCam } { $ name } { PARAMS } { $ tac } { $ key } = AttrVal ( $ name , $ chatparams { $ key } - > { attr } , $ chatparams { $ key } - > { default } )
if ( exists $ chatparams { $ key } - > { attr } ) ;
if ( $ chatparams { $ key } - > { set } ) {
$ data { SSCam } { $ name } { PARAMS } { $ tac } { $ key } = $ chatparams { $ key } - > { default } if ( ! $ extparamref - > { $ key } && ! $ chatparams { $ key } - > { attr } ) ;
2019-12-09 20:51:32 +00:00
$ data { SSCam } { $ name } { PARAMS } { $ tac } { $ key } = delete $ extparamref - > { $ key } if ( exists $ extparamref - > { $ key } ) ;
2020-06-28 18:49:16 +00:00
}
2020-07-01 19:24:20 +00:00
Log3 ( $ name , 4 , "$name - param $key is set to \"" . ( $ data { SSCam } { $ name } { PARAMS } { $ tac } { $ key } // "" ) . "\" " ) if ( $ key !~ /[sv]dat/ ) ;
2020-07-10 15:16:12 +00:00
Log3 ( $ name , 4 , "$name - param $key is set" ) if ( $ key =~ /[sv]dat/x && $ data { SSCam } { $ name } { PARAMS } { $ tac } { $ key } ne '' ) ;
2019-12-09 20:51:32 +00:00
}
$ data { SSCam } { $ name } { PARAMS } { $ tac } { name } = $ name ;
my @ err = ( ) ;
2020-06-30 21:16:26 +00:00
for my $ key ( keys ( % chatparams ) ) {
2020-06-28 18:49:16 +00:00
push ( @ err , $ key ) if ( $ chatparams { $ key } - > { required } && ! $ data { SSCam } { $ name } { PARAMS } { $ tac } { $ key } ) ;
2019-12-09 20:51:32 +00:00
}
if ( $# err >= 0 ) {
$ ret = "Missing at least one required parameter or attribute: " . join ( ', ' , @ err ) ;
Log3 ( $ name , 2 , "$name - $ret" ) ;
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "sendChatState" , $ ret ) ;
readingsEndUpdate ( $ hash , 1 ) ;
$ data { SSCam } { $ name } { SENDCOUNT } { $ tac } -= 1 ;
return $ ret ;
}
my $ chatbot = $ data { SSCam } { $ name } { PARAMS } { $ tac } { chatbot } ;
my $ peers = $ data { SSCam } { $ name } { PARAMS } { $ tac } { peers } ;
my $ rootUrl = $ data { SSCam } { $ name } { PARAMS } { $ tac } { videofolderMap } ;
if ( ! $ defs { $ chatbot } ) {
$ ret = "No SSChatBot device \"$chatbot\" available" ;
readingsSingleUpdate ( $ hash , "sendChatState" , $ ret , 1 ) ;
Log3 ( $ name , 2 , "$name - $ret" ) ;
$ data { SSCam } { $ name } { SENDCOUNT } { $ tac } -= 1 ;
return ;
}
if ( ! $ peers ) {
$ peers = AttrVal ( $ chatbot , "defaultPeer" , "" ) ;
if ( ! $ peers ) {
$ ret = "No peers of SSChatBot device \"$chatbot\" found" ;
readingsSingleUpdate ( $ hash , "sendChatState" , $ ret , 1 ) ;
Log3 ( $ name , 2 , "$name - $ret" ) ;
$ data { SSCam } { $ name } { SENDCOUNT } { $ tac } -= 1 ;
return ;
}
} else {
$ peers = join ( "," , split ( " " , $ peers ) ) ;
}
if ( ! $ data { SSCam } { $ name } { PARAMS } { $ tac } { sdat } && ! $ data { SSCam } { $ name } { PARAMS } { $ tac } { vdat } ) {
$ ret = "no video or image data existing for send process by SSChatBot \"$chatbot\" " ;
readingsSingleUpdate ( $ hash , "sendChatState" , $ ret , 1 ) ;
Log3 ( $ name , 2 , "$name - $ret" ) ;
$ data { SSCam } { $ name } { SENDCOUNT } { $ tac } -= 1 ;
return ;
}
2020-07-01 20:18:13 +00:00
#no strict "refs";
2019-12-09 20:51:32 +00:00
my ( $ subject , $ fileUrl , $ uid , $ fname , @ as , % seen , @ unique ) ;
2020-06-30 21:16:26 +00:00
$ cache = cache ( $ name , "c_init" ) ; # Cache initialisieren
2019-12-09 20:51:32 +00:00
Log3 ( $ name , 1 , "$name - Fall back to internal Cache due to preceding failure." ) if ( ! $ cache ) ;
if ( ! $ cache || $ cache eq "internal" ) {
if ( $ data { SSCam } { $ name } { PARAMS } { $ tac } { sdat } ) { # Images liegen in einem Hash (Ref in $sdat) base64-codiert vor
2019-12-11 21:16:03 +00:00
@ as = sort { $ b <=> $ a } keys % { $ data { SSCam } { $ name } { PARAMS } { $ tac } { sdat } } ;
$ mtype = "\@Snapshot" ;
2019-12-09 20:51:32 +00:00
} elsif ( $ data { SSCam } { $ name } { PARAMS } { $ tac } { vdat } ) { # Aufnahmen liegen in einem Hash-Ref in $vdat vor
2019-12-11 21:16:03 +00:00
@ as = sort { $ b <=> $ a } keys % { $ data { SSCam } { $ name } { PARAMS } { $ tac } { vdat } } ;
$ mtype = $ hash - > { CAMNAME } ;
2019-12-09 20:51:32 +00:00
}
2020-06-30 21:16:26 +00:00
for my $ key ( @ as ) {
2020-06-28 18:49:16 +00:00
( $ subject , $ fname ) = extractForChat ( $ name , $ key , $ data { SSCam } { $ name } { PARAMS } { $ tac } ) ;
2019-12-09 20:51:32 +00:00
# User aufsplitten und zu jedem die ID ermitteln
my @ ua = split ( "," , $ peers ) ;
2020-06-30 21:16:26 +00:00
for ( @ ua ) {
2019-12-09 20:51:32 +00:00
next if ( ! $ _ ) ;
$ uid = $ defs { $ chatbot } { HELPER } { USERS } { $ _ } { id } ;
if ( ! $ uid ) {
$ ret = "The receptor \"$_\" seems to be unknown because its ID coulnd't be found." ;
readingsSingleUpdate ( $ hash , "sendChatState" , $ ret , 1 ) ;
Log3 ( $ name , 2 , "$name - $ret" ) ;
$ data { SSCam } { $ name } { SENDCOUNT } { $ tac } -= 1 ;
return ;
}
# Eintrag zur SendQueue hinzufügen
# Werte: (name,opmode,method,userid,text,fileUrl,channel,attachment)
2019-12-11 21:16:03 +00:00
$ fileUrl = $ rootUrl . "/" . $ mtype . "/" . $ fname ;
2020-05-30 06:50:20 +00:00
$ subject = SSChatBot_formString ( $ subject , "text" ) ;
$ ret = SSChatBot_addQueue ( $ chatbot , "sendItem" , "chatbot" , $ uid , $ subject , $ fileUrl , "" , "" ) ;
2019-12-09 20:51:32 +00:00
if ( $ ret ) {
readingsSingleUpdate ( $ hash , "sendChatState" , $ ret , 1 ) ;
Log3 ( $ name , 2 , "$name - ERROR: $ret" ) ;
} else {
$ ret = "Chat message [$key] of transaction \"$tac\" for \"$_\" added to \"$chatbot\" sendqueue" ;
readingsSingleUpdate ( $ hash , "sendChatState" , $ ret , 1 ) ;
Log3 ( $ name , 3 , "$name - $ret" ) ;
}
}
}
$ data { SSCam } { $ name } { SENDCOUNT } { $ tac } -= 1 ;
Log3 ( $ name , 1 , "$name - Send Counter transaction \"$tac\": " . $ data { SSCam } { $ name } { SENDCOUNT } { $ tac } ) if ( AttrVal ( $ name , "debugactivetoken" , 0 ) ) ;
} else {
# alle Serial Numbers "{$sn}" der Transaktion ermitteln
if ( $ data { SSCam } { $ name } { PARAMS } { $ tac } { sdat } ) { # Images liegen in einem Hash (Ref in $sdat) base64-codiert vor
# Muster: {SENDSNAPS}{2222}{0}{imageData}
2020-07-01 20:18:13 +00:00
for ( cache ( $ name , "c_getkeys" ) ) { # relevant keys aus allen vorkommenden selektieren
2019-12-09 20:51:32 +00:00
next if $ _ !~ /\{SENDSNAPS\}\{.*\}\{(\d+)\}\{.*\}/ ;
$ _ =~ s/\{SENDSNAPS\}\{(\d+)\}\{(\d+)\}\{.*\}/$2/ ;
next if $ 1 != $ tac ;
2020-07-10 15:16:12 +00:00
push @ as , $ _ if ( $ _ =~ /^(\d+)$/x ) ;
2019-12-09 20:51:32 +00:00
}
@ unique = sort { $ b <=> $ a } grep { ! $ seen { $ _ } + + } @ as ; # distinct / unique the keys
2019-12-11 21:16:03 +00:00
$ mtype = "\@Snapshot" ;
2019-12-09 20:51:32 +00:00
} elsif ( $ data { SSCam } { $ name } { PARAMS } { $ tac } { vdat } ) { # Aufnahmen liegen in einem Hash-Ref in $vdat vor
# Muster: {SENDRECS}{305}{0}{imageData}
2020-07-01 20:18:13 +00:00
for ( cache ( $ name , "c_getkeys" ) ) { # relevant keys aus allen vorkommenden selektieren
2019-12-09 20:51:32 +00:00
next if $ _ !~ /\{SENDRECS\}\{(\d+)\}\{(\d+)\}\{.*\}/ ;
$ _ =~ s/\{SENDRECS\}\{(\d+)\}\{(\d+)\}\{.*\}/$2/ ;
next if $ 1 != $ tac ;
2020-07-10 15:16:12 +00:00
push @ as , $ _ if ( $ _ =~ /^(\d+)$/x ) ;
2019-12-09 20:51:32 +00:00
}
@ unique = sort { $ b <=> $ a } grep { ! $ seen { $ _ } + + } @ as ; # distinct / unique the keys
2019-12-11 21:16:03 +00:00
$ mtype = $ hash - > { CAMNAME } ;
2019-12-09 20:51:32 +00:00
}
2020-06-30 21:16:26 +00:00
for my $ key ( @ unique ) {
2020-06-28 18:49:16 +00:00
( $ subject , $ fname ) = extractForChat ( $ name , $ key , $ data { SSCam } { $ name } { PARAMS } { $ tac } ) ;
2019-12-09 20:51:32 +00:00
# User aufsplitten und zu jedem die ID ermitteln
my @ ua = split ( /,/ , $ peers ) ;
2020-06-30 21:16:26 +00:00
for ( @ ua ) {
2019-12-09 20:51:32 +00:00
next if ( ! $ _ ) ;
$ uid = $ defs { $ chatbot } { HELPER } { USERS } { $ _ } { id } ;
if ( ! $ uid ) {
$ ret = "The receptor \"$_\" seems to be unknown because its ID coulnd't be found." ;
readingsSingleUpdate ( $ hash , "sendChatState" , $ ret , 1 ) ;
Log3 ( $ name , 2 , "$name - $ret" ) ;
$ data { SSCam } { $ name } { SENDCOUNT } { $ tac } -= 1 ;
return ;
}
# Eintrag zur SendQueue hinzufügen
# Werte: (name,opmode,method,userid,text,fileUrl,channel,attachment)
2019-12-11 21:16:03 +00:00
$ fileUrl = $ rootUrl . "/" . $ mtype . "/" . $ fname ;
2020-05-30 06:50:20 +00:00
$ subject = SSChatBot_formString ( $ subject , "text" ) ;
$ ret = SSChatBot_addQueue ( $ chatbot , "sendItem" , "chatbot" , $ uid , $ subject , $ fileUrl , "" , "" ) ;
2019-12-09 20:51:32 +00:00
if ( $ ret ) {
readingsSingleUpdate ( $ hash , "sendChatState" , $ ret , 1 ) ;
Log3 ( $ name , 2 , "$name - ERROR: $ret" ) ;
} else {
2020-07-01 20:18:13 +00:00
$ ret = "Chat message [$key] of transaction \"$tac\" for \"$_\" added to \"$chatbot\" sendqueue" ;
2019-12-09 20:51:32 +00:00
readingsSingleUpdate ( $ hash , "sendChatState" , $ ret , 1 ) ;
Log3 ( $ name , 3 , "$name - $ret" ) ;
}
}
}
$ data { SSCam } { $ name } { SENDCOUNT } { $ tac } -= 1 ;
Log3 ( $ name , 1 , "$name - Send Counter transaction \"$tac\": " . $ data { SSCam } { $ name } { SENDCOUNT } { $ tac } ) if ( AttrVal ( $ name , "debugactivetoken" , 0 ) ) ;
}
SSChatBot_getapisites ( $ chatbot ) ; # Übertragung Sendqueue starten
2020-07-01 20:18:13 +00:00
# use strict "refs";
2020-06-28 18:49:16 +00:00
undef % chatparams ;
2019-12-09 20:51:32 +00:00
undef % { $ extparamref } ;
return ;
}
####################################################################################################
# Daten extrahieren für SSChatBot Versand
####################################################################################################
2020-06-28 18:49:16 +00:00
sub extractForChat {
2019-12-09 20:51:32 +00:00
my ( $ name , $ key , $ paref ) = @ _ ;
my $ hash = $ defs { $ name } ;
my $ subject = $ paref - > { subject } ;
my $ sdat = $ paref - > { sdat } ; # Hash von Imagedaten base64 codiert
my $ vdat = $ paref - > { vdat } ; # Hashref der Videodaten
2019-12-11 21:16:03 +00:00
my ( $ fname , $ tdir , $ ct , $ cache ) ;
2019-12-09 20:51:32 +00:00
if ( $ sdat ) {
2020-06-28 18:49:16 +00:00
$ cache = cache ( $ name , "c_init" ) ; # Cache initialisieren
2019-12-09 20:51:32 +00:00
if ( ! $ cache || $ cache eq "internal" ) {
$ ct = delete $ paref - > { sdat } { $ key } { createdTm } ;
2020-06-28 18:49:16 +00:00
$ fname = trim ( delete $ paref - > { sdat } { $ key } { fileName } ) ;
2019-12-09 20:51:32 +00:00
} else {
2020-06-28 18:49:16 +00:00
$ ct = cache ( $ name , "c_read" , "$sdat" . "{$key}{createdTm}" ) ;
$ fname = trim ( cache ( $ name , "c_read" , "$sdat" . "{$key}{fileName}" ) ) ;
2019-12-09 20:51:32 +00:00
}
}
if ( $ vdat ) {
2020-06-28 18:49:16 +00:00
$ cache = cache ( $ name , "c_init" ) ; # Cache initialisieren
2019-12-09 20:51:32 +00:00
if ( ! $ cache || $ cache eq "internal" ) {
$ ct = delete $ paref - > { vdat } { $ key } { createdTm } ;
2020-06-28 18:49:16 +00:00
$ fname = trim ( delete $ paref - > { vdat } { $ key } { fileName } ) ;
$ tdir = trim ( delete $ paref - > { vdat } { $ key } { tdir } ) ;
2019-12-09 20:51:32 +00:00
} else {
2020-06-28 18:49:16 +00:00
$ ct = cache ( $ name , "c_read" , "$vdat" . "{$key}{createdTm}" ) ;
$ fname = trim ( cache ( $ name , "c_read" , "$vdat" . "{$key}{fileName}" ) ) ;
$ tdir = trim ( cache ( $ name , "c_read" , "$vdat" . "{$key}{tdir}" ) ) ;
2019-12-09 20:51:32 +00:00
}
2019-12-11 21:16:03 +00:00
$ fname = $ tdir . "/" . $ fname ;
2019-12-09 20:51:32 +00:00
}
$ subject =~ s/\$FILE/$fname/g ;
$ subject =~ s/\$CTIME/$ct/g ;
return ( $ subject , $ fname ) ;
}
2019-02-01 15:00:29 +00:00
#############################################################################################
# Telegram-Versand
#############################################################################################
2020-06-28 18:49:16 +00:00
sub sendTelegram {
2019-02-01 15:00:29 +00:00
my ( $ hash , $ extparamref ) = @ _ ;
my $ name = $ hash - > { NAME } ;
2019-10-26 18:41:42 +00:00
my $ type = AttrVal ( $ name , "cacheType" , "internal" ) ;
2019-11-06 20:01:26 +00:00
my ( $ ret , $ cache ) ;
2019-02-01 15:00:29 +00:00
Log3 ( $ name , 4 , "$name - ####################################################" ) ;
2020-07-01 19:24:20 +00:00
Log3 ( $ name , 4 , "$name - ### start send Snap or Video by TelegramBot " ) ;
2019-02-01 15:00:29 +00:00
Log3 ( $ name , 4 , "$name - ####################################################" ) ;
2020-06-28 18:49:16 +00:00
my % teleparams = (
2019-02-01 15:00:29 +00:00
'subject' = > { 'default' = > '' , 'required' = > 0 , 'set' = > 1 } ,
'part1type' = > { 'default' = > 'text/plain; charset=UTF-8' , 'required' = > 1 , 'set' = > 1 } ,
'part1txt' = > { 'default' = > '' , 'required' = > 0 , 'set' = > 1 } ,
'part2type' = > { 'default' = > '' , 'required' = > 0 , 'set' = > 1 } ,
2019-12-09 20:51:32 +00:00
'sdat' = > { 'default' = > '' , 'required' = > 0 , 'set' = > 1 } , # Hashref der Bilddaten (Bilddaten base64 codiert), wenn gesetzt muss 'part2type' auf 'image/jpeg' gesetzt sein
2019-02-01 15:00:29 +00:00
'image' = > { 'default' = > '' , 'required' = > 0 , 'set' = > 1 } , # Daten als File, wenn gesetzt muss 'part2type' auf 'image/jpeg' gesetzt sein
2019-02-12 20:26:31 +00:00
'fname' = > { 'default' = > '' , 'required' = > 0 , 'set' = > 1 } , # Filename für "image"
2019-02-01 15:00:29 +00:00
'lsnaptime' = > { 'default' = > '' , 'required' = > 0 , 'set' = > 1 } , # Zeitstempel der Bilddaten
'opmode' = > { 'default' = > '' , 'required' = > 1 , 'set' = > 1 } , # OpMode muss gesetzt sein
'tac' = > { 'default' = > '' , 'required' = > 0 , 'set' = > 1 } , # übermittelter Transaktionscode der ausgewerteten Transaktion
2019-02-12 20:26:31 +00:00
'vdat' = > { 'default' = > '' , 'required' = > 0 , 'set' = > 1 } , # Hashref der Videodaten
2019-02-01 15:00:29 +00:00
'telebot' = > { 'default' = > '' , 'required' = > 1 , 'set' = > 1 } , # TelegramBot-Device welches zum Senden verwendet werden soll
'peers' = > { 'default' = > '' , 'required' = > 0 , 'set' = > 1 } , # TelegramBot Peers
2019-02-09 07:49:49 +00:00
'MediaStream' = > { 'default' = > '' , 'required' = > 0 , 'set' = > 1 } , # Code für MediaStream im TelegramBot (png/jpg = -1)
2020-07-16 06:14:56 +00:00
) ;
2019-02-01 15:00:29 +00:00
2019-09-14 19:11:34 +00:00
my $ tac = $ extparamref - > { tac } ;
2020-06-30 21:16:26 +00:00
for my $ key ( keys % teleparams ) {
2020-06-28 18:49:16 +00:00
$ data { SSCam } { $ name } { PARAMS } { $ tac } { $ key } = AttrVal ( $ name , $ teleparams { $ key } - > { attr } , $ teleparams { $ key } - > { default } )
if ( exists $ teleparams { $ key } - > { attr } ) ;
if ( $ teleparams { $ key } - > { set } ) {
$ data { SSCam } { $ name } { PARAMS } { $ tac } { $ key } = $ teleparams { $ key } - > { default } if ( ! $ extparamref - > { $ key } && ! $ teleparams { $ key } - > { attr } ) ;
2020-07-01 19:24:20 +00:00
$ data { SSCam } { $ name } { PARAMS } { $ tac } { $ key } = delete $ extparamref - > { $ key } if ( exists $ extparamref - > { $ key } ) ;
2020-06-28 18:49:16 +00:00
}
2020-07-01 21:08:22 +00:00
2020-07-01 19:24:20 +00:00
Log3 ( $ name , 4 , "$name - param $key is set to \"" . ( $ data { SSCam } { $ name } { PARAMS } { $ tac } { $ key } // "" ) . "\" " ) if ( $ key !~ /[sv]dat/ ) ;
2020-07-10 15:16:12 +00:00
Log3 ( $ name , 4 , "$name - param $key is set" ) if ( $ key =~ /[sv]dat/x && $ data { SSCam } { $ name } { PARAMS } { $ tac } { $ key } ne '' ) ;
2019-02-01 15:00:29 +00:00
}
2019-09-14 19:11:34 +00:00
$ data { SSCam } { $ name } { PARAMS } { $ tac } { name } = $ name ;
2019-02-01 15:00:29 +00:00
my @ err = ( ) ;
2020-06-30 21:16:26 +00:00
for my $ key ( keys ( % teleparams ) ) {
2020-06-28 18:49:16 +00:00
push ( @ err , $ key ) if ( $ teleparams { $ key } - > { required } && ! $ data { SSCam } { $ name } { PARAMS } { $ tac } { $ key } ) ;
2019-02-01 15:00:29 +00:00
}
if ( $# err >= 0 ) {
$ ret = "Missing at least one required parameter or attribute: " . join ( ', ' , @ err ) ;
Log3 ( $ name , 2 , "$name - $ret" ) ;
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "sendTeleState" , $ ret ) ;
readingsEndUpdate ( $ hash , 1 ) ;
2019-12-09 23:18:38 +00:00
$ data { SSCam } { $ name } { SENDCOUNT } { $ tac } -= 1 ;
2019-02-01 15:00:29 +00:00
return $ ret ;
}
2019-10-13 20:32:38 +00:00
my $ telebot = $ data { SSCam } { $ name } { PARAMS } { $ tac } { telebot } ;
my $ peers = $ data { SSCam } { $ name } { PARAMS } { $ tac } { peers } ;
2019-02-01 15:00:29 +00:00
if ( ! $ defs { $ telebot } ) {
$ ret = "No TelegramBot device \"$telebot\" available" ;
readingsSingleUpdate ( $ hash , "sendTeleState" , $ ret , 1 ) ;
Log3 ( $ name , 2 , "$name - $ret" ) ;
2019-12-09 23:18:38 +00:00
$ data { SSCam } { $ name } { SENDCOUNT } { $ tac } -= 1 ;
2019-02-01 15:00:29 +00:00
return ;
}
if ( ! $ peers ) {
$ peers = AttrVal ( $ telebot , "defaultPeer" , "" ) ;
if ( ! $ peers ) {
$ ret = "No peers of TelegramBot device \"$telebot\" found" ;
readingsSingleUpdate ( $ hash , "sendTeleState" , $ ret , 1 ) ;
Log3 ( $ name , 2 , "$name - $ret" ) ;
2019-12-09 23:18:38 +00:00
$ data { SSCam } { $ name } { SENDCOUNT } { $ tac } -= 1 ;
2019-02-01 15:00:29 +00:00
return ;
}
2019-11-06 20:01:26 +00:00
}
if ( ! $ data { SSCam } { $ name } { PARAMS } { $ tac } { sdat } && ! $ data { SSCam } { $ name } { PARAMS } { $ tac } { vdat } ) {
$ ret = "no video or image data existing for send process by TelegramBot \"$telebot\" " ;
readingsSingleUpdate ( $ hash , "sendTeleState" , $ ret , 1 ) ;
Log3 ( $ name , 2 , "$name - $ret" ) ;
2019-12-09 23:18:38 +00:00
$ data { SSCam } { $ name } { SENDCOUNT } { $ tac } -= 1 ;
2019-11-06 20:01:26 +00:00
return ;
}
2019-02-12 20:26:31 +00:00
2020-07-01 21:59:06 +00:00
# no strict "refs";
2019-11-06 20:01:26 +00:00
my ( $ msg , $ subject , $ MediaStream , $ fname , @ as , % seen , @ unique ) ;
2020-07-01 21:59:06 +00:00
$ cache = cache ( $ name , "c_init" ) ; # Cache initialisieren
2019-11-06 20:01:26 +00:00
Log3 ( $ name , 1 , "$name - Fall back to internal Cache due to preceding failure." ) if ( ! $ cache ) ;
if ( ! $ cache || $ cache eq "internal" ) {
if ( $ data { SSCam } { $ name } { PARAMS } { $ tac } { sdat } ) { # Images liegen in einem Hash (Ref in $sdat) base64-codiert vor
2019-10-26 18:41:42 +00:00
@ as = sort { $ b <=> $ a } keys % { $ data { SSCam } { $ name } { PARAMS } { $ tac } { sdat } } ;
2019-11-06 20:01:26 +00:00
} elsif ( $ data { SSCam } { $ name } { PARAMS } { $ tac } { vdat } ) { # Aufnahmen liegen in einem Hash-Ref in $vdat vor
@ as = sort { $ b <=> $ a } keys % { $ data { SSCam } { $ name } { PARAMS } { $ tac } { vdat } } ;
}
2020-06-30 21:16:26 +00:00
for my $ key ( @ as ) {
2020-06-28 18:49:16 +00:00
( $ msg , $ subject , $ MediaStream , $ fname ) = extractForTelegram ( $ name , $ key , $ data { SSCam } { $ name } { PARAMS } { $ tac } ) ;
$ ret = TBotSendIt ( $ defs { $ telebot } , $ name , $ fname , $ peers , $ msg , $ subject , $ MediaStream , undef , "" ) ;
2019-11-06 20:01:26 +00:00
if ( $ ret ) {
readingsSingleUpdate ( $ hash , "sendTeleState" , $ ret , 1 ) ;
Log3 ( $ name , 2 , "$name - ERROR: $ret" ) ;
} else {
2019-12-09 20:51:32 +00:00
$ ret = "Telegram message [$key] of transaction \"$tac\" sent to \"$peers\" by \"$telebot\" " ;
2019-11-06 20:01:26 +00:00
readingsSingleUpdate ( $ hash , "sendTeleState" , $ ret , 1 ) ;
Log3 ( $ name , 3 , "$name - $ret" ) ;
}
}
$ data { SSCam } { $ name } { SENDCOUNT } { $ tac } -= 1 ;
Log3 ( $ name , 1 , "$name - Send Counter transaction \"$tac\": " . $ data { SSCam } { $ name } { SENDCOUNT } { $ tac } ) if ( AttrVal ( $ name , "debugactivetoken" , 0 ) ) ;
} else {
# alle Serial Numbers "{$sn}" der Transaktion ermitteln
if ( $ data { SSCam } { $ name } { PARAMS } { $ tac } { sdat } ) { # Images liegen in einem Hash (Ref in $sdat) base64-codiert vor
# Muster: {SENDSNAPS}{2222}{0}{imageData}
2020-07-01 21:59:06 +00:00
for ( cache ( $ name , "c_getkeys" ) ) { # relevant keys aus allen vorkommenden selektieren
2019-10-27 08:07:57 +00:00
next if $ _ !~ /\{SENDSNAPS\}\{.*\}\{(\d+)\}\{.*\}/ ;
2019-11-06 20:01:26 +00:00
$ _ =~ s/\{SENDSNAPS\}\{(\d+)\}\{(\d+)\}\{.*\}/$2/ ;
next if $ 1 != $ tac ;
2020-07-10 15:16:12 +00:00
push @ as , $ _ if ( $ _ =~ /^(\d+)$/x ) ;
2019-10-26 18:41:42 +00:00
}
2019-11-06 20:01:26 +00:00
@ unique = sort { $ b <=> $ a } grep { ! $ seen { $ _ } + + } @ as ; # distinct / unique the keys
} elsif ( $ data { SSCam } { $ name } { PARAMS } { $ tac } { vdat } ) { # Aufnahmen liegen in einem Hash-Ref in $vdat vor
# Muster: {SENDRECS}{305}{0}{imageData}
2020-06-28 18:49:16 +00:00
for ( cache ( $ name , "c_getkeys" ) ) { # relevant keys aus allen vorkommenden selektieren
2019-11-06 20:01:26 +00:00
next if $ _ !~ /\{SENDRECS\}\{(\d+)\}\{(\d+)\}\{.*\}/ ;
$ _ =~ s/\{SENDRECS\}\{(\d+)\}\{(\d+)\}\{.*\}/$2/ ;
next if $ 1 != $ tac ;
2020-07-10 15:16:12 +00:00
push @ as , $ _ if ( $ _ =~ /^(\d+)$/x ) ;
2019-10-26 18:41:42 +00:00
}
2019-11-06 20:01:26 +00:00
@ unique = sort { $ b <=> $ a } grep { ! $ seen { $ _ } + + } @ as ; # distinct / unique the keys
2019-10-26 18:41:42 +00:00
}
2019-11-06 20:01:26 +00:00
2020-06-30 21:16:26 +00:00
for my $ key ( @ unique ) {
2020-06-28 18:49:16 +00:00
( $ msg , $ subject , $ MediaStream , $ fname ) = extractForTelegram ( $ name , $ key , $ data { SSCam } { $ name } { PARAMS } { $ tac } ) ;
$ ret = TBotSendIt ( $ defs { $ telebot } , $ name , $ fname , $ peers , $ msg , $ subject , $ MediaStream , undef , "" ) ;
2019-11-06 20:01:26 +00:00
if ( $ ret ) {
readingsSingleUpdate ( $ hash , "sendTeleState" , $ ret , 1 ) ;
Log3 ( $ name , 2 , "$name - ERROR: $ret" ) ;
} else {
2019-12-09 20:51:32 +00:00
$ ret = "Telegram message [$key] of transaction \"$tac\" sent to \"$peers\" by \"$telebot\" " ;
2019-11-06 20:01:26 +00:00
readingsSingleUpdate ( $ hash , "sendTeleState" , $ ret , 1 ) ;
Log3 ( $ name , 3 , "$name - $ret" ) ;
}
}
$ data { SSCam } { $ name } { SENDCOUNT } { $ tac } -= 1 ;
Log3 ( $ name , 1 , "$name - Send Counter transaction \"$tac\": " . $ data { SSCam } { $ name } { SENDCOUNT } { $ tac } ) if ( AttrVal ( $ name , "debugactivetoken" , 0 ) ) ;
2019-02-12 20:26:31 +00:00
}
2020-07-01 21:59:06 +00:00
#use strict "refs";
2020-06-28 18:49:16 +00:00
undef % teleparams ;
2019-10-10 19:10:13 +00:00
undef % { $ extparamref } ;
2019-11-06 20:01:26 +00:00
undef $ msg ;
2019-10-26 18:41:42 +00:00
2019-02-01 15:00:29 +00:00
return ;
}
####################################################################################################
# Bilddaten extrahieren für Telegram Versand
####################################################################################################
2020-06-28 18:49:16 +00:00
sub extractForTelegram {
2019-09-14 19:11:34 +00:00
my ( $ name , $ key , $ paref ) = @ _ ;
my $ hash = $ defs { $ name } ;
my $ subject = $ paref - > { subject } ;
my $ MediaStream = $ paref - > { MediaStream } ;
2019-10-26 18:41:42 +00:00
my $ sdat = $ paref - > { sdat } ; # Hash von Imagedaten base64 codiert
my $ vdat = $ paref - > { vdat } ; # Hashref der Videodaten
my ( $ data , $ fname , $ ct , $ img , $ cache ) ;
2019-02-01 15:00:29 +00:00
2019-02-12 20:26:31 +00:00
if ( $ sdat ) {
2020-06-28 18:49:16 +00:00
$ cache = cache ( $ name , "c_init" ) ; # Cache initialisieren
2019-10-26 18:41:42 +00:00
if ( ! $ cache || $ cache eq "internal" ) {
$ ct = delete $ paref - > { sdat } { $ key } { createdTm } ;
$ img = delete $ paref - > { sdat } { $ key } { imageData } ;
2020-06-28 18:49:16 +00:00
$ fname = trim ( delete $ paref - > { sdat } { $ key } { fileName } ) ;
2019-10-26 18:41:42 +00:00
$ data = MIME::Base64:: decode_base64 ( $ img ) ;
Log3 ( $ name , 4 , "$name - Image data sequence [$key] decoded from internal Cache for TelegramBot prepare" ) ;
undef $ img ;
} else {
2020-06-28 18:49:16 +00:00
$ ct = cache ( $ name , "c_read" , "$sdat" . "{$key}{createdTm}" ) ;
$ img = cache ( $ name , "c_read" , "$sdat" . "{$key}{imageData}" ) ;
$ fname = trim ( cache ( $ name , "c_read" , "$sdat" . "{$key}{fileName}" ) ) ;
2019-10-26 18:41:42 +00:00
$ data = MIME::Base64:: decode_base64 ( $ img ) ;
Log3 ( $ name , 4 , "$name - Image data sequence [$key] decoded from CHI-Cache for TelegramBot prepare" ) ;
}
2019-02-12 20:26:31 +00:00
}
if ( $ vdat ) {
2020-06-28 18:49:16 +00:00
$ cache = cache ( $ name , "c_init" ) ; # Cache initialisieren
2019-10-26 18:41:42 +00:00
if ( ! $ cache || $ cache eq "internal" ) {
$ ct = delete $ paref - > { vdat } { $ key } { createdTm } ;
$ data = delete $ paref - > { vdat } { $ key } { imageData } ;
2020-06-28 18:49:16 +00:00
$ fname = trim ( delete $ paref - > { vdat } { $ key } { fileName } ) ;
2019-10-26 18:41:42 +00:00
Log3 ( $ name , 4 , "$name - Video data sequence [$key] got from internal Cache for TelegramBot prepare" ) ;
} else {
2020-06-28 18:49:16 +00:00
$ ct = cache ( $ name , "c_read" , "$vdat" . "{$key}{createdTm}" ) ;
$ data = cache ( $ name , "c_read" , "$vdat" . "{$key}{imageData}" ) ;
$ fname = trim ( cache ( $ name , "c_read" , "$vdat" . "{$key}{fileName}" ) ) ;
2019-10-26 18:41:42 +00:00
Log3 ( $ name , 4 , "$name - Video data sequence [$key] got from CHI-Cache for TelegramBot prepare" ) ;
}
2019-02-12 20:26:31 +00:00
}
2019-02-01 15:00:29 +00:00
$ subject =~ s/\$FILE/$fname/g ;
$ subject =~ s/\$CTIME/$ct/g ;
2019-02-12 20:26:31 +00:00
return ( $ data , $ subject , $ MediaStream , $ fname ) ;
}
####################################################################################################
# Telegram Send Foto & Aufnahmen
# Adaption der Sub "SendIt" aus TelegramBot
# $hash = Hash des verwendeten TelegramBot-Devices !
# $isMedia = -1 wenn Foto, -30 wenn Aufnahme
####################################################################################################
2020-06-28 18:49:16 +00:00
sub TBotSendIt {
2019-02-12 20:26:31 +00:00
my ( $ hash , $ camname , $ fname , @ args ) = @ _ ;
my ( $ peers , $ msg , $ addPar , $ isMedia , $ replyid , $ options , $ retryCount ) = @ args ;
my $ name = $ hash - > { NAME } ;
2020-06-28 18:49:16 +00:00
my $ TBotHeader = "agent: TelegramBot/1.0\r\nUser-Agent: TelegramBot/1.0\r\nAccept: application/json\r\nAccept-Charset: utf-8" ;
my $ TBotArgRetrycnt = 6 ;
2019-02-12 20:26:31 +00:00
$ retryCount = 0 if ( ! defined ( $ retryCount ) ) ;
$ options = "" if ( ! defined ( $ options ) ) ;
# increase retrycount for next try
2020-06-28 18:49:16 +00:00
$ args [ $ TBotArgRetrycnt ] = $ retryCount + 1 ;
2019-02-12 20:26:31 +00:00
2020-06-28 18:49:16 +00:00
Log3 ( $ camname , 5 , "$camname - TBotSendIt: called " ) ;
2019-02-12 20:26:31 +00:00
# ignore all sends if disabled
return if ( AttrVal ( $ name , "disable" , 0 ) ) ;
# ensure sentQueue exists
$ hash - > { sentQueue } = [] if ( ! defined ( $ hash - > { sentQueue } ) ) ;
2020-07-10 15:16:12 +00:00
if ( ( defined ( $ hash - > { sentMsgResult } ) ) && ( $ hash - > { sentMsgResult } =~ /^WAITING/x ) && ( $ retryCount == 0 ) ) {
2019-02-12 20:26:31 +00:00
# add to queue
2020-06-28 18:49:16 +00:00
Log3 ( $ camname , 4 , "$camname - TBotSendIt: add send to queue :$peers: -:" .
2019-02-12 20:26:31 +00:00
TelegramBot_MsgForLog ( $ msg , ( $ isMedia < 0 ) ) . ": - :" . ( defined ( $ addPar ) ? $ addPar: "<undef>" ) . ":" ) ;
push ( @ { $ hash - > { sentQueue } } , \ @ args ) ;
return ;
}
my $ ret ;
$ hash - > { sentMsgResult } = "WAITING" ;
$ hash - > { sentMsgResult } . = " retry $retryCount" if ( $ retryCount > 0 ) ;
$ hash - > { sentMsgId } = "" ;
my $ peer ;
( $ peer , $ peers ) = split ( " " , $ peers , 2 ) ;
# handle addtl peers specified (will be queued since WAITING is set already)
if ( defined ( $ peers ) ) {
# remove msgid from options and also replyid reset
my $ sepoptions = $ options ;
2020-07-10 15:16:12 +00:00
$ sepoptions =~ s/-msgid-//x ;
2020-06-28 18:49:16 +00:00
TBotSendIt ( $ hash , $ camname , $ fname , $ peers , $ msg , $ addPar , $ isMedia , undef , $ sepoptions ) ;
2019-02-12 20:26:31 +00:00
}
2020-06-28 18:49:16 +00:00
Log3 ( $ camname , 5 , "$camname - TBotSendIt: try to send message to :$peer: -:" .
2019-02-12 20:26:31 +00:00
TelegramBot_MsgForLog ( $ msg , ( $ isMedia < 0 ) ) . ": - add :" . ( defined ( $ addPar ) ? $ addPar: "<undef>" ) .
": - replyid :" . ( defined ( $ replyid ) ? $ replyid: "<undef>" ) .
":" . ": options :" . $ options . ":" ) ;
# trim and convert spaces in peer to underline
$ peer = 0 if ( ! $ peer ) ;
my $ peer2 = ( ! $ peer ) ? $ peer:TelegramBot_GetIdForPeer ( $ hash , $ peer ) ;
if ( ! defined ( $ peer2 ) ) {
$ ret = "FAILED peer not found :$peer:" ;
$ peer2 = "" ;
}
$ hash - > { sentMsgPeer } = TelegramBot_GetFullnameForContact ( $ hash , $ peer2 ) ;
$ hash - > { sentMsgPeerId } = $ peer2 ;
$ hash - > { sentMsgOptions } = $ options ;
# init param hash
2019-11-18 17:50:17 +00:00
$ hash - > { HU_DO_PARAMS } - > { hash } = $ hash ;
2020-06-28 18:49:16 +00:00
$ hash - > { HU_DO_PARAMS } - > { header } = $ TBotHeader ;
2019-11-06 20:01:26 +00:00
delete $ hash - > { HU_DO_PARAMS } { args } ;
delete $ hash - > { HU_DO_PARAMS } { boundary } ;
delete $ hash - > { HU_DO_PARAMS } { data } ;
2019-02-12 20:26:31 +00:00
my $ timeout = AttrVal ( $ name , 'cmdTimeout' , 30 ) ;
$ hash - > { HU_DO_PARAMS } - > { timeout } = $ timeout ;
$ hash - > { HU_DO_PARAMS } - > { loglevel } = 4 ;
# Start Versand
if ( ! defined ( $ ret ) ) {
# add chat / user id (no file) --> this will also do init
2020-06-28 18:49:16 +00:00
$ ret = TBotAddMultipart ( $ hash , $ fname , $ hash - > { HU_DO_PARAMS } , "chat_id" , undef , $ peer2 , 0 ) if ( $ peer ) ;
2019-02-12 20:26:31 +00:00
if ( abs ( $ isMedia ) == 1 ) {
# Foto send
$ hash - > { sentMsgText } = "Image: " . TelegramBot_MsgForLog ( $ msg , ( $ isMedia < 0 ) ) . ( ( defined ( $ addPar ) ) ? " - " . $ addPar: "" ) ;
$ hash - > { HU_DO_PARAMS } - > { url } = TelegramBot_getBaseURL ( $ hash ) . "sendPhoto" ;
# add caption
if ( defined ( $ addPar ) ) {
$ addPar =~ s/(?<![\\])\\n/\x0A/g ;
$ addPar =~ s/(?<![\\])\\t/\x09/g ;
2020-06-28 18:49:16 +00:00
$ ret = TBotAddMultipart ( $ hash , $ fname , $ hash - > { HU_DO_PARAMS } , "caption" , undef , $ addPar , 0 ) if ( ! defined ( $ ret ) ) ;
2019-02-12 20:26:31 +00:00
$ addPar = undef ;
}
# add msg or file or stream
2020-06-28 18:49:16 +00:00
Log3 ( $ camname , 4 , "$camname - TBotSendIt: Filename for image file :" .
2019-02-12 20:26:31 +00:00
TelegramBot_MsgForLog ( $ msg , ( $ isMedia < 0 ) ) . ":" ) ;
2020-06-28 18:49:16 +00:00
$ ret = TBotAddMultipart ( $ hash , $ fname , $ hash - > { HU_DO_PARAMS } , "photo" , undef , $ msg , $ isMedia ) if ( ! defined ( $ ret ) ) ;
2019-02-12 20:26:31 +00:00
} elsif ( abs ( $ isMedia ) == 30 ) {
# Video send
$ hash - > { sentMsgText } = "Image: " . TelegramBot_MsgForLog ( $ msg , ( $ isMedia < 0 ) ) . ( ( defined ( $ addPar ) ) ? " - " . $ addPar: "" ) ;
$ hash - > { HU_DO_PARAMS } - > { url } = TelegramBot_getBaseURL ( $ hash ) . "sendVideo" ;
# add caption
if ( defined ( $ addPar ) ) {
$ addPar =~ s/(?<![\\])\\n/\x0A/g ;
$ addPar =~ s/(?<![\\])\\t/\x09/g ;
2020-06-28 18:49:16 +00:00
$ ret = TBotAddMultipart ( $ hash , $ fname , $ hash - > { HU_DO_PARAMS } , "caption" , undef , $ addPar , 0 ) if ( ! defined ( $ ret ) ) ;
2019-02-12 20:26:31 +00:00
$ addPar = undef ;
}
# add msg or file or stream
2020-06-28 18:49:16 +00:00
Log3 ( $ camname , 4 , "$camname - TBotSendIt: Filename for image file :" . $ fname . ":" ) ;
$ ret = TBotAddMultipart ( $ hash , $ fname , $ hash - > { HU_DO_PARAMS } , "video" , undef , $ msg , $ isMedia ) if ( ! defined ( $ ret ) ) ;
2019-02-12 20:26:31 +00:00
} else {
# nur Message senden
$ msg = "No media File was created by SSCam. Can't send it." ;
$ hash - > { HU_DO_PARAMS } - > { url } = TelegramBot_getBaseURL ( $ hash ) . "sendMessage" ;
my $ parseMode = TelegramBot_AttrNum ( $ name , "parseModeSend" , "0" ) ;
if ( $ parseMode == 1 ) {
$ parseMode = "Markdown" ;
} elsif ( $ parseMode == 2 ) {
$ parseMode = "HTML" ;
} elsif ( $ parseMode == 3 ) {
$ parseMode = 0 ;
if ( $ msg =~ /^markdown(.*)$/i ) {
$ msg = $ 1 ;
$ parseMode = "Markdown" ;
} elsif ( $ msg =~ /^HTML(.*)$/i ) {
$ msg = $ 1 ;
$ parseMode = "HTML" ;
}
} else {
$ parseMode = 0 ;
}
2020-06-28 18:49:16 +00:00
Log3 ( $ camname , 4 , "$camname - TBotSendIt: parseMode $parseMode" ) ;
2019-02-12 20:26:31 +00:00
if ( length ( $ msg ) > 1000 ) {
$ hash - > { sentMsgText } = substr ( $ msg , 0 , 1000 ) . "..." ;
} else {
$ hash - > { sentMsgText } = $ msg ;
}
$ msg =~ s/(?<![\\])\\n/\x0A/g ;
$ msg =~ s/(?<![\\])\\t/\x09/g ;
# add msg (no file)
2020-06-28 18:49:16 +00:00
$ ret = TBotAddMultipart ( $ hash , $ fname , $ hash - > { HU_DO_PARAMS } , "text" , undef , $ msg , 0 ) if ( ! defined ( $ ret ) ) ;
2019-02-12 20:26:31 +00:00
# add parseMode
2020-06-28 18:49:16 +00:00
$ ret = TBotAddMultipart ( $ hash , $ fname , $ hash - > { HU_DO_PARAMS } , "parse_mode" , undef , $ parseMode , 0 ) if ( ( ! defined ( $ ret ) ) && ( $ parseMode ) ) ;
2019-02-12 20:26:31 +00:00
2019-03-06 18:59:05 +00:00
# add disable_web_page_preview
2020-06-28 18:49:16 +00:00
$ ret = TBotAddMultipart ( $ hash , $ fname , $ hash - > { HU_DO_PARAMS } , "disable_web_page_preview" , undef , \ 1 , 0 )
2019-02-12 20:26:31 +00:00
if ( ( ! defined ( $ ret ) ) && ( ! AttrVal ( $ name , 'webPagePreview' , 1 ) ) ) ;
}
if ( defined ( $ replyid ) ) {
2020-06-28 18:49:16 +00:00
$ ret = TBotAddMultipart ( $ hash , $ fname , $ hash - > { HU_DO_PARAMS } , "reply_to_message_id" , undef , $ replyid , 0 ) if ( ! defined ( $ ret ) ) ;
2019-02-12 20:26:31 +00:00
}
if ( defined ( $ addPar ) ) {
2020-06-28 18:49:16 +00:00
$ ret = TBotAddMultipart ( $ hash , $ fname , $ hash - > { HU_DO_PARAMS } , "reply_markup" , undef , $ addPar , 0 ) if ( ! defined ( $ ret ) ) ;
2020-07-10 15:16:12 +00:00
} elsif ( $ options =~ /-force_reply-/x ) {
2020-06-28 18:49:16 +00:00
$ ret = TBotAddMultipart ( $ hash , $ fname , $ hash - > { HU_DO_PARAMS } , "reply_markup" , undef , "{\"force_reply\":true}" , 0 ) if ( ! defined ( $ ret ) ) ;
2019-02-12 20:26:31 +00:00
}
2020-07-10 15:16:12 +00:00
if ( $ options =~ /-silent-/x ) {
2020-06-28 18:49:16 +00:00
$ ret = TBotAddMultipart ( $ hash , $ fname , $ hash - > { HU_DO_PARAMS } , "disable_notification" , undef , "true" , 0 ) if ( ! defined ( $ ret ) ) ;
2019-02-12 20:26:31 +00:00
}
# finalize multipart
2020-06-28 18:49:16 +00:00
$ ret = TBotAddMultipart ( $ hash , $ fname , $ hash - > { HU_DO_PARAMS } , undef , undef , undef , 0 ) if ( ! defined ( $ ret ) ) ;
2019-02-12 20:26:31 +00:00
}
if ( defined ( $ ret ) ) {
2020-06-28 18:49:16 +00:00
Log3 ( $ camname , 3 , "$camname - TBotSendIt: Failed with :$ret:" ) ;
2019-02-12 20:26:31 +00:00
TelegramBot_Callback ( $ hash - > { HU_DO_PARAMS } , $ ret , "" ) ;
} else {
$ hash - > { HU_DO_PARAMS } - > { args } = \ @ args ;
# if utf8 is set on string this will lead to length wrongly calculated in HTTPUtils (char instead of bytes) for some installations
if ( ( AttrVal ( $ name , 'utf8Special' , 0 ) ) && ( utf8:: is_utf8 ( $ hash - > { HU_DO_PARAMS } - > { data } ) ) ) {
2020-06-28 18:49:16 +00:00
Log3 $ camname , 4 , "$camname - TBotSendIt: utf8 encoding for data in message " ;
2019-02-12 20:26:31 +00:00
utf8:: downgrade ( $ hash - > { HU_DO_PARAMS } - > { data } ) ;
}
2020-06-28 18:49:16 +00:00
Log3 ( $ camname , 4 , "$camname - TBotSendIt: timeout for sent :" . $ hash - > { HU_DO_PARAMS } - > { timeout } . ": " ) ;
2019-02-12 20:26:31 +00:00
HttpUtils_NonblockingGet ( $ hash - > { HU_DO_PARAMS } ) ;
}
2019-11-06 20:01:26 +00:00
undef $ msg ;
2019-02-12 20:26:31 +00:00
return $ ret ;
}
####################################################################################################
# Telegram Media zusammenstellen
# Adaption der Sub "AddMultipart" aus TelegramBot
#
# Parameter:
# $hash = Hash des verwendeten TelegramBot-Devices !
# params = (hash for building up the data)
# paramname --> if not sepecifed / undef - multipart will be finished
# header for multipart
# content
# isFile to specify if content is providing a file to be read as content
#
# returns string in case of error or undef
####################################################################################################
2020-06-28 18:49:16 +00:00
sub TBotAddMultipart {
2019-02-12 20:26:31 +00:00
my ( $ hash , $ fname , $ params , $ parname , $ parheader , $ parcontent , $ isMedia ) = @ _ ;
my $ name = $ hash - > { NAME } ;
my $ ret ;
# Check if boundary is defined
if ( ! defined ( $ params - > { boundary } ) ) {
$ params - > { boundary } = "TelegramBot_boundary-x0123" ;
$ params - > { header } . = "\r\nContent-Type: multipart/form-data; boundary=" . $ params - > { boundary } ;
$ params - > { method } = "POST" ;
$ params - > { data } = "" ;
}
# ensure parheader is defined and add final header new lines
$ parheader = "" if ( ! defined ( $ parheader ) ) ;
$ parheader . = "\r\n" if ( ( length ( $ parheader ) > 0 ) && ( $ parheader !~ /\r\n$/ ) ) ;
# add content
my $ finalcontent ;
if ( defined ( $ parname ) ) {
$ params - > { data } . = "--" . $ params - > { boundary } . "\r\n" ;
if ( $ isMedia > 0 ) {
# url decode filename
$ parcontent = uri_unescape ( $ parcontent ) if ( AttrVal ( $ name , 'filenameUrlEscape' , 0 ) ) ;
my $ baseFilename = basename ( $ parcontent ) ;
$ parheader = "Content-Disposition: form-data; name=\"" . $ parname . "\"; filename=\"" . $ baseFilename . "\"\r\n" . $ parheader . "\r\n" ;
return ( "FAILED file :$parcontent: not found or empty" ) if ( ! - e $ parcontent ) ;
my $ size = - s $ parcontent ;
my $ limit = AttrVal ( $ name , 'maxFileSize' , 10485760 ) ;
return ( "FAILED file :$parcontent: is too large for transfer (current limit: " . $ limit . "B)" ) if ( $ size > $ limit ) ;
$ finalcontent = TelegramBot_BinaryFileRead ( $ hash , $ parcontent ) ;
if ( $ finalcontent eq "" ) {
return ( "FAILED file :$parcontent: not found or empty" ) ;
}
} elsif ( $ isMedia < 0 ) {
2020-06-28 18:49:16 +00:00
my ( $ im , $ ext ) = TBotIdentifyStream ( $ hash , $ parcontent ) ;
2020-07-10 15:16:12 +00:00
$ fname =~ s/.mp4$/.$ext/x ;
2019-02-12 20:26:31 +00:00
$ parheader = "Content-Disposition: form-data; name=\"" . $ parname . "\"; filename=\"" . $ fname . "\"\r\n" . $ parheader . "\r\n" ;
$ finalcontent = $ parcontent ;
} else {
$ parheader = "Content-Disposition: form-data; name=\"" . $ parname . "\"\r\n" . $ parheader . "\r\n" ;
$ finalcontent = $ parcontent ;
}
$ params - > { data } . = $ parheader . $ finalcontent . "\r\n" ;
} else {
return ( "No content defined for multipart" ) if ( length ( $ params - > { data } ) == 0 ) ;
$ params - > { data } . = "--" . $ params - > { boundary } . "--" ;
}
2020-06-21 20:37:08 +00:00
return ;
2019-02-12 20:26:31 +00:00
}
####################################################################################################
# Telegram Media Identifikation
# Adaption der Sub "IdentifyStream" aus TelegramBot
# $hash = Hash des verwendeten TelegramBot-Devices !
####################################################################################################
2020-06-28 18:49:16 +00:00
sub TBotIdentifyStream {
2019-02-12 20:26:31 +00:00
my ( $ hash , $ msg ) = @ _ ;
# signatures for media files are documented here --> https://en.wikipedia.org/wiki/List_of_file_signatures
# seems sometimes more correct: https://wangrui.wordpress.com/2007/06/19/file-signatures-table/
# Video Signatur aus: https://www.garykessler.net/library/file_sigs.html
return ( - 1 , "png" ) if ( $ msg =~ /^\x89PNG\r\n\x1a\n/ ) ; # PNG
return ( - 1 , "jpg" ) if ( $ msg =~ /^\xFF\xD8\xFF/ ) ; # JPG not necessarily complete, but should be fine here
return ( - 30 , "mpg" ) if ( $ msg =~ /^....\x66\x74\x79\x70\x69\x73\x6f\x6d/ ) ; # mp4
return ( 0 , undef ) ;
2019-02-01 15:00:29 +00:00
}
2018-12-30 20:20:27 +00:00
#############################################################################################
# SMTP EMail-Versand
#############################################################################################
2020-06-28 18:49:16 +00:00
sub sendEmail {
2018-12-30 20:20:27 +00:00
my ( $ hash , $ extparamref ) = @ _ ;
my $ name = $ hash - > { NAME } ;
my $ timeout = 60 ;
my $ ret ;
Log3 ( $ name , 4 , "$name - ####################################################" ) ;
2019-01-27 15:36:11 +00:00
Log3 ( $ name , 4 , "$name - ### start send snapshot or recording by email " ) ;
2018-12-30 20:20:27 +00:00
Log3 ( $ name , 4 , "$name - ####################################################" ) ;
my $ m1 = "Net::SMTP" ;
my $ m2 = "MIME::Lite" ;
2019-01-02 19:35:10 +00:00
my $ m3 = "Net::SMTP::SSL" ;
2020-07-13 20:38:52 +00:00
my $ sslfb = 0 ; # Flag für Verwendung altes Net::SMTP::SSL
2018-12-30 20:20:27 +00:00
2019-01-02 19:35:10 +00:00
my ( $ vm1 , $ vm2 , $ vm3 ) ;
2020-07-13 20:38:52 +00:00
eval { require Net::SMTP ; ## no critic 'eval not tested'
2018-12-30 20:20:27 +00:00
Net::SMTP - > import ;
2020-06-28 18:49:16 +00:00
$ vm1 = $ Net:: SMTP:: VERSION ;
2019-01-02 19:35:10 +00:00
# Version von Net::SMTP prüfen, wenn < 3.00 dann Net::SMTP::SSL verwenden
# (libnet-3.06 hat SSL inkludiert)
my $ sv = $ vm1 ;
2020-07-10 15:16:12 +00:00
$ sv =~ s/[^0-9.].*$//x ;
2019-01-02 19:35:10 +00:00
if ( $ sv < 3.00 ) {
require Net::SMTP::SSL ;
Net::SMTP::SSL - > import ;
$ vm3 = $ Net:: SMTP:: SSL:: VERSION ;
$ sslfb = 1 ;
}
2020-06-28 18:49:16 +00:00
require MIME::Lite ;
MIME::Lite - > import ;
$ vm2 = $ MIME:: Lite:: VERSION ;
2020-06-21 20:37:08 +00:00
} ;
2018-12-30 20:20:27 +00:00
2019-01-02 19:35:10 +00:00
if ( ! $ vm1 || ! $ vm2 || ( $ sslfb && ! $ vm3 ) ) {
2018-12-30 20:20:27 +00:00
my $ nl = ! $ vm2 ? $ m2 . " " : "" ;
2019-01-02 19:35:10 +00:00
$ nl . = ! $ vm1 ? $ m1 . " " : "" ;
$ nl . = ( $ sslfb && ! $ vm3 ) ? $ m3: "" ;
2018-12-30 20:20:27 +00:00
$ ret = "required module for sending Email couldn't be loaded. You have to install: $nl" ;
Log3 ( $ name , 1 , "$name - $ret" ) ;
readingsBeginUpdate ( $ hash ) ;
2020-07-13 20:38:52 +00:00
readingsBulkUpdate ( $ hash , "sendEmailState" , $ ret ) ;
readingsEndUpdate ( $ hash , 1 ) ;
2018-12-30 20:20:27 +00:00
return $ ret ;
}
2019-01-02 19:35:10 +00:00
Log3 ( $ name , 4 , "$name - version of loaded module \"$m1\" is \"$vm1\"" ) ;
Log3 ( $ name , 4 , "$name - version of \"$m1\" is too old. Use SSL-fallback module \"$m3\" with version \"$vm3\"" ) if ( $ sslfb && $ vm3 ) ;
Log3 ( $ name , 4 , "$name - version of loaded module \"$m2\" is \"$vm2\"" ) ;
2018-12-30 20:20:27 +00:00
2020-06-28 18:49:16 +00:00
my % mailparams = (
2018-12-30 20:20:27 +00:00
'smtpFrom' = > { 'attr' = > 'smtpFrom' , 'default' = > '' , 'required' = > 1 , 'set' = > 1 } ,
'smtpTo' = > { 'attr' = > 'smtpTo' , 'default' = > '' , 'required' = > 1 , 'set' = > 1 } ,
'subject' = > { 'attr' = > 'subject' , 'default' = > '' , 'required' = > 1 , 'set' = > 1 } ,
'smtpCc' = > { 'attr' = > 'smtpCc' , 'default' = > '' , 'required' = > 0 , 'set' = > 1 } ,
'part1type' = > { 'default' = > 'text/plain; charset=UTF-8' , 'required' = > 1 , 'set' = > 1 } ,
'part1txt' = > { 'default' = > '' , 'required' = > 0 , 'set' = > 1 } ,
'part2type' = > { 'default' = > '' , 'required' = > 0 , 'set' = > 1 } ,
'smtphost' = > { 'attr' = > 'smtpHost' , 'default' = > '' , 'required' = > 1 , 'set' = > 0 } ,
'smtpport' = > { 'attr' = > 'smtpPort' , 'default' = > '25' , 'required' = > 1 , 'set' = > 0 } ,
2019-01-02 19:35:10 +00:00
'smtpsslport' = > { 'attr' = > 'smtpSSLPort' , 'default' = > '' , 'required' = > 0 , 'set' = > 1 } , # SSL-Port, verwendet bei direktem SSL-Aufbau
2020-06-28 18:49:16 +00:00
'smtpnousessl' = > { 'attr' = > 'smtpNoUseSSL' , 'default' = > '0' , 'required' = > 0 , 'set' = > 1 } ,
'smtpdebug' = > { 'attr' = > 'smtpDebug' , 'default' = > '0' , 'required' = > 0 , 'set' = > 0 } ,
2019-12-09 20:51:32 +00:00
'sdat' = > { 'default' = > '' , 'required' = > 0 , 'set' = > 1 } , # Hashref der Bilddaten (Bilddaten base64 codiert), wenn gesetzt muss 'part2type' auf 'image/jpeg' gesetzt sein
2019-01-27 15:36:11 +00:00
'image' = > { 'default' = > '' , 'required' = > 0 , 'set' = > 1 } , # Daten als File, wenn gesetzt muss 'part2type' auf 'image/jpeg' gesetzt sein
'fname' = > { 'default' = > 'image.jpg' , 'required' = > 0 , 'set' = > 1 } , # Filename für "image"
2019-01-14 23:09:42 +00:00
'lsnaptime' = > { 'default' = > '' , 'required' = > 0 , 'set' = > 1 } , # Zeitstempel der Bilddaten
2018-12-30 20:20:27 +00:00
'opmode' = > { 'default' = > '' , 'required' = > 1 , 'set' = > 1 } , # OpMode muss gesetzt sein
2019-01-02 19:35:10 +00:00
'sslfb' = > { 'default' = > $ sslfb , 'required' = > 0 , 'set' = > 1 } , # Flag für Verwendung altes Net::SMTP::SSL
'sslfrominit' = > { 'default' = > '' , 'required' = > 0 , 'set' = > 1 } , # SSL soll sofort ! aufgebaut werden
2019-01-09 18:54:08 +00:00
'tac' = > { 'default' = > '' , 'required' = > 0 , 'set' = > 1 } , # übermittelter Transaktionscode der ausgewerteten Transaktion
2019-01-27 15:36:11 +00:00
'vdat' = > { 'default' = > '' , 'required' = > 0 , 'set' = > 1 } , # Videodaten, wenn gesetzt muss 'part2type' auf 'video/mpeg' gesetzt sein
2020-07-16 06:14:56 +00:00
) ;
2018-12-30 20:20:27 +00:00
2019-09-14 19:11:34 +00:00
my $ tac = $ extparamref - > { tac } ;
2020-06-30 21:16:26 +00:00
for my $ key ( keys % mailparams ) {
2020-06-28 18:49:16 +00:00
$ data { SSCam } { $ name } { PARAMS } { $ tac } { $ key } = AttrVal ( $ name , $ mailparams { $ key } - > { attr } , $ mailparams { $ key } - > { default } )
if ( exists $ mailparams { $ key } - > { attr } ) ;
if ( $ mailparams { $ key } - > { set } ) {
$ data { SSCam } { $ name } { PARAMS } { $ tac } { $ key } = $ mailparams { $ key } - > { default } if ( ! $ extparamref - > { $ key } && ! $ mailparams { $ key } - > { attr } ) ;
2019-10-10 19:10:13 +00:00
$ data { SSCam } { $ name } { PARAMS } { $ tac } { $ key } = delete $ extparamref - > { $ key } if ( exists $ extparamref - > { $ key } ) ;
2019-10-26 18:41:42 +00:00
}
2019-09-14 19:11:34 +00:00
Log3 ( $ name , 4 , "$name - param $key is now \"" . $ data { SSCam } { $ name } { PARAMS } { $ tac } { $ key } . "\" " ) if ( $ key !~ /sdat/ ) ;
2020-07-10 15:16:12 +00:00
Log3 ( $ name , 4 , "$name - param $key is set" ) if ( $ key =~ /sdat/x && $ data { SSCam } { $ name } { PARAMS } { $ tac } { $ key } ne '' ) ;
2018-12-30 20:20:27 +00:00
}
2019-09-14 19:11:34 +00:00
$ data { SSCam } { $ name } { PARAMS } { $ tac } { name } = $ name ;
2018-12-30 20:20:27 +00:00
my @ err = ( ) ;
2020-06-30 21:16:26 +00:00
for my $ key ( keys ( % mailparams ) ) {
2020-06-28 18:49:16 +00:00
push ( @ err , $ key ) if ( $ mailparams { $ key } - > { required } && ! $ data { SSCam } { $ name } { PARAMS } { $ tac } { $ key } ) ;
2018-12-30 20:20:27 +00:00
}
if ( $# err >= 0 ) {
$ ret = "Missing at least one required parameter or attribute: " . join ( ', ' , @ err ) ;
Log3 ( $ name , 2 , "$name - $ret" ) ;
2020-07-13 20:38:52 +00:00
2018-12-30 20:20:27 +00:00
readingsBeginUpdate ( $ hash ) ;
2020-07-13 20:38:52 +00:00
readingsBulkUpdate ( $ hash , "sendEmailState" , $ ret ) ;
readingsEndUpdate ( $ hash , 1 ) ;
2018-12-30 20:20:27 +00:00
return $ ret ;
}
2020-07-13 20:38:52 +00:00
$ hash - > { HELPER } { RUNNING_PID } = BlockingCall ( "FHEM::SSCam::sendEmailblocking" , $ data { SSCam } { $ name } { PARAMS } { $ tac } , "FHEM::SSCam::sendEmaildone" , $ timeout , "FHEM::SSCam::sendEmailto" , $ hash ) ;
2018-12-30 20:20:27 +00:00
$ hash - > { HELPER } { RUNNING_PID } { loglevel } = 5 if ( $ hash - > { HELPER } { RUNNING_PID } ) ; # Forum #77057
2019-09-14 19:11:34 +00:00
2020-06-28 18:49:16 +00:00
undef % mailparams ;
2019-10-13 20:32:38 +00:00
undef %$ extparamref ;
2020-06-21 20:37:08 +00:00
2018-12-30 20:20:27 +00:00
return ;
}
####################################################################################################
# nichtblockierendes Send EMail
####################################################################################################
2020-06-28 18:49:16 +00:00
sub sendEmailblocking {
my ( $ paref ) = @ _ ; # der Referent wird in cleanData gelöscht
2019-10-10 19:10:13 +00:00
my $ name = delete $ paref - > { name } ;
my $ cc = delete $ paref - > { smtpCc } ;
my $ from = delete $ paref - > { smtpFrom } ;
my $ part1type = delete $ paref - > { part1type } ;
my $ part1txt = delete $ paref - > { part1txt } ;
my $ part2type = delete $ paref - > { part2type } ;
my $ smtphost = delete $ paref - > { smtphost } ;
my $ smtpport = delete $ paref - > { smtpport } ;
my $ smtpsslport = delete $ paref - > { smtpsslport } ;
my $ smtpnousessl = delete $ paref - > { smtpnousessl } ; # SSL Verschlüsselung soll NICHT genutzt werden
my $ subject = delete $ paref - > { subject } ;
my $ to = delete $ paref - > { smtpTo } ;
my $ msgtext = delete $ paref - > { msgtext } ;
my $ smtpdebug = delete $ paref - > { smtpdebug } ;
my $ sdat = delete $ paref - > { sdat } ; # Hash von Imagedaten base64 codiert
my $ image = delete $ paref - > { image } ; # Image, wenn gesetzt muss 'part2type' auf 'image/jpeg' gesetzt sein
my $ fname = delete $ paref - > { fname } ; # Filename -> verwendet wenn $image ist gesetzt
my $ lsnaptime = delete $ paref - > { lsnaptime } ; # Zeit des letzten Schnappschusses wenn gesetzt
my $ opmode = delete $ paref - > { opmode } ; # aktueller Operation Mode
my $ sslfb = delete $ paref - > { sslfb } ; # Flag für Verwendung altes Net::SMTP::SSL
my $ sslfrominit = delete $ paref - > { sslfrominit } ; # SSL soll sofort ! aufgebaut werden
my $ tac = delete $ paref - > { tac } ; # übermittelter Transaktionscode der ausgewerteten Transaktion
my $ vdat = delete $ paref - > { vdat } ; # Videodaten, wenn gesetzt muss 'part2type' auf 'video/mpeg' gesetzt sein
2019-10-26 18:41:42 +00:00
2018-12-30 20:20:27 +00:00
my $ hash = $ defs { $ name } ;
my $ sslver = "" ;
2019-10-26 18:41:42 +00:00
my ( $ err , $ smtp , @ as , $ cache ) ;
2018-12-30 20:20:27 +00:00
# Credentials abrufen
2020-06-28 18:49:16 +00:00
my ( $ success , $ username , $ password ) = getCredentials ( $ hash , 0 , "smtp" ) ;
2018-12-30 20:20:27 +00:00
unless ( $ success ) {
$ err = "SMTP credentials couldn't be retrieved successfully - make sure you've set it with \"set $name smtpcredentials <username> <password>\"" ;
Log3 ( $ name , 2 , "$name - $err" ) ;
2020-06-28 18:49:16 +00:00
$ err = encode_base64 ( $ err , "" ) ;
2018-12-30 20:20:27 +00:00
return "$name|$err|''" ;
}
$ subject = decode_utf8 ( $ subject ) ;
my $ mailmsg = MIME::Lite - > new (
From = > $ from ,
2020-06-28 18:49:16 +00:00
To = > $ to ,
Subject = > $ subject ,
Type = > 'multipart/mixed' , #'multipart/mixed', # was 'text/plain'
2018-12-30 20:20:27 +00:00
) ;
### Add the text message part:
### (Note that "attach" has same arguments as "new"):
$ part1txt = decode_utf8 ( $ part1txt ) ;
$ mailmsg - > attach (
Type = > $ part1type ,
Data = > $ part1txt ,
) ;
### Add image, Das Image liegt bereits als File vor
if ( $ image ) {
$ mailmsg - > attach (
Type = > $ part2type ,
Path = > $ image ,
Filename = > $ fname ,
Disposition = > 'attachment' ,
) ;
}
2020-07-01 21:59:06 +00:00
# no strict "refs";
2018-12-30 20:20:27 +00:00
if ( $ sdat ) {
2019-10-26 18:41:42 +00:00
### Images liegen in einem Hash (Ref in $sdat) base64-codiert vor
2019-01-04 20:07:35 +00:00
my ( $ ct , $ img , $ decoded ) ;
2020-06-28 18:49:16 +00:00
$ cache = cache ( $ name , "c_init" ) ; # Cache initialisieren
2019-10-26 18:41:42 +00:00
if ( ! $ cache || $ cache eq "internal" ) {
@ as = sort { $ a <=> $ b } keys % { $ sdat } ;
2020-06-30 21:16:26 +00:00
for my $ key ( @ as ) {
2019-10-26 18:41:42 +00:00
$ ct = delete $ sdat - > { $ key } { createdTm } ;
$ img = delete $ sdat - > { $ key } { imageData } ;
$ fname = delete $ sdat - > { $ key } { fileName } ;
$ decoded = MIME::Base64:: decode_base64 ( $ img ) ;
$ mailmsg - > attach (
Type = > $ part2type ,
Data = > $ decoded ,
Filename = > $ fname ,
Disposition = > 'attachment' ,
) ;
Log3 ( $ name , 4 , "$name - Image data sequence [$key] decoded from internal Cache for Email attachment" ) if ( $ decoded ) ;
}
2020-06-30 21:16:26 +00:00
BlockingInformParent ( "FHEM::SSCam::subaddFromBlocking" , [ $ name , "-" , $ tac ] , 0 ) ;
2019-10-26 18:41:42 +00:00
} else {
# alle Serial Numbers "{$sn}" der Transaktion ermitteln
2019-11-06 20:01:26 +00:00
# Muster: {SENDSNAPS|RS}{2222|multiple_snapsend}{0|1572995404.125580}{imageData}
2020-06-28 18:49:16 +00:00
for ( cache ( $ name , "c_getkeys" ) ) { # relevant keys aus allen vorkommenden selektieren
2019-11-06 20:01:26 +00:00
next if $ _ !~ /\{(SENDSNAPS|RS)\}\{.*\}\{.*\}\{.*\}/ ;
$ _ =~ s/\{(SENDSNAPS|RS)\}\{(.*)\}\{(\d+|\d+.\d+)\}\{.*\}/$3/ ;
next if $ 2 ne $ tac ;
push @ as , $ _ if ( $ _ =~ /^(\d+|\d+.\d+)$/ ) ;
2019-10-26 18:41:42 +00:00
}
my % seen ;
my @ unique = sort { $ a <=> $ b } grep { ! $ seen { $ _ } + + } @ as ; # distinct / unique the keys
# attach mail
2020-06-30 21:16:26 +00:00
for my $ key ( @ unique ) {
2020-06-28 18:49:16 +00:00
next if ( ! cache ( $ name , "c_isvalidkey" , "$sdat" . "{$key}{imageData}" ) ) ;
$ ct = cache ( $ name , "c_read" , "$sdat" . "{$key}{createdTm}" ) ;
$ img = cache ( $ name , "c_read" , "$sdat" . "{$key}{imageData}" ) ;
$ fname = cache ( $ name , "c_read" , "$sdat" . "{$key}{fileName}" ) ;
2019-10-26 18:41:42 +00:00
$ decoded = MIME::Base64:: decode_base64 ( $ img ) ;
$ mailmsg - > attach (
Type = > $ part2type ,
Data = > $ decoded ,
Filename = > $ fname ,
Disposition = > 'attachment' ,
) ;
Log3 ( $ name , 4 , "$name - Image data sequence [$key] decoded from CHI-Cache for Email attachment" ) ;
}
2020-06-30 21:16:26 +00:00
BlockingInformParent ( "FHEM::SSCam::subaddFromBlocking" , [ $ name , "-" , $ tac ] , 0 ) ;
2019-01-27 15:36:11 +00:00
}
}
if ( $ vdat ) {
2019-10-26 18:41:42 +00:00
### Videodaten (mp4) wurden geliefert
2019-01-27 15:36:11 +00:00
my ( $ ct , $ video ) ;
2020-06-28 18:49:16 +00:00
$ cache = cache ( $ name , "c_init" ) ; # Cache initialisieren
2019-10-26 18:41:42 +00:00
if ( ! $ cache || $ cache eq "internal" ) {
@ as = sort { $ a <=> $ b } keys % { $ vdat } ;
2020-06-30 21:16:26 +00:00
for my $ key ( @ as ) {
2019-10-26 18:41:42 +00:00
$ ct = delete $ vdat - > { $ key } { createdTm } ;
$ video = delete $ vdat - > { $ key } { imageData } ;
$ fname = delete $ vdat - > { $ key } { fileName } ;
$ mailmsg - > attach (
Type = > $ part2type ,
Data = > $ video ,
Filename = > $ fname ,
Disposition = > 'attachment' ,
) ;
Log3 ( $ name , 4 , "$name - Video data sequence [$key] decoded from internal Cache for Email attachment" ) ;
}
2020-06-30 21:16:26 +00:00
BlockingInformParent ( "FHEM::SSCam::subaddFromBlocking" , [ $ name , "-" , $ tac ] , 0 ) ;
2019-10-26 18:41:42 +00:00
} else {
# alle Serial Numbers "{$sn}" der Transaktion ermitteln
2019-11-06 20:01:26 +00:00
# Muster: {SENDRECS}{305}{0}{imageData}
2020-06-28 18:49:16 +00:00
for ( cache ( $ name , "c_getkeys" ) ) { # relevant keys aus allen vorkommenden selektieren
2019-11-06 20:01:26 +00:00
next if $ _ !~ /\{SENDRECS\}\{(\d+)\}\{(\d+)\}\{.*\}/ ;
$ _ =~ s/\{SENDRECS\}\{(\d+)\}\{(\d+)\}\{.*\}/$2/ ;
next if $ 1 != $ tac ;
2019-10-26 18:41:42 +00:00
push @ as , $ _ if ( $ _ =~ /^(\d+)$/ ) ;
}
my % seen ;
my @ unique = sort { $ a <=> $ b } grep { ! $ seen { $ _ } + + } @ as ; # distinct / unique the keys
# attach mail
2020-06-30 21:16:26 +00:00
for my $ key ( @ unique ) {
2020-06-28 18:49:16 +00:00
next if ( ! cache ( $ name , "c_isvalidkey" , "$vdat" . "{$key}{imageData}" ) ) ;
$ ct = cache ( $ name , "c_read" , "$vdat" . "{$key}{createdTm}" ) ;
$ video = cache ( $ name , "c_read" , "$vdat" . "{$key}{imageData}" ) ;
$ fname = cache ( $ name , "c_read" , "$vdat" . "{$key}{fileName}" ) ;
2019-10-26 18:41:42 +00:00
$ mailmsg - > attach (
Type = > $ part2type ,
Data = > $ video ,
Filename = > $ fname ,
Disposition = > 'attachment' ,
) ;
Log3 ( $ name , 4 , "$name - Video data sequence [$key] decoded from CHI-Cache for Email attachment" ) ;
}
2020-06-30 21:16:26 +00:00
BlockingInformParent ( "FHEM::SSCam::subaddFromBlocking" , [ $ name , "-" , $ tac ] , 0 ) ;
2018-12-30 20:20:27 +00:00
}
}
$ mailmsg - > attr ( 'content-type.charset' = > 'UTF-8' ) ;
2019-01-02 19:35:10 +00:00
##### SMTP-Connection #####
# login to SMTP Host
if ( $ sslfb ) {
# Verwendung altes Net::SMTP::SSL <= 3.00 -> immer direkter SSL-Aufbau, Attribut "smtpNoUseSSL" wird ignoriert
Log3 ( $ name , 3 , "$name - Attribute \"smtpNoUseSSL\" will be ignored due to usage of Net::SMTP::SSL" ) if ( AttrVal ( $ name , "smtpNoUseSSL" , 0 ) ) ;
$ smtp = Net::SMTP::SSL - > new ( Host = > $ smtphost , Port = > $ smtpsslport , Debug = > $ smtpdebug ) ;
} else {
# Verwendung neues Net::SMTP::SSL > 3.00
if ( $ sslfrominit ) {
# sofortiger SSL connect
$ smtp = Net::SMTP - > new ( Host = > $ smtphost , Port = > $ smtpsslport , SSL = > 1 , Debug = > $ smtpdebug ) ;
} else {
# erst unverschlüsselt, danach switch zu encrypted
$ smtp = Net::SMTP - > new ( Host = > $ smtphost , Port = > $ smtpport , SSL = > 0 , Debug = > $ smtpdebug ) ;
}
}
2018-12-30 20:20:27 +00:00
if ( ! $ smtp ) {
$ err = "SMTP Error: Can't connect to host $smtphost" ;
Log3 ( $ name , 2 , "$name - $err" ) ;
2019-01-02 19:35:10 +00:00
$ err = encode_base64 ( $ err , "" ) ;
2018-12-30 20:20:27 +00:00
return "$name|$err|''" ;
}
2019-01-02 19:35:10 +00:00
if ( ! $ sslfb && ! $ sslfrominit ) {
# Aufbau unverschlüsselt -> switch zu verschlüsselt wenn nicht untersagt
if ( $ smtp - > can_ssl ( ) && ! $ smtpnousessl ) {
unless ( $ smtp - > starttls ( SSL_verify_mode = > 0 ,
SSL_version = > "TLSv1_2:!TLSv1_1:!SSLv3:!SSLv23:!SSLv2" ,
) ) {
$ err = "SMTP Error while switch to SSL: " . $ smtp - > message ( ) ;
Log3 ( $ name , 2 , "$name - $err" ) ;
$ err = encode_base64 ( $ err , "" ) ;
return "$name|$err|''" ;
}
$ sslver = $ smtp - > get_sslversion ( ) ;
Log3 ( $ name , 3 , "$name - SMTP-Host $smtphost switched to encrypted connection with SSL version: $sslver" ) ;
} else {
Log3 ( $ name , 3 , "$name - SMTP-Host $smtphost use unencrypted connection !" ) ;
}
2018-12-30 20:20:27 +00:00
} else {
2020-07-13 20:38:52 +00:00
eval { $ sslver = $ smtp - > get_sslversion ( ) ; } ; ## no critic 'eval not tested' # Forum: https://forum.fhem.de/index.php/topic,45671.msg880602.html#msg880602
$ sslver = $ sslver ? $ sslver : "n.a." ;
2019-01-02 19:35:10 +00:00
Log3 ( $ name , 3 , "$name - SMTP-Host $smtphost use immediately encrypted connection with SSL version: $sslver" ) ;
2018-12-30 20:20:27 +00:00
}
unless ( $ smtp - > auth ( $ username , $ password ) ) {
$ err = "SMTP Error authentication: " . $ smtp - > message ( ) ;
Log3 ( $ name , 2 , "$name - $err" ) ;
2020-06-28 18:49:16 +00:00
$ err = encode_base64 ( $ err , "" ) ;
2018-12-30 20:20:27 +00:00
return "$name|$err|''" ;
}
unless ( $ smtp - > mail ( $ from ) ) {
$ err = "SMTP Error setting sender: " . $ smtp - > message ( ) ;
Log3 ( $ name , 2 , "$name - $err" ) ;
2020-06-28 18:49:16 +00:00
$ err = encode_base64 ( $ err , "" ) ;
2018-12-30 20:20:27 +00:00
return "$name|$err|''" ;
}
my @ r = split ( "," , $ to ) ;
unless ( $ smtp - > to ( @ r ) ) {
$ err = "SMTP Error setting receiver: " . $ smtp - > message ( ) ;
Log3 ( $ name , 2 , "$name - $err" ) ;
2020-06-28 18:49:16 +00:00
$ err = encode_base64 ( $ err , "" ) ;
2018-12-30 20:20:27 +00:00
return "$name|$err|''" ;
}
if ( $ cc ) {
my @ c = split ( "," , $ cc ) ;
unless ( $ smtp - > cc ( @ c ) ) {
$ err = "SMTP Error setting carbon-copy $cc: " . $ smtp - > message ( ) ;
Log3 ( $ name , 2 , "$name - $err" ) ;
2020-06-28 18:49:16 +00:00
$ err = encode_base64 ( $ err , "" ) ;
2018-12-30 20:20:27 +00:00
return "$name|$err|''" ;
}
}
unless ( $ smtp - > data ( ) ) {
$ err = "SMTP Error setting data: " . $ smtp - > message ( ) ;
Log3 ( $ name , 2 , "$name - $err" ) ;
2020-06-28 18:49:16 +00:00
$ err = encode_base64 ( $ err , "" ) ;
2018-12-30 20:20:27 +00:00
return "$name|$err|''" ;
}
unless ( $ smtp - > datasend ( encode ( 'utf8' , $ mailmsg - > as_string ) ) ) {
$ err = "SMTP Error sending email: " . $ smtp - > message ( ) ;
Log3 ( $ name , 2 , "$name - $err" ) ;
2020-06-28 18:49:16 +00:00
$ err = encode_base64 ( $ err , "" ) ;
2018-12-30 20:20:27 +00:00
return "$name|$err|''" ;
}
unless ( $ smtp - > dataend ( ) ) {
$ err = "SMTP Error ending transaction: " . $ smtp - > message ( ) ;
Log3 ( $ name , 2 , "$name - $err" ) ;
2020-06-28 18:49:16 +00:00
$ err = encode_base64 ( $ err , "" ) ;
2018-12-30 20:20:27 +00:00
return "$name|$err|''" ;
}
unless ( $ smtp - > quit ( ) ) {
$ err = "SMTP Error saying good-bye: " . $ smtp - > message ( ) ;
Log3 ( $ name , 2 , "$name - $err" ) ;
2020-06-28 18:49:16 +00:00
$ err = encode_base64 ( $ err , "" ) ;
2018-12-30 20:20:27 +00:00
return "$name|$err|''" ;
}
2019-01-09 18:54:08 +00:00
my $ ret = "Email transaction \"$tac\" successfully sent " . ( $ sslver ? "encoded by $sslver" : "" ) ;
2018-12-30 20:20:27 +00:00
Log3 ( $ name , 3 , "$name - $ret To: $to" . ( ( $ cc ) ? ", CC: $cc" : "" ) ) ;
2020-07-01 21:59:06 +00:00
# use strict "refs";
2018-12-30 20:20:27 +00:00
# Daten müssen als Einzeiler zurückgegeben werden
$ ret = encode_base64 ( $ ret , "" ) ;
return "$name|''|$ret" ;
}
####################################################################################################
# Auswertungsroutine nichtblockierendes Send EMail
####################################################################################################
2020-06-28 18:49:16 +00:00
sub sendEmaildone {
2018-12-30 20:20:27 +00:00
my ( $ string ) = @ _ ;
my @ a = split ( "\\|" , $ string ) ;
my $ hash = $ defs { $ a [ 0 ] } ;
my $ err = $ a [ 1 ] ? decode_base64 ( $ a [ 1 ] ) : undef ;
my $ ret = $ a [ 2 ] ? decode_base64 ( $ a [ 2 ] ) : undef ;
if ( $ err ) {
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdate ( $ hash , "sendEmailState" , $ err ) ;
readingsEndUpdate ( $ hash , 1 ) ;
delete ( $ hash - > { HELPER } { RUNNING_PID } ) ;
return ;
}
readingsBeginUpdate ( $ hash ) ;
2020-07-13 20:38:52 +00:00
readingsBulkUpdate ( $ hash , "sendEmailState" , $ ret ) ;
readingsEndUpdate ( $ hash , 1 ) ;
2018-12-30 20:20:27 +00:00
delete ( $ hash - > { HELPER } { RUNNING_PID } ) ;
2019-09-14 19:11:34 +00:00
2018-12-30 20:20:27 +00:00
return ;
}
####################################################################################################
# Abbruchroutine Send EMail
####################################################################################################
2020-06-28 18:49:16 +00:00
sub sendEmailto {
2018-12-30 20:20:27 +00:00
my ( $ hash , $ cause ) = @ _ ;
my $ name = $ hash - > { NAME } ;
2020-07-13 20:38:52 +00:00
$ cause = $ cause // "Timeout: process terminated" ;
2018-12-30 20:20:27 +00:00
Log3 ( $ name , 1 , "$name -> BlockingCall $hash->{HELPER}{RUNNING_PID}{fn} pid:$hash->{HELPER}{RUNNING_PID}{pid} $cause" ) ;
2020-07-13 20:38:52 +00:00
readingsBeginUpdate ( $ hash ) ;
readingsBulkUpdateIfChanged ( $ hash , "sendEmailState" , $ cause ) ;
readingsEndUpdate ( $ hash , 1 ) ;
2018-12-30 20:20:27 +00:00
delete ( $ hash - > { HELPER } { RUNNING_PID } ) ;
return ;
}
2018-12-09 08:19:38 +00:00
#############################################################################################
# Token setzen
#############################################################################################
2020-06-28 18:49:16 +00:00
sub setActiveToken {
2018-12-09 08:19:38 +00:00
my ( $ hash ) = @ _ ;
my $ name = $ hash - > { NAME } ;
$ hash - > { HELPER } { ACTIVE } = "on" ;
if ( AttrVal ( $ name , "debugactivetoken" , 0 ) ) {
2019-01-08 22:49:03 +00:00
Log3 ( $ name , 1 , "$name - Active-Token set by OPMODE: $hash->{OPMODE}" ) ;
2018-12-09 08:19:38 +00:00
}
return ;
}
2018-12-07 19:41:01 +00:00
#############################################################################################
# Token freigeben
#############################################################################################
2020-06-28 18:49:16 +00:00
sub delActiveToken {
2018-12-07 19:41:01 +00:00
my ( $ hash ) = @ _ ;
my $ name = $ hash - > { NAME } ;
$ hash - > { HELPER } { ACTIVE } = "off" ;
if ( AttrVal ( $ name , "debugactivetoken" , 0 ) ) {
2019-01-08 22:49:03 +00:00
Log3 ( $ name , 1 , "$name - Active-Token deleted by OPMODE: $hash->{OPMODE}" ) ;
2018-12-07 19:41:01 +00:00
}
return ;
2018-12-09 08:19:38 +00:00
}
2018-11-20 23:30:55 +00:00
2019-01-08 22:49:03 +00:00
#############################################################################################
2019-01-09 07:39:06 +00:00
# Transaktion starten oder vorhandenen TA Code zurück liefern
2019-01-08 22:49:03 +00:00
#############################################################################################
2020-06-28 18:49:16 +00:00
sub openOrgetTrans {
2020-07-13 20:38:52 +00:00
my $ hash = shift ;
2019-01-08 22:49:03 +00:00
my $ name = $ hash - > { NAME } ;
2019-01-09 07:39:06 +00:00
my $ tac = "" ;
if ( ! $ hash - > { HELPER } { TRANSACTION } ) {
$ tac = int ( rand ( 4500 ) ) ; # Transaktionscode erzeugen und speichern
$ hash - > { HELPER } { TRANSACTION } = $ tac ;
if ( AttrVal ( $ name , "debugactivetoken" , 0 ) ) {
Log3 ( $ name , 1 , "$name - Transaction opened, TA-code: $tac" ) ;
}
2020-07-13 20:38:52 +00:00
2019-01-09 07:39:06 +00:00
} else {
$ tac = $ hash - > { HELPER } { TRANSACTION } ; # vorhandenen Transaktionscode zurück liefern
}
2019-01-08 22:49:03 +00:00
return $ tac ;
}
#############################################################################################
# Transaktion freigeben
#############################################################################################
2020-06-28 18:49:16 +00:00
sub closeTrans {
2020-07-13 20:38:52 +00:00
my $ hash = shift ;
my $ name = $ hash - > { NAME } ;
2019-10-10 19:10:13 +00:00
2019-10-26 18:41:42 +00:00
my $ tac = delete $ hash - > { HELPER } { TRANSACTION } ; # diese Transaktion beenden
$ tac = $ tac ? $ tac: "" ;
2020-06-28 18:49:16 +00:00
cleanData ( "$name:$tac" ) ; # %data Hash & Cache bereinigen
2019-10-26 18:41:42 +00:00
return if ( ! $ tac ) ;
Log3 ( $ name , 1 , "$name - Transaction \"$tac\" closed" ) if ( AttrVal ( $ name , "debugactivetoken" , 0 ) ) ;
2019-01-08 22:49:03 +00:00
2019-09-14 19:11:34 +00:00
return ;
}
####################################################################################################
# $data Hash bereinigen
####################################################################################################
2020-06-28 18:49:16 +00:00
sub cleanData {
2019-10-26 18:41:42 +00:00
my ( $ str ) = @ _ ;
my ( $ name , $ tac ) = split ( ":" , $ str ) ;
2019-10-10 19:10:13 +00:00
my $ hash = $ defs { $ name } ;
my $ del = 0 ;
2019-09-14 19:11:34 +00:00
2020-06-28 18:49:16 +00:00
RemoveInternalTimer ( $ hash , "FHEM::SSCam::cleanData" ) ;
2019-09-14 19:11:34 +00:00
2019-10-26 18:41:42 +00:00
if ( $ data { SSCam } { $ name } { SENDCOUNT } { $ tac } && $ data { SSCam } { $ name } { SENDCOUNT } { $ tac } > 0 ) { # Cacheinhalt erst löschen wenn Sendezähler 0
2020-06-28 18:49:16 +00:00
InternalTimer ( gettimeofday ( ) + 1 , "FHEM::SSCam::cleanData" , "$name:$tac" , 0 ) ;
2019-10-26 18:41:42 +00:00
return ;
}
if ( AttrVal ( $ name , "cacheType" , "internal" ) eq "internal" ) {
# internes Caching
if ( $ tac ) {
if ( $ data { SSCam } { RS } { $ tac } ) {
delete $ data { SSCam } { RS } { $ tac } ;
$ del = 1 ;
}
if ( $ data { SSCam } { $ name } { SENDRECS } { $ tac } ) {
delete $ data { SSCam } { $ name } { SENDRECS } { $ tac } ;
$ del = 1 ;
}
if ( $ data { SSCam } { $ name } { SENDSNAPS } { $ tac } ) {
delete $ data { SSCam } { $ name } { SENDSNAPS } { $ tac } ;
$ del = 1 ;
}
if ( $ data { SSCam } { $ name } { PARAMS } { $ tac } ) {
delete $ data { SSCam } { $ name } { PARAMS } { $ tac } ;
$ del = 1 ;
}
if ( $ del && AttrVal ( $ name , "debugactivetoken" , 0 ) ) {
Log3 ( $ name , 1 , "$name - Data of Transaction \"$tac\" deleted" ) ;
}
} else {
delete $ data { SSCam } { RS } ;
delete $ data { SSCam } { $ name } { SENDRECS } ;
delete $ data { SSCam } { $ name } { SENDSNAPS } ;
delete $ data { SSCam } { $ name } { PARAMS } ;
if ( AttrVal ( $ name , "debugactivetoken" , 0 ) ) {
Log3 ( $ name , 1 , "$name - Data of internal Cache removed" ) ;
}
2019-09-14 19:11:34 +00:00
}
2019-10-26 18:41:42 +00:00
} else {
# Caching mit CHI
2020-06-28 18:49:16 +00:00
my @ as = cache ( $ name , "c_getkeys" ) ;
2019-10-26 18:41:42 +00:00
if ( $ tac ) {
2020-06-30 21:16:26 +00:00
for my $ k ( @ as ) {
2019-10-26 18:41:42 +00:00
if ( $ k =~ /$tac/ ) {
2020-06-28 18:49:16 +00:00
cache ( $ name , "c_remove" , $ k ) ;
2019-10-26 18:41:42 +00:00
$ del = 1 ;
}
}
if ( $ del && AttrVal ( $ name , "debugactivetoken" , 0 ) ) {
Log3 ( $ name , 1 , "$name - Data of Transaction \"$tac\" removed" ) ;
}
} else {
2020-06-28 18:49:16 +00:00
cache ( $ name , "c_clear" ) ;
2019-10-26 18:41:42 +00:00
if ( AttrVal ( $ name , "debugactivetoken" , 0 ) ) {
Log3 ( $ name , 1 , "$name - Data of CHI-Cache removed" ) ;
}
2019-09-14 19:11:34 +00:00
}
2019-10-26 18:41:42 +00:00
}
return ;
}
#############################################################################################
# {SENDCOUNT} aus BlockingCall heraus um 1 subtrahieren/addieren
# $tac = <Transaktionskennung>
#############################################################################################
2020-06-28 18:49:16 +00:00
sub subaddFromBlocking {
2019-10-26 18:41:42 +00:00
my ( $ name , $ op , $ tac ) = @ _ ;
my $ hash = $ defs { $ name } ;
2019-10-10 19:10:13 +00:00
2019-10-26 18:41:42 +00:00
if ( $ op eq "-" ) {
$ data { SSCam } { $ name } { SENDCOUNT } { $ tac } - - ;
2019-09-14 19:11:34 +00:00
}
2019-10-26 18:41:42 +00:00
if ( $ op eq "+" ) {
$ data { SSCam } { $ name } { SENDCOUNT } { $ tac } + + ;
}
Log3 ( $ name , 1 , "$name - Send Counter transaction \"$tac\": " . $ data { SSCam } { $ name } { SENDCOUNT } { $ tac } ) if ( AttrVal ( $ name , "debugactivetoken" , 0 ) ) ;
2019-09-14 19:11:34 +00:00
2019-01-08 22:49:03 +00:00
return ;
}
2018-12-30 20:20:27 +00:00
#############################################################################################
# Leerzeichen am Anfang / Ende eines strings entfernen
#############################################################################################
2020-06-28 18:49:16 +00:00
sub trim {
2019-10-26 18:41:42 +00:00
my $ str = shift ;
$ str =~ s/^\s+|\s+$//g ;
2018-12-30 20:20:27 +00:00
return ( $ str ) ;
}
2020-06-25 06:21:49 +00:00
#############################################################################################
# Check ob "sscam" im iconpath des FHEMWEB Devices enthalten ist
#############################################################################################
2020-06-28 18:49:16 +00:00
sub checkIconpath {
2020-06-25 06:21:49 +00:00
my $ name = shift ;
my $ FW_wname = shift // return ;
my $ icpa = AttrVal ( $ FW_wname , "iconPath" , "" ) ;
if ( $ icpa !~ /sscam/x ) {
Log3 ( $ name , 2 , qq{ $name - WARNING - add "sscam" to attribute "iconpath" of FHEMWEB device "$FW_wname" to get the SSCam control icons } ) ;
}
return ;
}
2019-10-26 18:41:42 +00:00
#############################################################################################
# Cache Handling
2020-06-28 18:49:16 +00:00
# cache ($name, <opcode> [, <Key>, <data>])
2019-10-26 18:41:42 +00:00
# return 1 = ok , return 0 = nok
#############################################################################################
2020-06-28 18:49:16 +00:00
sub cache {
2019-10-26 18:41:42 +00:00
my ( $ name , $ op , $ key , $ dat ) = @ _ ;
my $ hash = $ defs { $ name } ;
my $ type = AttrVal ( $ name , "cacheType" , "internal" ) ;
my ( $ server , $ port ) = split ( ":" , AttrVal ( $ name , "cacheServerParam" , "" ) ) ;
my $ path = $ attr { global } { modpath } . "/FHEM/FhemUtils/cacheSSCam" ; # Dir für FileCache
my $ fuuid = $ hash - > { FUUID } ;
my ( $ cache , $ r , $ bst , $ brt ) ;
$ bst = [ gettimeofday ] ;
### Cache Initialisierung ###
#############################
if ( $ op eq "c_init" ) {
if ( $ type eq "internal" ) {
Log3 ( $ name , 4 , "$name - internal Cache mechanism is used " ) ;
return $ type ;
}
2020-06-28 18:49:16 +00:00
if ( $ SScamMMCHI ) {
Log3 ( $ name , 1 , "$name - Perl cache module " . $ SScamMMCHI . " is missing. You need to install it with the FHEM Installer for example." ) ;
return 0 ;
}
if ( $ type eq "redis" && $ SScamMMCHIRedis ) {
Log3 ( $ name , 1 , "$name - Perl cache module " . $ SScamMMCHIRedis . " is missing. You need to install it with the FHEM Installer for example." ) ;
return 0 ;
}
if ( $ type eq "filecache" && $ SScamMMCacheCache ) {
Log3 ( $ name , 1 , "$name - Perl cache module " . $ SScamMMCacheCache . " is missing. You need to install it with the FHEM Installer for example." ) ;
return 0 ;
}
2019-10-26 18:41:42 +00:00
if ( $ hash - > { HELPER } { CACHEKEY } ) {
Log3 ( $ name , 4 , "$name - Cache \"$type\" is already initialized " ) ;
return $ type ;
}
2020-06-28 18:49:16 +00:00
2019-10-26 18:41:42 +00:00
if ( $ type eq "mem" ) {
# This cache driver stores data on a per-process basis. This is the fastest of the cache implementations,
# but data can not be shared between processes. Data will remain in the cache until cleared, expired,
# or the process dies.
# https://metacpan.org/pod/CHI::Driver::Memory
$ cache = CHI - > new ( driver = > 'Memory' ,
on_set_error = > 'warn' ,
on_get_error = > 'warn' ,
namespace = > $ fuuid ,
global = > 0
) ;
}
2020-06-28 18:49:16 +00:00
2019-10-26 18:41:42 +00:00
if ( $ type eq "rawmem" ) {
# This is a subclass of CHI::Driver::Memory that stores references to data structures directly instead
2020-06-28 18:49:16 +00:00
# of serializing / deserializing. This makes the cache faster at getting and setting complex data structures,
# but unlike most drivers, modifications to the original data structure will affect the data structure stored
2019-10-26 18:41:42 +00:00
# in the cache.
# https://metacpan.org/pod/CHI::Driver::RawMemory
$ cache = CHI - > new ( driver = > 'RawMemory' ,
on_set_error = > 'warn' ,
on_get_error = > 'warn' ,
namespace = > $ fuuid ,
global = > 0
) ;
}
if ( $ type eq "redis" ) {
# A CHI driver that uses Redis to store the data. Care has been taken to not have this module fail in fiery
# ways if the cache is unavailable. It is my hope that if it is failing and the cache is not required for your work,
# you can ignore its warnings.
# https://metacpan.org/pod/CHI::Driver::Redis
if ( ! $ server || ! $ port ) {
Log3 ( $ name , 1 , "$name - ERROR in cache Redis definition. Please provide Redis server parameter in form <Redis-server address>:<Redis-server port> " ) ;
return 0 ;
}
my $ cto = 0.5 ;
2020-04-14 15:41:21 +00:00
my $ rto = 2.0 ;
my $ wto = 1.0 ;
2019-10-26 18:41:42 +00:00
my % Redispars = ( cnx_timeout = > $ cto ,
read_timeout = > $ rto ,
write_timeout = > $ wto
) ;
# Redis Construktor for Test Redis server connection (CHI doesn't do it)
delete $ hash - > { HELPER } { REDISKEY } ;
$ r = eval { Redis - > new ( server = > "$server:$port" ,
cnx_timeout = > $ cto ,
debug = > 0
) ;
} ;
if ( my $ error = $@ ) {
# Muster: Could not connect to Redis server at 192.168.2.10:6379: Connection refused at ./FHEM/49_SSCam.pm line 9546.
$ error = ( split ( "at ./FHEM" , $ error ) ) [ 0 ] ;
Log3 ( $ name , 1 , "$name - ERROR - $error" ) ;
return 0 ;
} else {
$ hash - > { HELPER } { REDISKEY } = $ r ;
}
# create CHI Redis constructor
$ cache = CHI - > new ( driver = > 'Redis' ,
namespace = > $ fuuid ,
server = > "$server:$port" ,
2020-04-14 15:41:21 +00:00
reconnect = > 1 ,
2019-10-26 18:41:42 +00:00
on_set_error = > 'warn' ,
on_get_error = > 'warn' ,
redis_options = > \ % Redispars ,
debug = > 0
) ;
}
if ( $ type eq "file" ) {
# This is a filecache using Cache::Cache.
2019-11-06 22:17:49 +00:00
# https://metacpan.org/pod/Cache::Cache
my $ pr = ( split ( '/' , reverse ( $ path ) , 2 ) ) [ 1 ] ;
$ pr = reverse ( $ pr ) ;
if ( ! ( - R $ pr ) || ! ( - W $ pr ) ) { # root-erzeichnis testen
Log3 ( $ name , 1 , "$name - ERROR - cannot create \"$type\" Cache in dir \"$pr\": " . $! ) ;
2019-10-26 18:41:42 +00:00
delete $ hash - > { HELPER } { CACHEKEY } ;
return 0 ;
2019-11-06 22:17:49 +00:00
}
if ( ! ( - d $ path ) ) { # Zielverzeichnis anlegen wenn nicht vorhanden
my $ success = mkdir ( $ path , 0775 ) ;
if ( ! $ success ) {
Log3 ( $ name , 1 , "$name - ERROR - cannot create \"$type\" Cache path \"$path\": " . $! ) ;
delete $ hash - > { HELPER } { CACHEKEY } ;
return 0 ;
}
}
2019-10-26 18:41:42 +00:00
$ cache = CHI - > new ( driver = > 'CacheCache' ,
on_set_error = > 'warn' ,
on_get_error = > 'warn' ,
cc_class = > 'Cache::FileCache' ,
cc_options = > { cache_root = > $ path ,
namespace = > $ fuuid
} ,
) ;
}
if ( $ cache && $ cache =~ /CHI::Driver::Role::Universal/ ) {
Log3 ( $ name , 3 , "$name - Cache \"$type\" namespace \"$fuuid\" initialized" ) ;
$ hash - > { HELPER } { CACHEKEY } = $ cache ;
$ brt = tv_interval ( $ bst ) ;
Log3 ( $ name , 1 , "$name - Cache time to create \"$type\": " . $ brt ) if ( AttrVal ( $ name , "debugCachetime" , 0 ) ) ;
2020-06-28 18:49:16 +00:00
return $ type ;
2019-10-26 18:41:42 +00:00
} else {
Log3 ( $ name , 3 , "$name - no cache \"$type\" available." ) ;
}
2020-06-28 18:49:16 +00:00
return 0 ;
2019-10-26 18:41:42 +00:00
}
### Test Operationen ###
########################
if ( $ hash - > { HELPER } { CACHEKEY } ) {
$ cache = $ hash - > { HELPER } { CACHEKEY } ;
} else {
2020-06-28 18:49:16 +00:00
return 0 ;
2019-10-26 18:41:42 +00:00
}
if ( $ type eq "redis" ) {
# Test ob Redis Serververbindung möglich
my $ rc = $ hash - > { HELPER } { REDISKEY } ;
if ( $ rc ) {
2020-07-13 20:38:52 +00:00
eval { $ r = $ rc - > ping } ; ## no critic 'eval not tested'
2019-10-26 18:41:42 +00:00
if ( ! $ r || $ r ne "PONG" ) { # Verbindungskeys löschen -> Neugenerierung mit "c_init"
Log3 ( $ name , 1 , "$name - ERROR - connection to Redis server not possible. May be no route to host or port is wrong." ) ;
delete $ hash - > { HELPER } { REDISKEY } ;
delete $ hash - > { HELPER } { CACHEKEY } ;
return 0 ;
}
} else {
Log3 ( $ name , 1 , "$name - ERROR - no constructor for Redis server is created" ) ;
return 0 ;
}
}
if ( $ type eq "file" && ( ! ( - R $ path ) || ! ( - W $ path ) ) ) {
Log3 ( $ name , 1 , "$name - ERROR - cannot handle \"$type\" Cache: " . $! ) ;
delete $ hash - > { HELPER } { CACHEKEY } ;
return 0 ;
}
### Cache Operationen ###
#########################
# in Cache schreiben
if ( $ op eq "c_write" ) {
if ( ! defined $ dat ) {
2020-06-28 18:49:16 +00:00
Log3 ( $ name , 1 , "$name - ERROR - No data for Cache with key: $key " ) ;
}
2019-10-26 18:41:42 +00:00
if ( $ key ) {
$ cache - > set ( $ key , $ dat ) ;
$ brt = tv_interval ( $ bst ) ;
Log3 ( $ name , 1 , "$name - Cache time write key \"$key\": " . $ brt ) if ( AttrVal ( $ name , "debugCachetime" , 0 ) ) ;
2020-06-28 18:49:16 +00:00
return 1 ;
2019-10-26 18:41:42 +00:00
} else {
Log3 ( $ name , 1 , "$name - ERROR - no key for \"$type\" cache !" ) ;
}
}
# aus Cache lesen
if ( $ op eq "c_read" ) {
my $ g = $ cache - > get ( $ key ) ;
2020-04-14 15:41:21 +00:00
$ brt = tv_interval ( $ bst ) ;
Log3 ( $ name , 1 , "$name - Cache time read key \"$key\": " . $ brt ) if ( AttrVal ( $ name , "debugCachetime" , 0 ) ) ;
if ( ! $ g ) {
return "" ;
} else {
return $ g ;
}
2019-10-26 18:41:42 +00:00
}
# einen Key entfernen
if ( $ op eq "c_remove" ) {
$ cache - > remove ( $ key ) ;
$ brt = tv_interval ( $ bst ) ;
Log3 ( $ name , 1 , "$name - Cache time remove key \"$key\": " . $ brt ) if ( AttrVal ( $ name , "debugCachetime" , 0 ) ) ;
Log3 ( $ name , 4 , "$name - Cache key \"$key\" removed " ) ;
2020-06-28 18:49:16 +00:00
return 1 ;
2019-10-26 18:41:42 +00:00
}
# alle Einträge aus Cache (Namespace) entfernen
if ( $ op eq "c_clear" ) {
$ cache - > clear ( ) ;
Log3 ( $ name , 4 , "$name - All entries removed from \"$type\" cache " ) ;
2020-06-28 18:49:16 +00:00
return 1 ;
2019-10-26 18:41:42 +00:00
}
# alle Keys aus Cache zurück liefern
if ( $ op eq "c_getkeys" ) {
return $ cache - > get_keys ;
}
# einen Key im Cache prüfen
if ( $ op eq "c_isvalidkey" ) {
return $ cache - > is_valid ( $ key ) ;
}
# Cache entfernen
if ( $ op eq "c_destroy" ) {
$ cache - > clear ( ) ;
2020-06-28 18:49:16 +00:00
delete $ hash - > { HELPER } { CACHEKEY } ;
Log3 ( $ name , 3 , "$name - Cache \"$type\" destroyed " ) ;
return 1 ;
2019-10-26 18:41:42 +00:00
}
return 0 ;
}
2019-03-27 21:13:13 +00:00
#############################################################################################
# Versionierungen des Moduls setzen
# Die Verwendung von Meta.pm und Packages wird berücksichtigt
#############################################################################################
2020-06-28 18:49:16 +00:00
sub setVersionInfo {
2019-03-27 21:13:13 +00:00
my ( $ hash ) = @ _ ;
my $ name = $ hash - > { NAME } ;
2020-06-28 18:49:16 +00:00
my $ v = ( sortVersion ( "desc" , keys % vNotesIntern ) ) [ 0 ] ;
2019-03-27 21:13:13 +00:00
my $ type = $ hash - > { TYPE } ;
$ hash - > { HELPER } { PACKAGE } = __PACKAGE__ ;
$ hash - > { HELPER } { VERSION } = $ v ;
if ( $ modules { $ type } { META } { x_prereqs_src } && ! $ hash - > { HELPER } { MODMETAABSENT } ) {
2020-06-28 18:49:16 +00:00
# META-Daten sind vorhanden
$ modules { $ type } { META } { version } = "v" . $ v ; # Version aus META.json überschreiben, Anzeige mit {Dumper $modules{SMAPortal}{META}}
2020-07-12 12:31:21 +00:00
if ( $ modules { $ type } { META } { x_version } ) { # {x_version} ( nur gesetzt wenn $Id: 49_SSCam.pm 22382 2020-07-10 20:25:50Z DS_Starter $ im Kopf komplett! vorhanden )
2020-06-28 18:49:16 +00:00
$ modules { $ type } { META } { x_version } =~ s/1.1.1/$v/g ;
} else {
$ modules { $ type } { META } { x_version } = $ v ;
}
2020-07-12 12:31:21 +00:00
return $@ unless ( FHEM::Meta:: SetInternals ( $ hash ) ) ; # FVERSION wird gesetzt ( nur gesetzt wenn $Id: 49_SSCam.pm 22382 2020-07-10 20:25:50Z DS_Starter $ im Kopf komplett! vorhanden )
2020-06-28 18:49:16 +00:00
if ( __PACKAGE__ eq "FHEM::$type" || __PACKAGE__ eq $ type ) {
# es wird mit Packages gearbeitet -> Perl übliche Modulversion setzen
# mit {<Modul>->VERSION()} im FHEMWEB kann Modulversion abgefragt werden
2020-07-13 20:38:52 +00:00
use version 0.77 ; our $ VERSION = FHEM::Meta:: Get ( $ hash , 'version' ) ; ## no critic 'VERSION'
2019-03-27 21:13:13 +00:00
}
} else {
2020-06-28 18:49:16 +00:00
# herkömmliche Modulstruktur
$ hash - > { VERSION } = $ v ;
2019-03-27 21:13:13 +00:00
}
return ;
}
2018-11-20 23:30:55 +00:00
1 ;
= pod
= item summary Camera module to control the Synology Surveillance Station
= item summary_DE Kamera - Modul für die Steuerung der Synology Surveillance Station
= begin html
< a name = "SSCam" > </a>
<h3> SSCam </h3>
<ul>
Using this Module you are able to operate cameras which are defined in Synology Surveillance Station ( SVS ) and execute
functions of the SVS . It is based on the SVS API and supports the SVS version 7 and above . <br>
At present the following functions are available: <br> <br>
<ul>
<ul>
2019-03-04 19:09:35 +00:00
<li> Start a recording and send it optionally by Email and /or Telegram </ li >
2019-01-27 15:36:11 +00:00
<li> Stop a recording by command or automatically after an adjustable period </li>
2019-12-11 21:16:03 +00:00
<li> Trigger of snapshots / recordings and optional send them alltogether by Email using the integrated Email client or by Synology Chat / Telegram </li>
2019-01-14 23:09:42 +00:00
<li> Trigger snapshots of all defined cams and optionally send them alltogether by Email using the integrated Email client </li>
2018-11-20 23:30:55 +00:00
<li> Deaktivate a Camera in Synology Surveillance Station </li>
<li> Activate a Camera in Synology Surveillance Station </li>
<li> Control of the exposure modes day , night and automatic </li>
<li> switchover the motion detection by camera , by SVS or deactivate it </li>
<li> control of motion detection parameters sensitivity , threshold , object size and percentage for release </li>
<li> Retrieval of Camera Properties ( also by Polling ) as well as informations about the installed SVS - package </li>
<li> Move to a predefined Preset - position ( at PTZ - cameras ) </li>
<li> Start a predefined Patrol ( at PTZ - cameras ) </li>
<li> Positioning of PTZ - cameras to absolute X /Y-coordinates </ li >
<li> continuous moving of PTZ - camera lense </li>
<li> trigger of external events 1 - 10 ( action rules in SVS ) </li>
<li> start and stop of camera livestreams incl . audio replay , show the last recording and snapshot </li>
<li> fetch of livestream - Url ' s with key ( login not needed in that case ) </li>
<li> playback of last recording and playback the last snapshot </li>
2020-06-28 18:49:16 +00:00
<li> switch the Surveillance Station HomeMode on /off and retrieve the HomeModeState </ li >
<li> show the stored credentials of a device </li>
<li> fetch the Surveillance Station Logs , exploit the newest entry as reading </li>
<li> create a gallery of the last 1 - 10 snapshots ( as Popup or in a discrete device ) </li>
<li> Start /Stop Object Tracking (only supported PTZ-Cams with this capability) </ li >
2018-11-20 23:30:55 +00:00
<li> set /delete a Preset (at PTZ-cameras) </ li >
<li> set a Preset or current position as Home Preset ( at PTZ - cameras ) </li>
<li> provides a panel for camera control ( at PTZ - cameras ) </li>
2020-06-28 18:49:16 +00:00
<li> create different types of discrete Streaming - Devices ( createStreamDev ) </li>
2018-11-20 23:30:55 +00:00
<li> Activation / Deactivation of a camera integrated PIR sensor </ li >
<li> Creation of a readingsGroup device to display an overview of all defined SSCam devices ( createReadingsGroup ) </li>
2018-12-07 16:17:53 +00:00
<li> automatized definition of all in SVS available cameras in FHEM ( autocreateCams ) </li>
2019-01-02 19:35:10 +00:00
<li> save the last recording of camera locally </li>
2019-11-06 20:01:26 +00:00
<li> Selection of several cache types for image data storage ( attribute cacheType ) </li>
2020-07-12 12:31:21 +00:00
<li> execute Zoom actions ( only if PTZ camera supports Zoom ) </li>
2018-11-20 23:30:55 +00:00
</ul>
</ul>
<br>
The recordings and snapshots will be stored in Synology Surveillance Station ( SVS ) and are managed like the other ( normal ) recordings / snapshots defined by Surveillance Station rules . <br>
For example the recordings are stored for a defined time in Surveillance Station and will be deleted after that period . <br> <br>
If you like to discuss or help to improve this module please use FHEM - Forum with link : <br>
2019-07-12 20:10:53 +00:00
< a href = "http://forum.fhem.de/index.php/topic,45671.msg374390.html#msg374390" > 49 _SSCam: Fragen , Hinweise , Neuigkeiten und mehr rund um dieses Modul </a> .
<br> <br>
<b> Integration into FHEM TabletUI: </b> <br> <br>
There is a widget provided for integration of SSCam - Streaming devices ( Type SSCamSTRM ) into FTUI . For further information please be informed by the
( german ) FHEM Wiki article: <br>
2020-06-28 18:49:16 +00:00
< a href = "https://wiki.fhem.de/wiki/FTUI_Widget_f%C3%BCr_Streaming_Devices_(SSCamSTRM)" > FTUI Widget für SSCam Streaming Devices ( SSCamSTRM ) </a> .
2019-07-12 20:10:53 +00:00
<br> <br> <br>
2018-11-20 23:30:55 +00:00
2019-07-12 20:10:53 +00:00
<b> Prerequisites </b> <br> <br>
2018-12-06 22:22:15 +00:00
<ul>
2018-12-30 20:20:27 +00:00
This module uses the Perl - modules JSON and MIME:: Lite which are usually have to be installed in addition . <br>
2020-06-28 18:49:16 +00:00
On Debian - Linux based systems these modules can be installed by: <br> <br>
2018-11-20 23:30:55 +00:00
2018-12-30 20:20:27 +00:00
<code> sudo apt - get install libjson - perl </code> <br>
2020-06-28 18:49:16 +00:00
<code> sudo apt - get install libmime - lite - perl </code> <br> <br>
2018-11-20 23:30:55 +00:00
SSCam is completely using the nonblocking functions of HttpUtils respectively HttpUtils_NonblockingGet . <br>
In DSM respectively in Synology Surveillance Station an User has to be created . The login credentials are needed later when using a set - command to assign the login - data to a device . <br>
2020-06-28 18:49:16 +00:00
Further informations could be find among < a href = "#Credentials" > Credentials </a> . <br> <br>
2018-11-20 23:30:55 +00:00
Overview which Perl - modules SSCam is using: <br> <br>
2019-11-06 20:01:26 +00:00
<table>
<colgroup> < col width = 35 % > < col width = 65 % > < / colgroup >
<tr> <td> JSON </td> <td> </td> </tr>
<tr> <td> Data:: Dumper </td> <td> </td> </tr>
<tr> <td> MIME:: Base64 </td> <td> </td> </tr>
<tr> <td> Time:: HiRes </td> <td> </td> </tr>
<tr> <td> Encode </td> <td> </td> </tr>
<tr> <td> POSIX </td> <td> </td> </tr>
<tr> <td> HttpUtils </td> <td> ( FHEM - module ) </td> </tr>
<tr> <td> Blocking </td> <td> ( FHEM - module ) </td> </tr>
<tr> <td> Meta </td> <td> ( FHEM - module ) </td> </tr>
<tr> <td> Net:: SMTP </td> <td> ( if integrated image data transmission is used ) </td> </tr>
<tr> <td> MIME:: Lite </td> <td> ( if integrated image data transmission is used ) </td> </tr>
<tr> <td> CHI </td> <td> ( if Cache is used ) </td> </tr>
<tr> <td> CHI::Driver:: Redis </td> <td> ( if Cache is used ) </td> </tr>
<tr> <td> Cache:: Cache </td> <td> ( if Cache is used ) </td> </tr>
</table>
2020-06-28 18:49:16 +00:00
<br>
2018-11-20 23:30:55 +00:00
2020-07-12 12:31:21 +00:00
SSCam uses its own icons .
In order for the system to find the icons , the attribute <b> iconPath </b> must be supplemented with <b> sscam </b> in the FHEMWEB device . <br> <br>
<ul>
<b> Example </b> <br>
attr WEB iconPath default:fhemSVG:openautomation:sscam
</ul>
<br> <br>
2018-12-06 22:22:15 +00:00
</ul>
2018-11-20 23:30:55 +00:00
< a name = "SSCamdefine" > </a>
<b> Define </b>
<ul>
<br>
There is a distinction between the definition of a camera - device and the definition of a Surveillance Station ( SVS )
device , that means the application on the discstation itself .
Dependend on the type of defined device the internal MODEL will be set to "<vendor> - <camera type>"
or "SVS" and a proper subset of the described set / get - commands are assigned to the device . <br>
2020-06-28 18:49:16 +00:00
The scope of application of set /get-commands is denoted to every particular command (valid for CAM, SVS, CAM/ SVS ) . <br>
The cameras can be defined manually discrete , but alternatively with an automatical procedure by set "autocreateCams"
command in a previously defined SVS device .
<br> <br>
2019-07-12 20:10:53 +00:00
A <b> camera device </b> is defined by: <br> <br>
2020-06-28 18:49:16 +00:00
<ul>
2018-11-20 23:30:55 +00:00
<b> <code> define & lt ; Name & gt ; SSCAM & lt ; camera name in SVS & gt ; & lt ; ServerAddr & gt ; [ Port ] [ Protocol ] </code> </b> <br> <br>
</ul>
At first the devices have to be set up and has to be operable in Synology Surveillance Station 7.0 and above . <br> <br>
2020-06-28 18:49:16 +00:00
A <b> SVS - device </b> to control functions of the Surveillance Station ( SVS ) is defined by: <br> <br>
<ul>
<b> <code> define & lt ; Name & gt ; SSCAM SVS & lt ; ServerAddr & gt ; [ Port ] [ Protocol ] </code> </b> <br> <br>
2018-11-20 23:30:55 +00:00
</ul>
2020-06-28 18:49:16 +00:00
2018-12-07 16:17:53 +00:00
In that case the term & lt ; camera name in SVS & gt ; become replaced by <b> SVS </b> only . <br>
2020-06-28 18:49:16 +00:00
Is the SVS defined and after setting the appropriate creadentials ready for use , all cameras available in SVS can be created
automatically in FHEM with the set command "autocreateCams" .
<br> <br>
2018-11-20 23:30:55 +00:00
The Modul SSCam ist based on functions of Synology Surveillance Station API . <br> <br>
The parameters are in detail:
<br>
<br>
<table>
<colgroup> < col width = 15 % > < col width = 85 % > < / colgroup >
<tr> <td> <b> Name </b> </td> <td> the name of the new device to use in FHEM </td> </tr>
<tr> <td> <b> Cameraname </b> </td> <td> camera name as defined in Synology Surveillance Station if camera - device , "SVS" if SVS - Device . Spaces are not allowed in camera name . </td> </tr>
<tr> <td> <b> ServerAddr </b> </td> <td> IP - address of Synology Surveillance Station Host . <b> Note: </b> avoid using hostnames because of DNS - Calls are not unblocking in FHEM </td> </tr>
<tr> <td> <b> Port </b> </td> <td> optional - the port of synology disc station . If not set , the default "5000" is used </td> </tr>
<tr> <td> <b> Protocol </b> </td> <td> optional - the protocol ( http or https ) to access the synology disc station . If not set , the default "http" is used </td> </tr>
</table>
<br> <br>
<b> Examples: </b>
<pre>
<code> define CamCP SSCAM Carport 192.168 .2 .20 [ 5000 ] [ http ] </code>
<code> define CamCP SSCAM Carport 192.168 .2 .20 [ 5001 ] [ https ] </code>
# creates a new camera device CamCP
<code> define DS1 SSCAM SVS 192.168 .2 .20 [ 5000 ] [ http ] </code>
<code> define DS1 SSCAM SVS 192.168 .2 .20 [ 5001 ] [ https ] </code>
2020-06-28 18:49:16 +00:00
# creares a new SVS device DS1
2018-11-20 23:30:55 +00:00
</pre>
When a new Camera is defined , as a start the recordingtime of 15 seconds will be assigned to the device . <br>
Using the < a href = "#SSCamattr" > attribute </a> "rectime" you can adapt the recordingtime for every camera individually . <br>
The value of "0" for rectime will lead to an endless recording which has to be stopped by a "set <name> off" command . <br>
Due to a Log - Entry with a hint to that circumstance will be written . <br> <br>
If the < a href = "#SSCamattr" > attribute </a> "rectime" would be deleted again , the default - value for recording - time ( 15 s ) become active . <br> <br>
With < a href = "#SSCamset" > command </a> <b> "set <name> on [rectime]" </b> a temporary recordingtime is determinded which would overwrite the dafault - value of recordingtime <br>
and the attribute "rectime" ( if it is set ) uniquely . <br> <br>
In that case the command <b> "set <name> on 0" </b> leads also to an endless recording as well . <br> <br>
If you have specified a pre - recording time in SVS it will be considered too . <br> <br>
If the module recognizes the defined camera as a PTZ - device ( Reading "DeviceType = PTZ" ) , then a control panel is
created automatically in the detal view . This panel requires SVS >= 7.1 . The properties and the behave of the
panel can be affected by < a href = "#SSCamattr" > attributes </a> "ptzPanel_.*" . <br>
Please see also < a href = "#SSCamset" > command </a> <b> "set <name> createPTZcontrol" </b> in this context .
<br> <br> <br>
2020-06-28 18:49:16 +00:00
</ul>
< a name = "Credentials" > </a>
2018-11-20 23:30:55 +00:00
<b> Credentials </b> <br> <br>
<ul>
After a camera - device is defined , firstly it is needed to save the credentials . This will be done with command:
<pre>
set & lt ; name & gt ; credentials & lt ; username & gt ; & lt ; password & gt ;
</pre>
The password length has a maximum of 20 characters . <br>
2020-06-28 18:49:16 +00:00
The operator can , dependend on what functions are planned to execute , create an user in DSM respectively in Synology
2018-11-20 23:30:55 +00:00
Surveillance Station as well . <br>
If the user is member of admin - group , he has access to all module functions . Without this membership the user can only
execute functions with lower need of rights . <br>
2020-06-28 18:49:16 +00:00
Is < a href = "https://www.synology.com/en-global/knowledgebase/DSM/tutorial/General/How_to_add_extra_security_to_your_Synology_NAS#t5" > 2 - step verification </a>
activated in DSM , the setup to a session with Surveillance Station is necessary ( < a href = "#SSCamattr" > attribute </a> "session = SurveillanceStation" ) . <br> <br>
2018-11-20 23:30:55 +00:00
The required minimum rights to execute functions are listed in a table further down . <br>
Alternatively to DSM - user a user created in SVS can be used . Also in that case a user of type "manager" has the right to
execute all functions , <br>
whereat the access to particular cameras can be restricted by the privilege profile ( please see help function in SVS for
details ) . <br>
As best practice it is proposed to create an user in DSM as well as in SVS too: <br> <br>
<ul>
<li> DSM - User as member of admin group: unrestricted test of all module functions - & gt ; session: DSM </li>
<li> SVS - User as Manager or observer: adjusted privilege profile - & gt ; session: SurveillanceStation </li>
</ul>
<br>
Using the < a href = "#SSCamattr" > Attribute </a> "session" can be selected , if the session should be established to DSM or the
SVS instead . Further informations about user management in SVS are available by execute
"get <name> versionNotes 5" . <br>
If the session will be established to DSM , SVS Web - API methods are available as well as further API methods of other API ' s
what possibly needed for processing . <br> <br>
After device definition the default is "login to DSM" , that means credentials with admin rights can be used to test all camera - functions firstly . <br>
After this the credentials can be switched to a SVS - session with a restricted privilege profile as needed on dependency what module functions are want to be executed . <br> <br>
The following list shows the <b> minimum rights </b> that the particular module function needs . <br> <br>
<ul>
<table>
<colgroup> < col width = 20 % > < col width = 80 % > < / colgroup >
<tr> <td> <li> set ... on </td> <td> session: ServeillanceStation - observer with enhanced privilege "manual recording" </li> </td> </tr>
<tr> <td> <li> set ... off </td> <td> session: ServeillanceStation - observer with enhanced privilege "manual recording" </li> </td> </tr>
<tr> <td> <li> set ... snap </td> <td> session: ServeillanceStation - observer </li> </td> </tr>
<tr> <td> <li> set ... delPreset </td> <td> session: ServeillanceStation - observer </li> </td> </tr>
<tr> <td> <li> set ... disable </td> <td> session: ServeillanceStation - manager with edit camera right </li> </td> </tr>
<tr> <td> <li> set ... enable </td> <td> session: ServeillanceStation - manager with edit camera right </li> </td> </tr>
<tr> <td> <li> set ... expmode </td> <td> session: ServeillanceStation - manager </li> </td> </tr>
<tr> <td> <li> set ... extevent </td> <td> session: DSM - user as member of admin - group </li> </td> </tr>
<tr> <td> <li> set ... goPreset </td> <td> session: ServeillanceStation - observer with privilege objective control of camera </li> </td> </tr>
<tr> <td> <li> set ... homeMode </td> <td> ssession: ServeillanceStation - observer with privilege Home Mode switch ( valid for <b> SVS - device ! </b> ) </li> </td> </tr>
2020-06-28 18:49:16 +00:00
<tr> <td> <li> set ... motdetsc </td> <td> session: ServeillanceStation - manager </li> </td> </tr>
<tr> <td> <li> set ... runPatrol </td> <td> session: ServeillanceStation - observer with privilege objective control of camera </li> </td> </tr>
2018-11-20 23:30:55 +00:00
<tr> <td> <li> set ... goAbsPTZ </td> <td> session: ServeillanceStation - observer with privilege objective control of camera </li> </td> </tr>
<tr> <td> <li> set ... move </td> <td> session: ServeillanceStation - observer with privilege objective control of camera </li> </td> </tr>
<tr> <td> <li> set ... runView </td> <td> session: ServeillanceStation - observer with privilege liveview of camera </li> </td> </tr>
2020-06-28 18:49:16 +00:00
<tr> <td> <li> set ... setHome </td> <td> session: ServeillanceStation - observer </li> </td> </tr>
2018-11-20 23:30:55 +00:00
<tr> <td> <li> set ... setPreset </td> <td> session: ServeillanceStation - observer </li> </td> </tr>
<tr> <td> <li> set ... snap </td> <td> session: ServeillanceStation - observer </li> </td> </tr>
<tr> <td> <li> set ... snapGallery </td> <td> session: ServeillanceStation - observer </li> </td> </tr>
<tr> <td> <li> set ... stopView </td> <td> - </li> </td> </tr>
<tr> <td> <li> set ... credentials </td> <td> - </li> </td> </tr>
<tr> <td> <li> get ... caminfo [ all ] </td> <td> session: ServeillanceStation - observer </li> </td> </tr>
<tr> <td> <li> get ... eventlist </td> <td> session: ServeillanceStation - observer </li> </td> </tr>
2020-06-28 18:49:16 +00:00
<tr> <td> <li> get ... listLog </td> <td> session: ServeillanceStation - observer </li> </td> </tr>
2018-11-20 23:30:55 +00:00
<tr> <td> <li> get ... listPresets </td> <td> session: ServeillanceStation - observer </li> </td> </tr>
<tr> <td> <li> get ... scanVirgin </td> <td> session: ServeillanceStation - observer </li> </td> </tr>
<tr> <td> <li> get ... svsinfo </td> <td> session: ServeillanceStation - observer </li> </td> </tr>
<tr> <td> <li> get ... snapfileinfo </td> <td> session: ServeillanceStation - observer </li> </td> </tr>
2020-06-28 18:49:16 +00:00
<tr> <td> <li> get ... snapinfo </td> <td> session: ServeillanceStation - observer </li> </td> </tr>
2018-11-20 23:30:55 +00:00
<tr> <td> <li> get ... stmUrlPath </td> <td> session: ServeillanceStation - observer </li> </td> </tr>
</table>
</ul>
<br> <br>
2019-02-03 06:36:15 +00:00
</ul>
2018-11-20 23:30:55 +00:00
2020-06-28 18:49:16 +00:00
< a name = "HTTPTimeout" > </a>
2018-11-20 23:30:55 +00:00
<b> HTTP - Timeout Settings </b> <br> <br>
<ul>
All functions of SSCam use HTTP - calls to SVS Web API . <br>
The default - value of HTTP - Timeout amounts 4 seconds . You can set the < a href = "#SSCamattr" > attribute </a> "httptimeout" > 0 to adjust the value as needed in your technical environment . <br>
</ul>
<br> <br> <br>
< a name = "SSCamset" > </a>
<b> Set </b>
<ul>
<br>
The specified set - commands are available for CAM / SVS - devices or only valid for CAM - devices or rather for SVS - Devices .
They can be selected in the drop - down - menu of the particular device . <br> <br>
2018-12-07 16:17:53 +00:00
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> autocreateCams </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for SVS ) </li> <br>
2018-12-07 16:17:53 +00:00
If a SVS device is defined , all in SVS integrated cameras are able to be created automatically in FHEM by this command . If the camera is already defined ,
it is overleaped .
The new created camera devices are created in the same room as the used SVS device ( default SSCam ) . Further helpful attributes are preset as well .
<br> <br>
</ul>
2018-11-20 23:30:55 +00:00
<ul>
< a name = "SSCamcreateStreamDev" > </a>
2020-07-16 06:14:56 +00:00
<li> <b> createStreamDev [ generic | hls | lastsnap | mjpeg | switched ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM ) <br>
respectively <br>
<b> createStreamDev [ master ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for SVS ) <br>
<br>
2018-11-20 23:30:55 +00:00
2018-12-30 20:20:27 +00:00
A separate Streaming - Device ( type SSCamSTRM ) will be created . This device can be used as a discrete device in a dashboard
for example .
2018-11-20 23:30:55 +00:00
The current room of the parent camera device is assigned to the new device if it is set there .
<br> <br>
<ul>
<table>
<colgroup> < col width = 10 % > < col width = 90 % > < / colgroup >
2020-07-16 06:14:56 +00:00
<tr> <td> generic </td> <td> - the streaming device playback a content determined by attribute < a href = "#genericStrmHtmlTag" > genericStrmHtmlTag </a> </td> </tr>
2018-12-30 20:20:27 +00:00
<tr> <td> hls </td> <td> - the streaming device playback a permanent HLS video stream </td> </tr>
2019-02-06 21:06:40 +00:00
<tr> <td> lastsnap </td> <td> - the streaming device playback the newest snapshot </td> </tr>
2018-11-20 23:30:55 +00:00
<tr> <td> mjpeg </td> <td> - the streaming device playback a permanent MJPEG video stream ( Streamkey method ) </td> </tr>
<tr> <td> switched </td> <td> - playback of different streaming types . Buttons for mode control are provided . </td> </tr>
</table>
</ul>
<br> <br>
2020-07-16 06:14:56 +00:00
You can control the design with HTML tags in attribute < a href = "#htmlattr" > htmlattr </a> of the camera device or by
2018-12-30 20:20:27 +00:00
specific attributes of the SSCamSTRM - device itself . <br> <br>
2020-07-16 06:14:56 +00:00
</li>
2018-12-30 20:20:27 +00:00
<b> Streaming device "hls" </b> <br> <br>
The Streaming - device of type "hls" uses the library hls . js to playback the video stream and is executable on most current
browsers with MediaSource extensions ( MSE ) . With < a href = "#SSCamattr" > attribuet </a> "hlsNetScript" can be specified , whether
the local installed version of hls . js ( . /www/ pgm2 / sscam_hls . js ) or the newest online library version from the hls . js
project site should be used . This attribute has to be set centrally in a device of type "SVS" ! <br>
If this kind of streaming device is used , the < a href = "#SSCamattr" > attribute </a> "hlsStrmObject" must be set in the parent
camera device ( see Internal PARENT ) .
<br> <br>
<b> Streaming device "switched hls" </b> <br> <br>
This type of streaming device uses the HLS video stream native delivered by Synology Surveillance Station .
2018-11-20 23:30:55 +00:00
If HLS ( HTTP Live Streaming ) is used in Streaming - Device of type "switched" , then the camera has to be set to video format
H .264 in the Synology Surveillance Station and the SVS - Version has to support the HLS format .
Therefore the selection button of HLS is only provided by the Streaming - Device if the Reading "CamStreamFormat" contains
"HLS" . <br>
2018-12-30 20:20:27 +00:00
HTTP Live Streaming is currently only available on Mac Safari or modern mobile iOS / Android devices .
<br> <br>
<b> Streaming device "generic" </b> <br> <br>
A streaming device of type "generic" needs the complete definition of HTML - Tags by the attribute "genericStrmHtmlTag" .
2018-11-20 23:30:55 +00:00
These tags specify the content to playback . <br> <br>
<ul>
2020-06-28 18:49:16 +00:00
<b> Example: </b>
2018-11-20 23:30:55 +00:00
<pre>
attr & lt ; name & gt ; genericStrmHtmlTag & lt ; video $ HTMLATTR controls autoplay & gt ;
& lt ; source src = 'http://192.168.2.10:32000/$NAME.m3u8' type = 'application/x-mpegURL' & gt ;
2019-03-04 19:09:35 +00:00
& lt ; / video & gt ;
attr & lt ; name & gt ; genericStrmHtmlTag & lt ; img $ HTMLATTR
src = "http://192.168.2.10:32774"
onClick = "FW_okDialog('<img src=http://192.168.2.10:32774 $PWS>')"
& gt
2018-11-20 23:30:55 +00:00
</pre>
2019-03-04 19:09:35 +00:00
The variables $ HTMLATTR , $ NAME and $ PWS are placeholders and absorb the attribute "htmlattr" ( if set ) , the SSCam - Devicename
respectively the value of attribute "popupWindowSize" in streamin - device , which specify the windowsize of a popup window .
2018-11-20 23:30:55 +00:00
</ul>
2019-02-06 21:06:40 +00:00
<br> <br>
<b> Streaming device "lastsnap" </b> <br> <br>
This type of streaming device playback the last ( newest ) snapshot .
As default the snapshot is retrieved in a reduced resolution . In order to use the original resolution , the attribute
<b> "snapGallerySize = Full" </b> has to be set in the associated camera device ( compare Internal PARENT ) .
There also the attribute "pollcaminfoall" should be set to retrieve the newest snapshot regularly .
<br>
2018-11-20 23:30:55 +00:00
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> createPTZcontrol </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for PTZ - CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
2018-12-30 20:20:27 +00:00
A separate PTZ control panel will be created ( type SSCamSTRM ) . The current room of the parent camera device is
assigned if it is set there ( default "SSCam" ) .
2018-11-20 23:30:55 +00:00
With the "ptzPanel_.*" - < a href = "#SSCamattr" > attributes </a> or respectively the specific attributes of the SSCamSTRM - device
the properties of the control panel can be affected . <br>
<br> <br>
</ul>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> createReadingsGroup [ & lt ; name of readingsGroup & gt ; ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM /SVS)</ li > <br>
2018-11-20 23:30:55 +00:00
This command creates a readingsGroup device to display an overview of all defined SSCam devices .
A name for the new readingsGroup device can be specified . Is no own name specified , the readingsGroup device will be
created with name "RG.SSCam" .
<br>
<br> <br>
</ul>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> createSnapGallery </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
A snapshot gallery will be created as a separate device ( type SSCamSTRM ) . The device will be provided in
2018-12-30 20:20:27 +00:00
room "SSCam" .
2018-11-20 23:30:55 +00:00
With the "snapGallery..." - < a href = "#SSCamattr" > attributes </a> respectively the specific attributes of the SSCamSTRM - device
2018-11-25 07:58:47 +00:00
you are able to manipulate the properties of the new snapshot gallery device .
<br> <br>
<b> Note </b> <br>
The camera names in Synology SVS should not be very similar , otherwise the retrieval of snapshots could come to inaccuracies .
2018-11-20 23:30:55 +00:00
<br> <br>
</ul>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> credentials & lt ; username & gt ; & lt ; password & gt ; </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM /SVS)</ li > <br>
2018-11-20 23:30:55 +00:00
set username / password combination for access the Synology Surveillance Station .
2020-06-28 18:49:16 +00:00
See < a href = "#Credentials" > Credentials </a> <br> for further informations .
2018-11-20 23:30:55 +00:00
<br> <br>
</ul>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> delPreset & lt ; PresetName & gt ; </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for PTZ - CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
Deletes a preset "<PresetName>" . In FHEMWEB a drop - down list with current available presets is provieded .
</ul>
<br> <br>
<ul>
2020-07-13 20:38:52 +00:00
< a name = "disable" > </a>
<li> <b> disable </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM ) <br>
Disables the camera in Synology Surveillance Station .
</li>
</ul>
<br> <br>
2018-11-20 23:30:55 +00:00
2020-07-13 20:38:52 +00:00
<ul>
< a name = "enable" > </a>
<li> <b> enable </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM ) <br>
Activate the camera in Synology Surveillance Station .
</li>
2018-11-20 23:30:55 +00:00
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> expmode [ day | night | auto ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
With this command you are able to control the exposure mode and can set it to day , night or automatic mode .
Thereby , for example , the behavior of camera LED ' s will be suitable controlled .
The successful switch will be reported by the reading CamExposureMode ( command "get ... caminfoall" ) . <br> <br>
<b> Note: </b> <br>
The successfully execution of this function depends on if SVS supports that functionality of the connected camera .
Is the field for the Day / Night - mode shown greyed in SVS - & gt ; IP - camera - & gt ; optimization - & gt ; exposure mode , this function will be probably unsupported .
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> extevent [ 1 - 10 ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for SVS ) </li> <br>
2018-11-20 23:30:55 +00:00
This command triggers an external event ( 1 - 10 ) in SVS .
The actions which will are used have to be defined in the actionrule editor of SVS at first . There are the events 1 - 10 possible .
In the message application of SVS you may select Email , SMS or Mobil ( DS - Cam ) messages to release if an external event has been triggerd .
Further informations can be found in the online help of the actionrule editor .
The used user needs to be a member of the admin - group and DSM - session is needed too .
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> goAbsPTZ [ X Y | up | down | left | right ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
This command can be used to move a PTZ - camera to an arbitrary absolute X /Y-coordinate, or to absolute position using up/ down /left/ right .
The option is only available for cameras which are having the Reading "CapPTZAbs=true" . The property of a camera can be requested with "get <name> caminfoall" .
<br> <br>
Example for a control to absolute X / Y - coordinates: <br>
<pre>
set & lt ; name & gt ; goAbsPTZ 120 450
</pre>
In this example the camera lense moves to position X = 120 und Y = 450 . <br>
The valuation is:
<pre>
X = 0 - 640 ( 0 - 319 moves lense left , 321 - 640 moves lense right , 320 don ' t move lense )
Y = 0 - 480 ( 0 - 239 moves lense down , 241 - 480 moves lense up , 240 don ' t move lense )
</pre>
The lense can be moved in smallest steps to very large steps into the desired direction .
If necessary the procedure has to be repeated to bring the lense into the desired position . <br> <br>
If the motion should be done with the largest possible increment the following command can be used for simplification:
<pre>
set & lt ; name & gt ; goAbsPTZ up [ down | left | right ]
</pre>
In this case the lense will be moved with largest possible increment into the given absolute position .
Also in this case the procedure has to be repeated to bring the lense into the desired position if necessary .
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> goPreset & lt ; Preset & gt ; </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
Using this command you can move PTZ - cameras to a predefined position . <br>
The Preset - positions have to be defined first of all in the Synology Surveillance Station . This usually happens in the PTZ - control of IP - camera setup in SVS .
The Presets will be read ito FHEM with command "get <name> caminfoall" ( happens automatically when FHEM restarts ) . The import process can be repeated regular by camera polling .
A long polling interval is recommendable in this case because of the Presets are only will be changed if the user change it in the IP - camera setup itself .
<br> <br>
Here it is an example of a PTZ - control depended on IR - motiondetector event:
<pre>
define CamFL . Preset . Wandschrank notify MelderTER:on . * set CamFL goPreset Wandschrank , ; ; define CamFL . Preset . record at + 00 : 00 : 10 set CamFL on 5 ; ; ; ; define s3 at + * { 3 } 00 : 00 : 05 set CamFL snap ; ; define CamFL . Preset . back at + 00 : 00 : 30 set CamFL goPreset Home
</pre>
Operating Mode: <br>
The IR - motiondetector registers a motion . Hereupon the camera "CamFL" moves to Preset - posion "Wandschrank" . A recording with the length of 5 seconds starts 10 seconds later .
Because of the prerecording time of the camera is set to 10 seconds ( cf . Reading "CamPreRecTime" ) , the effectice recording starts when the camera move begins . <br>
When the recording starts 3 snapshots with an interval of 5 seconds will be taken as well . <br>
After a time of 30 seconds in position "Wandschrank" the camera moves back to postion "Home" . <br> <br>
An extract of the log illustrates the process:
<pre>
2016.02 .04 15 : 02 : 14 2 : CamFL - Camera Flur_Vorderhaus has moved to position "Wandschrank"
2016.02 .04 15 : 02 : 24 2 : CamFL - Camera Flur_Vorderhaus Recording with Recordtime 5 s started
2016.02 .04 15 : 02 : 29 2 : CamFL - Snapshot of Camera Flur_Vorderhaus has been done successfully
2016.02 .04 15 : 02 : 30 2 : CamFL - Camera Flur_Vorderhaus Recording stopped
2016.02 .04 15 : 02 : 34 2 : CamFL - Snapshot of Camera Flur_Vorderhaus has been done successfully
2016.02 .04 15 : 02 : 39 2 : CamFL - Snapshot of Camera Flur_Vorderhaus has been done successfully
2016.02 .04 15 : 02 : 44 2 : CamFL - Camera Flur_Vorderhaus has moved to position "Home"
</pre>
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> homeMode [ on | off ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for SVS ) </li> <br>
2018-11-20 23:30:55 +00:00
Switch the HomeMode of the Surveillance Station on or off .
Further informations about HomeMode you can find in the < a href = "https://www.synology.com/en-global/knowledgebase/Surveillance/help/SurveillanceStation/home_mode" > Synology Onlinehelp </a> .
<br> <br>
</ul>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> motdetsc [ camera | SVS | disable ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
The command "motdetsc" ( stands for "motion detection source" ) switchover the motion detection to the desired mode .
If motion detection will be done by camera / SVS without any parameters , the original camera motion detection settings are kept .
The successful execution of that opreration one can retrace by the state in SVS - & gt ; IP - camera - & gt ; event detection - & gt ; motion . <br> <br>
For the motion detection further parameter can be specified . The available options for motion detection by SVS are "sensitivity" and "threshold" . <br> <br>
<ul>
<table>
<colgroup> < col width = 50 % > < col width = 50 % > < / colgroup >
<tr> <td> set & lt ; name & gt ; motdetsc SVS [ sensitivity ] [ threshold ] </td> <td> # command pattern </td></tr>
<tr> <td> set & lt ; name & gt ; motdetsc SVS 91 30 </td> <td> # set the sensitivity to 91 and threshold to 30 </td></tr>
<tr> <td> set & lt ; name & gt ; motdetsc SVS 0 40 </td> <td> # keep the old value of sensitivity, set threshold to 40 </td></tr>
<tr> <td> set & lt ; name & gt ; motdetsc SVS 15 </td> <td> # set the sensitivity to 15, threshold keep unchanged </td></tr>
</table>
</ul>
<br> <br>
If the motion detection is used by camera , there are the options "sensitivity" , "object size" , "percentage for release" available . <br> <br>
<ul>
<table>
<colgroup> < col width = 50 % > < col width = 50 % > < / colgroup >
<tr> <td> set & lt ; name & gt ; motdetsc camera [ sensitivity ] [ threshold ] [ percentage ] </td> <td> # command pattern </td></tr>
<tr> <td> set & lt ; name & gt ; motdetsc camera 89 0 20 </td> <td> # set the sensitivity to 89, percentage to 20 </td></tr>
<tr> <td> set & lt ; name & gt ; motdetsc camera 0 40 10 </td> <td> # keep old value for sensitivity, set threshold to 40, percentage to 10 </td></tr>
<tr> <td> set & lt ; name & gt ; motdetsc camera 30 </td> <td> # set the sensitivity to 30, other values keep unchanged </td></tr>
</table>
</ul>
<br> <br>
Please consider always the sequence of parameters . Unwanted options have to be set to "0" if further options which have to be changed are follow ( see example above ) .
The numerical values are between 1 - 99 ( except special case "0" ) . <br> <br>
The each available options are dependend of camera type respectively the supported functions by SVS . Only the options can be used they are available in
SVS - & gt ; edit camera - & gt ; motion detection . Further informations please read in SVS online help . <br> <br>
With the command "get <name> caminfoall" the < a href = "#SSCamreadings" > Reading </a> "CamMotDetSc" also will be updated which documents the current setup of motion detection .
Only the parameters and parameter values supported by SVS at present will be shown . The camera itself may offer further options to adjust . <br> <br>
Example:
<pre>
CamMotDetSc SVS , sensitivity: 76 , threshold: 55
</pre>
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> move [ right | up | down | left | dir_X ] [ Sekunden ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM up to SVS version 7.1 ) </li>
<b> move [ right | upright | up | upleft | left | downleft | down | downright ] [ Sekunden ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM and SVS Version 7.2 and above ) <br> <br>
2018-11-20 23:30:55 +00:00
With this command a continuous move of a PTZ - camera will be started . In addition to the four basic directions up /down/ left / right is it possible to use angular dimensions
"dir_X" . The grain size of graduation depends on properties of the camera and can be identified by the Reading "CapPTZDirections" . <br> <br>
The radian measure of 360 degrees will be devided by the value of "CapPTZDirections" and describes the move drections starting with "0=right" counterclockwise .
That means , if a camera Reading is "CapPTZDirections = 8" it starts with dir_0 = right , dir_2 = top , dir_4 = left , dir_6 = bottom and respectively dir_1 , dir_3 , dir_5 and dir_7
the appropriate directions between . The possible moving directions of cameras with "CapPTZDirections = 32" are correspondingly divided into smaller sections . <br> <br>
In opposite to the "set <name> goAbsPTZ" - command starts "set <name> move" a continuous move until a stop - command will be received .
The stop - command will be generated after the optional assignable time of [ seconds ] . If that retention period wouldn ' t be set by the command , a time of 1 second will be set implicit . <br> <br>
Examples: <br>
<pre>
set & lt ; name & gt ; move up 0.5 : moves PTZ 0 , 5 Sek . ( plus processing time ) to the top
set & lt ; name & gt ; move dir_1 1.5 : moves PTZ 1 , 5 Sek . ( plus processing time ) to top - right
set & lt ; name & gt ; move dir_20 0.7 : moves PTZ 1 , 5 Sek . ( plus processing time ) to left - bottom ( "CapPTZDirections = 32)"
</pre>
</ul>
2019-01-27 15:36:11 +00:00
<br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> off </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM ) </li> <br>
2019-01-27 15:36:11 +00:00
Stops the current recording .
</ul>
2018-11-20 23:30:55 +00:00
<br> <br>
<ul>
2019-12-11 21:16:03 +00:00
<li> <b> set & lt ; name & gt ; on [ & lt ; rectime & gt ; ] <br>
[ recEmailTxt: "subject => <subject text>, body => <message text>" ] <br>
[ recTelegramTxt: "tbot => <TelegramBot device>, peers => [<peer1 peer2 ...>], subject => [<subject text>]" ] <br>
[ recChatTxt: "chatbot => <SSChatBot device>, peers => [<peer1 peer2 ...>], subject => [<subject text>]" ] <br>
</b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
2019-01-27 15:36:11 +00:00
A recording will be started . The default recording time is 15 seconds . It can be individually changed by
the < a href = "#SSCamattr" > attribute </a> "rectime" .
The recording time can be overwritten on - time by "set <name> on <rectime>" for the current recording .
2018-11-20 23:30:55 +00:00
The recording will be stopped after processing time "rectime" automatically . <br>
2019-01-27 15:36:11 +00:00
A special case is start recording by "set <name> on 0" respectively the attribute value "rectime = 0" . In this case
an endless - recording will be started . One have to explicitely stop this recording with command "set <name> off" . <br>
2018-11-20 23:30:55 +00:00
2019-01-27 15:36:11 +00:00
Furthermore the recording behavior can be impacted with < a href = "#SSCamattr" > attribute </a> "recextend" as explained as
follows . <br> <br>
2018-11-20 23:30:55 +00:00
2019-01-27 15:36:11 +00:00
<b> Attribute "recextend = 0" or not set ( default ) : </b> <br>
2018-11-20 23:30:55 +00:00
<ul>
<li> if , for example , a recording with rectimeme = 22 is started , no other startcommand ( for a recording ) will be accepted until this started recording is finished .
A hint will be logged in case of verboselevel = 3 . </li>
</ul>
<br>
2019-01-27 15:36:11 +00:00
<b> Attribute "recextend = 1" is set: </b> <br>
2018-11-20 23:30:55 +00:00
<ul>
<li> a before started recording will be extend by the recording time "rectime" if a new start command is received . That means , the timer for the automatic stop - command will be
renewed to "rectime" given bei the command , attribute or default value . This procedure will be repeated every time a new start command for recording is received .
Therefore a running recording will be extended until no start command will be get . </li>
<li> a before started endless - recording will be stopped after recordingtime 2 rectime " if a new " set <name> on " - command is received ( new set of timer ) . If it is unwanted make sure you
don ' t set the < a href = "#SSCamattr" > attribute </a> "recextend" in case of endless - recordings . </li>
</ul>
<br>
2019-12-11 21:16:03 +00:00
The shipping of recording by <b> Synology Chat </b> can be activated permanently by setting attribute < a href = "#recChatTxt" > recChatTxt </a>
Of course , the < a href = "https://wiki.fhem.de/wiki/SSChatBot_-_Integration_des_Synology_Chat_Servers" > SSChatBot device </a> which is
used for send data , must be defined and fully functional before . <br>
If you want temporary overwrite the message text as set in attribute "recChatTxt" , you can optionally specify the
"recChatTxt:" - tag as shown above . If the attribute "recChatTxt" is not set , the shipping by Telegram is
activated one - time . ( the tag - syntax is equivalent to the "recChatTxt" attribute ) <br> <br>
2019-01-27 15:36:11 +00:00
The <b> Email shipping </b> of recordings can be activated by setting < a href = "#SSCamattr" > attribute </a> "recEmailTxt" .
Before you have to prepare the Email shipping as described in section < a href = "#SSCamEmail" > Setup Email shipping </a> .
( for further information execute "<b>get <name> versionNotes 7</b>" ) <br>
Alternatively you can activate the Email - shipping one - time when you specify the "recEmailTxt:" - tag in the "on" - command .
In this case the tag - text is used for creating the Email instead the text specified in "recEmailTxt" - attribute .
2019-02-02 12:41:28 +00:00
( the tag syntax is identical to the "recEmailTxt" attribute )
2019-01-27 15:36:11 +00:00
<br> <br>
2019-03-04 19:09:35 +00:00
The shipping of the last recording by <b> Telegram </b> can be activated permanently by setting < a href = "#SSCamattr" > attribute </a>
"recTelegramTxt" . Of course , the < a href = "http://fhem.de/commandref.html#TelegramBot" > TelegramBot device </a> which is
used , must be defined and fully functional before . <br>
If you want temporary overwrite the message text as set with attribute "recTelegramTxt" , you can optionally specify the
"recTelegramTxt:" - tag as shown above . If the attribute "recTelegramTxt" is not set , the shipping by Telegram is
activated one - time . ( the tag - syntax is equivalent to the "recTelegramTxt" attribute ) <br> <br>
2019-01-27 15:36:11 +00:00
<b> Examples: </b> <br> <br>
set & lt ; name & gt ; on [ rectime ] <br>
# starts a recording, stops automatically after [rectime] <br>
<code> set & lt ; name & gt ; on 0 </code> <br>
# starts a permanent record which must be stopped with the "off"-command. <br>
<code> set & lt ; name & gt ; on recEmailTxt: "subject => New recording for $CAM created, body => The last recording of $CAM is atteched." </code> <br>
# starts a recording and send it after completion by Email. <br>
2019-03-04 19:09:35 +00:00
<code> set & lt ; name & gt ; on recTelegramTxt: "tbot => teleBot, peers => @xxxx , subject => Movement alarm by $CAM. The snapshot $FILE was created at $CTIME" </code> <br>
# starts a recording and send it after completion by Telegram. <br>
2019-12-11 21:16:03 +00:00
<code> set & lt ; name & gt ; on recChatTxt: "chatbot => SynChatBot, peers => , subject => Movement alarm by $CAM. The snapshot $FILE was created at $CTIME." </code> <br>
# starts a recording and send it after completion by Synology Chat. <br>
2018-11-20 23:30:55 +00:00
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> optimizeParams [ mirror: & lt ; value & gt ; ] [ flip: & lt ; value & gt ; ] [ rotate: & lt ; value & gt ; ] [ ntp: & lt ; value & gt ; ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
Set one or several properties of the camera . The video can be mirrored ( mirror ) , turned upside down ( flip ) or
rotated ( rotate ) . Specified properties must be supported by the camera type . With "ntp" you can set a time server the camera
use for time synchronization . <br> <br>
& lt ; value & gt ; can be for : <br>
<ul>
<li> <b> mirror , flip , rotate: </b> true | false </li>
2020-06-28 18:49:16 +00:00
<li> <b> ntp: </b> the name or the IP - address of time server </li>
</ul>
<br> <br>
2018-11-20 23:30:55 +00:00
<b> Examples: </b> <br>
<code> set & lt ; name & gt ; optimizeParams mirror:true flip:true ntp:time . windows . com </code> <br>
# The video will be mirrored, turned upside down and the time server is set to "time.windows.com".<br>
<code> set & lt ; name & gt ; optimizeParams ntp:Surveillance % 20Station </code> <br>
# The Surveillance Station is set as time server. (NTP-service has to be activated in DSM) <br>
<code> set & lt ; name & gt ; optimizeParams mirror:true flip:false rotate:true </code> <br>
# The video will be mirrored and rotated round 90 degrees. <br>
<br> <br>
</ul>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> pirSensor [ activate | deactivate ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
Activates / deactivates the infrared sensor of the camera ( only posible if the camera has got a PIR sensor ) .
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> runPatrol & lt ; Patrolname & gt ; </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
This commans starts a predefined patrol ( tour ) of a PTZ - camera . <br>
At first the patrol has to be predefined in the Synology Surveillance Station . It can be done in the PTZ - control of IP - Kamera Setup - & gt ; PTZ - control - & gt ; patrol .
The patrol tours will be read with command "get <name> caminfoall" which is be executed automatically when FHEM restarts .
The import process can be repeated regular by camera polling . A long polling interval is recommendable in this case because of the patrols are only will be changed
if the user change it in the IP - camera setup itself .
Further informations for creating patrols you can get in the online - help of Surveillance Station .
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> runView [ live_fw | live_link | live_open [ & lt ; room & gt ; ] | lastrec_fw | lastrec_fw_MJPEG | lastrec_fw_MPEG4 /H.264 | lastrec_open [<room>] | lastsnap_fw] </ b > & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
<ul>
<table>
<colgroup> < col width = 25 % > < col width = 75 % > < / colgroup >
<tr> <td> live_fw </td> <td> - MJPEG - Livestream . Audio playback is provided if possible . </td> </tr>
<tr> <td> live_fw_hls </td> <td> - HLS - Livestream ( currently only Mac Safari Browser and mobile iOS /Android-Devices) </ td > </tr>
<tr> <td> live_link </td> <td> - Link of a MJPEG - Livestream </td> </tr>
<tr> <td> live_open [ & lt ; room & gt ; ] </td> <td> - opens MJPEG - Livestream in separate Browser window </td> </tr>
<tr> <td> lastrec_fw </td> <td> - playback last recording as iFrame object </td> </tr>
<tr> <td> lastrec_fw_MJPEG </td> <td> - usable if last recording has format MJPEG </td> </tr>
<tr> <td> lastrec_fw_MPEG4 /H.264 </ td > <td> - usable if last recording has format MPEG4 /H.264 </ td > </tr>
<tr> <td> lastrec_open [ & lt ; room & gt ; ] </td> <td> - playback last recording in a separate Browser window </td> </tr>
<tr> <td> lastsnap_fw </td> <td> - playback last snapshot </td> </tr>
</table>
</ul>
<br> <br>
With <b> "live_fw, live_link" </b> a MJPEG - Livestream will be started , either as an embedded image
or as a generated link . <br>
The option <b> "live_open" </b> starts a new browser window with a MJPEG - Livestream . If the optional "<room>" is set , the
window will only be started if the specified room is currently opened in a FHEMWEB - session . <br>
If a HLS - Stream by <b> "live_fw_hls" </b> is requested , the camera has to be setup to video format H .264 ( not MJPEG ) in the
Synology Surveillance Station and the SVS - Version has to support the HLS format .
Therefore this possibility is only present if the Reading "CamStreamFormat" is set to "HLS" .
<br> <br>
Access to the last recording of a camera can be done using <b> "lastrec_fw.*" </b> respectively <b> "lastrec_open" </b> .
By <b> "lastrec_fw" </b> the recording will be opened in an iFrame . There are some control elements provided if available . <br>
The <b> "lastrec_open" </b> command can be extended optionally by a room . In this case the new window opens only , if the
room is the same as a FHEMWEB - session has currently opened . <br>
The command <b> "set <name> runView lastsnap_fw" </b> shows the last snapshot of the camera embedded . <br>
The Streaming - Device properties can be affected by HTML - tags in < a href = "#SSCamattr" > attribute </a> "htmlattr" .
<br> <br>
<b> Examples: </b> <br>
<pre>
attr & lt ; name & gt ; htmlattr width = "500" height = "375"
attr & lt ; name & gt ; htmlattr width = "700" , height = "525" , top = "200" , left = "300"
</pre>
The command <b> "set <name> runView live_open" </b> starts the stream immediately in a new browser window .
A browser window will be initiated to open for every FHEMWEB - session which is active . If you want to change this behavior ,
you can use command <b> "set <name> runView live_open <room>" </b> . In this case the new window opens only , if the
room is the same as a FHEMWEB - session has currently opened . <br>
The settings of < a href = "#SSCamattr" > attribute </a> "livestreamprefix" overwrite the data for protocol , servername and
port in < a href = "#SSCamreadings" > reading </a> "LiveStreamUrl" .
By "livestreamprefix" the LivestreamURL ( is shown if < a href = "#SSCamattr" > attribute </a> "showStmInfoFull" is set ) can
be modified and used for distribution and external access to the Livestream . <br> <br>
<b> Example: </b> <br>
<pre>
attr & lt ; name & gt ; livestreamprefix https: // & lt ; Servername & gt ; : & lt ; Port & gt ;
</pre>
The livestream can be stopped again by command <b> "set <name> stopView" </b> .
The "runView" function also switches Streaming - Devices of type "switched" into the appropriate mode . <br> <br>
Dependend of the content to playback , different control buttons are provided: <br> <br>
<ul>
<table>
<colgroup> < col width = 25 % > < col width = 75 % > < / colgroup >
<tr> <td> Start Recording </td> <td> - starts an endless recording </td> </tr>
<tr> <td> Stop Recording </td> <td> - stopps the recording </td> </tr>
<tr> <td> Take Snapshot </td> <td> - take a snapshot </td> </tr>
<tr> <td> Switch off </td> <td> - stops a running playback </td> </tr>
</table>
</ul>
<br>
<b> Note for HLS ( HTTP Live Streaming ) : </b> <br>
The video starts with a technology caused delay . Every stream will be segemented into some little video files
( with a lenth of approximately 10 seconds ) and is than delivered to the client .
The video format of the camera has to be set to H .264 in the Synology Surveillance Station and not every camera type is
a proper device for HLS - Streaming .
At the time only the Mac Safari Browser and modern mobile iOS / Android - Devices are able to playback HLS - Streams .
2019-03-04 19:09:35 +00:00
<br> <br>
<b> Note for MJPEG: </b> <br>
The MJPEG stream is SVS internal transcoded from other codec and is usally only about 1 fps .
2018-11-20 23:30:55 +00:00
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> setHome & lt ; PresetName & gt ; </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for PTZ - CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
Set the Home - preset to a predefined preset name "<PresetName>" or the current position of the camera .
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> setPreset & lt ; PresetNumber & gt ; [ & lt ; PresetName & gt ; ] [ & lt ; Speed & gt ; ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for PTZ - CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
Sets a Preset with name "<PresetName>" to the current postion of the camera . The speed can be defined
optionally ( & lt ; Speed & gt ; ) . If no PresetName is specified , the PresetNummer is used as name .
For this reason & lt ; PresetName & gt ; is defined as optional , but should usually be set .
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> setZoom & lt ; . + + | + | stop | - | - - . & gt ; </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for PTZ - CAM ) </li> <br>
Provides controls for zoom functions if the camera supports this feature .
</ul>
<br> <br>
<ul>
<li> <b> snap [ & lt ; number & gt ; ] [ & lt ; time difference & gt ; ] <br>
2019-12-10 07:22:24 +00:00
[ snapEmailTxt: "subject => <subject text>, body => <message text>" ] <br>
[ snapTelegramTxt: "tbot => <TelegramBot device>, peers => [<peer1 peer2 ...>], subject => [<subject text>]" ] <br>
[ snapChatTxt: "chatbot => <SSChatBot device>, peers => [<peer1 peer2 ...>], subject => [<subject text>]" ] <br>
</b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
2019-01-04 20:07:35 +00:00
One or multiple snapshots are triggered . The number of snapshots to trigger and the time difference ( in seconds ) between
2019-01-16 23:49:55 +00:00
each snapshot can be optionally specified . Without any specification only one snapshot is triggered . <br>
2019-01-20 09:43:30 +00:00
The ID and the filename of the last snapshot will be displayed in Reading "LastSnapId" respectively
"LastSnapFilename" . <br>
2019-12-09 20:51:32 +00:00
To get data of the last 1 - 10 snapshots in various versions , the attribute < a href = "#snapReadingRotate" > snapReadingRotate </a>
2019-01-20 09:43:30 +00:00
can be used .
2019-01-16 23:49:55 +00:00
<br> <br>
2019-01-09 23:27:33 +00:00
2019-12-09 20:51:32 +00:00
A snapshot shipping by <b> Synology Chat </b> can be permanently activated by setting attribute < a href = "#snapChatTxt" > snapChatTxt </a> .
Of course , the < a href = "https://wiki.fhem.de/wiki/SSChatBot_-_Integration_des_Synology_Chat_Servers" > SSChatBot device </a> which is
used must be defined and fully functional before . <br>
If you want temporary overwrite the subject set in attribute "snapChatTxt" , you can optionally specify the
"snapChatTxt:" - tag as shown above . If the attribute "snapChatTxt" is not set , the shipping by SSChatBot is
activated one - time ( the tag - syntax is equivalent to the "snapChatTxt" attribute ) . <br>
In either case the attribute < a href = "#videofolderMap" > videofolderMap </a> has to be set before . It must contain an URL to the
root directory of recordings and snapshots ( e . g . http: //s erver . me:8081 / surveillance ) . <br> <br>
The snapshot <b> Email shipping </b> can be activated by setting attribute < a href = "#snapEmailTxt" > snapEmailTxt </a> .
2019-01-16 23:49:55 +00:00
Before you have to prepare the Email shipping as described in section < a href = "#SSCamEmail" > Setup Email shipping </a> .
( for further information execute "<b>get <name> versionNotes 7</b>" ) <br>
If you want temporary overwrite the message text set in attribute "snapEmailTxt" , you can optionally specify the
2019-02-03 06:36:15 +00:00
"snapEmailTxt:" - tag as shown above . If the attribute "snapEmailTxt" is not set , the Email shipping is
activated one - time . ( the tag - syntax is equivalent to the "snapEmailTxt" attribut ) <br> <br>
2019-12-09 20:51:32 +00:00
A snapshot shipping by <b> Telegram </b> can be permanently activated by setting attribute < a href = "#snapTelegramTxt" > snapTelegramTxt </a> .
Of course , the < a href = "http://fhem.de/commandref.html#TelegramBot" > TelegramBot device </a> which is
2019-02-04 17:43:27 +00:00
used must be defined and fully functional before . <br>
2019-02-03 06:36:15 +00:00
If you want temporary overwrite the message text set in attribute "snapTelegramTxt" , you can optionally specify the
"snapTelegramTxt:" - tag as shown above . If the attribute "snapTelegramTxt" is not set , the shipping by Telegram is
activated one - time . ( the tag - syntax is equivalent to the "snapTelegramTxt" attribut ) <br> <br>
2019-01-02 19:35:10 +00:00
2019-01-16 23:49:55 +00:00
<b> Examples: </b>
<pre>
2019-02-03 06:36:15 +00:00
set & lt ; name & gt ; snap
2019-01-16 23:49:55 +00:00
set & lt ; name & gt ; snap 4
set & lt ; name & gt ; snap 3 3 snapEmailTxt: "subject => Movement alarm $CAM, body => A movement was recognised at Carport"
2019-02-03 06:36:15 +00:00
set & lt ; name & gt ; snap 2 snapTelegramTxt: "tbot => teleBot, peers => , subject => Movement alarm by $CAM. The snapshot $FILE was created at $CTIME"
2019-12-09 20:51:32 +00:00
set & lt ; name & gt ; snap 2 snapChatTxt: "chatbot => SynChatBot , peers => Frodo Sam, subject => Movement alarm by $CAM. At $CTIME the snapshot $FILE was created. Now it is: $TIME."
2019-01-16 23:49:55 +00:00
</pre>
</ul>
<br> <br>
2019-01-02 19:35:10 +00:00
2019-01-16 23:49:55 +00:00
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> snapCams [ & lt ; number & gt ; ] [ & lt ; time difference & gt ; ] [ CAM: "<camera>, <camera>, ..." ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for SVS ) </li> <br>
2019-01-16 23:49:55 +00:00
One or multiple snapshots of denoted cameras are triggered . If no cameras are denoted , the snapshots are triggered in all
of the defined cameras in FHEM .
Optionally the number of snapshots to trigger ( default: 1 ) and the time difference ( in seconds ) between
each snapshot ( default: 2 ) can be specified . <br>
The ID and the filename of the last snapshot will be displayed in Reading "LastSnapId" respectively "LastSnapFilename" of
the appropriate camera device . <br> <br>
The snapshot <b> Email shipping </b> can be activated by setting < a href = "#SSCamattr" > attribute </a> "snapEmailTxt" in the
SVS device <b> AND </b> in the camera devices whose snapshots should be shipped .
Before you have to prepare the Email shipping as described in section < a href = "#SSCamEmail" > Setup Email shipping </a> .
( for further information execute "<b>get <name> versionNotes 7</b>" ) <br>
Only the message text set in attribute "snapEmailTxt" of the SVS device is used in the created Email . The settings of
those attribute in the camera devices is ignored ! ! <br> <br>
<b> Examples: </b>
<pre>
set & lt ; name & gt ; snapCams 4
set & lt ; name & gt ; snapCams 3 3 CAM: "CamHE1, CamCarport"
</pre>
2018-11-20 23:30:55 +00:00
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> snapGallery [ 1 - 10 ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
The command is only available if the attribute "snapGalleryBoost=1" is set . <br>
It creates an output of the last [ x ] snapshots as well as "get ... snapGallery" . But differing from "get" with
< a href = "#SSCamattr" > attribute </a> "snapGalleryBoost=1" no popup will be created . The snapshot gallery will be depicted as
an browserpage instead . All further functions and attributes are appropriate the < a href = "#SSCamget" > "get <name> snapGallery" </a>
command . <br>
If you want create a snapgallery output by triggering , e . g . with an "at" or "notify" , you should use the
< a href = "#SSCamget" > "get <name> snapGallery" </a> command instead of "set" .
2018-11-25 07:58:47 +00:00
<br> <br>
<b> Note </b> <br>
The camera names in Synology SVS should not be very similar , otherwise the retrieval of snapshots could come to inaccuracies .
2018-11-20 23:30:55 +00:00
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> startTracking </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM with tracking capability ) </li> <br>
2018-11-20 23:30:55 +00:00
Starts object tracking of camera .
The command is only available if surveillance station has recognised the object tracking capability of camera
( Reading "CapPTZObjTracking" ) .
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> stopTracking </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM with tracking capability ) </li> <br>
2018-11-20 23:30:55 +00:00
Stops object tracking of camera .
The command is only available if surveillance station has recognised the object tracking capability of camera
( Reading "CapPTZObjTracking" ) .
</ul>
<br> <br>
</ul>
<br>
< a name = "SSCamget" > </a>
<b> Get </b>
<ul>
<br>
With SSCam the properties of SVS and defined Cameras could be retrieved . <br>
The specified get - commands are available for CAM / SVS - devices or only valid for CAM - devices or rather for SVS - Devices .
They can be selected in the drop - down - menu of the particular device . <br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> caminfoall </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM /SVS)</ li >
<b> caminfo </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM ) <br> <br>
2020-06-28 18:49:16 +00:00
2018-11-20 23:30:55 +00:00
Dependend of the type of camera ( e . g . Fix - or PTZ - Camera ) the available properties are retrieved and provided as Readings . <br>
For example the Reading "Availability" will be set to "disconnected" if the camera would be disconnected from Synology
Surveillance Station and can ' t be used for further processing like creating events . <br>
"getcaminfo" retrieves a subset of "getcaminfoall" .
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> eventlist </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
The < a href = "#SSCamreadings" > Reading </a> "CamEventNum" and "CamLastRecord" will be refreshed which containes the total number
of in SVS registered camera events and the path / name of the last recording .
This command will be implicit executed when "get <name> caminfoall" is running . <br>
The < a href = "#SSCamattr" > attribute </a> "videofolderMap" replaces the content of reading "VideoFolder" . You can use it for
example if you have mounted the videofolder of SVS under another name or path and want to access by your local pc .
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> homeModeState </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for SVS ) </li> <br>
2018-11-20 23:30:55 +00:00
HomeMode - state of the Surveillance Station will be retrieved .
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> listLog [ severity: & lt ; Loglevel & gt ; ] [ limit: & lt ; Number of lines & gt ; ] [ match: & lt ; Searchstring & gt ; ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for SVS ) </li> <br>
2018-11-20 23:30:55 +00:00
Fetches the Surveillance Station Log from Synology server . Without any further options the whole log will be retrieved . <br>
You can specify all or any of the following options: <br> <br>
<ul>
<li> & lt ; Loglevel & gt ; - Information , Warning or Error . Only datasets having this severity are retrieved ( default: all ) </li>
<li> & lt ; Number of lines & gt ; - the specified number of lines ( newest ) of the log are retrieved ( default: all ) </li>
<li> & lt ; Searchstring & gt ; - only log entries containing the searchstring are retrieved ( Note: no Regex possible , the searchstring will be given into the call to SVS ) </li>
</ul>
<br>
<b> Examples </b> <br>
<ul>
<code> get & lt ; name & gt ; listLog severity:Error limit:5 </code> <br>
Reports the last 5 Log entries with severity "Error" <br>
<code> get & lt ; name & gt ; listLog severity:Information match:Carport </code> <br>
Reports all Log entries with severity "Information" and containing the string "Carport" <br>
<code> get & lt ; name & gt ; listLog severity:Warning </code> <br>
Reports all Log entries with severity "Warning" <br> <br>
</ul>
If the polling of SVS is activated by setting the < a href = "#SSCamattr" > attribute </a> "pollcaminfoall" , the < a href = "#SSCamreadings" > reading </a>
"LastLogEntry" will be created . <br>
In the protocol - setup of the SVS you can adjust what data you want to log . For further informations please have a look at
< a href = "https://www.synology.com/en-uk/knowledgebase/Surveillance/help/SurveillanceStation/log_advanced" > Synology Online - Help </a> .
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> listPresets </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for PTZ - CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
Get a popup with a lists of presets saved for the camera .
2019-01-02 19:35:10 +00:00
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> saveRecording [ & lt ; path & gt ; ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM ) </li> <br>
2019-01-02 19:35:10 +00:00
The current recording present in Reading "CamLastRec" is saved lcally as a MP4 file . Optionally you can specify the path
for the file to save ( default: modpath in global device ) . <br>
The name of the saved local file is the same as displayed in Reading "CamLastRec" . <br> <br>
<ul>
<b> Beispiel: </b> <br> <br>
get & lt ; name & gt ; saveRecording /opt/ fhem / log
</ul>
2018-11-20 23:30:55 +00:00
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> scanVirgin </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM /SVS)</ li > <br>
2018-11-20 23:30:55 +00:00
This command is similar to get caminfoall , informations relating to SVS and the camera will be retrieved .
In difference to caminfoall in either case a new session ID will be generated ( do a new login ) , the camera ID will be
new identified and all necessary API - parameters will be new investigated .
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> snapGallery [ 1 - 10 ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
A popup with the last [ x ] snapshots will be created . If the < a href = "#SSCamattr" > attribute </a> "snapGalleryBoost" is set ,
the last snapshots ( default 3 ) are requested by polling and they will be stored in the FHEM - servers main memory .
This method is helpful to speed up the output especially in case of full size images , but it can be possible
that NOT the newest snapshots are be shown if they have not be initialized by the SSCAm - module itself . <br>
The function can also be triggered , e . g . by an "at" or "notify" . In that case the snapshotgallery will be displayed on all
connected FHEMWEB instances as a popup . <br> <br>
To control this function behavior there are further < a href = "#SSCamattr" > attributes </a> : <br> <br>
<ul>
<li> snapGalleryBoost </li>
2020-06-28 18:49:16 +00:00
<li> snapGalleryColumns </li>
<li> snapGalleryHtmlAttr </li>
<li> snapGalleryNumber </li>
<li> snapGallerySize </li>
2018-11-20 23:30:55 +00:00
</ul> <br>
available .
</ul> <br>
<ul>
2020-06-28 18:49:16 +00:00
<b> Note: </b> <br>
2018-11-20 23:30:55 +00:00
Depended from quantity and resolution ( quality ) of the snapshot images adequate CPU and / or main memory
2020-06-28 18:49:16 +00:00
ressources are needed . The camera names in Synology SVS should not be very similar , otherwise the retrieval of
2018-11-25 07:58:47 +00:00
snapshots could come to inaccuracies .
2018-11-20 23:30:55 +00:00
</ul>
2020-06-28 18:49:16 +00:00
<br> <br>
2018-11-20 23:30:55 +00:00
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> snapfileinfo </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
The filename of the last snapshot will be retrieved . This command will be executed with <b> "get <name> snap" </b>
automatically .
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> snapinfo </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
Informations about snapshots will be retrieved . Heplful if snapshots are not triggerd by SSCam , but by motion detection of the camera or surveillance
station instead .
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> stmUrlPath </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
This command is to fetch the streamkey information and streamurl using that streamkey . The reading "StmKey" will be filled when this command will be executed and can be used
to send it and run by your own application like a browser ( see example ) .
If the < a href = "#SSCamattr" > attribute </a> "showStmInfoFull" is set , additional stream readings like "StmKeyUnicst" , "StmKeymjpegHttp" will be shown and can be used to run the
appropriate livestream without session id . Is the attribute "livestreamprefix" ( usage: " http ( s ) : // & lt ; hostname & gt ; & lt ; port & gt ; ) used , the servername / port will be replaced if necessary .
The strUrlPath function will be included automatically if polling is used .
<br> <br>
Example to create an http - call to a livestream using StmKey: <br>
<pre>
2020-06-25 06:21:49 +00:00
http ( s ) : // & lt ; hostname & gt ; & lt ; port & gt ; /webapi/ entry . cgi ? api = SYNO . SurveillanceStation . VideoStreaming & version = 1 & method = Stream & format = mjpeg & cameraId = 5 & StmKey = "31fd87279976d89bb98409728cced890"
2018-11-20 23:30:55 +00:00
</pre>
cameraId ( Internal CAMID ) and StmKey has to be replaced by valid values . <br> <br>
<b> Note: </b> <br>
If you use the stream - call from external and replace hostname / port with valid values and open your router ip ports , please
make shure that no unauthorized person could get this sensible data !
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> storedCredentials </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM /SVS)</ li > <br>
2018-11-20 23:30:55 +00:00
Shows the stored login credentials in a popup as plain text .
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> svsinfo </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM /SVS)</ li > <br>
2018-11-20 23:30:55 +00:00
Determines common informations about the installed SVS - version and other properties . <br>
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> versionNotes [ hints | rel | & lt ; key & gt ; ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( valid for CAM /SVS)</ li > <br>
2018-11-20 23:30:55 +00:00
Shows realease informations and / or hints about the module . It contains only main release informations for module users . <br>
If no options are specified , both release informations and hints will be shown . "rel" shows only release informations and
"hints" shows only hints . By the & lt ; key & gt ; - specification only the hint with the specified number is shown .
</ul>
2019-01-16 23:49:55 +00:00
<br> <br>
< a name = "SSCamEmail" > </a>
<b> Setup Email shipping </b> <br> <br>
<ul>
2019-01-27 15:36:11 +00:00
Snapshots and recordings can be sent by <b> Email </b> after creation . For this purpose the module contains its
own Email client . Before you can use this function you have to install the Perl - module <b> MIME:: Lite </b> . On debian
systems it can be installed with command: <br> <br>
2019-01-16 23:49:55 +00:00
<ul>
sudo apt - get install libmime - lite - perl
</ul>
<br>
There are some attributes must be set or can be used optionally . <br>
At first the Credentials for access the Email outgoing server must be set by command <b> "set <name> smtpcredentials <user> <password>" </b> .
The connection establishment to the server is initially done unencrypted and switches to an encrypted connection if SSL
encryption is available . In that case the transmission of User / Password takes place encrypted too .
If attribute "smtpSSLPort" is defined , the established connection to the Email server will be encrypted immediately .
Attributes which are optional are marked: <br> <br>
<ul>
<table>
<colgroup> < col width = 12 % > < col width = 88 % > < / colgroup >
2019-12-09 20:51:32 +00:00
<tr> <td> <b> snapEmailTxt </b> </td> <td> - <b> Activates the Email shipping of snapshots . </b> This attribute has the format : <br>
<ul>
2020-06-28 18:49:16 +00:00
<code> subject = > & lt ; subject text & gt ; , body = > & lt ; message text & gt ; </code>
</ul>
2019-02-02 12:41:28 +00:00
The placeholder $ CAM , $ DATE and $ TIME can be used . <br>
2020-06-28 18:49:16 +00:00
Optionally you can specify the "snapEmailTxt:" - tag when trigger a snapshot with the "snap" - command .
2019-02-01 15:00:29 +00:00
In this case the Email shipping is activated one - time for the snapshot or the tag - text
is used instead of the text defined in the "snapEmailTxt" - attribute . </td> </tr>
2019-12-09 20:51:32 +00:00
<tr> <td> </td> <td> </td> </tr>
2020-06-28 18:49:16 +00:00
<tr> <td> </td> <td> </td> </tr>
<tr> <td> <b> recEmailTxt </b> </td> <td> - <b> Activates the Email shipping of recordings . </b> This attribute has the format : <br>
2019-12-09 20:51:32 +00:00
<ul>
2020-06-28 18:49:16 +00:00
<code> subject = > & lt ; subject text & gt ; , body = > & lt ; message text & gt ; </code>
</ul>
2019-02-02 12:41:28 +00:00
The placeholder $ CAM , $ DATE and $ TIME can be used . <br>
2019-02-01 15:00:29 +00:00
Optionally you can specify the "recEmailTxt:" - tag when start recording with the "on" - command .
In this case the Email shipping is activated one - time for the started recording or the tag - text
is used instead of the text defined in the "recEmailTxt" - attribute . </td> </tr>
2019-12-09 20:51:32 +00:00
<tr> <td> </td> <td> </td> </tr>
2020-06-28 18:49:16 +00:00
<tr> <td> </td> <td> </td> </tr>
<tr> <td> <b> smtpHost </b> </td> <td> - Hostname of outgoing Email server ( e . g . securesmtp . t - online . de ) </td> </tr>
2019-01-16 23:49:55 +00:00
<tr> <td> <b> smtpFrom </b> </td> <td> - Return address ( & lt ; name & gt @ & lt ; domain & gt ) </td> </tr>
<tr> <td> <b> smtpTo </b> </td> <td> - Receiving address ( es ) ( & lt ; name & gt @ & lt ; domain & gt ) </td> </tr>
<tr> <td> <b> smtpPort </b> </td> <td> - ( optional ) Port of outgoing Email server ( default: 25 ) </td> </tr>
2020-06-28 18:49:16 +00:00
<tr> <td> <b> smtpCc </b> </td> <td> - ( optional ) carbon - copy receiving address ( es ) ( & lt ; name & gt @ & lt ; domain & gt ) </td> </tr>
<tr> <td> <b> smtpNoUseSSL </b> </td> <td> - ( optional ) "1" if no SSL encryption should be used for Email shipping ( default: 0 ) </td> </tr>
2019-01-16 23:49:55 +00:00
<tr> <td> <b> smtpSSLPort </b> </td> <td> - ( optional ) Port for SSL encrypted connection ( default: 465 ) </td> </tr>
2020-06-28 18:49:16 +00:00
<tr> <td> <b> smtpDebug </b> </td> <td> - ( optional ) switch on the debugging of SMTP connection </td> </tr>
2019-01-16 23:49:55 +00:00
</table>
</ul>
<br>
2019-02-02 12:41:28 +00:00
For further information please see description of the < a href = "#SSCamattr" > attributes </a> . <br> <br>
2018-11-20 23:30:55 +00:00
2019-02-02 12:41:28 +00:00
Description of the placeholders: <br> <br>
2020-06-28 18:49:16 +00:00
2019-02-02 12:41:28 +00:00
<ul>
<table>
<colgroup> < col width = 10 % > < col width = 90 % > < / colgroup >
<tr> <td> $ CAM </td> <td> - Device alias respectively the name of the camera in SVS if the device alias isn ' t set </td> </tr>
2020-06-28 18:49:16 +00:00
<tr> <td> $ DATE </td> <td> - current date </td> </tr>
<tr> <td> $ TIME </td> <td> - current time </td> </tr>
2019-02-02 12:41:28 +00:00
<tr> <td> $ FILE </td> <td> - name of the snapshot file </td> </tr>
<tr> <td> $ CTIME </td> <td> - creation time of the snapshot </td> </tr>
</table>
</ul>
2019-02-03 06:36:15 +00:00
<br>
</ul>
2019-02-02 12:41:28 +00:00
<br> <br>
2018-11-20 23:30:55 +00:00
< a name = "SSCamPolling" > </a>
<b> Polling of Camera /SVS-Properties</ b > <br> <br>
<ul>
Retrieval of Camera - Properties can be done automatically if the attribute "pollcaminfoall" will be set to a value & gt ; 10 . <br>
As default that attribute "pollcaminfoall" isn 't be set and the automatic polling isn' t be active . <br>
The value of that attribute determines the interval of property - retrieval in seconds . If that attribute isn 't be set or < 10 the automatic polling won' t be started <br>
respectively stopped when the value was set to & gt ; 10 before . <br> <br>
The attribute "pollcaminfoall" is monitored by a watchdog - timer . Changes of the attribute - value will be checked every 90 seconds and transact corresponding . <br>
Changes of the pollingstate and pollinginterval will be reported in FHEM - Logfile . The reporting can be switched off by setting the attribute "pollnologging=1" . <br>
Thereby the needless growing of the logfile can be avoided . But if verbose level is set to 4 or above even though the attribute "pollnologging" is set as well , the polling <br>
will be actived due to analysis purposes . <br> <br>
If FHEM will be restarted , the first data retrieval will be done within 60 seconds after start . <br> <br>
The state of automatic polling will be displayed by reading "PollState" : <br> <br>
<ul>
<li> <b> PollState = Active </b> - automatic polling will be executed with interval correspondig value of attribute "pollcaminfoall" </li>
<li> <b> PollState = Inactive </b> - automatic polling won ' t be executed </li>
</ul>
<br>
The readings are described < a href = "#SSCamreadings" > here </a> . <br> <br>
<b> Notes: </b> <br> <br>
If polling is used , the interval should be adjusted only as short as needed due to the detected camera values are predominantly static . <br>
A feasible guide value for attribute "pollcaminfoall" could be between 600 - 1800 ( s ) . <br>
Per polling call and camera approximately 10 - 20 Http - calls will are stepped against Surveillance Station . <br>
Because of that if HTTP - Timeout ( pls . refer < a href = "#SSCamattr" > Attribut </a> "httptimeout" ) is set to 4 seconds , the theoretical processing time couldn ' t be higher than 80 seconds . <br>
Considering a safety margin , in that example you shouldn ' t set the polling interval lower than 160 seconds . <br> <br>
If several Cameras are defined in SSCam , attribute "pollcaminfoall" of every Cameras shouldn ' t be set exactly to the same value to avoid processing bottlenecks <br>
and thereby caused potential source of errors during request Synology Surveillance Station . <br>
A marginal difference between the polling intervals of the defined cameras , e . g . 1 second , can already be faced as
sufficient value . <br> <br>
</ul>
</ul>
< a name = "SSCaminternals" > </a>
<b> Internals </b> <br> <br>
<ul>
The meaning of used Internals is depicted in following list: <br> <br>
<ul>
<li> <b> CAMID </b> - the ID of camera defined in SVS , the value will be retrieved automatically on the basis of SVS - cameraname </li>
<li> <b> CAMNAME </b> - the name of the camera in SVS </li>
<li> <b> COMPATIBILITY </b> - information up to which SVS - version the module version is currently released /tested (see also Reading "compstate") </ li >
<li> <b> CREDENTIALS </b> - the value is "Set" if Credentials are set </li>
<li> <b> NAME </b> - the cameraname in FHEM </li>
<li> <b> MODEL </b> - distinction between camera device ( CAM ) and Surveillance Station device ( SVS ) </li>
<li> <b> OPMODE </b> - the last executed operation of the module </li>
<li> <b> SERVERADDR </b> - IP - Address of SVS Host </li>
<li> <b> SERVERPORT </b> - SVS - Port </li>
<br> <br>
</ul>
</ul>
< a name = "SSCamattr" > </a>
<b> Attributes </b>
<br> <br>
<ul>
<ul>
2019-11-06 20:01:26 +00:00
< a name = "cacheServerParam" > </a>
<li> <b> cacheServerParam </b> <br>
Specification of connection parameters to a central data cache . <br> <br>
<table>
<colgroup> < col width = 10 % > < col width = 90 % > < / colgroup >
<tr> <td> <b> redis </b> </td> <td> : if network connection is used: & lt ; IP - address & gt ; : & lt ; port & gt ; / if Unix-Socket is used: <unix>:</ path /to/soc ket & gt ; </td> </tr>
</table>
<br>
</li> <br>
< a name = "cacheType" > </a>
<li> <b> cacheType </b> <br>
Defines the used Cache for storage of snapshots , recordings und other mass data .
( Default: internal ) . <br>
Maybe further perl modules have to be installed , e . g . with help of the < a href = "http://fhem.de/commandref.html#Installer" > FHEM Installer </a> . <br>
The data are saved in "Namespaces" to permit the usage of central Caches ( e . g . redis ) . <br>
The cahe types "file" and "redis" are convenient if the data shouldn ' t be hold in the RAM of the FHEM - Server .
For the usage of Redis at first a the Redis Key - Value Store has to be provide , e . g . in a Docker image on the
Synology Diskstation ( < a href = "https://hub.docker.com/_/redis" > redis </a> ) . <br> <br>
<table>
<colgroup> < col width = 10 % > < col width = 90 % > < / colgroup >
<tr> <td> <b> internal </b> </td> <td> : use the module internal storage ( Default ) </td> </tr>
<tr> <td> <b> mem </b> </td> <td> : very fast Cache , copy data into the RAM </td> </tr>
<tr> <td> <b> rawmem </b> </td> <td> : fastest Cache for complex data , stores references into the RAM </td> </tr>
<tr> <td> <b> file </b> </td> <td> : create and use a file structure in subdirectory "FhemUtils" </td> </tr>
<tr> <td> <b> redis </b> </td> <td> : use a external Redis Key - Value Store over TCP /IP or Unix-Socket. Please see also attribute "cacheServerParam". </ td > </tr>
</table>
<br>
</li> <br>
2018-11-20 23:30:55 +00:00
< a name = "debugactivetoken" > </a>
<li> <b> debugactivetoken </b> <br>
2019-11-06 20:01:26 +00:00
If set , the state of active token will be logged - only for debugging , don ' t use it in normal operation !
</li> <br>
< a name = "debugCachetime" > </a>
<li> <b> debugCachetime </b> <br>
Shows the consumed time of cache operations .
</li> <br>
2018-11-20 23:30:55 +00:00
< a name = "disable" > </a>
<li> <b> disable </b> <br>
2019-11-06 20:01:26 +00:00
deactivates the device definition
</li> <br>
2018-11-20 23:30:55 +00:00
< a name = "genericStrmHtmlTag" > </a>
<li> <b> genericStrmHtmlTag </b> <br>
This attribute contains HTML - Tags for video - specification in a Streaming - Device of type "generic" .
( see also "set <name> createStreamDev generic" ) <br> <br>
<ul>
2020-06-28 18:49:16 +00:00
<b> Examples: </b>
2018-11-20 23:30:55 +00:00
<pre>
attr & lt ; name & gt ; genericStrmHtmlTag & lt ; video $ HTMLATTR controls autoplay & gt ;
& lt ; source src = 'http://192.168.2.10:32000/$NAME.m3u8' type = 'application/x-mpegURL' & gt ;
& lt ; / video & gt ;
2019-03-04 19:09:35 +00:00
attr & lt ; name & gt ; genericStrmHtmlTag & lt ; img $ HTMLATTR
src = "http://192.168.2.10:32774"
onClick = "FW_okDialog('<img src=http://192.168.2.10:32774 $PWS>')"
& gt
2018-11-20 23:30:55 +00:00
</pre>
2019-03-04 19:09:35 +00:00
The variables $ HTMLATTR , $ NAME and $ PWS are placeholders and absorb the attribute "htmlattr" ( if set ) , the SSCam - Devicename
respectively the value of attribute "popupWindowSize" in streaming - device , which specify the windowsize of a popup window .
2018-11-20 23:30:55 +00:00
</ul>
<br> <br>
</li>
2018-12-30 20:20:27 +00:00
< a name = "hlsNetScript" > </a>
<li> <b> hlsNetScript </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( settable in device model "SVS" ) <br>
If set , the latest hls . js library version from the project site is used ( internet connection is needed ) .
<br>
In default the local installed library version ( . /www/ pgm2 / sscam_hls . js ) is uses for playback in all streaming devices
of type "hls" ( please see also "set <name> createStreamDev hls" ) .
This attribute has to be set in a device model "SVS" and applies to all streaming devices !
</li> <br>
< a name = "hlsStrmObject" > </a>
<li> <b> hlsStrmObject </b> <br>
If a streaming device was defined by "set <name> createStreamDev hls" , this attribute has to be set and must contain the
link to the video object to play back . <br>
The attribute must specify a HTTP Live Streaming object with the extension ".m3u8" . <br>
The variable $ NAME can be used as a placeholder and will be replaced by the camera device name .
<br> <br>
<ul>
2020-06-28 18:49:16 +00:00
<b> Examples: </b> <br>
2019-09-21 13:03:06 +00:00
attr & lt ; name & gt ; hlsStrmObject https: // bitdash - a . akamaihd . net /content/ MI201109210084_1 /m3u8s/ f08e80da - bf1d - 4e3 d - 8899 - f0f6155f6efa . m3u8 <br>
attr & lt ; name & gt ; hlsStrmObject https: // bitdash - a . akamaihd . net /content/si ntel /hls/ playlist . m3u8 <br>
# Sample video streams used for testing the streaming device function (internet connection is needed) <br><br>
2018-12-30 20:20:27 +00:00
attr & lt ; name & gt ; hlsStrmObject http: // 192.168 .2 .10 : 32000 / CamHE1 . m3u8 <br>
# playback a HLS video stream of a camera witch is delivered by e.g. a ffmpeg conversion process <br><br>
2019-09-21 13:03:06 +00:00
2018-12-30 20:20:27 +00:00
attr & lt ; name & gt ; hlsStrmObject http: // 192.168 .2 .10 : 32000 / $ NAME . m3u8 <br>
# Same as example above, but use the replacement with variable $NAME for "CamHE1"
</ul>
2020-06-28 18:49:16 +00:00
<br>
2018-12-30 20:20:27 +00:00
</li>
2018-11-20 23:30:55 +00:00
< a name = "httptimeout" > </a>
<li> <b> httptimeout </b> <br>
Timeout - Value of HTTP - Calls to Synology Surveillance Station , Default: 4 seconds ( if httptimeout = "0"
2020-06-28 18:49:16 +00:00
or not set ) </li> <br>
2018-11-20 23:30:55 +00:00
< a name = "htmlattr" > </a>
<li> <b> htmlattr </b> <br>
2020-06-28 18:49:16 +00:00
additional specifications to inline oictures to manipulate the behavior of stream , e . g . size of the image . </li> <br>
<ul>
<b> Example: </b> <br>
2018-11-20 23:30:55 +00:00
attr & lt ; name & gt ; htmlattr width = "500" height = "325" top = "200" left = "300"
</ul>
2020-06-28 18:49:16 +00:00
<br>
2018-11-20 23:30:55 +00:00
< a name = "livestreamprefix" > </a>
<li> <b> livestreamprefix </b> <br>
Overwrites the specifications of protocol , servername and port for further use in livestream address and
StmKey . * - readings , e . g . as a link for external use . <br>
It can be specified of two ways as follows: <br> <br>
<table>
<colgroup> < col width = 25 % > < col width = 75 % > < / colgroup >
<tr> <td> <b> DEF </b> </td> <td> : the protocol , servername and port as specified in device
definition is used </td> </tr>
<tr> <td> <b> http ( s ) : // & lt ; servername & gt ; : & lt ; port & gt ; </b> </td> <td> : your own address specification is used </td> </tr>
</table>
<br>
Servername can be the name or the IP - address of your Synology Surveillance Station .
</li> <br>
< a name = "loginRetries" > </a>
<li> <b> loginRetries </b> <br>
set the amount of login - repetitions in case of failure ( default = 3 ) </li> <br>
< a name = "noQuotesForSID" > </a>
<li> <b> noQuotesForSID </b> <br>
2019-05-21 06:30:06 +00:00
This attribute delete the quotes for SID and for StmKeys .
The attribute may be helpful in some cases to avoid errormessages "402 - permission denied" or " 105 -
Insufficient user privilege " and makes login possible . </li> <br>
2018-11-20 23:30:55 +00:00
< a name = "pollcaminfoall" > </a>
<li> <b> pollcaminfoall </b> <br>
Interval of automatic polling the Camera properties ( if <= 10 : no polling , if & gt ; 10 : polling with interval ) </li> <br>
< a name = "pollnologging" > </a>
<li> <b> pollnologging </b> <br>
"0" resp . not set = Logging device polling active ( default ) , "1" = Logging device polling inactive </li> <br>
< a name = "ptzPanel_Home" > </a>
<li> <b> ptzPanel_Home </b> <br>
In the PTZ - control panel the Home - Icon ( in attribute "ptzPanel_row02" ) is automatically assigned to the value of
Reading "PresetHome" .
With "ptzPanel_Home" you can change the assignment to another preset from the available Preset list . </li> <br>
< a name = "ptzPanel_iconPath" > </a>
<li> <b> ptzPanel_iconPath </b> <br>
Path for icons used in PTZ - control panel , default is "www/images/sscam" .
2018-11-22 20:38:15 +00:00
The attribute value will be used for all icon - files except * . svg . <br>
For further information execute "get <name> versionNotes 2,6" .
</li> <br>
2018-11-20 23:30:55 +00:00
< a name = "ptzPanel_iconPrefix" > </a>
<li> <b> ptzPanel_iconPrefix </b> <br>
Prefix for icons used in PTZ - control panel , default is "black_btn_" .
The attribute value will be used for all icon - files except * . svg . <br>
If the used icon - files begin with e . g . "black_btn_" ( "black_btn_CAMDOWN.png" ) , the icon needs to be defined in
attributes "ptzPanel_row[00-09]" just with the subsequent part of name , e . g . "CAMDOWN.png" .
</li> <br>
< a name = "ptzPanel_row00" > </a>
<li> <b> ptzPanel_row [ 00 - 09 ] & lt ; command & gt ; : & lt ; icon & gt ; , & lt ; command & gt ; : & lt ; icon & gt ; , ... </b> <br>
For PTZ - cameras the attributes "ptzPanel_row00" to "ptzPanel_row04" are created automatically for usage by
the PTZ - control panel . <br>
The attributes contain a comma spareated list of command:icon - combinations ( buttons ) each panel line .
One panel line can contain a random number of buttons . The attributes "ptzPanel_row00" to "ptzPanel_row04" can ' t be
deleted because of they are created automatically again in that case .
The user can change or complement the attribute values . These changes are conserved . <br>
If needed the assignment for Home - button in "ptzPanel_row02" can be changed by attribute "ptzPanel_Home" . <br>
The icons are searched in path "ptzPanel_iconPath" . The value of "ptzPanel_iconPrefix" is prepend to the icon filename .
Own extensions of the PTZ - control panel can be done using the attributes "ptzPanel_row05" to "ptzPanel_row09" .
For creation of own icons a template is provided in the SVN . Further information can be get by "get <name> versionNotes 2" .
<br> <br>
<b> Note: </b> <br>
For an empty field please use ":CAMBLANK.png" respectively ":CAMBLANK.png,:CAMBLANK.png,:CAMBLANK.png,..." for an empty
line .
<br> <br>
<ul>
2020-06-28 18:49:16 +00:00
<b> Example: </b> <br>
2018-11-20 23:30:55 +00:00
attr & lt ; name & gt ; ptzPanel_row00 move upleft:CAMUPLEFTFAST . png , : CAMBLANK . png , move up:CAMUPFAST . png , : CAMBLANK . png , move upright:CAMUPRIGHTFAST . png <br>
# The command "move upleft" is transmitted to the camera by pressing the button(icon) "CAMUPLEFTFAST.png". <br>
</ul>
2020-06-28 18:49:16 +00:00
<br>
2018-11-20 23:30:55 +00:00
</li> <br>
< a name = "ptzPanel_use" > </a>
<li> <b> ptzPanel_use </b> <br>
Switch the usage of a PTZ - control panel in detail view respectively a created StreamDevice off or on
2018-12-06 22:22:15 +00:00
( default: on ) . <br>
The PTZ panel use its own icons .
Thereby the system find the icons , in FHEMWEB device the attribute "iconPath" has to be completed by "sscam"
( e . g . "attr WEB iconPath default:fhemSVG:openautomation:sscam" ) .
</li> <br>
2018-11-20 23:30:55 +00:00
2019-12-11 21:16:03 +00:00
< a name = "recChatTxt" > </a>
<li> <b> recChatTxt chatbot = > & lt ; SSChatBot device & gt ; , peers = > [ & lt ; peer1 peer2 ... & gt ; ] , subject = > [ & lt ; subject text & gt ; ] </b> <br>
Activates the permanent shipping of recordings by Synology Chat after its creation . <br>
Before activating the attribute < a href = "#videofolderMap" > videofolderMap </a> has to be set . It must contain an URL to the
root directory of your SVS recordings and snapshots ( e . g . http: //s erver . me:8081 / surveillance ) . <br>
The attribute recChatTxt has to be defined in the form as described . With key "chatbot" the SSChatBot device is specified ,
2020-06-28 18:49:16 +00:00
which is used for sending the data . Of course , the < a href = "https://wiki.fhem.de/wiki/SSChatBot_-_Integration_des_Synology_Chat_Servers" > SSChatBot device </a>
2019-12-11 21:16:03 +00:00
must be available and work well . <br>
2020-06-28 18:49:16 +00:00
The setting of "peers" is optional , but the keys must be ( empty ) specified .
If "peer" is empty , the defaultPeer of the SSChatBot device is used . <br> <br>
You can use the following placeholders within "subject" . <br> <br>
<ul>
<table>
<colgroup> < col width = 10 % > < col width = 90 % > < / colgroup >
<tr> <td> $ CAM </td> <td> - Device alias respectively the name of the camera in SVS if the device alias isn ' t set </td> </tr>
<tr> <td> $ DATE </td> <td> - current date </td> </tr>
<tr> <td> $ TIME </td> <td> - current time </td> </tr>
<tr> <td> $ FILE </td> <td> - Name of recording file </td> </tr>
<tr> <td> $ CTIME </td> <td> - recording creation time </td> </tr>
</table>
</ul>
<br>
<b> Examples: </b> <br>
2019-12-11 21:16:03 +00:00
attr & lt ; device & gt ; recChatTxt chatbot = & gt ; teleBot , peers = & gt ; , subject = & gt ; Motion alarm ( $ FILE ) <br>
2020-06-28 18:49:16 +00:00
attr & lt ; device & gt ; recChatTxt chatbot = & gt ; teleBot , peers = & gt ; Frodo Sam Gollum , subject = & gt ; Motion alarm <br>
attr & lt ; device & gt ; recChatTxt chatbot = & gt ; teleBot , peers = & gt ; , subject = & gt ; Motion alarm <br>
attr & lt ; device & gt ; recChatTxt chatbot = & gt ; teleBot , peers = & gt ; , subject = & gt ; Motion alarm from $ CAM . At $ CTIME the recording $ FILE was created . Now it is $ TIME . <br>
2019-12-11 21:16:03 +00:00
<br>
2020-06-28 18:49:16 +00:00
</li> <br>
2019-12-11 21:16:03 +00:00
2019-01-27 15:36:11 +00:00
< a name = "recEmailTxt" > </a>
<li> <b> recEmailTxt subject = > & lt ; subject text & gt ; , body = > & lt ; message text & gt ; </b> <br>
Activates the Email shipping of recordings after whose creation . <br>
2019-02-02 12:41:28 +00:00
The attribute has to be definied in the form as described . <br>
2019-05-20 17:33:33 +00:00
You can use the following placeholders in "subject" and "body" . <br> <br>
2020-06-28 18:49:16 +00:00
<ul>
<table>
<colgroup> < col width = 10 % > < col width = 90 % > < / colgroup >
<tr> <td> $ CAM </td> <td> - Device alias respectively the name of the camera in SVS if the device alias isn ' t set </td> </tr>
<tr> <td> $ DATE </td> <td> - current date </td> </tr>
<tr> <td> $ TIME </td> <td> - aktuelle time </td> </tr>
</table>
</ul>
<br>
2019-01-27 15:36:11 +00:00
<ul>
2020-06-28 18:49:16 +00:00
<b> Example: </b> <br>
2019-01-27 15:36:11 +00:00
recEmailTxt subject = > New recording $ CAM , body = > A new recording of $ CAM is created and atteched .
</ul>
<br>
</li>
2019-03-04 19:09:35 +00:00
< a name = "recTelegramTxt" > </a>
2019-09-09 22:24:51 +00:00
<li> <b> recTelegramTxt tbot = > & lt ; TelegramBot device & gt ; , peers = > [ & lt ; peer1 peer2 ... & gt ; ] , subject = > [ & lt ; subject text & gt ; ] </b> <br>
2019-03-04 19:09:35 +00:00
Activates the permanent shipping of recordings by TelegramBot after their creation . <br>
2019-05-20 17:33:33 +00:00
The attribute has to be definied in the form as described . With key "tbot" the TelegramBot device is specified ,
2020-06-28 18:49:16 +00:00
which is used for shipping the data . Of course , the < a href = "http://fhem.de/commandref.html#TelegramBot" > TelegramBot device </a>
2019-03-04 19:09:35 +00:00
must be available and has to be running well . <br>
2020-06-28 18:49:16 +00:00
The setting of "peers" and "subject" is optional , but the keys must ( empty ) specified .
If "peer" is empty , the default peer of the TelegramBot device is used . <br> <br>
You can use the following placeholders within "subject" . <br> <br>
<ul>
<table>
<colgroup> < col width = 10 % > < col width = 90 % > < / colgroup >
<tr> <td> $ CAM </td> <td> - Device alias respectively the name of the camera in SVS if the device alias isn ' t set </td> </tr>
<tr> <td> $ DATE </td> <td> - current date </td> </tr>
<tr> <td> $ TIME </td> <td> - current time </td> </tr>
<tr> <td> $ FILE </td> <td> - Name of recording file </td> </tr>
<tr> <td> $ CTIME </td> <td> - recording creation time </td> </tr>
</table>
</ul>
<br>
<b> Examples: </b> <br>
2019-09-09 22:24:51 +00:00
attr & lt ; device & gt ; recTelegramTxt tbot = & gt ; teleBot , peers = & gt ; , subject = & gt ; Motion alarm ( $ FILE ) <br>
2020-06-28 18:49:16 +00:00
attr & lt ; device & gt ; recTelegramTxt tbot = & gt ; teleBot , peers = & gt ; @ nabuko @ foo @ bar , subject = & gt ; <br>
2019-09-09 22:24:51 +00:00
attr & lt ; device & gt ; recTelegramTxt tbot = & gt ; teleBot , peers = & gt ; #nabugroup, subject => <br>
attr & lt ; device & gt ; recTelegramTxt tbot = & gt ; teleBot , peers = & gt ; - 123456 , subject = & gt ; <br>
2020-06-28 18:49:16 +00:00
attr & lt ; device & gt ; recTelegramTxt tbot = & gt ; teleBot , peers = & gt ; , subject = & gt ; <br>
attr & lt ; device & gt ; recTelegramTxt tbot = & gt ; teleBot , peers = & gt ; , subject = & gt ; Motion alarm from $ CAM . At $ CTIME the recording $ FILE was created . Now it is $ TIME . <br>
2019-09-09 22:24:51 +00:00
<br>
2020-06-28 18:49:16 +00:00
</li> <br>
2019-03-04 19:09:35 +00:00
2018-11-20 23:30:55 +00:00
< a name = "rectime" > </a>
<li> <b> rectime </b> <br>
determines the recordtime when a recording starts . If rectime = 0 an endless recording will be started . If
it isn ' t defined , the default recordtime of 15 s is activated </li> <br>
< a name = "recextend" > </a>
<li> <b> recextend </b> <br>
"rectime" of a started recording will be set new . Thereby the recording time of the running recording will be
2020-06-28 18:49:16 +00:00
extended </li> <br>
2018-11-20 23:30:55 +00:00
< a name = "session" > </a>
<li> <b> session </b> <br>
selection of login - Session . Not set or set to "DSM" - & gt ; session will be established to DSM ( Sdefault ) .
2020-06-28 18:49:16 +00:00
"SurveillanceStation" - & gt ; session will be established to SVS . <br>
2018-11-20 23:30:55 +00:00
For establish a sesion with Surveillance Station you have to create a user with suitable privilege profile in SVS .
If you need more infomations please execute "get <name> versionNotes 5" . </li> <br>
< a name = "simu_SVSversion" > </a>
<li> <b> simu_SVSversion </b> <br>
simulates another SVS version . ( only a lower version than the installed one is possible ! ) </li> <br>
2019-01-02 19:35:10 +00:00
< a name = "smtpHost" > </a>
<li> <b> smtpHost & lt ; Hostname & gt ; </b> <br>
The name or IP - address of outgoing email server ( e . g . securesmtp . t - online . de ) .
</li>
<br>
< a name = "smtpCc" > </a>
<li> <b> smtpCc & lt ; name & gt ; @ & lt ; domain & gt ; [ , & lt ; name & gt ; @ & lt ; domain & gt ; ] [ , & lt ; name & gt ; @ & lt ; domain & gt ; ] ... </b> <br>
Optional you can enter a carbon - copy receiving address . Several receiving addresses are separated by "," .
</li>
<br>
< a name = "smtpDebug" > </a>
<li> <b> smtpDebug </b> <br>
Switch the debugging mode for SMTP connection on ( if Email shipping is used ) .
</li>
<br>
< a name = "smtpFrom" > </a>
<li> <b> smtpFrom & lt ; name & gt ; @ & lt ; domain & gt ; </b> <br>
Return address if Email shipping is used .
</li>
<br>
< a name = "smtpPort" > </a>
<li> <b> smtpPort & lt ; Port & gt ; </b> <br>
Optional setting of default SMTP port of outgoing email server ( default: 25 ) .
</li>
<br>
2019-01-02 20:27:10 +00:00
< a name = "smtpSSLPort" > </a>
<li> <b> smtpSSLPort & lt ; Port & gt ; </b> <br>
Optional setting of SSL port of outgoing email server ( default: 465 ) . If set , the established connection to the Email
server will be encrypted immediately .
</li>
<br>
2019-01-02 19:35:10 +00:00
< a name = "smtpTo" > </a>
<li> <b> smtpTo & lt ; name & gt ; @ & lt ; domain & gt ; [ , & lt ; name & gt ; @ & lt ; domain & gt ; ] [ , & lt ; name & gt ; @ & lt ; domain & gt ; ] ... </b> <br>
Receiving address for emal shipping . Several receiving addresses are separated by "," .
</li>
<br>
< a name = "smtpNoUseSSL" > </a>
<li> <b> smtpNoUseSSL </b> <br>
If no Email SSL encryption should be used , set this attribute to "1" ( default: 0 ) .
</li>
<br>
2019-12-09 20:51:32 +00:00
< a name = "snapChatTxt" > </a>
<li> <b> snapChatTxt chatbot = > & lt ; SSChatBot - Device & gt ; , peers = > [ & lt ; peer1 peer2 ... & gt ; ] , subject = > [ & lt ; subject text & gt ; ] </b> <br>
Activates the permanent shipping of snapshots by Synology Chat after their creation . If several snapshots were triggert ,
2020-06-28 18:49:16 +00:00
they will be sequentially delivered . <br>
2019-12-09 20:51:32 +00:00
Before activating the attribute < a href = "#videofolderMap" > videofolderMap </a> has to be set . It must contain an URL to the
root directory of your SVS recordings and snapshots ( e . g . http: //s erver . me:8081 / surveillance ) . <br>
The attribute snapChatTxt has to be defined in the form as described . With key "chatbot" the SSChatBot device is specified ,
2020-06-28 18:49:16 +00:00
which is used for sending the data . Of course , the < a href = "https://wiki.fhem.de/wiki/SSChatBot_-_Integration_des_Synology_Chat_Servers" > SSChatBot device </a>
2019-12-09 20:51:32 +00:00
must be available and work well . <br>
The key "peers" contains valid names of Synology Chat Users who should receive the message . <br>
2020-06-28 18:49:16 +00:00
The setting of "peers" is optional , but the keys must ( empty ) specified .
If "peer" is empty , the defaultPeer of the SSChatBot device is used . <br> <br>
You can use the following placeholders within "subject" . <br> <br>
<ul>
<table>
<colgroup> < col width = 10 % > < col width = 90 % > < / colgroup >
<tr> <td> $ CAM </td> <td> - Device alias respectively the name of the camera in SVS if the device alias isn ' t set </td> </tr>
<tr> <td> $ DATE </td> <td> - current date </td> </tr>
<tr> <td> $ TIME </td> <td> - current time </td> </tr>
<tr> <td> $ FILE </td> <td> - Name of snapshot file </td> </tr>
<tr> <td> $ CTIME </td> <td> - creation time of the snapshot </td> </tr>
</table>
</ul>
<br>
<b> Examples: </b> <br>
2019-12-09 20:51:32 +00:00
attr & lt ; device & gt ; snapChatTxt chatbot = & gt ; SynChatBot , peers = & gt ; , subject = & gt ; Motion alarm ( $ FILE ) <br>
2020-06-28 18:49:16 +00:00
attr & lt ; device & gt ; snapChatTxt chatbot = & gt ; SynChatBot , peers = & gt ; Aragorn Frodo Sam , subject = & gt ; A snapshot has been done <br>
attr & lt ; device & gt ; snapChatTxt chatbot = & gt ; SynChatBot , peers = & gt ; , subject = & gt ; Caution ! <br>
attr & lt ; device & gt ; snapChatTxt chatbot = & gt ; SynChatBot , peers = & gt ; Frodo , subject = & gt ; Motion alarm from $ CAM . At $ CTIME the snapshot $ FILE was created <br>
2019-12-09 20:51:32 +00:00
<br>
2020-06-28 18:49:16 +00:00
</li> <br>
2019-12-09 20:51:32 +00:00
2019-01-02 19:35:10 +00:00
< a name = "snapEmailTxt" > </a>
<li> <b> snapEmailTxt subject = > & lt ; subject text & gt ; , body = > & lt ; message text & gt ; </b> <br>
2019-01-27 15:36:11 +00:00
Activates the Email shipping of snapshots after whose creation . <br>
2019-12-09 20:51:32 +00:00
The attribute has to be defined in the form as described . <br>
2019-05-20 17:33:33 +00:00
You can use the following placeholders in "subject" and "body" . <br> <br>
2020-06-28 18:49:16 +00:00
<ul>
<table>
<colgroup> < col width = 10 % > < col width = 90 % > < / colgroup >
<tr> <td> $ CAM </td> <td> - Device alias respectively the name of the camera in SVS if the device alias isn ' t set </td> </tr>
<tr> <td> $ DATE </td> <td> - current date </td> </tr>
<tr> <td> $ TIME </td> <td> - current time </td> </tr>
</table>
</ul>
<br>
2019-01-02 19:35:10 +00:00
<ul>
2020-06-28 18:49:16 +00:00
<b> Example: </b> <br>
2019-01-10 19:00:15 +00:00
snapEmailTxt subject = > Motion alarm $ CAM , body = > A motion was recognized at $ CAM .
2019-01-02 19:35:10 +00:00
</ul>
2019-02-02 12:41:28 +00:00
<br> <br>
</li>
< a name = "snapTelegramTxt" > </a>
<li> <b> snapTelegramTxt tbot = > & lt ; TelegramBot device & gt ; , peers = > [ & lt ; peer1 peer2 ... & gt ; ] , subject = > [ & lt ; subject text & gt ; ] </b> <br>
Activates the permanent shipping of snapshots by TelegramBot after their creation . If several snapshots were triggert ,
2020-06-28 18:49:16 +00:00
they will be sequentially delivered . <br>
2019-12-09 20:51:32 +00:00
The attribute has to be defined in the form as described . With key "tbot" the TelegramBot device is specified ,
2020-06-28 18:49:16 +00:00
which is used for shipping the data . Of course , the < a href = "http://fhem.de/commandref.html#TelegramBot" > TelegramBot device </a>
2019-02-02 12:41:28 +00:00
must be available and has to be running well . <br>
2020-06-28 18:49:16 +00:00
The setting of "peers" and "subject" is optional , but the keys must ( empty ) specified .
If "peer" is empty , the default peer of the TelegramBot device is used . <br> <br>
You can use the following placeholders within "subject" . <br> <br>
<ul>
<table>
<colgroup> < col width = 10 % > < col width = 90 % > < / colgroup >
<tr> <td> $ CAM </td> <td> - Device alias respectively the name of the camera in SVS if the device alias isn ' t set </td> </tr>
<tr> <td> $ DATE </td> <td> - current date </td> </tr>
<tr> <td> $ TIME </td> <td> - current time </td> </tr>
<tr> <td> $ FILE </td> <td> - Name of snapshot file </td> </tr>
<tr> <td> $ CTIME </td> <td> - creation time of the snapshot </td> </tr>
</table>
</ul>
<br>
<b> Examples: </b> <br>
2019-09-09 22:24:51 +00:00
attr & lt ; device & gt ; snapTelegramTxt tbot = & gt ; teleBot , peers = & gt ; , subject = & gt ; Motion alarm ( $ FILE ) <br>
2020-06-28 18:49:16 +00:00
attr & lt ; device & gt ; snapTelegramTxt tbot = & gt ; teleBot , peers = & gt ; @ nabuko @ foo @ bar , subject = & gt ; <br>
2019-09-09 22:24:51 +00:00
attr & lt ; device & gt ; snapTelegramTxt tbot = & gt ; teleBot , peers = & gt ; #nabugroup, subject => <br>
attr & lt ; device & gt ; snapTelegramTxt tbot = & gt ; teleBot , peers = & gt ; - 123456 , subject = & gt ; <br>
2020-06-28 18:49:16 +00:00
attr & lt ; device & gt ; snapTelegramTxt tbot = & gt ; teleBot , peers = & gt ; , subject = & gt ; <br>
attr & lt ; device & gt ; snapTelegramTxt tbot = & gt ; teleBot , peers = & gt ; , subject = & gt ; Motion alarm from $ CAM . At $ CTIME the snapshot $ FILE was created <br>
2019-09-09 22:24:51 +00:00
<br>
2020-06-28 18:49:16 +00:00
</li> <br>
2019-01-02 19:35:10 +00:00
2018-11-20 23:30:55 +00:00
< a name = "snapGalleryBoost" > </a>
<li> <b> snapGalleryBoost </b> <br>
If set , the last snapshots ( default 3 ) will be retrieved by Polling , will be stored in the FHEM - servers main memory
and can be displayed by the "set/get ... snapGallery" command . <br>
2020-06-28 18:49:16 +00:00
This mode is helpful if many or full size images shall be displayed .
If the attribute is set , you can ' t specify arguments in addition to the "set/get ... snapGallery" command .
2018-11-20 23:30:55 +00:00
( see also attribut "snapGalleryNumber" ) </li> <br>
< a name = "snapGalleryColumns" > </a>
<li> <b> snapGalleryColumns </b> <br>
The number of snapshots which shall appear in one row of the gallery popup ( default 3 ) . </li> <br>
2020-06-28 18:49:16 +00:00
2018-11-20 23:30:55 +00:00
< a name = "snapGalleryHtmlAttr" > </a>
<li> <b> snapGalleryHtmlAttr </b> <br>
the image parameter can be controlled by this attribute . <br>
2020-06-28 18:49:16 +00:00
If the attribute isn ' t set , the value of attribute "htmlattr" will be used . <br>
If "htmlattr" is also not set , default parameters are used instead ( width = "500" height = "325" ) . <br> <br>
2018-11-20 23:30:55 +00:00
<ul>
2020-06-28 18:49:16 +00:00
<b> Example: </b> <br>
2018-11-20 23:30:55 +00:00
attr & lt ; name & gt ; snapGalleryHtmlAttr width = "325" height = "225"
</ul>
2020-06-28 18:49:16 +00:00
<br>
2018-11-20 23:30:55 +00:00
</li>
2020-06-28 18:49:16 +00:00
< a name = "snapGalleryNumber" > </a>
2018-11-20 23:30:55 +00:00
<li> <b> snapGalleryNumber </b> <br>
The number of snapshots to retrieve ( default 3 ) . </li> <br>
2020-06-28 18:49:16 +00:00
2018-11-20 23:30:55 +00:00
< a name = "snapGallerySize" > </a>
<li> <b> snapGallerySize </b> <br>
By this attribute the quality of the snapshot images can be controlled ( default "Icon" ) . <br>
2020-06-28 18:49:16 +00:00
If mode "Full" is set , the images are retrieved with their original available resolution . That requires more ressources
and may slow down the display . By setting attribute "snapGalleryBoost=1" the display may accelerated , because in that case
the images will be retrieved by continuous polling and need only bring to display . </li> <br>
2019-01-20 09:43:30 +00:00
< a name = "snapReadingRotate" > </a>
<li> <b> snapReadingRotate 0 ... 10 </b> <br>
Activates the version control of snapshot readings ( default: 0 ) . A consecutive number of readings "LastSnapFilename" ,
"LastSnapId" and "LastSnapTime" until to the specified value of snapReadingRotate will be created and contain the data
of the last X snapshots . </li> <br>
2018-11-20 23:30:55 +00:00
< a name = "showStmInfoFull" > </a>
<li> <b> showStmInfoFull </b> <br>
additional stream informations like LiveStreamUrl , StmKeyUnicst , StmKeymjpegHttp will be created </li> <br>
< a name = "showPassInLog" > </a>
<li> <b> showPassInLog </b> <br>
if set the used password will be shown in logfile with verbose 4 . ( default = 0 ) </li> <br>
< a name = "videofolderMap" > </a>
<li> <b> videofolderMap </b> <br>
2019-12-09 20:51:32 +00:00
Replaces the content of reading "VideoFolder" . Use it if e . g . folders are mountet with different names than original
2020-06-28 18:49:16 +00:00
in SVS or providing an URL for acces the snapshots / recordings by a web server. </ li > <br>
2018-11-20 23:30:55 +00:00
< a name = "verbose" > </a>
<li> <b> verbose </b> </li> <br>
<ul>
Different Verbose - Level are supported . <br>
Those are in detail:
<table>
<colgroup> < col width = 5 % > < col width = 95 % > < / colgroup >
<tr> <td> 0 </td> <td> - Start /Stop-Event will be logged </ td > </tr>
<tr> <td> 1 </td> <td> - Error messages will be logged </td> </tr>
<tr> <td> 2 </td> <td> - messages according to important events were logged </td> </tr>
<tr> <td> 3 </td> <td> - sended commands will be logged </td> </tr>
<tr> <td> 4 </td> <td> - sended and received informations will be logged </td> </tr>
<tr> <td> 5 </td> <td> - all outputs will be logged for error - analyses . <b> Caution: </b> a lot of data could be written into logfile ! </td> </tr>
</table>
</ul>
<br>
<li> < a href = "#readingFnAttributes" > readingFnAttributes </a> </li>
</ul>
</ul>
<br> <br>
< a name = "SSCamreadings" > </a>
<b> Readings </b>
<ul>
<br>
Using the polling mechanism or retrieval by "get" - call readings are provieded , The meaning of the readings are listed in subsequent table: <br>
The transfered Readings can be deversified dependend on the type of camera . <br> <br>
<ul>
<table>
<colgroup> < col width = 5 % > < col width = 95 % > < / colgroup >
<tr> <td> <li> CamAudioType </li> </td> <td> - Indicating audio type </td> </tr>
<tr> <td> <li> Availability </li> </td> <td> - Availability of Camera ( disabled , enabled , disconnected , other ) </td> </tr>
<tr> <td> <li> CamEventNum </li> </td> <td> - delivers the total number of in SVS registered events of the camera </td> </tr>
<tr> <td> <li> CamExposureControl </li> </td> <td> - indicating type of exposure control </td> </tr>
<tr> <td> <li> CamExposureMode </li> </td> <td> - current exposure mode ( Day , Night , Auto , Schedule , Unknown ) </td> </tr>
<tr> <td> <li> CamForceEnableMulticast </li> </td> <td> - Is the camera forced to enable multicast . </td> </tr>
<tr> <td> <li> CamIP </li> </td> <td> - IP - Address of Camera </td> </tr>
2018-12-31 14:26:04 +00:00
<tr> <td> <li> CamLastRec </li> </td> <td> - Path / name of last recording </ td > </tr>
<tr> <td> <li> CamLastRecId </li> </td> <td> - the ID of last recording </td> </tr>
2019-01-20 16:07:48 +00:00
<tr> <td> <li> CamLastRecTime </li> </td> <td> - date / starttime - endtime of the last recording (format depends of global attribute "language") </ td > </tr>
2018-11-20 23:30:55 +00:00
<tr> <td> <li> CamLiveFps </li> </td> <td> - Frames per second of Live - Stream </td> </tr>
<tr> <td> <li> CamLiveMode </li> </td> <td> - Source of Live - View ( DS , Camera ) </td> </tr>
<tr> <td> <li> camLiveQuality </li> </td> <td> - Live - Stream quality set in SVS </td> </tr>
<tr> <td> <li> camLiveResolution </li> </td> <td> - Live - Stream resolution set in SVS </td> </tr>
<tr> <td> <li> camLiveStreamNo </li> </td> <td> - used Stream - number for Live - Stream </td> </tr>
<tr> <td> <li> CamModel </li> </td> <td> - Model of camera </td> </tr>
<tr> <td> <li> CamMotDetSc </li> </td> <td> - state of motion detection source ( disabled , by camera , by SVS ) and their parameter </td> </tr>
<tr> <td> <li> CamNTPServer </li> </td> <td> - set time server </td> </tr>
<tr> <td> <li> CamPort </li> </td> <td> - IP - Port of Camera </td> </tr>
<tr> <td> <li> CamPreRecTime </li> </td> <td> - Duration of Pre - Recording ( in seconds ) adjusted in SVS </td> </tr>
<tr> <td> <li> CamPtSpeed </li> </td> <td> - adjusted value of Pan /Tilt-activities (setup in SVS) </ td > </tr>
<tr> <td> <li> CamRecShare </li> </td> <td> - shared folder on disk station for recordings </td> </tr>
<tr> <td> <li> CamRecVolume </li> </td> <td> - Volume on disk station for recordings </td> </tr>
<tr> <td> <li> CamStreamFormat </li> </td> <td> - the current format of video streaming </td> </tr>
<tr> <td> <li> CamVideoType </li> </td> <td> - Indicating video type </td> </tr>
<tr> <td> <li> CamVendor </li> </td> <td> - Identifier of camera producer </td> </tr>
<tr> <td> <li> CamVideoFlip </li> </td> <td> - Is the video flip </td> </tr>
<tr> <td> <li> CamVideoMirror </li> </td> <td> - Is the video mirror </td> </tr>
2020-06-28 18:49:16 +00:00
<tr> <td> <li> CamVideoRotate </li> </td> <td> - Is the video rotate </td> </tr>
2018-11-20 23:30:55 +00:00
<tr> <td> <li> CapAudioOut </li> </td> <td> - Capability to Audio Out over Surveillance Station ( false /true) </ td > </tr>
<tr> <td> <li> CapChangeSpeed </li> </td> <td> - Capability to various motion speed </td> </tr>
<tr> <td> <li> CapPIR </li> </td> <td> - has the camera a PIR sensor feature </td> </tr>
<tr> <td> <li> CapPTZAbs </li> </td> <td> - Capability to perform absolute PTZ action </td> </tr>
<tr> <td> <li> CapPTZAutoFocus </li> </td> <td> - Capability to perform auto focus action </td> </tr>
<tr> <td> <li> CapPTZDirections </li> </td> <td> - the PTZ directions that camera support </td> </tr>
<tr> <td> <li> CapPTZFocus </li> </td> <td> - mode of support for focus action </td> </tr>
<tr> <td> <li> CapPTZHome </li> </td> <td> - Capability to perform home action </td> </tr>
<tr> <td> <li> CapPTZIris </li> </td> <td> - mode of support for iris action </td> </tr>
<tr> <td> <li> CapPTZObjTracking </li> </td> <td> - Capability to perform objekt - tracking </td> </tr>
<tr> <td> <li> CapPTZPan </li> </td> <td> - Capability to perform pan action </td> </tr>
<tr> <td> <li> CapPTZPresetNumber </li> </td> <td> - The maximum number of preset supported by the model . 0 stands for preset incapability </td> </tr>
<tr> <td> <li> CapPTZTilt </li> </td> <td> - mode of support for tilt action </td> </tr>
<tr> <td> <li> CapPTZZoom </li> </td> <td> - Capability to perform zoom action </td> </tr>
<tr> <td> <li> DeviceType </li> </td> <td> - device type ( Camera , Video_Server , PTZ , Fisheye ) </td> </tr>
<tr> <td> <li> Error </li> </td> <td> - message text of last error </td> </tr>
<tr> <td> <li> Errorcode </li> </td> <td> - error code of last error </td> </tr>
2020-06-28 18:49:16 +00:00
<tr> <td> <li> HomeModeState </li> </td> <td> - HomeMode - state ( SVS - version 8.1 .0 and above ) </td> </tr>
<tr> <td> <li> LastLogEntry </li> </td> <td> - the neweset entry of Surveillance Station Log ( only if SVS - device and if attribute pollcaminfoall is set ) </td> </tr>
2019-01-20 16:07:48 +00:00
<tr> <td> <li> LastSnapFilename [ x ] </li> </td> <td> - the filename of the last snapshot or snapshots </td> </tr>
<tr> <td> <li> LastSnapId [ x ] </li> </td> <td> - the ID of the last snapshot or snapshots </td> </tr>
<tr> <td> <li> LastSnapTime [ x ] </li> </td> <td> - timestamp of the last snapshot or snapshots ( format depends of global attribute "language" ) </td> </tr>
<tr> <td> <li> LastUpdateTime </li> </td> <td> - date / time the last update of readings by "caminfoall" (format depends of global attribute "language") </ td > </tr>
2018-11-20 23:30:55 +00:00
<tr> <td> <li> LiveStreamUrl </li> </td> <td> - the livestream URL if stream is started ( is shown if < a href = "#SSCamattr" > attribute </a> "showStmInfoFull" is set ) </td> </tr>
<tr> <td> <li> Patrols </li> </td> <td> - in Synology Surveillance Station predefined patrols ( at PTZ - Cameras ) </td> </tr>
<tr> <td> <li> PollState </li> </td> <td> - shows the state of automatic polling </td> </tr>
<tr> <td> <li> PresetHome </li> </td> <td> - Name of Home - position ( at PTZ - Cameras ) </td> </tr>
<tr> <td> <li> Presets </li> </td> <td> - in Synology Surveillance Station predefined Presets ( at PTZ - Cameras ) </td> </tr>
<tr> <td> <li> Record </li> </td> <td> - if recording is running = Start , if no recording is running = Stop </td> </tr>
<tr> <td> <li> StmKey </li> </td> <td> - current streamkey . it can be used to open livestreams without session id </td> </tr>
<tr> <td> <li> StmKeyUnicst </li> </td> <td> - Uni - cast stream path of the camera . ( < a href = "#SSCamattr" > attribute </a> "showStmInfoFull" has to be set ) </td> </tr>
<tr> <td> <li> StmKeymjpegHttp </li> </td> <td> - Mjpeg stream path ( over http ) of the camera ( < a href = "#SSCamattr" > attribute </a> "showStmInfoFull" has to be set ) </td> </tr>
<tr> <td> <li> SVScustomPortHttp </li> </td> <td> - Customized port of Surveillance Station ( HTTP ) ( to get with "svsinfo" ) </td> </tr>
<tr> <td> <li> SVScustomPortHttps </li> </td> <td> - Customized port of Surveillance Station ( HTTPS ) ( to get with "svsinfo" ) </td> </tr>
<tr> <td> <li> SVSlicenseNumber </li> </td> <td> - The total number of installed licenses ( to get with "svsinfo" ) </td> </tr>
<tr> <td> <li> SVSuserPriv </li> </td> <td> - The effective rights of the user used for log in ( to get with "svsinfo" ) </td> </tr>
<tr> <td> <li> SVSversion </li> </td> <td> - package version of the installed Surveillance Station ( to get with "svsinfo" ) </td> </tr>
<tr> <td> <li> UsedSpaceMB </li> </td> <td> - used disk space of recordings by Camera </td> </tr>
<tr> <td> <li> VideoFolder </li> </td> <td> - Path to the recorded video </td> </tr>
<tr> <td> <li> compstate </li> </td> <td> - state of compatibility ( compares current /simulated SVS-version with Internal COMPATIBILITY) </ td > </tr>
</table>
</ul>
<br> <br>
</ul>
</ul>
= end html
= begin html_DE
< a name = "SSCam" > </a>
<h3> SSCam </h3>
<ul>
Mit diesem Modul können Operationen von in der Synology Surveillance Station ( SVS ) definierten Kameras und Funktionen
2020-06-28 18:49:16 +00:00
der SVS ausgeführt werden . Es basiert auf der SVS API und unterstützt die SVS ab Version 7 . <br>
2018-11-20 23:30:55 +00:00
Zur Zeit werden folgende Funktionen unterstützt: <br> <br>
<ul>
<ul>
2019-03-04 19:09:35 +00:00
<li> Start einer Aufnahme und optionaler Versand per Email und /oder Telegram </ li >
2019-01-27 15:36:11 +00:00
<li> Stop einer Aufnahme per Befehl bzw . automatisch nach Ablauf einer einstellbaren Dauer </li>
2019-12-11 21:16:03 +00:00
<li> Auslösen von Schnappschnüssen / Aufnahmen und optional gemeinsamer Email-Versand mit dem integrierten Email-Client oder Synology Chat / Telegram </li>
2019-01-14 23:09:42 +00:00
<li> Auslösen von Schnappschnüssen aller definierten Kameras und optionaler gemeinsamer Email - Versand mittels integrierten Email - Client </li>
2018-11-20 23:30:55 +00:00
<li> Deaktivieren einer Kamera in Synology Surveillance Station </li>
<li> Aktivieren einer Kamera in Synology Surveillance Station </li>
<li> Steuerung der Belichtungsmodi Tag , Nacht bzw . Automatisch </li>
<li> Umschaltung der Ereigniserkennung durch Kamera , durch SVS oder deaktiviert </li>
<li> steuern der Erkennungsparameterwerte Empfindlichkeit , Schwellwert , Objektgröße und Prozentsatz für Auslösung </li>
<li> Abfrage von Kameraeigenschaften ( auch mit Polling ) sowie den Eigenschaften des installierten SVS - Paketes </li>
<li> Bewegen an eine vordefinierte Preset - Position ( bei PTZ - Kameras ) </li>
<li> Start einer vordefinierten Überwachungstour ( bei PTZ - Kameras ) </li>
<li> Positionieren von PTZ - Kameras zu absoluten X /Y-Koordinaten </ li >
<li> kontinuierliche Bewegung von PTZ - Kameras </li>
<li> auslösen externer Ereignisse 1 - 10 ( Aktionsregel SVS ) </li>
<li> starten und beenden von Kamera - Livestreams incl . Audiowiedergabe , anzeigen der letzten Aufnahme oder des letzten Schnappschusses </li>
<li> Abruf und Ausgabe der Kamera Streamkeys sowie Stream - Urls ( Nutzung von Kamera - Livestreams ohne Session Id ) </li>
<li> abspielen der letzten Aufnahme bzw . Anzeige des letzten Schnappschusses </li>
2020-06-28 18:49:16 +00:00
<li> anzeigen der gespeicherten Anmeldeinformationen ( Credentials ) </li>
<li> Ein - bzw . Ausschalten des Surveillance Station HomeMode und abfragen des HomeMode - Status </li>
<li> abrufen des Surveillance Station Logs , auswerten des neuesten Eintrags als Reading </li>
<li> erzeugen einer Gallerie der letzten 1 - 10 Schnappschüsse ( als Popup oder permanentes Device ) </li>
2018-11-20 23:30:55 +00:00
<li> Start bzw . Stop Objekt Tracking ( nur unterstützte PTZ - Kameras mit dieser Fähigkeit ) </li>
<li> Setzen /Löschen eines Presets (bei PTZ-Kameras) </ li >
<li> Setzen der Home - Position ( bei PTZ - Kameras ) </li>
<li> erstellen eines Paneels zur Kamera - Steuerung . ( bei PTZ - Kameras ) </li>
2020-06-28 18:49:16 +00:00
<li> erzeugen unterschiedlicher Typen von separaten Streaming - Devices ( createStreamDev ) </li>
2018-11-20 23:30:55 +00:00
<li> Aktivierung / Deaktivierung eines kamerainternen PIR-Sensors </ li >
<li> Erzeugung einer readingsGroup zur Anzeige aller definierten SSCam - Devices ( createReadingsGroup ) </li>
2020-06-28 18:49:16 +00:00
<li> Automatisiertes Anlegen aller in der SVS vorhandenen Kameras in FHEM ( autocreateCams ) </li>
2019-01-02 19:35:10 +00:00
<li> lokales Abspeichern der letzten Kamera - Aufnahme </li>
2019-11-06 20:01:26 +00:00
<li> Auswahl unterschiedlicher Cache - Typen zur Bilddatenspeicherung ( Attribut cacheType ) </li>
2020-07-12 12:31:21 +00:00
<li> ausführen von Zoom - Aktionen ( bei PTZ - Kameras die Zoom unterstützen ) </li>
2018-11-20 23:30:55 +00:00
</ul>
</ul>
<br>
Die Aufnahmen stehen in der Synology Surveillance Station ( SVS ) zur Verfügung und unterliegen , wie jede andere Aufnahme , den in der Synology Surveillance Station eingestellten Regeln . <br>
So werden zum Beispiel die Aufnahmen entsprechend ihrer Archivierungsfrist gespeichert und dann gelöscht . <br> <br>
Wenn sie über dieses Modul diskutieren oder zur Verbesserung des Moduls beitragen möchten , ist im FHEM - Forum ein Sammelplatz unter: <br>
< a href = "http://forum.fhem.de/index.php/topic,45671.msg374390.html#msg374390" > 49 _SSCam: Fragen , Hinweise , Neuigkeiten und mehr rund um dieses Modul </a> . <br> <br>
Weitere Infomationen zum Modul sind im FHEM - Wiki zu finden: <br>
2019-07-12 20:10:53 +00:00
< a href = "http://www.fhemwiki.de/wiki/SSCAM_-_Steuerung_von_Kameras_in_Synology_Surveillance_Station" > SSCAM - Steuerung von Kameras in Synology Surveillance Station </a> .
2020-06-28 18:49:16 +00:00
<br> <br>
2019-07-12 20:10:53 +00:00
<b> Integration in FHEM TabletUI: </b> <br> <br>
Zur Integration von SSCam Streaming Devices ( Typ SSCamSTRM ) wird ein Widget bereitgestellt .
2020-06-28 18:49:16 +00:00
Für weitere Information dazu bitte den Artikel im Wiki durchlesen: <br>
< a href = "https://wiki.fhem.de/wiki/FTUI_Widget_f%C3%BCr_Streaming_Devices_(SSCamSTRM)" > FTUI Widget für SSCam Streaming Devices ( SSCamSTRM ) </a> .
2019-07-12 20:10:53 +00:00
<br> <br> <br>
2018-11-20 23:30:55 +00:00
<b> Vorbereitung </b> <br> <br>
<ul>
2018-12-30 20:20:27 +00:00
Dieses Modul nutzt die Perl - Module JSON und MIME:: Lite die üblicherweise nachinstalliert werden müssen . <br>
2020-06-28 18:49:16 +00:00
Auf Debian - Linux basierenden Systemen können sie installiert werden mit: <br> <br>
2018-11-20 23:30:55 +00:00
2018-12-30 20:20:27 +00:00
<code> sudo apt - get install libjson - perl </code> <br>
2020-06-28 18:49:16 +00:00
<code> sudo apt - get install libmime - lite - perl </code> <br> <br>
2018-11-20 23:30:55 +00:00
Das Modul verwendet für HTTP - Calls die nichtblockierenden Funktionen von HttpUtils bzw . HttpUtils_NonblockingGet . <br>
2018-12-07 16:17:53 +00:00
Im DSM bzw . der Synology Surveillance Station muß ein Nutzer angelegt sein . Die Zugangsdaten werden später über ein Set - Kommando dem
2020-06-28 18:49:16 +00:00
angelegten Gerät zugewiesen . <br>
Nähere Informationen dazu unter < a href = "#Credentials" > Credentials </a> <br> <br>
2018-11-20 23:30:55 +00:00
Überblick über die Perl - Module welche von SSCam genutzt werden: <br> <br>
2019-11-06 20:01:26 +00:00
<table>
<colgroup> < col width = 35 % > < col width = 65 % > < / colgroup >
<tr> <td> JSON </td> <td> </td> </tr>
<tr> <td> Data:: Dumper </td> <td> </td> </tr>
<tr> <td> MIME:: Base64 </td> <td> </td> </tr>
<tr> <td> Time:: HiRes </td> <td> </td> </tr>
<tr> <td> Encode </td> <td> </td> </tr>
<tr> <td> POSIX </td> <td> </td> </tr>
<tr> <td> HttpUtils </td> <td> ( FHEM - Modul ) </td> </tr>
<tr> <td> Blocking </td> <td> ( FHEM - Modul ) </td> </tr>
<tr> <td> Meta </td> <td> ( FHEM - Modul ) </td> </tr>
<tr> <td> Net:: SMTP </td> <td> ( wenn Bilddaten - Versand verwendet ) </td> </tr>
<tr> <td> MIME:: Lite </td> <td> ( wenn Bilddaten - Versand verwendet ) </td> </tr>
2020-07-12 12:31:21 +00:00
<tr> <td> CHI </td> <td> ( wenn Cache verwendet wird ) </td> </tr>
<tr> <td> CHI::Driver:: Redis </td> <td> ( wenn Cache verwendet wird ) </td> </tr>
<tr> <td> Cache:: Cache </td> <td> ( wenn Cache verwendet wird ) </td> </tr>
2019-11-06 20:01:26 +00:00
</table>
2018-12-06 22:22:15 +00:00
2019-11-06 20:01:26 +00:00
<br>
2020-06-28 18:49:16 +00:00
2020-07-12 12:31:21 +00:00
SSCam benutzt einen eigenen Satz Icons .
Damit das System sie findet , ist im FHEMWEB Device das Attribut <b> iconPath </b> um <b> sscam </b> zu ergänzen . <br> <br>
<ul>
<b> Beispiel </b> <br>
attr WEB iconPath default:fhemSVG:openautomation:sscam
</ul>
<br> <br>
2018-11-20 23:30:55 +00:00
</ul>
< a name = "SSCamdefine" > </a>
<b> Definition </b>
<ul>
<br>
Bei der Definition wird zwischen einer Kamera - Definition und der Definition einer Surveillance Station ( SVS ) , d . h .
der Applikation selbst auf der Diskstation , unterschieden .
Abhängig von der Art des definierten Devices wird das Internal MODEL auf "<Hersteller> - <Kameramodell>" oder
SVS gesetzt und eine passende Teilmenge der beschriebenen set / get - Befehle dem Device zugewiesen . <br>
2020-06-28 18:49:16 +00:00
Der Gültigkeitsbereich von set /get-Befehlen ist nach dem jeweiligen Befehl angegeben "gilt für CAM, SVS, CAM/ SVS " . <br>
Die Kameras können einzeln manuell , alternativ auch automatisiert mittels einem vorher definierten SVS - Device angelegt werden .
<br> <br>
2018-11-20 23:30:55 +00:00
Eine <b> Kamera </b> wird definiert mit: <br> <br>
2020-06-28 18:49:16 +00:00
<ul>
2018-11-20 23:30:55 +00:00
<b> <code> define & lt ; Name & gt ; SSCAM & lt ; Kameraname in SVS & gt ; & lt ; ServerAddr & gt ; [ Port ] [ Protocol ] </code> </b> <br> <br>
</ul>
Zunächst muß diese Kamera in der Synology Surveillance Station 7.0 oder höher eingebunden sein und entsprechend
2020-06-28 18:49:16 +00:00
funktionieren . <br> <br>
Ein <b> SVS - Device </b> zur Steuerung von Funktionen der Surveillance Station wird definiert mit: <br> <br>
<ul>
<b> <code> define & lt ; Name & gt ; SSCAM SVS & lt ; ServerAddr & gt ; [ Port ] [ Protocol ] </code> </b> <br> <br>
</ul>
2018-11-20 23:30:55 +00:00
2018-12-07 16:17:53 +00:00
In diesem Fall wird statt & lt ; Kameraname in SVS & gt ; nur <b> SVS </b> angegeben .
2020-06-28 18:49:16 +00:00
Ist das SVS - Device definiert und nach dem Setzen der Credentials einsatzbereit , können alle in der SVS vorhandenen Kameras mit dem Set - Befehl
"autocreateCams" in FHEM automatisiert angelegt werden . <br> <br>
Das Modul SSCam basiert auf Funktionen der Synology Surveillance Station API . <br> <br>
2018-11-20 23:30:55 +00:00
Die Parameter beschreiben im Einzelnen:
<br>
<br>
<table>
<colgroup> < col width = 15 % > < col width = 85 % > < / colgroup >
<tr> <td> <b> Name </b> </td> <td> der Name des neuen Gerätes in FHEM </td> </tr>
<tr> <td> <b> Kameraname </b> </td> <td> Kameraname wie er in der Synology Surveillance Station angegeben ist für Kamera - Device , "SVS" für SVS - Device . Leerzeichen im Namen sind nicht erlaubt . </td> </tr>
<tr> <td> <b> ServerAddr </b> </td> <td> die IP - Addresse des Synology Surveillance Station Host . Hinweis: Es sollte kein Servername verwendet werden weil DNS - Aufrufe in FHEM blockierend sind . </td> </tr>
<tr> <td> <b> Port </b> </td> <td> optional - der Port der Synology Disc Station . Wenn nicht angegeben , wird der Default - Port "5000" genutzt </td> </tr>
<tr> <td> <b> Protocol </b> </td> <td> optional - das Protokoll ( http oder https ) zum Funktionsaufruf . Wenn nicht angegeben , wird der Default "http" genutzt </td> </tr>
</table>
<br> <br>
<b> Beispiel: </b>
<pre>
<code> define CamCP SSCAM Carport 192.168 .2 .20 [ 5000 ] [ http ] </code>
<code> define CamCP SSCAM Carport 192.168 .2 .20 [ 5001 ] [ https ] </code>
# erstellt ein neues Kamera-Device CamCP
<code> define DS1 SSCAM SVS 192.168 .2 .20 [ 5000 ] [ http ] </code>
<code> define DS1 SSCAM SVS 192.168 .2 .20 [ 5001 ] [ https ] </code>
# erstellt ein neues SVS-Device DS1
</pre>
Wird eine neue Kamera definiert , wird diesem Device zunächst eine Standardaufnahmedauer von 15 zugewiesen . <br>
Über das < a href = "#SSCamattr" > Attribut </a> "rectime" kann die Aufnahmedauer für jede Kamera individuell angepasst werden . Der Wert "0" für "rectime" führt zu einer Endlosaufnahme , die durch "set <name> off" wieder gestoppt werden muß . <br>
Ein Logeintrag mit einem entsprechenden Hinweis auf diesen Umstand wird geschrieben . <br> <br>
Wird das < a href = "#SSCamattr" > Attribut </a> "rectime" gelöscht , greift wieder der Default - Wert ( 15 s ) für die Aufnahmedauer . <br> <br>
Mit dem < a href = "#SSCamset" > Befehl </a> <b> "set <name> on [rectime]" </b> wird die Aufnahmedauer temporär festgelegt und überschreibt einmalig sowohl den Defaultwert als auch den Wert des gesetzten Attributs "rectime" . <br>
Auch in diesem Fall führt <b> "set <name> on 0" </b> zu einer Daueraufnahme . <br> <br>
Eine eventuell in der SVS eingestellte Dauer der Voraufzeichnung wird weiterhin berücksichtigt . <br> <br>
Erkennt das Modul die definierte Kamera als PTZ - Device ( Reading "DeviceType = PTZ" ) , wird automatisch ein
Steuerungspaneel in der Detailansicht erstellt . Dieses Paneel setzt SVS >= 7.1 voraus . Die Eigenschaften und das
Verhalten des Paneels können mit den < a href = "#SSCamattr" > Attributen </a> "ptzPanel_.*" beeinflusst werden . <br>
Siehe dazu auch den < a href = "#SSCamset" > Befehl </a> <b> "set <name> createPTZcontrol" </b> .
<br> <br> <br>
</ul>
2020-06-28 18:49:16 +00:00
< a name = "Credentials" > </a>
2018-11-20 23:30:55 +00:00
<b> Credentials </b> <br> <br>
<ul>
Nach dem Definieren des Gerätes müssen zuerst die Zugangsparameter gespeichert werden . Das geschieht mit dem Befehl:
<pre>
set & lt ; name & gt ; credentials & lt ; Username & gt ; & lt ; Passwort & gt ;
</pre>
2020-06-28 18:49:16 +00:00
Die Passwortlänge beträgt maximal 20 Zeichen . <br>
2018-11-20 23:30:55 +00:00
Der Anwender kann in Abhängigkeit der beabsichtigten einzusetzenden Funktionen einen Nutzer im DSM bzw . in der Surveillance
2018-12-07 16:17:53 +00:00
Station einrichten . Sollte im DSM die < a href = "https://www.synology.com/de-de/knowledgebase/DSM/tutorial/General/How_to_add_extra_security_to_your_Synology_NAS#t5" > 2 - Stufen Verifizierung </a>
2020-06-28 18:49:16 +00:00
aktiviert sein , ist die Session mit der Surveillance Station aufzubauen ( < a href = "#SSCamattr" > Attribut </a> "session = SurveillanceStation" ) . <br> <br>
2018-11-20 23:30:55 +00:00
Ist der DSM - Nutzer der Gruppe Administratoren zugeordnet , hat er auf alle Funktionen Zugriff . Ohne diese Gruppenzugehörigkeit
können nur Funktionen mit niedrigeren Rechtebedarf ausgeführt werden . Die benötigten Mindestrechte der Funktionen sind in
der Tabelle weiter unten aufgeführt . <br>
Alternativ zum DSM - Nutzer kann ein in der SVS angelegter Nutzer verwendet werden . Auch in diesem Fall hat ein Nutzer vom
2018-12-07 16:17:53 +00:00
Typ Manager das Recht alle Funktionen auszuführen , wobei der Zugriff auf bestimmte Kameras / Funktionen im Privilegienprofil beschränkt
2018-11-20 23:30:55 +00:00
werden kann ( siehe Hilfefunktion in SVS ) . <br>
Als Best Practice wird vorgeschlagen , jeweils einen User im DSM und einen in der SVS anzulegen: <br> <br>
<ul>
<li> DSM - User als Mitglied der Admin - Gruppe: uneingeschränkter Test aller Modulfunktionen - > session: DSM </li>
<li> SVS - User als Manager oder Betrachter: angepasstes Privilegienprofil - > session: SurveillanceStation </li>
</ul>
<br>
Über das < a href = "#SSCamattr" > Attribut </a> "session" kann ausgewählt werden , ob die Session mit dem DSM oder der SVS
aufgebaut werden soll . Weitere Informationen zum Usermanagement in der SVS sind verfügbar mit
"get <name> versionNotes 5" . <br>
Erfolgt der Session - Aufbau mit dem DSM , stehen neben der SVS Web - API auch darüber hinausgehende API - Zugriffe zur Verfügung ,
die unter Umständen zur Verarbeitung benötigt werden . <br> <br>
Nach der Gerätedefinition ist die Grundeinstellung "Login in das DSM" , d . h . es können Credentials mit Admin - Berechtigungen
genutzt werden um zunächst alle Funktionen der Kameras testen zu können . Danach können die Credentials z . B . in Abhängigkeit
der benötigten Funktionen auf eine SVS - Session mit entsprechend beschränkten Privilegienprofil umgestellt werden . <br> <br>
Die nachfolgende Aufstellung zeigt die <b> Mindestanforderungen </b> der jeweiligen Modulfunktionen an die Nutzerrechte . <br> <br>
<ul>
<table>
<colgroup> < col width = 20 % > < col width = 80 % > < / colgroup >
<tr> <td> <li> set ... credentials </td> <td> - </li> </td> </tr>
<tr> <td> <li> set ... delPreset </td> <td> session: ServeillanceStation - Betrachter </li> </td> </tr>
<tr> <td> <li> set ... disable </td> <td> session: ServeillanceStation - Manager mit dem Kamera bearbeiten Recht </li> </td> </tr>
<tr> <td> <li> set ... enable </td> <td> session: ServeillanceStation - Manager mit dem Kamera bearbeiten Recht </li> </td> </tr>
<tr> <td> <li> set ... expmode </td> <td> session: ServeillanceStation - Manager </li> </td> </tr>
<tr> <td> <li> set ... extevent </td> <td> session: DSM - Nutzer Mitglied von Admin - Gruppe </li> </td> </tr>
2020-06-28 18:49:16 +00:00
<tr> <td> <li> set ... goPreset </td> <td> session: ServeillanceStation - Betrachter mit Privileg Objektivsteuerung der Kamera </li> </td> </tr>
2018-11-20 23:30:55 +00:00
<tr> <td> <li> set ... homeMode </td> <td> session: ServeillanceStation - Betrachter mit Privileg Home - Modus schalten ( gilt für <b> SVS - Device ! </b> ) </li> </td> </tr>
2020-06-28 18:49:16 +00:00
<tr> <td> <li> set ... goAbsPTZ </td> <td> session: ServeillanceStation - Betrachter mit Privileg Objektivsteuerung der Kamera </li> </td> </tr>
<tr> <td> <li> set ... move </td> <td> session: ServeillanceStation - Betrachter mit Privileg Objektivsteuerung der Kamera </li> </td> </tr>
2018-11-20 23:30:55 +00:00
<tr> <td> <li> set ... motdetsc </td> <td> session: ServeillanceStation - Manager </li> </td> </tr>
2020-06-28 18:49:16 +00:00
<tr> <td> <li> set ... on </td> <td> session: ServeillanceStation - Betrachter mit erweiterten Privileg "manuelle Aufnahme" </li> </td> </tr>
2018-11-20 23:30:55 +00:00
<tr> <td> <li> set ... off </td> <td> session: ServeillanceStation - Betrachter mit erweiterten Privileg "manuelle Aufnahme" </li> </td> </tr>
2020-06-28 18:49:16 +00:00
<tr> <td> <li> set ... runView </td> <td> session: ServeillanceStation - Betrachter mit Privileg Liveansicht für Kamera </li> </td> </tr>
2018-11-20 23:30:55 +00:00
<tr> <td> <li> set ... runPatrol </td> <td> session: ServeillanceStation - Betrachter mit Privileg Objektivsteuerung der Kamera </li> </td> </tr>
2020-06-28 18:49:16 +00:00
<tr> <td> <li> set ... setHome </td> <td> session: ServeillanceStation - Betrachter </li> </td> </tr>
2018-11-20 23:30:55 +00:00
<tr> <td> <li> set ... setPreset </td> <td> session: ServeillanceStation - Betrachter </li> </td> </tr>
<tr> <td> <li> set ... snap </td> <td> session: ServeillanceStation - Betrachter </li> </td> </tr>
2020-06-28 18:49:16 +00:00
<tr> <td> <li> set ... snapGallery </td> <td> session: ServeillanceStation - Betrachter </li> </td> </tr>
<tr> <td> <li> set ... stopView </td> <td> - </li> </td> </tr>
2018-11-20 23:30:55 +00:00
<tr> <td> <li> get ... caminfo [ all ] </td> <td> session: ServeillanceStation - Betrachter </li> </td> </tr>
<tr> <td> <li> get ... eventlist </td> <td> session: ServeillanceStation - Betrachter </li> </td> </tr>
<tr> <td> <li> get ... listLog </td> <td> session: ServeillanceStation - Betrachter </li> </td> </tr>
<tr> <td> <li> get ... listPresets </td> <td> session: ServeillanceStation - Betrachter </li> </td> </tr>
2020-06-28 18:49:16 +00:00
<tr> <td> <li> get ... scanVirgin </td> <td> session: ServeillanceStation - Betrachter </li> </td> </tr>
2018-11-20 23:30:55 +00:00
<tr> <td> <li> get ... svsinfo </td> <td> session: ServeillanceStation - Betrachter </li> </td> </tr>
<tr> <td> <li> get ... snapfileinfo </td> <td> session: ServeillanceStation - Betrachter </li> </td> </tr>
2020-06-28 18:49:16 +00:00
<tr> <td> <li> get ... snapGallery </td> <td> session: ServeillanceStation - Betrachter </li> </td> </tr>
<tr> <td> <li> get ... snapinfo </td> <td> session: ServeillanceStation - Betrachter </li> </td> </tr>
2018-11-20 23:30:55 +00:00
<tr> <td> <li> get ... stmUrlPath </td> <td> session: ServeillanceStation - Betrachter </li> </td> </tr>
</table>
</ul>
<br> <br>
</ul>
2020-06-28 18:49:16 +00:00
< a name = "HTTPTimeout" > </a>
2018-11-20 23:30:55 +00:00
<b> HTTP - Timeout setzen </b> <br> <br>
<ul>
Alle Funktionen dieses Moduls verwenden HTTP - Aufrufe gegenüber der SVS Web API . <br>
Der Standardwert für den HTTP - Timeout beträgt 4 Sekunden . Durch Setzen des
< a href = "#SSCamattr" > Attributes </a> "httptimeout" > 0 kann dieser Wert bei Bedarf entsprechend den technischen
Gegebenheiten angepasst werden . <br>
</ul>
<br> <br> <br>
< a name = "SSCamset" > </a>
<b> Set </b>
<ul>
<br>
Die aufgeführten set - Befehle sind für CAM / SVS - Devices oder nur für CAM - Devices bzw . nur für SVS - Devices gültig . Sie stehen im
Drop - Down - Menü des jeweiligen Devices zur Auswahl zur Verfügung . <br> <br>
2018-12-06 22:22:15 +00:00
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> autocreateCams </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für SVS ) </li> <br>
2018-12-06 22:22:15 +00:00
2018-12-07 16:17:53 +00:00
Ist ein SVS - Device definiert , können mit diesem Befehl alle in der SVS integrierten Kameras automatisiert angelegt werden . Bereits definierte
Kameradevices werden übersprungen .
Die neu erstellten Kameradevices werden im gleichen Raum wie das SVS - Device definiert ( default SSCam ) . Weitere sinnvolle Attribute werden ebenfalls
voreingestellt .
2018-12-06 22:22:15 +00:00
<br> <br>
</ul>
2018-11-20 23:30:55 +00:00
<ul>
< a name = "SSCamcreateStreamDev" > </a>
2020-07-16 06:14:56 +00:00
<li> <b> createStreamDev [ generic | hls | lastsnap | mjpeg | switched ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM ) <br>
bzw . <br>
<b> createStreamDev [ master ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für SVS ) <br>
<br>
2018-11-20 23:30:55 +00:00
Es wird ein separates Streaming - Device ( Typ SSCamSTRM ) erstellt . Dieses Device kann z . B . als separates Device
in einem Dashboard genutzt werden .
Dem Streaming - Device wird der aktuelle Raum des Kameradevice zugewiesen sofern dort gesetzt .
<br> <br>
<ul>
<table>
<colgroup> < col width = 10 % > < col width = 90 % > < / colgroup >
2020-07-16 06:14:56 +00:00
<tr> <td> generic </td> <td> - das Streaming - Device gibt einen durch das Attribut < a href = "#genericStrmHtmlTag" > genericStrmHtmlTag </a> bestimmten Content wieder </td> </tr>
2018-12-30 20:20:27 +00:00
<tr> <td> hls </td> <td> - das Streaming - Device gibt einen permanenten HLS Datenstrom wieder </td> </tr>
2019-02-06 21:06:40 +00:00
<tr> <td> lastsnap </td> <td> - das Streaming - Device zeigt den neuesten Schnappschuß an </td> </tr>
2018-11-20 23:30:55 +00:00
<tr> <td> mjpeg </td> <td> - das Streaming - Device gibt einen permanenten MJPEG Kamerastream wieder ( Streamkey Methode ) </td> </tr>
<tr> <td> switched </td> <td> - Wiedergabe unterschiedlicher Streamtypen . Drucktasten zur Steuerung werden angeboten . </td> </tr>
</table>
</ul>
2020-07-16 06:14:56 +00:00
<br>
2018-11-20 23:30:55 +00:00
2020-07-16 06:14:56 +00:00
Die Gestaltung kann durch HTML - Tags im Attribut < a href = "#htmlattr" > htmlattr </a> im Kameradevice oder mit den
2018-12-30 20:20:27 +00:00
spezifischen Attributen im Streaming - Device beeinflusst werden . <br> <br>
2020-07-16 06:14:56 +00:00
</li>
2018-12-30 20:20:27 +00:00
<b> Streaming Device "hls" </b> <br> <br>
Das Streaming - Device vom Typ "hls" verwendet die Bibliothek hls . js zur Bildverarbeitung und ist auf allen Browsern mit
MediaSource extensions ( MSE ) lauffähig . Mit dem < a href = "#SSCamattr" > Attribut </a> "hlsNetScript" kann bestimmt werden , ob
die lokal installierte hls . js ( . /www/ pgm2 / sscam_hls . js ) oder immer die aktuellste Bibliotheksversion von der hls . js Projektseite
verwendet werden soll . Dieses Attribut ist zentral in einem Device vom Typ "SVS" zu setzen ! <br>
Bei Verwendung dieses Streamingdevices ist zwingend das < a href = "#SSCamattr" > Attribut </a> "hlsStrmObject" im verbundenen
Kamera - Device ( siehe Internal PARENT ) anzugeben .
<br> <br>
<b> Streaming Device "switched hls" </b> <br> <br>
Dieser Typ nutzt den von der Synology Surveillance Station gelieferten HLS Videostream .
Soll ein HLS - Stream im Streaming - Device vom Typ "switched" gestartet werden , muss die Kamera in der Synology Surveillance
Station auf das Videoformat H .264 eingestellt und HLS von der eingesetzten SVS - Version unterstützt sein .
Diese Auswahltaste wird deshalb im nur dann im Streaming - Device angeboten , wenn das Reading "CamStreamFormat = HLS" beinhaltet . <br>
HLS ( HTTP Live Streaming ) kann momentan nur auf Mac Safari oder mobilen iOS / Android - Geräten wiedergegeben werden .
<br> <br>
<b> Streaming Device "generic" </b> <br> <br>
2018-11-20 23:30:55 +00:00
Ein Streaming - Device vom Typ "generic" benötigt die Angabe von HTML - Tags im Attribut "genericStrmHtmlTag" . Diese Tags
spezifizieren den wiederzugebenden Content . <br> <br>
<ul>
2020-06-28 18:49:16 +00:00
<b> Beispiele: </b>
2018-11-20 23:30:55 +00:00
<pre>
attr & lt ; name & gt ; genericStrmHtmlTag & lt ; video $ HTMLATTR controls autoplay & gt ;
& lt ; source src = 'http://192.168.2.10:32000/$NAME.m3u8' type = 'application/x-mpegURL' & gt ;
2019-03-04 19:09:35 +00:00
& lt ; / video & gt ;
attr & lt ; name & gt ; genericStrmHtmlTag & lt ; img $ HTMLATTR
src = "http://192.168.2.10:32774"
onClick = "FW_okDialog('<img src=http://192.168.2.10:32774 $PWS >')"
& gt
2018-11-20 23:30:55 +00:00
</pre>
2019-03-04 19:09:35 +00:00
Die Variablen $ HTMLATTR , $ NAME und $ PWS sind Platzhalter und übernehmen ein gesetztes Attribut "htmlattr" , den SSCam -
Devicenamen bzw . das Attribut "popupWindowSize" im Streaming - Device , welches die Größe eines Popup - Windows festlegt .
2018-11-20 23:30:55 +00:00
</ul>
<br> <br>
2019-02-06 21:06:40 +00:00
<b> Streaming Device "lastsnap" </b> <br> <br>
Dieser Typ gibt den neuesten Schnappschuß wieder . Der Schnappschuss wird per default als Icon , d . h . in einer verminderten
Auflösung abgerufen . Um die Originalauflösung zu verwenden , ist im zugehörigen Kameradevice ( Internal PARENT ) das Attribut
<b> "snapGallerySize = Full" </b> zu setzen .
Dort sollte ebenfalls das Attribut "pollcaminfoall" gesetzt sein , um regelmäßig die neuesten Schnappschußdaten abzurufen .
<br>
<br> <br>
</ul>
2018-11-20 23:30:55 +00:00
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> createPTZcontrol </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für PTZ - CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
Es wird ein separates PTZ - Steuerungspaneel ( Type SSCamSTRM ) erstellt . Es wird der aktuelle Raum des Kameradevice
2018-12-30 20:20:27 +00:00
zugewiesen sofern dort gesetzt ( default "SSCam" ) .
2018-11-20 23:30:55 +00:00
Mit den "ptzPanel_.*" - < a href = "#SSCamattr" > Attributen </a> bzw . den spezifischen Attributen des erzeugten
SSCamSTRM - Devices können die Eigenschaften des PTZ - Paneels beeinflusst werden . <br>
<br> <br>
</ul>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> createReadingsGroup [ & lt ; Name der readingsGroup & gt ; ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM /SVS)</ li > <br>
2018-11-20 23:30:55 +00:00
Es wird ein readingsGroup - Device zur Übersicht aller vorhandenen SSCam - Devices erstellt . Es kann ein eigener Name angegeben
werden . Ist kein Name angegeben , wird eine readingsGroup mit dem Namen "RG.SSCam" erzeugt .
<br>
<br> <br>
</ul>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> createSnapGallery </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
Es wird eine Schnappschußgallerie als separates Device ( Type SSCamSTRM ) erzeugt . Das Device wird im Raum
2018-12-30 20:20:27 +00:00
"SSCam" erstellt .
2018-11-20 23:30:55 +00:00
Mit den "snapGallery..." - < a href = "#SSCamattr" > Attributen </a> bzw . den spezifischen Attributen des erzeugten SSCamSTRM - Devices
2018-11-25 07:58:47 +00:00
können die Eigenschaften der Schnappschußgallerie beeinflusst werden .
<br> <br>
<b> Hinweis </b> <br>
Die Namen der Kameras in der SVS sollten sich nicht stark ähneln , da es ansonsten zu Ungenauigkeiten beim Abruf der
Schnappschußgallerie kommen kann .
<br>
2018-11-20 23:30:55 +00:00
<br> <br>
</ul>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> credentials & lt ; username & gt ; & lt ; password & gt ; </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM /SVS)</ li > <br>
2018-11-20 23:30:55 +00:00
Setzt Username / Passwort für den Zugriff auf die Synology Surveillance Station .
2020-06-28 18:49:16 +00:00
Siehe < a href = "#Credentials" > Credentials </a> <br>
2018-11-20 23:30:55 +00:00
<br> <br>
</ul>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> delPreset & lt ; PresetName & gt ; </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für PTZ - CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
Löscht einen Preset "<PresetName>" . Im FHEMWEB wird eine Drop - Down Liste der aktuell vorhandenen
Presets angeboten .
</ul>
<br> <br>
<ul>
2020-07-13 20:38:52 +00:00
< a name = "disable" > </a>
<li> <b> disable </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM ) <br>
Deaktiviert die Kamera in der Synology Surveillance Station .
</li>
</ul>
<br> <br>
2018-11-20 23:30:55 +00:00
2020-07-13 20:38:52 +00:00
<ul>
< a name = "enable" > </a>
<li> <b> enable </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM ) <br>
Aktiviert die Kamera in der Synology Surveillance Station .
</li>
2018-11-20 23:30:55 +00:00
</ul>
2020-07-13 20:38:52 +00:00
<br> <br>
2018-11-20 23:30:55 +00:00
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> expmode [ day | night | auto ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
Mit diesem Befehl kann der Belichtungsmodus der Kameras gesetzt werden . Dadurch wird z . B . das Verhalten der Kamera - LED ' s entsprechend gesteuert .
Die erfolgreiche Umschaltung wird durch das Reading CamExposureMode ( "get ... caminfoall" ) reportet . <br> <br>
<b> Hinweis: </b> <br>
Die erfolgreiche Ausführung dieser Funktion ist davon abhängig ob die SVS diese Funktionalität der Kamera unterstützt .
Ist in SVS - & gt ; IP - Kamera - & gt ; Optimierung - & gt ; Belichtungsmodus das Feld für den Tag / Nachtmodus grau hinterlegt , ist nicht von einer lauffähigen Unterstützung dieser
Funktion auszugehen .
<br> <br>
</ul>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> extevent [ 1 - 10 ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für SVS ) </li> <br>
2018-11-20 23:30:55 +00:00
Dieses Kommando triggert ein externes Ereignis ( 1 - 10 ) in der SVS .
Die Aktionen , die dieses Ereignis auslöst , sind zuvor in dem Aktionsregeleditor der SVS einzustellen . Es stehen die Ereignisse
1 - 10 zur Verfügung .
In der Benachrichtigungs - App der SVS können auch Email , SMS oder Mobil ( DS - Cam ) Nachrichten ausgegeben werden wenn ein externes
Ereignis ausgelöst wurde .
Nähere Informationen dazu sind in der Hilfe zum Aktionsregeleditor zu finden .
Der verwendete User benötigt Admin - Rechte in einer DSM - Session .
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> goAbsPTZ [ X Y | up | down | left | right ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
Mit diesem Kommando wird eine PTZ - Kamera in Richtung einer wählbaren absoluten X /Y-Koordinate bewegt, oder zur maximalen Absolutposition in Richtung up/ down /left/ right .
Die Option ist nur für Kameras verfügbar die das Reading "CapPTZAbs=true" ( die Fähigkeit für PTZAbs - Aktionen ) besitzen . Die Eigenschaften der Kamera kann mit "get <name> caminfoall" abgefragt werden .
<br> <br>
Beispiel für Ansteuerung absoluter X / Y - Koordinaten: <br>
<pre>
set & lt ; name & gt ; goAbsPTZ 120 450
</pre>
Dieses Beispiel bewegt die Kameralinse in die Position X = 120 und Y = 450 . <br>
Der Wertebereich ist dabei:
<pre>
X = 0 - 640 ( 0 - 319 bewegt nach links , 321 - 640 bewegt nach rechts , 320 bewegt die Linse nicht )
Y = 0 - 480 ( 0 - 239 bewegt nach unten , 241 - 480 bewegt nach oben , 240 bewegt die Linse nicht )
</pre>
Die Linse kann damit in kleinsten bis sehr großen Schritten in die gewünschte Richtung bewegt werden .
Dieser Vorgang muß ggf . mehrfach wiederholt werden um die Kameralinse in die gewünschte Position zu bringen . <br> <br>
Soll die Bewegung mit der maximalen Schrittweite erfolgen , kann zur Vereinfachung der Befehl:
<pre>
set & lt ; name & gt ; goAbsPTZ [ up | down | left | right ]
</pre>
verwendet werden . Die Optik wird in diesem Fall mit der größt möglichen Schrittweite zur Absolutposition in der angegebenen Richtung bewegt .
Auch in diesem Fall muß der Vorgang ggf . mehrfach wiederholt werden um die Kameralinse in die gewünschte Position zu bringen .
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> goPreset & lt ; Preset & gt ; </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
Mit diesem Kommando können PTZ - Kameras in eine vordefininierte Position bewegt werden . <br>
Die Preset - Positionen müssen dazu zunächst in der Synology Surveillance Station angelegt worden sein . Das geschieht in der PTZ - Steuerung im IP - Kamera Setup .
Die Presets werden über das Kommando "get <name> caminfoall" eingelesen ( geschieht bei restart von FHEM automatisch ) . Der Einlesevorgang kann durch ein Kamerapolling
regelmäßig wiederholt werden . Ein langes Pollingintervall ist in diesem Fall empfehlenswert , da sich die Presetpositionen nur im Fall der Neuanlage bzw . Änderung verändern werden .
<br> <br>
Hier ein Beispiel einer PTZ - Steuerung in Abhängigkeit eines IR - Melder Events:
<pre>
define CamFL . Preset . Wandschrank notify MelderTER:on . * set CamFL goPreset Wandschrank , ; ; define CamFL . Preset . record at + 00 : 00 : 10 set CamFL on 5 ; ; ; ; define s3 at + * { 3 } 00 : 00 : 05 set CamFL snap ; ; define CamFL . Preset . back at + 00 : 00 : 30 set CamFL goPreset Home
</pre>
Funktionsweise: <br>
Der IR - Melder "MelderTER" registriert eine Bewegung . Daraufhin wird die Kamera CamFL in die Preset - Position "Wandschrank" gebracht . Eine Aufnahme mit Dauer von 5 Sekunden startet 10 Sekunden
später . Da die Voraufnahmezeit der Kamera 10 s beträgt ( vgl . Reading "CamPreRecTime" ) , startet die effektive Aufnahme wenn der Kameraschwenk beginnt . <br>
Mit dem Start der Aufnahme werden drei Schnappschüsse im Abstand von 5 Sekunden angefertigt . <br>
Nach einer Zeit von 30 Sekunden fährt die Kamera wieder zurück in die "Home" - Position . <br> <br>
Ein Auszug aus dem Log verdeutlicht den Ablauf:
<pre>
2016.02 .04 15 : 02 : 14 2 : CamFL - Camera Flur_Vorderhaus has moved to position "Wandschrank"
2016.02 .04 15 : 02 : 24 2 : CamFL - Camera Flur_Vorderhaus Recording with Recordtime 5 s started
2016.02 .04 15 : 02 : 29 2 : CamFL - Snapshot of Camera Flur_Vorderhaus has been done successfully
2016.02 .04 15 : 02 : 30 2 : CamFL - Camera Flur_Vorderhaus Recording stopped
2016.02 .04 15 : 02 : 34 2 : CamFL - Snapshot of Camera Flur_Vorderhaus has been done successfully
2016.02 .04 15 : 02 : 39 2 : CamFL - Snapshot of Camera Flur_Vorderhaus has been done successfully
2016.02 .04 15 : 02 : 44 2 : CamFL - Camera Flur_Vorderhaus has moved to position "Home"
</pre>
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> homeMode [ on | off ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für SVS ) </li> <br>
2018-11-20 23:30:55 +00:00
Schaltet den HomeMode der Surveillance Station ein bzw . aus .
Informationen zum HomeMode sind in der < a href = "https://www.synology.com/de-de/knowledgebase/Surveillance/help/SurveillanceStation/home_mode" > Synology Onlinehilfe </a>
enthalten .
<br> <br>
</ul>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> motdetsc [ camera | SVS | disable ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
Der Befehl "motdetsc" ( steht für motion detection source ) schaltet die Bewegungserkennung in den gewünschten Modus .
Wird die Bewegungserkennung durch die Kamera / SVS ohne weitere Optionen eingestellt , werden die momentan gültigen Bewegungserkennungsparameter der
Kamera / SVS beibehalten . Die erfolgreiche Ausführung der Operation lässt sich u . a . anhand des Status von SVS - & gt ; IP - Kamera - & gt ; Ereigniserkennung - & gt ;
Bewegung nachvollziehen . <br> <br>
Für die Bewegungserkennung durch SVS bzw . durch Kamera können weitere Optionen angegeben werden . Die verfügbaren Optionen bezüglich der Bewegungserkennung
durch SVS sind "Empfindlichkeit" und "Schwellwert" . <br> <br>
<ul>
<table>
<colgroup> < col width = 50 % > < col width = 50 % > < / colgroup >
<tr> <td> set & lt ; name & gt ; motdetsc SVS [ Empfindlichkeit ] [ Schwellwert ] </td> <td> # Befehlsmuster </td></tr>
<tr> <td> set & lt ; name & gt ; motdetsc SVS 91 30 </td> <td> # setzt die Empfindlichkeit auf 91 und den Schwellwert auf 30 </td></tr>
<tr> <td> set & lt ; name & gt ; motdetsc SVS 0 40 </td> <td> # behält gesetzten Wert für Empfindlichkeit bei, setzt Schwellwert auf 40 </td></tr>
<tr> <td> set & lt ; name & gt ; motdetsc SVS 15 </td> <td> # setzt die Empfindlichkeit auf 15, Schwellwert bleibt unverändert </td></tr>
</table>
</ul>
<br> <br>
Wird die Bewegungserkennung durch die Kamera genutzt , stehen die Optionen "Empfindlichkeit" , "Objektgröße" und "Prozentsatz für Auslösung" zur Verfügung . <br> <br>
<ul>
<table>
<colgroup> < col width = 50 % > < col width = 50 % > < / colgroup >
<tr> <td> set & lt ; name & gt ; motdetsc camera [ Empfindlichkeit ] [ Schwellwert ] [ Prozentsatz ] </td> <td> # Befehlsmuster </td></tr>
<tr> <td> set & lt ; name & gt ; motdetsc camera 89 0 20 </td> <td> # setzt die Empfindlichkeit auf 89, Prozentsatz auf 20 </td></tr>
<tr> <td> set & lt ; name & gt ; motdetsc camera 0 40 10 </td> <td> # behält gesetzten Wert für Empfindlichkeit bei, setzt Schwellwert auf 40, Prozentsatz auf 10 </td></tr>
<tr> <td> set & lt ; name & gt ; motdetsc camera 30 </td> <td> # setzt die Empfindlichkeit auf 30, andere Werte bleiben unverändert </td></tr>
</table>
</ul>
<br> <br>
Es ist immer die Reihenfolge der Optionswerte zu beachten . Nicht gewünschte Optionen sind mit "0" zu besetzen sofern danach Optionen folgen
deren Werte verändert werden sollen ( siehe Beispiele oben ) . Der Zahlenwert der Optionen beträgt 1 - 99 ( außer Sonderfall "0" ) . <br> <br>
Die jeweils verfügbaren Optionen unterliegen der Funktion der Kamera und der Unterstützung durch die SVS . Es können jeweils nur die Optionen genutzt werden die in
SVS - & gt ; Kamera bearbeiten - & gt ; Ereigniserkennung zur Verfügung stehen . Weitere Infos sind der Online - Hilfe zur SVS zu entnehmen . <br> <br>
Über den Befehl "get <name> caminfoall" wird auch das < a href = "#SSCamreadings" > Reading </a> "CamMotDetSc" aktualisiert welches die gegenwärtige Einstellung der Bewegungserkennung dokumentiert .
Es werden nur die Parameter und Parameterwerte angezeigt , welche die SVS aktiv unterstützt . Die Kamera selbst kann weiterführende Einstellmöglichkeiten besitzen . <br> <br>
Beipiel:
<pre>
CamMotDetSc SVS , sensitivity: 76 , threshold: 55
</pre>
<br> <br>
</ul>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> move [ right | up | down | left | dir_X ] [ Sekunden ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM bis SVS Version 7.1 ) </li>
<b> move [ right | upright | up | upleft | left | downleft | down | downright ] [ Sekunden ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM ab SVS Version 7.2 ) <br> <br>
2018-11-20 23:30:55 +00:00
Mit diesem Kommando wird eine kontinuierliche Bewegung der PTZ - Kamera gestartet . Neben den vier Grundrichtungen up /down/ left / right stehen auch
Zwischenwinkelmaße "dir_X" zur Verfügung . Die Feinheit dieser Graduierung ist von der Kamera abhängig und kann dem Reading "CapPTZDirections" entnommen werden . <br> <br>
Das Bogenmaß von 360 Grad teilt sich durch den Wert von "CapPTZDirections" und beschreibt die Bewegungsrichtungen beginnend mit "0=rechts" entgegen dem
Uhrzeigersinn . D . h . bei einer Kamera mit "CapPTZDirections = 8" bedeutet dir_0 = rechts , dir_2 = oben , dir_4 = links , dir_6 = unten bzw . dir_1 , dir_3 , dir_5 und dir_7
die entsprechenden Zwischenrichtungen . Die möglichen Bewegungsrichtungen bei Kameras mit "CapPTZDirections = 32" sind dementsprechend kleinteiliger . <br> <br>
Im Gegensatz zum "set <name> goAbsPTZ" - Befehl startet der Befehl "set <name> move" eine kontinuierliche Bewegung bis ein Stop - Kommando empfangen wird .
Das Stop - Kommando wird nach Ablauf der optional anzugebenden Zeit [ Sekunden ] ausgelöst . Wird diese Laufzeit nicht angegeben , wird implizit Sekunde = 1 gesetzt . <br> <br>
<b> Beispiele: </b> <br>
<pre>
set & lt ; name & gt ; move up 0.5 : bewegt PTZ 0 , 5 Sek . ( zzgl . Prozesszeit ) nach oben
set & lt ; name & gt ; move dir_1 1.5 : bewegt PTZ 1 , 5 Sek . ( zzgl . Prozesszeit ) nach rechts - oben
set & lt ; name & gt ; move dir_20 0.7 : bewegt PTZ 1 , 5 Sek . ( zzgl . Prozesszeit ) nach links - unten ( "CapPTZDirections = 32)"
</pre>
</ul>
2019-01-27 15:36:11 +00:00
<br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> off </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM ) </li> <br>
2019-01-27 15:36:11 +00:00
Stoppt eine laufende Aufnahme .
</ul>
2018-11-20 23:30:55 +00:00
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> on [ & lt ; rectime & gt ; ] <br>
2019-12-11 21:16:03 +00:00
[ recEmailTxt: "subject => <Betreff-Text>, body => <Mitteilung-Text>" ] <br>
[ recTelegramTxt: "tbot => <TelegramBot-Device>, peers => [<peer1 peer2 ...>], subject => [<Betreff-Text>]" ] <br>
[ recChatTxt: "chatbot => <SSChatBot-Device>, peers => [<peer1 peer2 ...>], subject => [<Betreff-Text>]" ] <br> </b>
& nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
2019-01-27 15:36:11 +00:00
Startet eine Aufnahme . Die Standardaufnahmedauer beträgt 15 Sekunden . Sie kann mit dem
2018-11-20 23:30:55 +00:00
Attribut "rectime" individuell festgelegt werden .
Die im Attribut ( bzw . im Standard ) hinterlegte Aufnahmedauer kann einmalig mit "set <name> on <rectime>"
überschrieben werden .
Die Aufnahme stoppt automatisch nach Ablauf der Zeit "rectime" . <br>
Ein Sonderfall ist der Start einer Daueraufnahme mit "set <name> on 0" bzw . dem Attributwert "rectime = 0" .
In diesem Fall wird eine Daueraufnahme gestartet , die explizit wieder mit dem Befehl "set <name> off" gestoppt
werden muß . <br>
Das Aufnahmeverhalten kann weiterhin mit dem Attribut "recextend" beeinflusst werden . <br> <br>
2019-01-27 15:36:11 +00:00
<b> Attribut "recextend = 0" bzw . nicht gesetzt ( Standard ) : </b> <br>
2018-11-20 23:30:55 +00:00
<ul>
2019-01-27 15:36:11 +00:00
<li> Wird eine Aufnahme mit z . B . rectime = 22 gestartet , wird kein weiterer Startbefehl für eine Aufnahme akzeptiert bis diese gestartete Aufnahme nach 22 Sekunden
2018-11-20 23:30:55 +00:00
beendet ist . Ein Hinweis wird bei verbose = 3 im Logfile protokolliert . </li>
</ul>
<br>
<b> Attribut "recextend = 1" gesetzt: </b> <br>
<ul>
2019-01-27 15:36:11 +00:00
<li> Eine zuvor gestartete Aufnahme wird bei einem erneuten "set <name> on" - Befehl um die Aufnahmezeit "rectime" verlängert . Das bedeutet , dass der Timer für
2018-11-20 23:30:55 +00:00
den automatischen Stop auf den Wert "rectime" neu gesetzt wird . Dieser Vorgang wiederholt sich mit jedem Start - Befehl . Dadurch verlängert sich eine laufende
Aufnahme bis kein Start - Inpuls mehr registriert wird . </li>
<li> eine zuvor gestartete Endlos - Aufnahme wird mit einem erneuten "set <name> on" - Befehl nach der Aufnahmezeit "rectime" gestoppt ( Timerneustart ) . Ist dies
nicht gewünscht , ist darauf zu achten dass bei der Verwendung einer Endlos - Aufnahme das Attribut "recextend" nicht verwendet wird . </li>
</ul>
<br>
2019-12-11 21:16:03 +00:00
Ein <b> Synology Chat Versand </b> der Aufnahme kann durch Setzen des < a href = "#SSCamattr" > recChatTxt </a> Attributs permanent aktiviert
werden . Das zu verwendende < a href = "https://wiki.fhem.de/wiki/SSChatBot_-_Integration_des_Synology_Chat_Servers" > SSChatBot - Device </a> muss natürlich
funktionstüchtig eingerichtet sein . <br>
Der Text im Attribut "recChatTxt" kann durch die Spezifikation des optionalen "recChatTxt:" - Tags , wie oben
gezeigt , temporär überschrieben bzw . geändert werden . Sollte das Attribut "recChatTxt" nicht gesetzt sein , wird durch Angabe dieses Tags
der Versand mit Synology Chat einmalig aktiviert . ( die Tag - Syntax entspricht dem "recChatTxt" - Attribut ) <br> <br>
2019-01-27 15:36:11 +00:00
Ein <b> Email - Versand </b> der letzten Aufnahme kann durch Setzen des < a href = "#SSCamattr" > Attributs </a> "recEmailTxt"
aktiviert werden . Zuvor ist der Email - Versand , wie im Abschnitt < a href = "#SSCamEmail" > Einstellung Email - Versand </a> beschrieben ,
einzustellen . ( Für weitere Informationen "<b>get <name> versionNotes 7</b>" ausführen ) <br>
2019-02-02 12:41:28 +00:00
Alternativ kann durch Verwendung des optionalen "recEmailTxt:" - Tags der Email - Versand der gestarteten Aufnahme nach deren
Beendigung aktiviert werden . Sollte das Attribut "recEmailTxt" bereits gesetzt sein , wird der Text des "recEmailTxt:" - Tags
2019-01-27 15:36:11 +00:00
anstatt des Attribut - Textes verwendet . <br> <br>
2019-03-04 19:09:35 +00:00
Ein <b> Telegram - Versand </b> der letzten Aufnahme kann durch Setzen des < a href = "#SSCamattr" > Attributs </a> "recTelegramTxt" permanent aktiviert
werden . Das zu verwendende < a href = "http://fhem.de/commandref_DE.html#TelegramBot" > TelegramBot - Device </a> muss natürlich
funktionstüchtig eingerichtet sein . <br>
Der Text im Attribut "recTelegramTxt" kann durch die Spezifikation des optionalen "recTelegramTxt:" - Tags , wie oben
gezeigt , temporär überschrieben bzw . geändert werden . Sollte das Attribut "recTelegramTxt" nicht gesetzt sein , wird durch Angabe dieses Tags
der Telegram - Versand einmalig aktiviert . ( die Tag - Syntax entspricht dem "recTelegramTxt" - Attribut ) <br> <br>
<b> Beispiele </b> : <br>
2019-01-27 15:36:11 +00:00
<code> set & lt ; name & gt ; on [ rectime ] </code> <br>
# startet die Aufnahme der Kamera <name>, automatischer Stop der Aufnahme nach Ablauf der Zeit [rectime]
( default 15 s oder wie im < a href = "#SSCamattr" > Attribut </a> "rectime" angegeben ) <br>
<code> set & lt ; name & gt ; on 0 </code> <br>
# startet eine Daueraufnahme die mit "off" gestoppt werden muss. <br>
<code> set & lt ; name & gt ; on recEmailTxt: "subject => Neue Aufnahme $CAM, body => Die aktuelle Aufnahme von $CAM ist angehängt." </code> <br>
2019-01-27 15:46:58 +00:00
# startet eine Aufnahme und versendet sie nach Beendigung per Email. <br>
2019-03-04 19:09:35 +00:00
<code> set & lt ; name & gt ; on recTelegramTxt: "tbot => teleBot, peers => @xxxx , subject => Bewegungsalarm bei $CAM. Es wurde $CTIME die Aufnahme $FILE erstellt" </code> <br>
# startet eine Aufnahme und versendet sie nach Beendigung per Telegram. <br>
2019-12-11 21:16:03 +00:00
<code> set & lt ; name & gt ; on recChatTxt: "chatbot => SynChatBot, peers => , subject => Bewegungsalarm bei $CAM. Es wurde $CTIME die Aufnahme $FILE erstellt. Jetzt ist es $TIME." </code> <br>
# startet eine Aufnahme und versendet sie nach Beendigung per Synology Chat. <br>
2018-11-20 23:30:55 +00:00
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> optimizeParams [ mirror: & lt ; value & gt ; ] [ flip: & lt ; value & gt ; ] [ rotate: & lt ; value & gt ; ] [ ntp: & lt ; value & gt ; ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
Setzt eine oder mehrere Eigenschaften für die Kamera . Das Video kann gespiegelt ( mirror ) , auf den Kopf gestellt ( flip ) oder
gedreht ( rotate ) werden . Die jeweiligen Eigenschaften müssen von der Kamera unterstützt werden . Mit "ntp" wird der Zeitserver
eingestellt den die Kamera zur Zeitsynchronisation verwendet . <br> <br>
& lt ; value & gt ; kann sein für: <br>
<ul>
<li> <b> mirror , flip , rotate: </b> true | false </li>
2020-06-28 18:49:16 +00:00
<li> <b> ntp: </b> der Name oder die IP - Adresse des Zeitservers </li>
</ul>
<br> <br>
2018-11-20 23:30:55 +00:00
<b> Beispiele: </b> <br>
<code> set & lt ; name & gt ; optimizeParams mirror:true flip:true ntp:time . windows . com </code> <br>
# Das Bild wird gespiegelt, auf den Kopf gestellt und der Zeitserver auf "time.windows.com" eingestellt.<br>
<code> set & lt ; name & gt ; optimizeParams ntp:Surveillance % 20Station </code> <br>
# Die Surveillance Station wird als Zeitserver eingestellt. (NTP-Dienst muss im DSM aktiviert sein) <br>
<code> set & lt ; name & gt ; optimizeParams mirror:true flip:false rotate:true </code> <br>
# Das Bild wird gespiegelt und um 90 Grad gedreht. <br>
<br> <br>
</ul>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> pirSensor [ activate | deactivate ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
Aktiviert / deaktiviert den Infrarot - Sensor der Kamera ( sofern die Kamera einen PIR - Sensor enthält ) .
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> runPatrol & lt ; Patrolname & gt ; </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
Dieses Kommando startet die vordefinierterte Überwachungstour einer PTZ - Kamera . <br>
Die Überwachungstouren müssen dazu zunächst in der Synology Surveillance Station angelegt worden sein .
Das geschieht in der PTZ - Steuerung im IP - Kamera Setup - & gt ; PTZ - Steuerung - & gt ; Überwachung .
Die Überwachungstouren ( Patrols ) werden über das Kommando "get <name> caminfoall" eingelesen , welches beim Restart von FHEM automatisch abgearbeitet wird .
Der Einlesevorgang kann durch ein Kamerapolling regelmäßig wiederholt werden . Ein langes Pollingintervall ist in diesem Fall empfehlenswert , da sich die
Überwachungstouren nur im Fall der Neuanlage bzw . Änderung verändern werden .
Nähere Informationen zur Anlage von Überwachungstouren sind in der Hilfe zur Surveillance Station enthalten .
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> runView [ live_fw | live_fw_hls | live_link | live_open [ & lt ; room & gt ; ] | lastrec_fw | lastrec_fw_MJPEG | lastrec_fw_MPEG4 /H.264 | lastrec_open [<room>] | lastsnap_fw] </ b > & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
<ul>
<table>
<colgroup> < col width = 25 % > < col width = 75 % > < / colgroup >
<tr> <td> live_fw </td> <td> - MJPEG - LiveStream . Audiowiedergabe wird mit angeboten wenn verfügbar . </td> </tr>
<tr> <td> live_fw_hls </td> <td> - HLS - LiveStream ( aktuell nur Mac Safari und mobile iOS /Android-Geräte) </ td > </tr>
<tr> <td> live_link </td> <td> - Link zu einem MJPEG - Livestream </td> </tr>
<tr> <td> live_open [ & lt ; room & gt ; ] </td> <td> - öffnet MJPEG - Stream in separatem Browser - Fenster </td> </tr>
<tr> <td> lastrec_fw </td> <td> - letzte Aufnahme als iFrame Objekt </td> </tr>
<tr> <td> lastrec_fw_MJPEG </td> <td> - nutzbar wenn Aufnahme im Format MJPEG vorliegt </td> </tr>
<tr> <td> lastrec_fw_MPEG4 /H.264 </ td > <td> - nutzbar wenn Aufnahme im Format MPEG4 /H.264 vorliegt </ td > </tr>
<tr> <td> lastrec_open [ & lt ; room & gt ; ] </td> <td> - letzte Aufnahme wird in separatem Browser - Fenster geöffnet </td> </tr>
<tr> <td> lastsnap_fw </td> <td> - letzter Schnappschuss wird dargestellt </td> </tr>
</table>
</ul>
<br> <br>
Mit <b> "live_fw, live_link, live_open" </b> wird ein MJPEG - Livestream , entweder als eingebettetes Image
oder als generierter Link , gestartet . <br>
Der Befehl <b> "live_open" </b> öffnet ein separates Browserfenster mit dem MJPEG - Livestream . Wird dabei optional der Raum mit
angegeben , wird das Browserfenster nur dann gestartet , wenn dieser Raum aktuell im Browser geöffnet ist . <br>
Soll mit <b> "live_fw_hls" </b> ein HLS - Stream verwendet werden , muss die Kamera in der Synology Surveillance Station auf
das Videoformat H .264 ( nicht MJPEG ) eingestellt und HLS durch die eingesetzte SVS - Version unterstützt sein .
Diese Möglichkeit wird deshalb nur dann angeboten wenn das Reading "CamStreamFormat" den Wert "HLS" hat .
<br> <br>
Der Zugriff auf die letzte Aufnahme einer Kamera kann über die Optionen <b> "lastrec_fw.*" </b> bzw . <b> "lastrec_open" </b> erfolgen .
Bei Verwendung von <b> "lastrec_fw.*" </b> wird die letzte Aufnahme als eingebettetes iFrame - Objekt abgespielt . Es werden entsprechende
Steuerungselemente zur Wiedergabegeschwindigkeit usw . angeboten wenn verfügbar . <br> <br>
Der Befehl <b> "set <name> runView lastsnap_fw" </b> zeigt den letzten Schnappschuss der Kamera eingebettet an . <br>
Durch Angabe des optionalen Raumes bei <b> "lastrec_open" </b> erfolgt die gleiche Einschränkung wie bei "live_open" . <br>
Die Gestaltung der Fenster im FHEMWEB kann durch HTML - Tags im < a href = "#SSCamattr" > Attribut </a> "htmlattr" beeinflusst werden .
<br> <br>
<b> Beispiel: </b> <br>
<pre>
attr & lt ; name & gt ; htmlattr width = "500" height = "375"
attr & lt ; name & gt ; htmlattr width = "500" height = "375" top = "200" left = "300"
</pre>
Wird der Stream als live_fw gestartet , ändert sich die Größe entsprechend der Angaben von Width und Hight . <br>
Das Kommando <b> "set <name> runView live_open" </b> startet den Livestreamlink sofort in einem neuen
Browserfenster .
Dabei wird für jede aktive FHEMWEB - Session eine Fensteröffnung initiiert . Soll dieses Verhalten geändert werden , kann
<b> "set <name> runView live_open <room>" </b> verwendet werden um das Öffnen des Browserfensters in einem
beliebigen , in einer FHEMWEB - Session aktiven Raum "<room>" , zu initiieren . <br>
Das gesetzte < a href = "#SSCamattr" > Attribut </a> "livestreamprefix" überschreibt im < a href = "#SSCamreadings" > Reading </a> "LiveStreamUrl"
die Angaben für Protokoll , Servername und Port . Damit kann z . B . die LiveStreamUrl für den Versand und externen Zugriff
auf die SVS modifiziert werden . <br> <br>
<b> Beispiel: </b> <br>
<pre>
attr & lt ; name & gt ; livestreamprefix https: // & lt ; Servername & gt ; : & lt ; Port & gt ;
</pre>
Der Livestream wird über das Kommando <b> "set <name> stopView" </b> wieder beendet . <br>
Die "runView" Funktion schaltet ebenfalls Streaming - Devices vom Typ "switched" in den entsprechenden Modus . <br> <br>
Abhängig vom wiedergegebenen Content werden unterschiedliche Steuertasten angeboten: <br> <br>
<ul>
<table>
<colgroup> < col width = 25 % > < col width = 75 % > < / colgroup >
<tr> <td> Start Recording </td> <td> - startet eine Endlosaufnahme </td> </tr>
<tr> <td> Stop Recording </td> <td> - stoppt eine Aufnahme </td> </tr>
<tr> <td> Take Snapshot </td> <td> - löst einen Schnappschuß aus </td> </tr>
<tr> <td> Switch off </td> <td> - stoppt eine laufende Wiedergabe </td> </tr>
</table>
</ul>
<br>
<b> Hinweis zu HLS ( HTTP Live Streaming ) : </b> <br>
Das Video startet mit einer technologisch bedingten Verzögerung . Jeder Stream wird in eine Reihe sehr kleiner Videodateien
( mit etwa 10 Sekunden Länge ) segmentiert und an den Client ausgeliefert .
Die Kamera muss in der SVS auf das Videoformat H .264 eingestellt sein und nicht jeder Kameratyp ist gleichermassen für
HLS - Streaming geeignet .
Momentan kann HLS nur durch den Mac Safari Browser sowie auf mobilen iOS / Android - Geräten wiedergegeben werden .
2019-03-04 19:09:35 +00:00
<br> <br>
<b> Hinweis zu MJPEG: </b> <br>
Der MJPEG Stream wird innerhalb der SVS aus anderen Codecs ( H .264 ) transkodiert und beträgt normalerweise ca . 1 Fps .
2018-11-20 23:30:55 +00:00
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> setHome & lt ; PresetName & gt ; </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für PTZ - CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
Setzt die Home - Position der Kamera auf einen vordefinierten Preset "<PresetName>" oder auf die aktuell angefahrene
Position .
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> setPreset & lt ; PresetNummer & gt ; [ & lt ; PresetName & gt ; ] [ & lt ; Speed & gt ; ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für PTZ - CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
Setzt einen Preset mit dem Namen "<PresetName>" auf die aktuell angefahrene Position der Kamera . Optional kann die
Geschwindigkeit angegeben werden ( & lt ; Speed & gt ; ) . Ist kein PresetName angegeben , wird die PresetNummer als Name verwendet .
Aus diesem Grund ist & lt ; PresetName & gt ; optional definiert , sollte jedoch im Normalfall gesetzt werden .
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> setZoom & lt ; . + + | + | stop | - | - - . & gt ; </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für PTZ - CAM ) </li> <br>
Stellt Bedienelemte für Zoomfunktionen zur Verfügung sofern die Kamera dieses Merkmal unterstützt .
</ul>
<br> <br>
<ul>
<li> <b> smtpcredentials & lt ; user & gt ; & lt ; password & gt ; </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
2018-12-30 20:20:27 +00:00
Setzt die Credentials für den Zugang zum Postausgangsserver wenn Email - Versand genutzt wird .
</ul>
<br> <br>
2018-11-20 23:30:55 +00:00
2018-12-30 20:20:27 +00:00
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> snap [ & lt ; Anzahl & gt ; ] [ & lt ; Zeitabstand & gt ; ] <br>
2019-12-10 07:22:24 +00:00
[ snapEmailTxt: "subject => <Betreff-Text>, body => <Mitteilung-Text>" ] <br>
[ snapTelegramTxt: "tbot => <TelegramBot-Device>, peers => [<peer1 peer2 ...>], subject => [<Betreff-Text>]" ] <br>
[ snapChatTxt: "chatbot => <SSChatBot-Device>, peers => [<peer1 peer2 ...>], subject => [<Betreff-Text>]" ] <br>
</b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
2019-01-04 20:07:35 +00:00
Ein oder mehrere Schnappschüsse werden ausgelöst . Es kann die Anzahl der auszulösenden Schnappschüsse und deren zeitlicher
2019-01-15 22:25:17 +00:00
Abstand in Sekunden optional angegeben werden . Ohne Angabe wird ein Schnappschuß getriggert . <br>
Es wird die ID und der Filename des letzten Snapshots als Wert der Readings "LastSnapId" bzw . "LastSnapFilename" in
2019-01-20 09:43:30 +00:00
der Kamera gespeichert . <br>
Um die Daten der letzen 1 - 10 Schnappschüsse zu versionieren , kann das < a href = "#SSCamattr" > Attribut </a> "snapReadingRotate"
verwendet werden .
<br> <br>
2019-02-02 12:41:28 +00:00
2019-12-09 20:51:32 +00:00
Ein <b> Synology Chat Versand </b> der Schnappschüsse kann durch Setzen des Attributs < a href = "#snapChatTxt" > snapChatTxt </a> permanent aktiviert
werden . Das zu verwendende < a href = "https://wiki.fhem.de/wiki/SSChatBot_-_Integration_des_Synology_Chat_Servers" > SSChatBot - Device </a> muss natürlich
funktionstüchtig eingerichtet sein . <br>
Der Text im Attribut "snapChatTxt" kann durch die Spezifikation des optionalen "snapChatTxt:" - Tags , wie oben
gezeigt , temporär überschrieben bzw . geändert werden . Sollte das Attribut "snapChatTxt" nicht gesetzt sein , wird durch Angabe dieses Tags
der SSChatBot - Versand einmalig aktiviert ( die Syntax entspricht dem "snapChatTxt" - Attribut ) . <br>
In jedem Fall ist vorher das Attribut < a href = "#videofolderMap" > videofolderMap </a> zu setzen . Es muß eine URL zum
root - Verzeichnis der Aufnahmen und Schnappschüssen enthalten ( z . B . http: //s erver . mein:8081 / surveillance ) . <br> <br>
Ein <b> Email - Versand </b> der Schnappschüsse kann durch Setzen des Attributs < a href = "#snapEmailTxt" > snapEmailTxt </a> permanent aktiviert
2019-01-15 22:25:17 +00:00
werden . Zuvor ist der Email - Versand , wie im Abschnitt < a href = "#SSCamEmail" > Einstellung Email - Versand </a> beschrieben ,
einzustellen . ( Für weitere Informationen "<b>get <name> versionNotes 7</b>" ausführen ) <br>
Der Text im Attribut "snapEmailTxt" kann durch die Spezifikation des optionalen "snapEmailTxt:" - Tags , wie oben
2019-02-01 15:00:29 +00:00
gezeigt , temporär überschrieben bzw . geändert werden . Sollte das Attribut "snapEmailTxt" nicht gesetzt sein , wird durch Angabe dieses Tags
2019-02-04 17:43:27 +00:00
der Email - Versand einmalig aktiviert . ( die Tag - Syntax entspricht dem "snapEmailTxt" - Attribut ) <br> <br>
2019-02-02 12:41:28 +00:00
2019-12-09 20:51:32 +00:00
Ein <b> Telegram - Versand </b> der Schnappschüsse kann durch Setzen des Attributs < a href = "#snapTelegramTxt" > snapTelegramTxt </a> permanent aktiviert
2019-02-04 17:43:27 +00:00
werden . Das zu verwendende < a href = "http://fhem.de/commandref_DE.html#TelegramBot" > TelegramBot - Device </a> muss natürlich
funktionstüchtig eingerichtet sein . <br>
2019-02-02 12:41:28 +00:00
Der Text im Attribut "snapTelegramTxt" kann durch die Spezifikation des optionalen "snapTelegramTxt:" - Tags , wie oben
gezeigt , temporär überschrieben bzw . geändert werden . Sollte das Attribut "snapTelegramTxt" nicht gesetzt sein , wird durch Angabe dieses Tags
2019-02-04 17:43:27 +00:00
der Telegram - Versand einmalig aktiviert . ( die Tag - Syntax entspricht dem "snapTelegramTxt" - Attribut ) <br> <br>
2019-01-16 23:49:55 +00:00
<b> Beispiele: </b>
<pre>
2019-02-02 12:41:28 +00:00
set & lt ; name & gt ; snap
2019-01-16 23:49:55 +00:00
set & lt ; name & gt ; snap 4
set & lt ; name & gt ; snap 3 3 snapEmailTxt: "subject => Bewegungsalarm $CAM, body => Eine Bewegung wurde am Carport registriert"
2019-02-02 12:41:28 +00:00
set & lt ; name & gt ; snap 2 snapTelegramTxt: "tbot => teleBot, peers => , subject => Bewegungsalarm bei $CAM. Es wurde $CTIME der Schnappschuss $FILE erstellt"
2019-12-09 20:51:32 +00:00
set & lt ; name & gt ; snap 2 snapChatTxt: "chatbot => SynChatBot , peers => Frodo Sam, subject => Bewegungsalarm bei $CAM. Es wurde $CTIME der Schnappschuss $FILE erstellt. Jetzt ist es: $TIME."
2019-01-16 23:49:55 +00:00
</pre>
2019-01-14 23:09:42 +00:00
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> snapCams [ & lt ; Anzahl & gt ; ] [ & lt ; Zeitabstand & gt ; ] [ CAM: "<Kamera>, <Kamera>, ..." ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für SVS ) </li> <br>
2019-01-14 23:09:42 +00:00
Ein oder mehrere Schnappschüsse der angegebenen Kamera - Devices werden ausgelöst . Sind keine Kamera - Devices angegeben ,
werden die Schnappschüsse bei allen in FHEM definierten Kamera - Devices getriggert .
2019-01-15 22:25:17 +00:00
Optional kann die Anzahl der auszulösenden Schnappschüsse ( default: 1 ) und deren zeitlicher Abstand in Sekunden
( default: 2 ) angegeben werden . <br>
Es wird die ID und der Filename des letzten Snapshots als Wert der Readings "LastSnapId" bzw . "LastSnapFilename"
der entsprechenden Kamera gespeichert . <br> <br>
Ein <b> Email - Versand </b> der Schnappschüsse kann durch Setzen des < a href = "#SSCamattr" > Attributs </a> <b> "snapEmailTxt" </b> im
SVS - Device <b> UND </b> in den Kamera - Devices , deren Schnappschüsse versendet werden sollen , aktiviert werden .
2019-01-16 23:49:55 +00:00
Bei Kamera - Devices die kein Attribut "snapEmailTxt" gesetzt haben , werden die Schnappschüsse ausgelöst , aber nicht versendet .
2019-01-15 22:25:17 +00:00
Zuvor ist der Email - Versand , wie im Abschnitt < a href = "#SSCamEmail" > Einstellung Email - Versand </a> beschrieben ,
einzustellen . ( Für weitere Informationen "<b>get <name> versionNotes 7</b>" ausführen ) <br>
2019-01-16 23:49:55 +00:00
Es wird ausschließlich der im Attribut "snapEmailTxt" des SVS - Devices hinterlegte Email - Text in der erstellten Email
verwendet . Der Text im Attribut "snapEmailTxt" der einzelnen Kameras wird ignoriert ! ! <br> <br>
<b> Beispiele: </b>
<pre>
set & lt ; name & gt ; snapCams 4
set & lt ; name & gt ; snapCams 3 3 CAM: "CamHE1, CamCarport"
</pre>
2018-11-20 23:30:55 +00:00
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> snapGallery [ 1 - 10 ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
Der Befehl ist nur vorhanden wenn das Attribut "snapGalleryBoost=1" gesetzt wurde .
Er erzeugt eine Ausgabe der letzten [ x ] Schnappschüsse ebenso wie < a href = "#SSCamget" > "get <name> snapGallery" </a> . Abweichend von "get" wird mit Attribut
< a href = "#SSCamattr" > Attribut </a> "snapGalleryBoost=1" kein Popup erzeugt , sondern die Schnappschußgalerie als Browserseite
dargestellt . Alle weiteren Funktionen und Attribute entsprechen dem "get <name> snapGallery" Kommando . <br>
Wenn die Ausgabe einer Schnappschußgalerie , z . B . über ein "at oder " notify " , getriggert wird , sollte besser das
< a href = "#SSCamget" > "get <name> snapGallery" </a> Kommando anstatt "set" verwendet werden .
2018-11-25 07:58:47 +00:00
<br> <br>
<b> Hinweis </b> <br>
Die Namen der Kameras in der SVS sollten sich nicht stark ähneln , da es ansonsten zu Ungenauigkeiten beim Abruf der
Schnappschußgallerie kommen kann .
2018-11-20 23:30:55 +00:00
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> startTracking </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM mit Tracking Fähigkeit ) </li> <br>
2018-11-20 23:30:55 +00:00
Startet Objekt Tracking der Kamera .
Der Befehl ist nur vorhanden wenn die Surveillance Station die Fähigkeit der Kamera zum Objekt Tracking erkannt hat
( Reading "CapPTZObjTracking" ) .
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> stopTracking </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM mit Tracking Fähigkeit ) </li> <br>
2018-11-20 23:30:55 +00:00
Stoppt Objekt Tracking der Kamera .
Der Befehl ist nur vorhanden wenn die Surveillance Station die Fähigkeit der Kamera zum Objekt Tracking erkannt hat
( Reading "CapPTZObjTracking" ) .
</ul>
<br> <br>
</ul>
<br>
< a name = "SSCamget" > </a>
<b> Get </b>
<ul>
<br>
Mit SSCam können die Eigenschaften der Surveillance Station und der Kameras abgefragt werden . <br>
Die aufgeführten get - Befehle sind für CAM / SVS - Devices oder nur für CAM - Devices bzw . nur für SVS - Devices gültig . Sie stehen im
Drop - Down - Menü des jeweiligen Devices zur Auswahl zur Verfügung . <br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> caminfoall </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM /SVS)</ li >
<b> caminfo </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM ) <br> <br>
2018-11-20 23:30:55 +00:00
Es werden SVS - Parameter und abhängig von der Art der Kamera ( z . B . Fix - oder PTZ - Kamera ) die verfügbaren Kamera - Eigenschaften
ermittelt und als Readings zur Verfügung gestellt . <br>
So wird zum Beispiel das Reading "Availability" auf "disconnected" gesetzt falls die Kamera von der Surveillance Station
getrennt ist . <br>
"getcaminfo" ruft eine Teilmenge von "getcaminfoall" ab .
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> eventlist </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
Es wird das < a href = "#SSCamreadings" > Reading </a> "CamEventNum" und "CamLastRec"
aktualisiert , welches die Gesamtanzahl der registrierten Kameraevents und den Pfad / Namen der letzten Aufnahme enthält .
Dieser Befehl wird implizit mit "get <name> caminfoall" ausgeführt . <br>
Mit dem < a href = "#SSCamattr" > Attribut </a> "videofolderMap" kann der Inhalt des Readings "VideoFolder" überschrieben werden .
Dies kann von Vortel sein wenn das Surveillance - Verzeichnis der SVS an dem lokalen PC unter anderem Pfadnamen gemountet ist
und darüber der Zugriff auf die Aufnahmen erfolgen soll ( z . B . Verwendung bei Email - Versand ) . <br> <br>
Ein DOIF - Beispiel für den Email - Versand von Snapshot und Aufnahmelink per non - blocking sendmail:
<pre>
define CamHE1 . snap . email DOIF ( [ CamHE1: "LastSnapFilename" ] )
( { DebianMailnbl ( 'Recipient@Domain' , 'Bewegungsalarm CamHE1' , ' Eine Bewegung wurde an der Haustür registriert . Aufnahmelink: \
\ [ CamHE1:VideoFolder ] \ [ CamHE1:CamLastRec ] ',' /media/s f_surveillance /@Snapshot/ [ CamHE1:LastSnapFilename ] ' ) } )
</pre>
</ul>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> homeModeState </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für SVS ) </li> <br>
2018-11-20 23:30:55 +00:00
HomeMode - Status der Surveillance Station wird abgerufen .
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> listLog [ severity: & lt ; Loglevel & gt ; ] [ limit: & lt ; Zeilenzahl & gt ; ] [ match: & lt ; Suchstring & gt ; ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für SVS ) </li> <br>
2018-11-20 23:30:55 +00:00
Ruft das Surveillance Station Log vom Synology Server ab . Ohne Angabe der optionalen Zusätze wird das gesamte Log abgerufen . <br>
Es können alle oder eine Auswahl der folgenden Optionen angegeben werden: <br> <br>
<ul>
<li> & lt ; Loglevel & gt ; - Information , Warning oder Error . Nur Sätze mit dem Schweregrad werden abgerufen ( default: alle ) </li>
<li> & lt ; Zeilenzahl & gt ; - die angegebene Anzahl der Logzeilen ( neueste ) wird abgerufen ( default: alle ) </li>
<li> & lt ; Suchstring & gt ; - nur Logeinträge mit dem angegeben String werden abgerufen ( Achtung: kein Regex , der Suchstring wird im Call an die SVS mitgegeben ) </li>
</ul>
<br>
<b> Beispiele </b> <br>
<ul>
<code> get & lt ; name & gt ; listLog severity:Error limit:5 </code> <br>
Zeigt die letzten 5 Logeinträge mit dem Schweregrad "Error" <br>
<code> get & lt ; name & gt ; listLog severity:Information match:Carport </code> <br>
Zeigt alle Logeinträge mit dem Schweregrad "Information" die den String "Carport" enthalten <br>
<code> get & lt ; name & gt ; listLog severity:Warning </code> <br>
Zeigt alle Logeinträge mit dem Schweregrad "Warning" <br> <br>
</ul>
Wurde mit dem < a href = "#SSCamattr" > Attribut </a> "pollcaminfoall" das Polling der SVS aktiviert , wird das < a href = "#SSCamreadings" > Reading </a>
"LastLogEntry" erstellt . <br>
Im Protokoll - Setup der SVS kann man einstellen was protokolliert werden soll . Für weitere Informationen
siehe < a href = "https://www.synology.com/de-de/knowledgebase/Surveillance/help/SurveillanceStation/log_advanced" > Synology Online - Hlfe </a> .
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> listPresets </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für PTZ - CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
Die für die Kamera gespeicherten Presets werden in einem Popup ausgegeben .
</ul>
<br> <br>
2018-12-31 14:26:04 +00:00
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> saveRecording [ & lt ; Pfad & gt ; ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM ) </li> <br>
2018-12-31 14:26:04 +00:00
Die aktuell im Reading "CamLastRec" angegebene Aufnahme wird lokal als MP4 - File gespeichert . Optional kann der Pfad zur
Speicherung des Files im Befehl angegeben werden ( default: modpath im global Device ) . <br>
Das File erhält lokal den gleichen Namen wie im Reading "CamLastRec" angegeben . <br> <br>
<ul>
<b> Beispiel: </b> <br> <br>
get & lt ; name & gt ; saveRecording /opt/ fhem / log
2018-12-31 14:28:10 +00:00
</ul>
2018-12-31 14:26:04 +00:00
</ul>
<br> <br>
2018-11-20 23:30:55 +00:00
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> scanVirgin </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM /SVS)</ li > <br>
2018-11-20 23:30:55 +00:00
Wie mit get caminfoall werden alle Informationen der SVS und Kamera abgerufen . Allerdings wird in jedem Fall eine
neue Session ID generiert ( neues Login ) , die Kamera - ID neu ermittelt und es werden alle notwendigen API - Parameter neu
eingelesen .
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> snapGallery [ 1 - 10 ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
Es wird ein Popup mit den letzten [ x ] Schnapschüssen erzeugt . Ist das < a href = "#SSCamattr" > Attribut </a> "snapGalleryBoost" gesetzt ,
werden die letzten Schnappschüsse ( default 3 ) über Polling abgefragt und im Speicher gehalten . Das Verfahren hilft die Ausgabe zu beschleunigen ,
kann aber möglicherweise nicht den letzten Schnappschuß anzeigen , falls dieser NICHT über das Modul ausgelöst wurde . <br>
Diese Funktion kann ebenfalls , z . B . mit "at" oder "notify" , getriggert werden . Dabei wird die Schnappschußgalerie auf allen
verbundenen FHEMWEB - Instanzen als Popup angezeigt . <br> <br>
Zur weiteren Steuerung dieser Funktion stehen die < a href = "#SSCamattr" > Attribute </a> : <br> <br>
<ul>
<li> snapGalleryBoost </li>
2020-06-28 18:49:16 +00:00
<li> snapGalleryColumns </li>
<li> snapGalleryHtmlAttr </li>
<li> snapGalleryNumber </li>
<li> snapGallerySize </li>
2018-11-20 23:30:55 +00:00
</ul> <br>
zur Verfügung .
</ul> <br>
<ul>
2020-06-28 18:49:16 +00:00
<b> Hinweis: </b> <br>
2018-11-20 23:30:55 +00:00
Abhängig von der Anzahl und Auflösung ( Qualität ) der Schnappschuß - Images werden entsprechend ausreichende CPU und / oder
2020-06-28 18:49:16 +00:00
RAM - Ressourcen benötigt . Die Namen der Kameras in der SVS sollten sich nicht stark ähneln , da es ansonsten zu
2018-11-25 07:58:47 +00:00
Ungnauigkeiten beim Abruf der Schnappschußgallerie kommen kann .
2018-11-20 23:30:55 +00:00
</ul>
2020-06-28 18:49:16 +00:00
<br> <br>
2018-11-20 23:30:55 +00:00
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> snapfileinfo </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
Es wird der Filename des letzten Schnapschusses ermittelt . Der Befehl wird implizit mit <b> "get <name> snap" </b>
ausgeführt .
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> snapinfo </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
Es werden Schnappschussinformationen gelesen . Hilfreich wenn Schnappschüsse nicht durch SSCam , sondern durch die Bewegungserkennung der Kamera
oder Surveillance Station erzeugt werden .
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> stmUrlPath </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM ) </li> <br>
2018-11-20 23:30:55 +00:00
Mit diesem Kommando wird der aktuelle Streamkey der Kamera abgerufen und das Reading mit dem Key - Wert gefüllt .
Dieser Streamkey kann verwendet werden um eigene Aufrufe eines Livestreams aufzubauen ( siehe Beispiel ) .
Wenn das < a href = "#SSCamattr" > Attribut </a> "showStmInfoFull" gesetzt ist , werden zusaätzliche Stream - Informationen wie "StmKeyUnicst" , "StmKeymjpegHttp" ausgegeben .
Diese Readings enthalten die gültigen Stream - Pfade zu einem Livestream und können z . B . versendet und von einer entsprechenden Anwendung ohne session Id geöffnet werden .
Wenn das Attribut "livestreamprefix" ( Format: " http ( s ) : // & lt ; hostname & gt ; & lt ; port & gt ; ) gesetzt ist , wird der Servername und Port überschrieben soweit es sinnvoll ist .
Wird Polling der Kameraeigenschaften genutzt , wird die stmUrlPath - Funktion automatisch mit ausgeführt .
<br> <br>
Beispiel für den Aufbau eines Http - Calls zu einem Livestream mit StmKey:
<pre>
http ( s ) : // & lt ; hostname & gt ; & lt ; port & gt ; /webapi/ entry . cgi ? api = SYNO . SurveillanceStation . VideoStreaming & version = 1 & method = Stream & format = mjpeg & cameraId = 5 & StmKey = "31fd87279976d89bb98409728cced890"
</pre>
cameraId ( Internal CAMID ) , StmKey müssen durch gültige Werte ersetzt werden . <br> <br>
<b> Hinweis: </b> <br>
Falls der Stream - Aufruf versendet und von extern genutzt wird sowie hostname / port durch gültige Werte ersetzt und die
Routerports entsprechend geöffnet werden , ist darauf zu achten , dass diese sensiblen Daten nicht durch unauthorisierte Personen
für den Zugriff genutzt werden können !
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> storedCredentials </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM /SVS)</ li > <br>
2018-11-20 23:30:55 +00:00
Die gespeicherten Anmeldeinformationen ( Credentials ) werden in einem Popup als Klartext angezeigt .
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> svsinfo </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM /SVS)</ li > <br>
2018-11-20 23:30:55 +00:00
Ermittelt allgemeine Informationen zur installierten SVS - Version und andere Eigenschaften . <br>
</ul>
<br> <br>
<ul>
2020-06-25 06:21:49 +00:00
<li> <b> versionNotes [ hints | rel | & lt ; key & gt ; ] </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( gilt für CAM /SVS)</ li > <br>
2018-11-20 23:30:55 +00:00
Zeigt Release Informationen und / oder Hinweise zum Modul an . Es sind nur Release Informationen mit Bedeutung für den
Modulnutzer enthalten . <br>
Sind keine Optionen angegben , werden sowohl Release Informationen als auch Hinweise angezeigt . "rel" zeigt nur Release
Informationen und "hints" nur Hinweise an . Mit der & lt ; key & gt ; - Angabe wird der Hinweis mit der angegebenen Nummer
angezeigt .
Ist das Attribut "language = DE" im global Device gesetzt , erfolgt die Ausgabe der Hinweise in deutscher Sprache .
</ul>
<br> <br>
</ul>
<br> <br>
2019-01-15 22:25:17 +00:00
< a name = "SSCamEmail" > </a>
<b> Einstellung Email - Versand </b> <br> <br>
<ul>
2019-01-27 15:36:11 +00:00
Schnappschüsse und Aufnahmen können nach der Erstellung per <b> Email </b> versendet werden . Dazu enthält das
Modul einen eigenen Email - Client .
2019-01-15 22:25:17 +00:00
Zur Verwendung dieser Funktion muss das Perl - Modul <b> MIME:: Lite </b> installiert sein . Auf Debian - Systemen kann
es mit <br> <br>
<ul>
sudo apt - get install libmime - lite - perl
</ul>
<br>
installiert werden . <br> <br>
Für die Verwendung des Email - Versands müssen einige Attribute gesetzt oder können optional genutzt werden . <br>
Die Credentials für den Zugang zum Email - Server müssen mit dem Befehl <b> "set <name> smtpcredentials <user> <password>" </b>
hinterlegt werden . Der Verbindungsaufbau zum Postausgangsserver erfolgt initial unverschüsselt und wechselt zu einer verschlüsselten
Verbindung wenn SSL zur Verfügung steht . In diesem Fall erfolgt auch die Übermittlung von User / Password verschlüsselt .
2019-12-09 20:51:32 +00:00
Ist das Attribut < a href = "#smtpSSLPort" > smtpSSLPort </a> definiert , erfolgt der Verbindungsaufbau zum Email - Server sofort verschlüsselt .
2019-01-15 22:25:17 +00:00
<br> <br>
Optionale Attribute sind gekennzeichnet: <br> <br>
<ul>
<table>
<colgroup> < col width = 12 % > < col width = 88 % > < / colgroup >
2019-12-09 20:51:32 +00:00
<tr> <td> <b> snapEmailTxt </b> </td> <td> - <b> Aktiviert den Email - Versand von Schnappschüssen </b> .
2019-01-27 15:36:11 +00:00
Das Attribut hat das Format: <br>
2019-01-15 22:25:17 +00:00
<ul>
<code> subject = > & lt ; Betreff - Text & gt ; , body = > & lt ; Mitteilung - Text & gt ; </code> <br>
</ul>
2019-02-02 12:41:28 +00:00
Es können die Platzhalter $ CAM , $ DATE und $ TIME verwendet werden . <br>
2020-06-28 18:49:16 +00:00
Der Email - Versand des letzten Schnappschusses wird einmalig aktiviert falls der "snapEmailTxt:" - Tag
beim "snap" - Kommando verwendet wird bzw . der in diesem Tag definierte Text statt des Textes im
Attribut "snapEmailTxt" verwendet . </td> </tr>
<tr> <td> </td> <td> </td> </tr>
2019-12-09 20:51:32 +00:00
<tr> <td> </td> <td> </td> </tr>
<tr> <td> <b> recEmailTxt </b> </td> <td> - <b> Aktiviert den Email - Versand von Aufnahmen </b> .
2019-01-27 15:36:11 +00:00
Das Attribut hat das Format: <br>
<ul>
<code> subject = > & lt ; Betreff - Text & gt ; , body = > & lt ; Mitteilung - Text & gt ; </code> <br>
</ul>
2019-02-02 12:41:28 +00:00
Es können die Platzhalter $ CAM , $ DATE und $ TIME verwendet werden . <br>
2019-02-01 15:00:29 +00:00
Der Email - Versand der letzten Aufnahme wird einamlig aktiviert falls der "recEmailTxt:" - Tag beim
"on" - Kommando verwendet wird bzw . der in diesem Tag definierte Text statt des Textes im
2020-06-28 18:49:16 +00:00
Attribut "recEmailTxt" verwendet . </td> </tr>
<tr> <td> </td> <td> </td> </tr>
<tr> <td> </td> <td> </td> </tr>
2019-01-15 22:25:17 +00:00
<tr> <td> <b> smtpHost </b> </td> <td> - Hostname oder IP - Adresse des Postausgangsservers ( z . B . securesmtp . t - online . de ) </td> </tr>
<tr> <td> <b> smtpFrom </b> </td> <td> - Absenderadresse ( & lt ; name & gt @ & lt ; domain & gt ) </td> </tr>
<tr> <td> <b> smtpTo </b> </td> <td> - Empfängeradresse ( n ) ( & lt ; name & gt @ & lt ; domain & gt ) </td> </tr>
<tr> <td> <b> smtpPort </b> </td> <td> - ( optional ) Port des Postausgangsservers ( default: 25 ) </td> </tr>
2020-06-28 18:49:16 +00:00
<tr> <td> <b> smtpCc </b> </td> <td> - ( optional ) Carbon - Copy Empfängeradresse ( n ) ( & lt ; name & gt @ & lt ; domain & gt ) </td> </tr>
<tr> <td> <b> smtpNoUseSSL </b> </td> <td> - ( optional ) "1" wenn kein SSL beim Email - Versand verwendet werden soll ( default: 0 ) </td> </tr>
<tr> <td> <b> smtpSSLPort </b> </td> <td> - ( optional ) SSL - Port des Postausgangsservers ( default: 465 ) </td> </tr>
<tr> <td> <b> smtpDebug </b> </td> <td> - ( optional ) zum Debugging der SMTP - Verbindung setzen </td> </tr>
2019-01-15 22:25:17 +00:00
</table>
</ul>
<br>
2019-02-02 12:41:28 +00:00
Zur näheren Erläuterung siehe Beschreibung der < a href = "#SSCamattr" > Attribute </a> . <br> <br>
Erläuterung der Platzhalter: <br> <br>
2020-06-28 18:49:16 +00:00
2019-02-02 12:41:28 +00:00
<ul>
<table>
<colgroup> < col width = 10 % > < col width = 90 % > < / colgroup >
<tr> <td> $ CAM </td> <td> - Device - Alias bzw . den Namen der Kamera in der SVS ersetzt falls der Device - Alias nicht vorhanden ist </td> </tr>
<tr> <td> $ DATE </td> <td> - aktuelles Datum </td> </tr>
<tr> <td> $ TIME </td> <td> - aktuelle Zeit </td> </tr>
<tr> <td> $ FILE </td> <td> - Filename des Schnappschusses </td> </tr>
<tr> <td> $ CTIME </td> <td> - Erstellungszeit des Schnappschusses </td> </tr>
</table>
</ul>
2019-02-03 06:36:15 +00:00
<br>
</ul>
2019-01-15 22:25:17 +00:00
<br> <br>
2018-11-20 23:30:55 +00:00
< a name = "SSCamPolling" > </a>
<b> Polling der Kamera /SVS-Eigenschaften:</ b > <br> <br>
2019-01-15 22:25:17 +00:00
<ul>
2019-12-09 20:51:32 +00:00
Die Abfrage der Kameraeigenschaften erfolgt automatisch , wenn das Attribut < a href = "#pollcaminfoall" > pollcaminfoall </a> mit einem Wert & gt ; 10 gesetzt wird . <br>
Per Default ist das Attribut < a href = "#pollcaminfoall" > pollcaminfoall </a> nicht gesetzt und das automatische Polling nicht aktiv . <br>
2018-11-20 23:30:55 +00:00
Der Wert dieses Attributes legt das Intervall der Abfrage in Sekunden fest . Ist das Attribut nicht gesetzt oder & lt ; 10 wird kein automatisches Polling <br>
gestartet bzw . gestoppt wenn vorher der Wert & gt ; 10 gesetzt war . <br> <br>
2019-12-09 20:51:32 +00:00
Das Attribut < a href = "#pollcaminfoall" > pollcaminfoall </a> wird durch einen Watchdog - Timer überwacht . Änderungen des Attributwertes werden alle 90 Sekunden ausgewertet und entsprechend umgesetzt . <br>
Eine Änderung des Pollingstatus / Pollingintervalls wird im FHEM-Logfile protokolliert. Diese Protokollierung kann durch Setzen des Attributes <a href="#pollnologging">pollnologging=1</ a > abgeschaltet werden . <br>
2018-11-20 23:30:55 +00:00
Dadurch kann ein unnötiges Anwachsen des Logs vermieden werden . Ab verbose = 4 wird allerdings trotz gesetzten "pollnologging" - Attribut ein Log des Pollings <br>
zu Analysezwecken aktiviert . <br> <br>
Wird FHEM neu gestartet , wird bei aktivierten Polling der ersten Datenabruf innerhalb 60 s nach dem Start ausgeführt . <br> <br>
Der Status des automatischen Pollings wird durch das Reading "PollState" signalisiert: <br> <br>
<ul>
<li> <b> PollState = Active </b> - automatisches Polling wird mit Intervall entsprechend "pollcaminfoall" ausgeführt </li>
<li> <b> PollState = Inactive </b> - automatisches Polling wird nicht ausgeführt </li>
</ul>
<br>
Die Bedeutung der Readingwerte ist unter < a href = "#SSCamreadings" > Readings </a> beschrieben . <br> <br>
<b> Hinweise: </b> <br> <br>
Wird Polling eingesetzt , sollte das Intervall nur so kurz wie benötigt eingestellt werden da die ermittelten Werte überwiegend statisch sind . <br>
Das eingestellte Intervall sollte nicht kleiner sein als die Summe aller HTTP - Verarbeitungszeiten .
Pro Pollingaufruf und Kamera werden ca . 10 - 20 Http - Calls gegen die Surveillance Station abgesetzt . <br> <br>
2019-12-09 20:51:32 +00:00
Bei einem eingestellten HTTP - Timeout ( siehe < a href = "#httptimeout" > httptimeout </a> ) von 4 Sekunden kann die theoretische Verarbeitungszeit nicht höher als 80 Sekunden betragen . <br>
2018-11-20 23:30:55 +00:00
In dem Beispiel sollte man das Pollingintervall mit einem Sicherheitszuschlag auf nicht weniger 160 Sekunden setzen . <br>
Ein praktikabler Richtwert könnte zwischen 600 - 1800 ( s ) liegen . <br>
Sind mehrere Kameras in SSCam definiert , sollte "pollcaminfoall" nicht bei allen Kameras auf exakt den gleichen Wert gesetzt werden um Verarbeitungsengpässe <br>
und dadurch versursachte potentielle Fehlerquellen bei der Abfrage der Synology Surveillance Station zu vermeiden . <br>
2019-01-15 22:25:17 +00:00
Ein geringfügiger Unterschied zwischen den Pollingintervallen der definierten Kameras von z . B . 1 s kann bereits als ausreichend angesehen werden .
</ul>
<br> <br>
2018-11-20 23:30:55 +00:00
< a name = "SSCaminternals" > </a>
<b> Internals </b> <br> <br>
<ul>
Die Bedeutung der verwendeten Internals stellt die nachfolgende Liste dar: <br> <br>
<ul>
<li> <b> CAMID </b> - die ID der Kamera in der SVS , der Wert wird automatisch anhand des SVS - Kameranamens ermittelt . </li>
<li> <b> CAMNAME </b> - der Name der Kamera in der SVS </li>
<li> <b> COMPATIBILITY </b> - Information bis zu welcher SVS - Version das Modul kompatibel bzw . zur Zeit getestet ist ( siehe Reading "compstate" ) </li>
<li> <b> CREDENTIALS </b> - der Wert ist "Set" wenn die Credentials gesetzt wurden </li>
<li> <b> MODEL </b> - Unterscheidung von Kamera - Device ( Hersteller - Kameratyp ) und Surveillance Station Device ( SVS ) </li>
<li> <b> NAME </b> - der Kameraname in FHEM </li>
<li> <b> OPMODE </b> - die zuletzt ausgeführte Operation des Moduls </li>
<li> <b> SERVERADDR </b> - IP - Adresse des SVS Hostes </li>
<li> <b> SERVERPORT </b> - der SVS - Port </li>
<br> <br>
</ul>
</ul>
< a name = "SSCamattr" > </a>
<b> Attribute </b>
<br> <br>
<ul>
<ul>
2019-10-26 18:41:42 +00:00
< a name = "cacheServerParam" > </a>
<li> <b> cacheServerParam </b> <br>
2019-10-27 08:07:57 +00:00
Angabe der Verbindungsparameter zu einem zentralen Datencache . <br> <br>
2019-10-26 18:41:42 +00:00
<table>
<colgroup> < col width = 10 % > < col width = 90 % > < / colgroup >
<tr> <td> <b> redis </b> </td> <td> : bei Netzwerkverbindung: & lt ; IP - Adresse & gt ; : & lt ; Port & gt ; / bei Unix-Socket: <unix>:</ path /zum/soc ket & gt ; </td> </tr>
</table>
2019-11-06 20:01:26 +00:00
<br>
2019-10-26 18:41:42 +00:00
</li> <br>
< a name = "cacheType" > </a>
<li> <b> cacheType </b> <br>
Legt den zu verwendenden Cache für die Speicherung von Schnappschüssen , Aufnahmen und anderen Massendaten fest .
( Default: internal ) . <br>
2019-11-06 20:01:26 +00:00
Es müssen eventuell weitere Module installiert werden , z . B . mit Hilfe des < a href = "http://fhem.de/commandref.html#Installer" > FHEM Installers </a> . <br>
2019-10-26 18:41:42 +00:00
Die Daten werden in "Namespaces" gespeichert um die Nutzung zentraler Caches ( redis ) zu ermöglichen . <br>
Die Cache Typen "file" und "redis" bieten sich an , wenn die Daten nicht im RAM des FHEM - Servers gehalten werden sollen .
Für die Verwendung von Redis ist zunächst ein Redis Key - Value Store bereitzustellen , z . B . in einem Docker - Image auf
2019-11-06 20:01:26 +00:00
der Synology Diskstation ( < a href = "https://hub.docker.com/_/redis" > redis </a> ) . <br> <br>
2019-10-26 18:41:42 +00:00
<table>
<colgroup> < col width = 10 % > < col width = 90 % > < / colgroup >
<tr> <td> <b> internal </b> </td> <td> : verwendet modulinterne Speicherung ( Default ) </td> </tr>
<tr> <td> <b> mem </b> </td> <td> : sehr schneller Cache , kopiert Daten in den RAM </td> </tr>
<tr> <td> <b> rawmem </b> </td> <td> : schnellster Cache bei komplexen Daten , speichert Referenzen im RAM </td> </tr>
<tr> <td> <b> file </b> </td> <td> : erstellt und verwendet eine Verzeichnisstruktur im Directory "FhemUtils" </td> </tr>
<tr> <td> <b> redis </b> </td> <td> : Verwendet einen externen Redis Key - Value Store per TCP oder Unix - Socket . Siehe dazu Attribut "cacheServerParam" . </td> </tr>
</table>
2019-11-06 20:01:26 +00:00
<br>
2019-10-26 18:41:42 +00:00
</li> <br>
2018-11-20 23:30:55 +00:00
< a name = "debugactivetoken" > </a>
<li> <b> debugactivetoken </b> <br>
2019-11-06 20:01:26 +00:00
Wenn gesetzt , wird der Status des Active - Tokens gelogged - nur für Debugging , nicht im
2019-10-26 18:41:42 +00:00
normalen Betrieb benutzen !
</li> <br>
< a name = "debugCachetime" > </a>
<li> <b> debugCachetime </b> <br>
Zeigt die verbrauchte Zeit für Cache - Operationen an .
</li> <br>
2018-11-20 23:30:55 +00:00
< a name = "disable" > </a>
<li> <b> disable </b> <br>
deaktiviert das Gerätemodul bzw . die Gerätedefinition </li> <br>
< a name = "genericStrmHtmlTag" > </a>
<li> <b> genericStrmHtmlTag </b> <br>
Das Attribut enthält HTML - Tags zur Video - Spezifikation in einem Streaming - Device von Typ "generic" .
( siehe "set <name> createStreamDev generic" ) <br> <br>
<ul>
2020-06-28 18:49:16 +00:00
<b> Beispiele: </b>
2018-11-20 23:30:55 +00:00
<pre>
attr & lt ; name & gt ; genericStrmHtmlTag & lt ; video $ HTMLATTR controls autoplay & gt ;
& lt ; source src = 'http://192.168.2.10:32000/$NAME.m3u8' type = 'application/x-mpegURL' & gt ;
2019-03-04 19:09:35 +00:00
& lt ; / video & gt ;
attr & lt ; name & gt ; genericStrmHtmlTag & lt ; img $ HTMLATTR
src = "http://192.168.2.10:32774"
onClick = "FW_okDialog('<img src=http://192.168.2.10:32774 $PWS >')"
& gt
2018-11-20 23:30:55 +00:00
</pre>
2019-03-04 19:09:35 +00:00
Die Variablen $ HTMLATTR , $ NAME und $ PWS sind Platzhalter und übernehmen ein gesetztes Attribut "htmlattr" , den SSCam -
Devicenamen bzw . das Attribut "popupWindowSize" im Streaming - Device , welches die Größe eines Popup - Windows festlegt .
2018-11-20 23:30:55 +00:00
</ul>
<br> <br>
</li>
< a name = "httptimeout" > </a>
<li> <b> httptimeout </b> <br>
Timeout - Wert für HTTP - Aufrufe zur Synology Surveillance Station , Default: 4 Sekunden ( wenn
httptimeout = "0" oder nicht gesetzt ) </li> <br>
2018-12-30 20:20:27 +00:00
< a name = "hlsNetScript" > </a>
<li> <b> hlsNetScript </b> & nbsp ; & nbsp ; & nbsp ; & nbsp ; ( setzbar in Device Model "SVS" ) <br>
Wenn gesetzt , wird die aktuellste hls . js Version von der Projektseite verwendet ( Internetverbindung nötig ) .
<br>
Im Standard wird die lokal installierte Version ( . /fhem/ www /pgm2/ssc am_hls . js ) zur Wiedergabe von Daten in allen
Streaming Devices vom Typ "hls" genutzt ( siehe "set <name> createStreamDev hls" ) .
Dieses Attribut wird in einem Device vom Model "SVS" gesetzt und gilt zentral für alle Streaming Devices !
</li> <br>
< a name = "hlsStrmObject" > </a>
<li> <b> hlsStrmObject </b> <br>
Wurde ein Streaming Device mit "set <name> createStreamDev hls" definiert , muss mit diesem Attribut der Link zum
Wiedergabeobjekt bekannt gemacht werden . <br>
Die Angabe muss ein HTTP Live Streaming Objekt mit der Endung ".m3u8" enthalten . <br>
Die Variable $ NAME kann als Platzhalter genutzt werden und übernimmt den SSCam - Devicenamen .
<br> <br>
<ul>
2020-06-28 18:49:16 +00:00
<b> Beispiele: </b> <br>
2019-09-21 13:03:06 +00:00
attr & lt ; name & gt ; hlsStrmObject https: // bitdash - a . akamaihd . net /content/ MI201109210084_1 /m3u8s/ f08e80da - bf1d - 4e3 d - 8899 - f0f6155f6efa . m3u8 <br>
attr & lt ; name & gt ; hlsStrmObject https: // bitdash - a . akamaihd . net /content/si ntel /hls/ playlist . m3u8 <br>
# Beispielstreams der zum Test des Streaming Devices verwendet werden kann (Internetverbindung nötig) <br><br>
2018-12-30 20:20:27 +00:00
attr & lt ; name & gt ; hlsStrmObject http: // 192.168 .2 .10 : 32000 / CamHE1 . m3u8 <br>
# Wiedergabe eines Kamera HLS-Streams der z.B. durch ffmpeg bereitgestellt wird <br><br>
2019-09-21 13:03:06 +00:00
2018-12-30 20:20:27 +00:00
attr & lt ; name & gt ; hlsStrmObject http: // 192.168 .2 .10 : 32000 / $ NAME . m3u8 <br>
# Wie obiges Beispiel mit der Variablennutzung für "CamHE1"
</ul>
2020-06-28 18:49:16 +00:00
<br>
2018-12-30 20:20:27 +00:00
</li>
2018-11-20 23:30:55 +00:00
< a name = "htmlattr" > </a>
<li> <b> htmlattr </b> <br>
ergänzende Angaben zur Inline - Bilddarstellung um das Verhalten wie Bildgröße zu beeinflussen . <br> <br>
<ul>
2020-06-28 18:49:16 +00:00
<b> Beispiel: </b> <br>
2018-11-20 23:30:55 +00:00
attr & lt ; name & gt ; htmlattr width = "500" height = "325" top = "200" left = "300"
</ul>
2020-06-28 18:49:16 +00:00
<br>
2018-11-20 23:30:55 +00:00
</li>
< a name = "livestreamprefix" > </a>
<li> <b> livestreamprefix </b> <br>
Überschreibt die Angaben zu Protokoll , Servernamen und Port in StmKey . * - Readings bzw . der Livestreamadresse zur
Weiterverwendung z . B . als externer Link . <br>
Die Spezifikation kann auf zwei Arten erfolgen: <br> <br>
<table>
<colgroup> < col width = 25 % > < col width = 75 % > < / colgroup >
<tr> <td> <b> DEF </b> </td> <td> : es wird Protokoll , Servername und Port aus der Definition
des SSCam - Devices verwendet </td> </tr>
<tr> <td> <b> http ( s ) : // & lt ; servername & gt ; : & lt ; port & gt ; </b> </td> <td> : eine eigene Adressenangabe wird verwendet </td> </tr>
</table>
<br>
Servername kann der Name oder die IP - Adresse der Synology Surveillance Station sein .
</li> <br>
< a name = "loginRetries" > </a>
<li> <b> loginRetries </b> <br>
2019-05-21 06:30:06 +00:00
Setzt die Anzahl der Login - Wiederholungen im Fehlerfall ( default = 3 ) </li> <br>
2018-11-20 23:30:55 +00:00
< a name = "noQuotesForSID" > </a>
<li> <b> noQuotesForSID </b> <br>
2019-05-21 06:30:06 +00:00
Dieses Attribut entfernt Quotes für SID bzw . der StmKeys .
Es kann in bestimmten Fällen die Fehlermeldung "402 - permission denied" oder "105 - Insufficient user privilege"
2018-11-20 23:30:55 +00:00
vermeiden und ein login ermöglichen . </li> <br>
< a name = "pollcaminfoall" > </a>
<li> <b> pollcaminfoall </b> <br>
Intervall der automatischen Eigenschaftsabfrage ( Polling ) einer Kamera ( kleiner / gleich 10 : kein
Polling , größer 10 : Polling mit Intervall ) </li> <br>
< a name = "pollnologging" > </a>
<li> <b> pollnologging </b> <br>
"0" bzw . nicht gesetzt = Logging Gerätepolling aktiv ( default ) , "1" = Logging
Gerätepolling inaktiv </li> <br>
< a name = "ptzPanel_Home" > </a>
<li> <b> ptzPanel_Home </b> <br>
Im PTZ - Steuerungspaneel wird dem Home - Icon ( im Attribut "ptzPanel_row02" ) automatisch der Wert des Readings
"PresetHome" zugewiesen .
Mit "ptzPanel_Home" kann diese Zuweisung mit einem Preset aus der verfügbaren Preset - Liste geändert werden . </li> <br>
< a name = "ptzPanel_iconPath" > </a>
<li> <b> ptzPanel_iconPath </b> <br>
Pfad für Icons im PTZ - Steuerungspaneel , default ist "www/images/sscam" .
2018-11-22 20:38:15 +00:00
Der Attribut - Wert wird für alle Icon - Dateien außer * . svg verwendet . <br>
Für weitere Information bitte "get <name> versionNotes 2,6" ausführen .
</li> <br>
2018-11-20 23:30:55 +00:00
< a name = "ptzPanel_iconPrefix" > </a>
<li> <b> ptzPanel_iconPrefix </b> <br>
Prefix für Icon - Dateien im PTZ - Steuerungspaneel , default ist "black_btn_" .
Der Attribut - Wert wird für alle Icon - Dateien außer * . svg verwendet . <br>
Beginnen die verwendeten Icon - Dateien z . B . mit "black_btn_" ( "black_btn_CAMDOWN.png" ) , braucht das Icon in den
Attributen "ptzPanel_row[00-09]" nur noch mit dem darauf folgenden Teilstring , z . B . "CAMDOWN.png" benannt zu werden .
</li> <br>
< a name = "ptzPanel_row00" > </a>
<li> <b> ptzPanel_row [ 00 - 09 ] & lt ; command & gt ; : & lt ; icon & gt ; , & lt ; command & gt ; : & lt ; icon & gt ; , ... </b> <br>
Für PTZ - Kameras werden automatisch die Attribute "ptzPanel_row00" bis "ptzPanel_row04" zur Verwendung im
PTZ - Steuerungspaneel angelegt . <br>
Die Attribute enthalten eine Komma - separarierte Liste von Befehl:Icon - Kombinationen ( Tasten ) je Paneelzeile .
Eine Paneelzeile kann beliebig viele Tasten enthalten . Die Attribute "ptzPanel_row00" bis "ptzPanel_row04" können nicht
gelöscht werden da sie in diesem Fall automatisch wieder angelegt werden . Der User kann die Attribute ändern und ergänzen .
Diese Änderungen bleiben erhalten . <br>
Bei Bedarf kann die Belegung der Home - Taste in "ptzPanel_row02" geändert werden mit dem Attribut "ptzPanel_Home" . <br>
Die Icons werden im Pfad "ptzPanel_iconPath" gesucht . Dem Icon - Namen wird "ptzPanel_iconPrefix" vorangestellt .
Eigene Erweiterungen des PTZ - Steuerungspaneels können über die Attribute "ptzPanel_row05" bis "ptzPanel_row09"
vorgenommen werden . Zur Erstellung eigener Icons gibt es eine Vorlage im SVN . Für weitere Informationen bitte
"get <name> versionNotes 2" ausführen .
<br> <br>
<b> Hinweis </b> <br>
Für eine Leerfeld verwenden sie bitte ":CAMBLANK.png" bzw . ":CAMBLANK.png,:CAMBLANK.png,:CAMBLANK.png,..." für eine
Leerzeile .
<br> <br>
<ul>
2020-06-28 18:49:16 +00:00
<b> Beispiel: </b> <br>
2018-11-20 23:30:55 +00:00
attr & lt ; name & gt ; ptzPanel_row00 move upleft:CAMUPLEFTFAST . png , : CAMBLANK . png , move up:CAMUPFAST . png , : CAMBLANK . png , move upright:CAMUPRIGHTFAST . png <br>
# Der Befehl "move upleft" wird der Kamera beim Druck auf Tastenicon "CAMUPLEFTFAST.png" übermittelt. <br>
</ul>
2020-06-28 18:49:16 +00:00
<br>
2018-11-20 23:30:55 +00:00
</li> <br>
< a name = "ptzPanel_use" > </a>
<li> <b> ptzPanel_use </b> <br>
Die Anzeige des PTZ - Steuerungspaneels in der Detailanzeige bzw . innerhalb eines generierten Streamdevice wird
2018-12-06 22:22:15 +00:00
ein - bzw . ausgeschaltet ( default ein ) . <br>
Das PTZ - Panel benutzt einen eigenen Satz Icons .
Damit das System sie finden kann , ist im FHEMWEB Device das Attribut "iconPath" um "sscam" zu ergänzen
( z . B . "attr WEB iconPath default:fhemSVG:openautomation:sscam" ) .
2019-01-27 15:36:11 +00:00
</li> <br>
2019-12-11 21:16:03 +00:00
< a name = "recChatTxt" > </a>
<li> <b> recChatTxt chatbot = > & lt ; SSChatBot - Device & gt ; , peers = > [ & lt ; peer1 peer2 ... & gt ; ] , subject = > [ & lt ; Betreff - Text & gt ; ] </b> <br>
Aktiviert den permanenten Versand von Aufnahmen nach deren Erstellung per Synology Chat . <br>
Vor der Aktivierung ist das Attribut < a href = "#videofolderMap" > videofolderMap </a> zu setzen . Es muß eine URL zum
root - Verzeichnis der Aufnahmen und Schnappschüsse enthalten ( z . B . http: //s erver . mein:8081 / surveillance ) . <br>
2019-12-11 22:08:04 +00:00
Das Attribut recChatTxt muß in der angegebenen Form definiert werden . Im Schlüssel "chatbot" ist das SSChatBot - Device
2020-06-28 18:49:16 +00:00
anzugeben , welches für den Versand der Daten verwendet werden soll .
Das < a href = "https://wiki.fhem.de/wiki/SSChatBot_-_Integration_des_Synology_Chat_Servers" > SSChatBot - Device </a> muss natürlich vorhanden und funktionstüchtig sein . <br>
Der Schlüssel "peers" enthält gültige Namen von Synology Chat Nutzern an die die Nachricht gesendet werden soll . <br>
2019-12-11 21:16:03 +00:00
Die Angabe von "peers" ist optional , jedoch muß der Schlüssel ( leer ) angegeben werden .
2020-06-28 18:49:16 +00:00
Wurde "peers" leer gelassen , wird der defaultPeer des SSChatBot - Devices verwendet . <br> <br>
Es können die folgenden Platzhalter im subject verwendet werden . <br> <br>
<ul>
<table>
<colgroup> < col width = 10 % > < col width = 90 % > < / colgroup >
<tr> <td> $ CAM </td> <td> - Device - Alias bzw . den Namen der Kamera in der SVS ersetzt falls der Device - Alias nicht vorhanden ist </td> </tr>
<tr> <td> $ DATE </td> <td> - aktuelles Datum </td> </tr>
<tr> <td> $ TIME </td> <td> - aktuelle Zeit </td> </tr>
<tr> <td> $ FILE </td> <td> - Filename </td> </tr>
<tr> <td> $ CTIME </td> <td> - Erstellungszeit der Aufnahme </td> </tr>
</table>
</ul>
<br>
<b> Beispiele: </b> <br>
2019-12-11 21:16:03 +00:00
attr & lt ; device & gt ; recChatTxt chatbot = & gt ; SynChatBot , peers = & gt ; , subject = & gt ; Bewegungsalarm ( $ FILE ) <br>
2020-06-28 18:49:16 +00:00
attr & lt ; device & gt ; recChatTxt chatbot = & gt ; SynChatBot , peers = & gt ; Frodo Sam Gollum , subject = & gt ; Achtung <br>
attr & lt ; device & gt ; recChatTxt chatbot = & gt ; SynChatBot , peers = & gt ; , subject = & gt ; Achtung Aufnahme <br>
attr & lt ; device & gt ; recChatTxt chatbot = & gt ; SynChatBot , peers = & gt ; , subject = & gt ; Bewegungsalarm bei $ CAM . Es wurde $ CTIME die Aufnahme $ FILE erstellt . Jetzt ist es $ TIME . <br>
2019-12-11 21:16:03 +00:00
<br>
</li> <br>
2019-01-27 15:36:11 +00:00
< a name = "recEmailTxt" > </a>
<li> <b> recEmailTxt subject = > & lt ; Betreff - Text & gt ; , body = > & lt ; Mitteilung - Text & gt ; </b> <br>
Aktiviert den Emailversand von Aufnahmen nach deren Erstellung . <br>
2019-02-02 12:41:28 +00:00
Das Attribut muß in der angegebenen Form definiert werden . <br>
2019-05-20 17:33:33 +00:00
Es können die folgenden Platzhalter im subject und body verwendet werden . <br> <br>
2020-06-28 18:49:16 +00:00
<ul>
<table>
<colgroup> < col width = 10 % > < col width = 90 % > < / colgroup >
<tr> <td> $ CAM </td> <td> - Device - Alias bzw . der Name der Kamera in der SVS falls der Device - Alias nicht vorhanden ist </td> </tr>
<tr> <td> $ DATE </td> <td> - aktuelles Datum </td> </tr>
<tr> <td> $ TIME </td> <td> - aktuelle Zeit </td> </tr>
</table>
</ul>
<br>
2019-01-27 15:36:11 +00:00
<ul>
2020-06-28 18:49:16 +00:00
<b> Beispiel: </b> <br>
2019-01-27 15:36:11 +00:00
recEmailTxt subject = > Neue Aufnahme $ CAM , body = > Die aktuelle Aufnahme von $ CAM ist angehängt .
</ul>
<br>
</li>
2018-11-20 23:30:55 +00:00
2019-03-04 19:09:35 +00:00
< a name = "recTelegramTxt" > </a>
<li> <b> recTelegramTxt tbot = > & lt ; TelegramBot - Device & gt ; , peers = > [ & lt ; peer1 peer2 ... & gt ; ] , subject = > [ & lt ; Betreff - Text & gt ; ] </b> <br>
Aktiviert den permanenten Versand von Aufnahmen nach deren Erstellung per TelegramBot . <br>
2019-05-20 17:33:33 +00:00
Das Attribut muß in der angegebenen Form definiert werden . Im Schlüssel "tbot" ist das TelegramBot - Device
2020-06-28 18:49:16 +00:00
anzugeben , welches für den Versand der Daten verwendet werden soll .
Das < a href = "http://fhem.de/commandref_DE.html#TelegramBot" > TelegramBot - Device </a> muss natürlich vorhanden und funktionstüchtig sein . <br>
Die Angabe von "peers" und "subject" ist optional , jedoch muß der Schlüssel ( leer ) angegeben werden .
Wurde "peers" leer gelassen , wird der Default - Peer des TelegramBot - Device verwendet . <br> <br>
Es können die folgenden Platzhalter im subject verwendet werden . <br> <br>
<ul>
<table>
<colgroup> < col width = 10 % > < col width = 90 % > < / colgroup >
<tr> <td> $ CAM </td> <td> - Device - Alias bzw . den Namen der Kamera in der SVS ersetzt falls der Device - Alias nicht vorhanden ist </td> </tr>
<tr> <td> $ DATE </td> <td> - aktuelles Datum </td> </tr>
<tr> <td> $ TIME </td> <td> - aktuelle Zeit </td> </tr>
<tr> <td> $ FILE </td> <td> - Filename </td> </tr>
<tr> <td> $ CTIME </td> <td> - Erstellungszeit der Aufnahme </td> </tr>
</table>
</ul>
<br>
<b> Beispiele: </b> <br>
2019-09-09 22:24:51 +00:00
attr & lt ; device & gt ; recTelegramTxt tbot = & gt ; teleBot , peers = & gt ; , subject = & gt ; Bewegungsalarm ( $ FILE ) <br>
2020-06-28 18:49:16 +00:00
attr & lt ; device & gt ; recTelegramTxt tbot = & gt ; teleBot , peers = & gt ; @ nabuko @ foo @ bar , subject = & gt ; <br>
2019-09-09 22:24:51 +00:00
attr & lt ; device & gt ; recTelegramTxt tbot = & gt ; teleBot , peers = & gt ; #nabugroup, subject => <br>
attr & lt ; device & gt ; recTelegramTxt tbot = & gt ; teleBot , peers = & gt ; - 123456 , subject = & gt ; <br>
2020-06-28 18:49:16 +00:00
attr & lt ; device & gt ; recTelegramTxt tbot = & gt ; teleBot , peers = & gt ; , subject = & gt ; <br>
attr & lt ; device & gt ; recTelegramTxt tbot = & gt ; teleBot , peers = & gt ; , subject = & gt ; Bewegungsalarm bei $ CAM . Es wurde $ CTIME die Aufnahme $ FILE erstellt . Jetzt ist es $ TIME . <br>
2019-03-04 19:09:35 +00:00
<br>
</li> <br>
2018-11-20 23:30:55 +00:00
< a name = "rectime" > </a>
<li> <b> rectime </b> <br>
festgelegte Aufnahmezeit wenn eine Aufnahme gestartet wird . Mit rectime = 0 wird eine
Endlosaufnahme gestartet . Ist "rectime" nicht gesetzt , wird der Defaultwert von 15 s
2020-06-28 18:49:16 +00:00
verwendet . </li> <br>
2018-11-20 23:30:55 +00:00
< a name = "recextend" > </a>
<li> <b> recextend </b> <br>
"rectime" einer gestarteten Aufnahme wird neu gesetzt . Dadurch verlängert sich die
Aufnahemzeit einer laufenden Aufnahme </li> <br>
< a name = "session" > </a>
<li> <b> session </b> <br>
Auswahl der Login - Session . Nicht gesetzt oder "DSM" - > session wird mit DSM aufgebaut
( Standard ) . "SurveillanceStation" - > Session - Aufbau erfolgt mit SVS . <br>
Um eine Session mit der Surveillance Station aufzubauen muss ein Nutzer mit passenden Privilegien Profil in der SVS
angelegt werden . Für weitere Informationen bitte "get <name> versionNotes 5" ausführen . </li> <br>
< a name = "simu_SVSversion" > </a>
<li> <b> simu_SVSversion </b> <br>
Simuliert eine andere SVS - Version . ( es ist nur eine niedrigere als die installierte SVS
Version möglich ! ) </li> <br>
2018-12-30 20:20:27 +00:00
< a name = "smtpHost" > </a>
<li> <b> smtpHost & lt ; Hostname & gt ; </b> <br>
2019-01-02 19:35:10 +00:00
Gibt den Hostnamen oder die IP - Adresse des Postausgangsservers für den Emailversand an ( z . B . securesmtp . t - online . de ) .
2018-12-30 20:20:27 +00:00
</li>
<br>
< a name = "smtpCc" > </a>
<li> <b> smtpCc & lt ; name & gt ; @ & lt ; domain & gt ; [ , & lt ; name & gt ; @ & lt ; domain & gt ; ] [ , & lt ; name & gt ; @ & lt ; domain & gt ; ] ... </b> <br>
Optionale zusätzliche Empfängeradresse ( n ) für den Email - Versand . Mehrere Adressen müssen durch "," getrennt werden .
</li>
<br>
< a name = "smtpDebug" > </a>
<li> <b> smtpDebug </b> <br>
2019-01-02 19:35:10 +00:00
Schaltet den Debugging - Modus der Verbindung zum Email - Server ein ( wenn Email Versand verwendet wird ) .
2018-12-30 20:20:27 +00:00
</li>
<br>
< a name = "smtpFrom" > </a>
<li> <b> smtpFrom & lt ; name & gt ; @ & lt ; domain & gt ; </b> <br>
Absenderadresse bei Verwendung des Emailversands .
</li>
<br>
< a name = "smtpPort" > </a>
<li> <b> smtpPort & lt ; Port & gt ; </b> <br>
Optionale Angabe Standard - SMTP - Port des Postausgangsservers ( default: 25 ) .
</li>
<br>
2019-01-02 20:27:10 +00:00
< a name = "smtpSSLPort" > </a>
<li> <b> smtpSSLPort & lt ; Port & gt ; </b> <br>
Optionale Angabe SSL Port des Postausgangsservers ( default: 465 ) . Ist dieses Attribut gesetzt , erfolgt die Verbindung zum
Email - Server sofort verschlüsselt .
</li>
<br>
2018-12-30 20:20:27 +00:00
< a name = "smtpTo" > </a>
<li> <b> smtpTo & lt ; name & gt ; @ & lt ; domain & gt ; [ , & lt ; name & gt ; @ & lt ; domain & gt ; ] [ , & lt ; name & gt ; @ & lt ; domain & gt ; ] ... </b> <br>
Empfängeradresse ( n ) für den Email - Versand . Mehrere Adressen müssen durch "," getrennt werden .
</li>
<br>
< a name = "smtpNoUseSSL" > </a>
<li> <b> smtpNoUseSSL </b> <br>
Soll keine Email SSL - Verschlüsselung genutzt werden , ist dieses Attribut auf "1" zu setzen ( default: 0 ) .
</li>
<br>
2019-01-02 19:35:10 +00:00
2019-12-09 20:51:32 +00:00
< a name = "snapChatTxt" > </a>
<li> <b> snapChatTxt chatbot = > & lt ; SSChatBot - Device & gt ; , peers = > [ & lt ; peer1 peer2 ... & gt ; ] , subject = > [ & lt ; Betreff - Text & gt ; ] </b> <br>
Aktiviert den permanenten Versand von Schnappschüssen nach deren Erstellung per Synology Chat . Wurden mehrere Schnappschüsse ausgelöst ,
2020-06-28 18:49:16 +00:00
werden sie sequentiell versendet . <br>
2019-12-09 20:51:32 +00:00
Vor der Aktivierung ist das Attribut < a href = "#videofolderMap" > videofolderMap </a> zu setzen . Es muß eine URL zum
2019-12-11 21:16:03 +00:00
root - Verzeichnis der Aufnahmen und Schnappschüsse enthalten ( z . B . http: //s erver . mein:8081 / surveillance ) . <br>
2019-12-09 20:51:32 +00:00
Das Attribut snapChatTxt muß in der angegebenen Form definiert werden . Im Schlüssel "chatbot" ist das SSChatBot - Device
2020-06-28 18:49:16 +00:00
anzugeben , welches für den Versand der Daten verwendet werden soll .
Das < a href = "https://wiki.fhem.de/wiki/SSChatBot_-_Integration_des_Synology_Chat_Servers" > SSChatBot - Device </a> muss natürlich vorhanden und funktionstüchtig sein . <br>
Der Schlüssel "peers" enthält gültige Namen von Synology Chat Nutzern an die die Nachricht gesendet werden soll . <br>
2019-12-09 20:51:32 +00:00
Die Angabe von "peers" ist optional , jedoch muß der Schlüssel ( leer ) angegeben werden .
2020-06-28 18:49:16 +00:00
Wurde "peers" leer gelassen , wird der defaultPeer des SSChatBot - Devices verwendet . <br> <br>
2019-12-09 20:51:32 +00:00
Es können folgende Platzhalter im subject verwendet werden . <br> <br>
2020-06-28 18:49:16 +00:00
<ul>
<table>
<colgroup> < col width = 10 % > < col width = 90 % > < / colgroup >
<tr> <td> $ CAM </td> <td> - Device - Alias bzw . den Namen der Kamera in der SVS ersetzt falls der Device - Alias nicht vorhanden ist </td> </tr>
<tr> <td> $ DATE </td> <td> - aktuelles Datum </td> </tr>
<tr> <td> $ TIME </td> <td> - aktuelle Zeit </td> </tr>
<tr> <td> $ FILE </td> <td> - Filename des Schnappschusses </td> </tr>
<tr> <td> $ CTIME </td> <td> - Erstellungszeit des Schnappschusses </td> </tr>
</table>
</ul>
<br>
<b> Beispiele: </b> <br>
2019-12-09 20:51:32 +00:00
attr & lt ; device & gt ; snapChatTxt chatbot = & gt ; SynChatBot , peers = & gt ; , subject = & gt ; Bewegungsalarm ( $ FILE ) <br>
2020-06-28 18:49:16 +00:00
attr & lt ; device & gt ; snapChatTxt chatbot = & gt ; SynChatBot , peers = & gt ; Aragorn Frodo Sam , subject = & gt ; Ein Schnappschuss wurde ausgelöst <br>
attr & lt ; device & gt ; snapChatTxt chatbot = & gt ; SynChatBot , peers = & gt ; , subject = & gt ; Achtung ! <br>
attr & lt ; device & gt ; snapChatTxt chatbot = & gt ; SynChatBot , peers = & gt ; Frodo , subject = & gt ; Bewegungsalarm bei $ CAM . Es wurde $ CTIME der Schnappschuss $ FILE erstellt <br>
2019-12-09 20:51:32 +00:00
<br>
</li> <br>
2019-01-02 19:35:10 +00:00
< a name = "snapEmailTxt" > </a>
<li> <b> snapEmailTxt subject = > & lt ; Betreff - Text & gt ; , body = > & lt ; Mitteilung - Text & gt ; </b> <br>
2019-02-01 15:00:29 +00:00
Aktiviert den Emailversand von Schnappschüssen nach deren Erstellung . Wurden mehrere Schnappschüsse ausgelöst ,
2020-06-28 18:49:16 +00:00
werden sie gemeinsam in einer Mail versendet . <br>
2019-02-01 15:00:29 +00:00
Das Attribut muß in der angegebenen Form definiert werden . <br>
2019-05-20 17:33:33 +00:00
Es können die folgenden Platzhalter im subject und body verwendet werden . <br> <br>
2020-06-28 18:49:16 +00:00
<ul>
<table>
<colgroup> < col width = 10 % > < col width = 90 % > < / colgroup >
<tr> <td> $ CAM </td> <td> - Device - Alias bzw . der Name der Kamera in der SVS falls der Device - Alias nicht vorhanden ist </td> </tr>
<tr> <td> $ DATE </td> <td> - aktuelles Datum </td> </tr>
<tr> <td> $ TIME </td> <td> - aktuelle Zeit </td> </tr>
</table>
</ul>
<br>
2019-01-02 19:35:10 +00:00
<ul>
2020-06-28 18:49:16 +00:00
<b> Beispiel: </b> <br>
2019-01-10 19:00:15 +00:00
snapEmailTxt subject = > Bewegungsalarm $ CAM , body = > Eine Bewegung wurde an der $ CAM registriert .
2019-01-02 19:35:10 +00:00
</ul>
<br>
</li>
2019-02-01 15:00:29 +00:00
< a name = "snapTelegramTxt" > </a>
<li> <b> snapTelegramTxt tbot = > & lt ; TelegramBot - Device & gt ; , peers = > [ & lt ; peer1 peer2 ... & gt ; ] , subject = > [ & lt ; Betreff - Text & gt ; ] </b> <br>
Aktiviert den permanenten Versand von Schnappschüssen nach deren Erstellung per TelegramBot . Wurden mehrere Schnappschüsse ausgelöst ,
2020-06-28 18:49:16 +00:00
werden sie sequentiell versendet . <br>
2019-05-20 17:33:33 +00:00
Das Attribut muß in der angegebenen Form definiert werden . Im Schlüssel "tbot" ist das TelegramBot - Device
2020-06-28 18:49:16 +00:00
anzugeben , welches für den Versand der Daten verwendet werden soll .
Das < a href = "http://fhem.de/commandref_DE.html#TelegramBot" > TelegramBot - Device </a> muss natürlich vorhanden und funktionstüchtig sein . <br>
Die Angabe von "peers" und "subject" ist optional , jedoch muß der Schlüssel ( leer ) angegeben werden .
Wurde "peer" leer gelassen , wird der Default - Peer des TelegramBot - Devices verwendet . <br> <br>
2019-09-09 22:24:51 +00:00
Es können folgende Platzhalter im subject verwendet werden . <br> <br>
2020-06-28 18:49:16 +00:00
<ul>
<table>
<colgroup> < col width = 10 % > < col width = 90 % > < / colgroup >
<tr> <td> $ CAM </td> <td> - Device - Alias bzw . den Namen der Kamera in der SVS ersetzt falls der Device - Alias nicht vorhanden ist </td> </tr>
<tr> <td> $ DATE </td> <td> - aktuelles Datum </td> </tr>
<tr> <td> $ TIME </td> <td> - aktuelle Zeit </td> </tr>
<tr> <td> $ FILE </td> <td> - Filename des Schnappschusses </td> </tr>
<tr> <td> $ CTIME </td> <td> - Erstellungszeit des Schnappschusses </td> </tr>
</table>
</ul>
<br>
<b> Beispiele: </b> <br>
2019-09-09 22:24:51 +00:00
attr & lt ; device & gt ; snapTelegramTxt tbot = & gt ; teleBot , peers = & gt ; , subject = & gt ; Bewegungsalarm ( $ FILE ) <br>
2020-06-28 18:49:16 +00:00
attr & lt ; device & gt ; snapTelegramTxt tbot = & gt ; teleBot , peers = & gt ; @ nabuko @ foo @ bar , subject = & gt ; <br>
2019-09-09 22:24:51 +00:00
attr & lt ; device & gt ; snapTelegramTxt tbot = & gt ; teleBot , peers = & gt ; #nabugroup, subject => <br>
attr & lt ; device & gt ; snapTelegramTxt tbot = & gt ; teleBot , peers = & gt ; - 123456 , subject = & gt ; <br>
2020-06-28 18:49:16 +00:00
attr & lt ; device & gt ; snapTelegramTxt tbot = & gt ; teleBot , peers = & gt ; , subject = & gt ; <br>
attr & lt ; device & gt ; snapTelegramTxt tbot = & gt ; teleBot , peers = & gt ; , subject = & gt ; Bewegungsalarm bei $ CAM . Es wurde $ CTIME der Schnappschuss $ FILE erstellt <br>
2019-09-09 22:24:51 +00:00
<br>
2019-02-01 15:00:29 +00:00
</li> <br>
2018-12-30 20:20:27 +00:00
2018-11-20 23:30:55 +00:00
< a name = "snapGalleryBoost" > </a>
<li> <b> snapGalleryBoost </b> <br>
Wenn gesetzt , werden die letzten Schnappschüsse ( default 3 ) über Polling im Speicher gehalten und mit "set/get snapGallery"
2020-06-28 18:49:16 +00:00
aufbereitet angezeigt . Dieser Modus bietet sich an wenn viele bzw . Fullsize Images angezeigt werden sollen .
Ist das Attribut eingeschaltet , können bei "set/get snapGallery" keine Argumente mehr mitgegeben werden .
2018-11-20 23:30:55 +00:00
( siehe Attribut "snapGalleryNumber" ) </li> <br>
< a name = "snapGalleryColumns" > </a>
<li> <b> snapGalleryColumns </b> <br>
Die Anzahl der Snaps die in einer Reihe im Popup erscheinen sollen ( default 3 ) . </li> <br>
2020-06-28 18:49:16 +00:00
2018-11-20 23:30:55 +00:00
< a name = "snapGalleryHtmlAttr" > </a>
<li> <b> snapGalleryHtmlAttr </b> <br>
hiermit kann die Bilddarstellung beeinflusst werden . <br>
2020-06-28 18:49:16 +00:00
Ist das Attribut nicht gesetzt , wird das Attribut "htmlattr" verwendet . <br>
Ist auch dieses nicht gesetzt , wird eine Standardvorgabe verwendet ( width = "500" height = "325" ) . <br> <br>
2018-11-20 23:30:55 +00:00
<ul>
2020-06-28 18:49:16 +00:00
<b> Beispiel: </b> <br>
2018-11-20 23:30:55 +00:00
attr & lt ; name & gt ; snapGalleryHtmlAttr width = "325" height = "225"
</ul>
2020-06-28 18:49:16 +00:00
<br>
2018-11-20 23:30:55 +00:00
</li>
2020-06-28 18:49:16 +00:00
2018-11-20 23:30:55 +00:00
< a name = "snapGalleryNumber" > </a>
<li> <b> snapGalleryNumber </b> <br>
Die Anzahl der abzurufenden Schnappschüsse ( default 3 ) . </li> <br>
2020-06-28 18:49:16 +00:00
2018-11-20 23:30:55 +00:00
< a name = "snapGallerySize" > </a>
<li> <b> snapGallerySize </b> <br>
Mit diesem Attribut kann die Qualität der Images eingestellt werden ( default "Icon" ) . <br>
2020-06-28 18:49:16 +00:00
Im Modus "Full" wird die original vorhandene Auflösung der Images abgerufen . Dies erfordert mehr Ressourcen und kann die
Anzeige verlangsamen . Mit "snapGalleryBoost=1" kann die Ausgabe beschleunigt werden , da in diesem Fall die Aufnahmen über
Polling abgerufen und nur noch zur Anzeige gebracht werden . </li> <br>
2019-01-20 09:43:30 +00:00
< a name = "snapReadingRotate" > </a>
<li> <b> snapReadingRotate 0 ... 10 </b> <br>
Aktiviert die Versionierung von Schnappschußreadings ( default: 0 ) . Es wird eine fortlaufende Nummer der Readings
"LastSnapFilename" , "LastSnapId" und "LastSnapTime" bis zum eingestellten Wert von snapReadingRotate erzeugt und enthält
die Daten der letzten X Schnappschüsse . </li> <br>
2018-11-20 23:30:55 +00:00
< a name = "showStmInfoFull" > </a>
<li> <b> showStmInfoFull </b> <br>
zusaätzliche Streaminformationen wie LiveStreamUrl , StmKeyUnicst , StmKeymjpegHttp werden
ausgegeben </li> <br>
< a name = "showPassInLog" > </a>
<li> <b> showPassInLog </b> <br>
Wenn gesetzt , wird das verwendete Passwort im Logfile mit verbose 4 angezeigt .
( default = 0 ) </li> <br>
< a name = "videofolderMap" > </a>
<li> <b> videofolderMap </b> <br>
2019-12-09 20:51:32 +00:00
Ersetzt den Inhalt des Readings "VideoFolder" . Verwendung z . B . bei gemounteten
Verzeichnissen oder URL - Bereitstellung durch einen Webserver . </li> <br>
2018-11-20 23:30:55 +00:00
< a name = "verbose" > </a>
<li> <b> verbose </b> </li> <br>
<ul>
Es werden verschiedene Verbose - Level unterstützt .
Dies sind im Einzelnen:
<table>
<colgroup> < col width = 5 % > < col width = 95 % > < / colgroup >
<tr> <td> 0 </td> <td> - Start /Stop-Ereignisse werden geloggt </ td > </tr>
<tr> <td> 1 </td> <td> - Fehlermeldungen werden geloggt </td> </tr>
<tr> <td> 2 </td> <td> - Meldungen über wichtige Ereignisse oder Alarme </td> </tr>
<tr> <td> 3 </td> <td> - gesendete Kommandos werden geloggt </td> </tr>
<tr> <td> 4 </td> <td> - gesendete und empfangene Daten werden geloggt </td> </tr>
<tr> <td> 5 </td> <td> - alle Ausgaben zur Fehleranalyse werden geloggt . <b> ACHTUNG: </b> möglicherweise werden sehr viele Daten in das Logfile geschrieben ! </td> </tr>
</table>
</ul>
<br>
<li> < a href = "#readingFnAttributes" > readingFnAttributes </a> </li>
<br> <br>
</ul>
< a name = "SSCamreadings" > </a>
<b> Readings </b>
<ul>
<br>
Über den Pollingmechanismus bzw . durch Abfrage mit "Get" werden Readings bereitgestellt , deren Bedeutung in der nachfolgenden Tabelle dargestellt sind . <br>
Die übermittelten Readings können in Abhängigkeit des Kameratyps variieren . <br> <br>
<ul>
<table>
<colgroup> < col width = 5 % > < col width = 95 % > < / colgroup >
<tr> <td> <li> CamAudioType </li> </td> <td> - listet den eingestellten Audiocodec auf wenn verwendet </td> </tr>
<tr> <td> <li> Availability </li> </td> <td> - Verfügbarkeit der Kamera ( disabled , enabled , disconnected , other ) </td> </tr>
<tr> <td> <li> CamEventNum </li> </td> <td> - liefert die Gesamtanzahl der in SVS registrierten Events der Kamera </td> </tr>
<tr> <td> <li> CamExposureControl </li> </td> <td> - zeigt den aktuell eingestellten Typ der Belichtungssteuerung </td> </tr>
<tr> <td> <li> CamExposureMode </li> </td> <td> - aktueller Belichtungsmodus ( Day , Night , Auto , Schedule , Unknown ) </td> </tr>
<tr> <td> <li> CamForceEnableMulticast </li> </td> <td> - sagt aus ob die Kamera verpflichet ist Multicast einzuschalten . </td> </tr>
<tr> <td> <li> CamIP </li> </td> <td> - IP - Adresse der Kamera </td> </tr>
<tr> <td> <li> CamLastRec </li> </td> <td> - Pfad / Name der letzten Aufnahme </ td > </tr>
2018-12-31 14:26:04 +00:00
<tr> <td> <li> CamLastRecId </li> </td> <td> - die ID der letzten Aufnahme </td> </tr>
2019-01-20 16:07:48 +00:00
<tr> <td> <li> CamLastRecTime </li> </td> <td> - Datum / Startzeit - Stopzeit der letzten Aufnahme (Format abhängig vom global Attribut "language") </ td > </tr>
2018-11-20 23:30:55 +00:00
<tr> <td> <li> CamLiveFps </li> </td> <td> - Frames pro Sekunde des Live - Streams </td> </tr>
<tr> <td> <li> CamLiveMode </li> </td> <td> - Quelle für Live - Ansicht ( DS , Camera ) </td> </tr>
<tr> <td> <li> camLiveQuality </li> </td> <td> - in SVS eingestellte Live - Stream Qualität </td> </tr>
<tr> <td> <li> camLiveResolution </li> </td> <td> - in SVS eingestellte Live - Stream Auflösung </td> </tr>
<tr> <td> <li> camLiveStreamNo </li> </td> <td> - verwendete Stream - Nummer für Live - Stream </td> </tr>
<tr> <td> <li> CamModel </li> </td> <td> - Kameramodell </td> </tr>
<tr> <td> <li> CamMotDetSc </li> </td> <td> - Status der Bewegungserkennung ( disabled , durch Kamera , durch SVS ) und deren Parameter </td> </tr>
<tr> <td> <li> CamNTPServer </li> </td> <td> - eingestellter Zeitserver </td> </tr>
<tr> <td> <li> CamPort </li> </td> <td> - IP - Port der Kamera </td> </tr>
<tr> <td> <li> CamPreRecTime </li> </td> <td> - Dauer der der Voraufzeichnung in Sekunden ( Einstellung in SVS ) </td> </tr>
<tr> <td> <li> CamPtSpeed </li> </td> <td> - eingestellter Wert für Schwenken /Neige-Aktionen (Einstellung in SVS) </ td > </tr>
<tr> <td> <li> CamRecShare </li> </td> <td> - gemeinsamer Ordner auf der DS für Aufnahmen </td> </tr>
<tr> <td> <li> CamRecVolume </li> </td> <td> - Volume auf der DS für Aufnahmen </td> </tr>
<tr> <td> <li> CamStreamFormat </li> </td> <td> - aktuelles Format des Videostream </td> </tr>
<tr> <td> <li> CamVideoType </li> </td> <td> - listet den eingestellten Videocodec auf </td> </tr>
<tr> <td> <li> CamVendor </li> </td> <td> - Kamerahersteller Bezeichnung </td> </tr>
<tr> <td> <li> CamVideoFlip </li> </td> <td> - Ist das Video gedreht </td> </tr>
<tr> <td> <li> CamVideoMirror </li> </td> <td> - Ist das Video gespiegelt </td> </tr>
2020-06-28 18:49:16 +00:00
<tr> <td> <li> CamVideoRotate </li> </td> <td> - Ist das Video gedreht </td> </tr>
2018-11-20 23:30:55 +00:00
<tr> <td> <li> CapAudioOut </li> </td> <td> - Fähigkeit der Kamera zur Audioausgabe über Surveillance Station ( false /true) </ td > </tr>
<tr> <td> <li> CapChangeSpeed </li> </td> <td> - Fähigkeit der Kamera verschiedene Bewegungsgeschwindigkeiten auszuführen </td> </tr>
<tr> <td> <li> CapPIR </li> </td> <td> - besitzt die Kamera einen PIR - Sensor </td> </tr>
<tr> <td> <li> CapPTZAbs </li> </td> <td> - Fähigkeit der Kamera für absolute PTZ - Aktionen </td> </tr>
<tr> <td> <li> CapPTZAutoFocus </li> </td> <td> - Fähigkeit der Kamera für Autofokus Aktionen </td> </tr>
<tr> <td> <li> CapPTZDirections </li> </td> <td> - die verfügbaren PTZ - Richtungen der Kamera </td> </tr>
<tr> <td> <li> CapPTZFocus </li> </td> <td> - Art der Kameraunterstützung für Fokussierung </td> </tr>
<tr> <td> <li> CapPTZHome </li> </td> <td> - Unterstützung der Kamera für Home - Position </td> </tr>
<tr> <td> <li> CapPTZIris </li> </td> <td> - Unterstützung der Kamera für Iris - Aktion </td> </tr>
<tr> <td> <li> CapPTZObjTracking </li> </td> <td> - Unterstützung der Kamera für Objekt - Tracking </td> </tr>
<tr> <td> <li> CapPTZPan </li> </td> <td> - Unterstützung der Kamera für Pan - Aktion </td> </tr>
<tr> <td> <li> CapPTZPresetNumber </li> </td> <td> - die maximale Anzahl unterstützter Presets . 0 steht für keine Preset - Unterstützung </td> </tr>
<tr> <td> <li> CapPTZTilt </li> </td> <td> - Unterstützung der Kamera für Tilt - Aktion </td> </tr>
<tr> <td> <li> CapPTZZoom </li> </td> <td> - Unterstützung der Kamera für Zoom - Aktion </td> </tr>
<tr> <td> <li> DeviceType </li> </td> <td> - Kameratyp ( Camera , Video_Server , PTZ , Fisheye ) </td> </tr>
<tr> <td> <li> Error </li> </td> <td> - Meldungstext des letzten Fehlers </td> </tr>
<tr> <td> <li> Errorcode </li> </td> <td> - Fehlercode des letzten Fehlers </td> </tr>
2020-06-28 18:49:16 +00:00
<tr> <td> <li> HomeModeState </li> </td> <td> - HomeMode - Status ( ab SVS - Version 8.1 .0 ) </td> </tr>
<tr> <td> <li> LastLogEntry </li> </td> <td> - der neueste Eintrag des Surveillance Station Logs ( nur SVS - Device und wenn Attribut pollcaminfoall gesetzt ) </td> </tr>
2019-01-20 16:07:48 +00:00
<tr> <td> <li> LastSnapFilename [ x ] </li> </td> <td> - der Filename des /der letzten Schnapschüsse </ td > </tr>
<tr> <td> <li> LastSnapId [ x ] </li> </td> <td> - die ID des /der letzten Schnapschüsse </ td > </tr>
2020-06-28 18:49:16 +00:00
<tr> <td> <li> LastSnapTime [ x ] </li> </td> <td> - Zeitstempel des /der letzten Schnapschüsse (Format abhängig vom global Attribut "language") </ td > </tr>
2019-01-20 16:07:48 +00:00
<tr> <td> <li> LastUpdateTime </li> </td> <td> - Datum / Zeit der letzten Aktualisierung durch "caminfoall" (Format abhängig vom global Attribut "language")</ td > </tr>
2018-11-20 23:30:55 +00:00
<tr> <td> <li> LiveStreamUrl </li> </td> <td> - die LiveStream - Url wenn der Stream gestartet ist . ( < a href = "#SSCamattr" > Attribut </a> "showStmInfoFull" muss gesetzt sein ) </td> </tr>
<tr> <td> <li> Patrols </li> </td> <td> - in Surveillance Station voreingestellte Überwachungstouren ( bei PTZ - Kameras ) </td> </tr>
<tr> <td> <li> PollState </li> </td> <td> - zeigt den Status des automatischen Pollings an </td> </tr>
<tr> <td> <li> PresetHome </li> </td> <td> - Name der Home - Position ( bei PTZ - Kameras ) </td> </tr>
<tr> <td> <li> Presets </li> </td> <td> - in Surveillance Station voreingestellte Positionen ( bei PTZ - Kameras ) </td> </tr>
<tr> <td> <li> Record </li> </td> <td> - Aufnahme läuft = Start , keine Aufnahme = Stop </td> </tr>
<tr> <td> <li> StmKey </li> </td> <td> - aktueller StreamKey . Kann zum öffnen eines Livestreams ohne Session Id genutzt werden . </td> </tr>
<tr> <td> <li> StmKeyUnicst </li> </td> <td> - Uni - cast Stream Pfad der Kamera . ( < a href = "#SSCamattr" > Attribut </a> "showStmInfoFull" muss gesetzt sein ) </td> </tr>
<tr> <td> <li> StmKeymjpegHttp </li> </td> <td> - Mjpeg Stream Pfad ( über http ) der Kamera . ( < a href = "#SSCamattr" > Attribut </a> "showStmInfoFull" muss gesetzt sein ) </td> </tr>
<tr> <td> <li> SVScustomPortHttp </li> </td> <td> - benutzerdefinierter Port der Surveillance Station ( HTTP ) im DSM - Anwendungsportal ( get mit "svsinfo" ) </td> </tr>
<tr> <td> <li> SVScustomPortHttps </li> </td> <td> - benutzerdefinierter Port der Surveillance Station ( HTTPS ) im DSM - Anwendungsportal ( get mit "svsinfo" ) </td> </tr>
<tr> <td> <li> SVSlicenseNumber </li> </td> <td> - die Anzahl der installierten Kameralizenzen ( get mit "svsinfo" ) </td> </tr>
<tr> <td> <li> SVSuserPriv </li> </td> <td> - die effektiven Rechte des verwendeten Users nach dem Login ( get mit "svsinfo" ) </td> </tr>
<tr> <td> <li> SVSversion </li> </td> <td> - die Paketversion der installierten Surveillance Station ( get mit "svsinfo" ) </td> </tr>
<tr> <td> <li> UsedSpaceMB </li> </td> <td> - durch Aufnahmen der Kamera belegter Plattenplatz auf dem Volume </td> </tr>
<tr> <td> <li> VideoFolder </li> </td> <td> - Pfad zu den aufgenommenen Videos </td> </tr>
<tr> <td> <li> compstate </li> </td> <td> - Kompatibilitätsstatus ( Vergleich von eingesetzter /simulierter SVS-Version zum Internal COMPATIBILITY) </ td > </tr>
</table>
</ul>
<br> <br>
</ul>
</ul>
<br> <br>
</ul>
= end html_DE
2019-03-27 21:13:13 +00:00
= for : application / json ; q = META . json 49 _SSCam . pm
{
"abstract" : "Module to control cameras as well as other functions of the Synology Surveillance Station." ,
"x_lang" : {
"de" : {
"abstract" : "Modul zur Steuerung von Kameras und anderen Funktionen der Synology Surveillance Station."
}
} ,
"keywords" : [
"camera" ,
"control" ,
"PTZ" ,
"Synology Surveillance Station" ,
2019-05-20 17:33:33 +00:00
"Cloudfree" ,
"official API" ,
2019-03-27 21:13:13 +00:00
"MJPEG" ,
"HLS" ,
"RTSP"
] ,
"version" : "v1.1.1" ,
"release_status" : "stable" ,
"author" : [
"Heiko Maaz <heiko.maaz@t-online.de>"
] ,
"x_fhem_maintainer" : [
"DS_Starter"
] ,
"x_fhem_maintainer_github" : [
"nasseeder1"
] ,
"prereqs" : {
"runtime" : {
"requires" : {
"FHEM" : 5.00918799 ,
"perl" : 5.014 ,
"POSIX" : 0 ,
"JSON" : 0 ,
"Data::Dumper" : 0 ,
"MIME::Base64" : 0 ,
"Time::HiRes" : 0 ,
2020-06-28 18:49:16 +00:00
"GPUtils" : 0 ,
2019-03-27 21:13:13 +00:00
"HttpUtils" : 0 ,
"Blocking" : 0 ,
2020-07-01 19:24:20 +00:00
"Encode" : 0
2019-03-27 21:13:13 +00:00
} ,
"recommends" : {
2019-10-26 18:41:42 +00:00
"FHEM::Meta" : 0 ,
2020-06-28 18:49:16 +00:00
"CHI" : 0 ,
2019-10-26 18:41:42 +00:00
"CHI::Driver::Redis" : 0 ,
"Cache::Cache" : 0
2019-03-27 21:13:13 +00:00
} ,
"suggests" : {
}
}
} ,
"resources" : {
"x_wiki" : {
"web" : "https://wiki.fhem.de/wiki/SSCAM_-_Steuerung_von_Kameras_in_Synology_Surveillance_Station" ,
"title" : "SSCAM - Steuerung von Kameras in Synology Surveillance Station"
2019-04-28 17:20:21 +00:00
} ,
"repository" : {
"x_dev" : {
"type" : "svn" ,
"url" : "https://svn.fhem.de/trac/browser/trunk/fhem/contrib/DS_Starter" ,
"web" : "https://svn.fhem.de/trac/browser/trunk/fhem/contrib/DS_Starter/49_SSCam.pm" ,
"x_branch" : "dev" ,
"x_filepath" : "fhem/contrib/" ,
"x_raw" : "https://svn.fhem.de/fhem/trunk/fhem/contrib/DS_Starter/49_SSCam.pm"
}
2019-03-27 21:13:13 +00:00
}
}
}
= end : application / json ; q = META . json
2018-11-20 23:30:55 +00:00
= cut
