FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00
Code Issues Releases Wiki Activity

49_SSCam: contrib 9.4.1

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@22356 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2020-07-05 21:11:19 +00:00
parent 5be30bbc99
commit 99f23e5067
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
fhem/contrib/DS_Starter/49_SSCam.pm
View File

@ -1,5 +1,5 @@
######################################################################################################################## ########################################################################################################################
# $Id: 49_SSCam.pm 22263 2020-06-25 16:48:36Z DS_Starter $ # $Id: 49_SSCam.pm 22329 2020-07-02 17:16:52Z DS_Starter $
######################################################################################################################### #########################################################################################################################
# 49_SSCam.pm # 49_SSCam.pm
# #
@ -156,6 +156,7 @@ BEGIN {
# Versions History intern # Versions History intern
my %vNotesIntern = ( my %vNotesIntern = (
"9.4.1" => "05.07.2020 new Zoom icons ",
"9.4.0" => "01.07.2020 switch to packages, much more changes according PBP ", "9.4.0" => "01.07.2020 switch to packages, much more changes according PBP ",
"9.3.0" => "21.06.2020 SVS device 'inctive' if disabled, add zoom capability, much more internal code changes ", "9.3.0" => "21.06.2020 SVS device 'inctive' if disabled, add zoom capability, much more internal code changes ",
"9.2.3" => "30.05.2020 change SSChatBot_formText to SSChatBot_formString ", "9.2.3" => "30.05.2020 change SSChatBot_formText to SSChatBot_formString ",
@ -464,11 +465,11 @@ my %imc = ( # di
); );
my %zd = ( # Hash der Zoomsteuerung my %zd = ( # Hash der Zoomsteuerung
".++" => {dir => "in", sttime => 6, moveType => "Start", panimg => "Zoom_in_wide.png", }, ".++" => {dir => "in", sttime => 6, moveType => "Start", panimg => "Zoom_in_wide_w.png", },
"+" => {dir => "in", sttime => 0.5, moveType => "Start", panimg => "Zoom-in.png", }, "+" => {dir => "in", sttime => 0.5, moveType => "Start", panimg => "Zoom_in_w.png", },
"stop" => {dir => undef, sttime => undef, moveType => "Stop" , panimg => undef, }, "stop" => {dir => undef, sttime => undef, moveType => "Stop" , panimg => undef, },
"-" => {dir => "out", sttime => 0.5, moveType => "Start", panimg => "Zoom-out.png", }, "-" => {dir => "out", sttime => 0.5, moveType => "Start", panimg => "Zoom_out_w.png", },
"--." => {dir => "out", sttime => 6, moveType => "Start", panimg => "Zoom_out_wide.png", } "--." => {dir => "out", sttime => 6, moveType => "Start", panimg => "Zoom_out_wide_w.png",}
); );
# Standardvariablen und Forward-Deklaration # Standardvariablen und Forward-Deklaration
@ -7654,7 +7655,7 @@ sub ptzPanel {
$ptz_ret .= '<table class="rc_body defsize">'; $ptz_ret .= '<table class="rc_body defsize">';
$ptz_ret .= "<tr>"; $ptz_ret .= "<tr>";
my @za = qw(.++ + &nbsp;&nbsp;Zoom&nbsp;&nbsp; - --.); my @za = qw(.++ + Zoom - --.);
for my $cmd (@za) { for my $cmd (@za) {
$ptz_ret .= "<td class='ptzcontrol'>"; $ptz_ret .= "<td class='ptzcontrol'>";
@ -7673,7 +7674,7 @@ sub ptzPanel {
my $iPath = FW_iconPath($img); my $iPath = FW_iconPath($img);
if($ftui) { if($ftui) {
my $zbs = $pbsf*1.55; my $zbs = $pbsf*1.5;
$img = "<img src=\"$FW_ME/$FW_icondir/$iPath\" height=\"$zbs%\" width=\"$zbs%\">"; $img = "<img src=\"$FW_ME/$FW_icondir/$iPath\" height=\"$zbs%\" width=\"$zbs%\">";
} else { } else {
$img = "<img src=\"$FW_ME/$FW_icondir/$iPath\" height=\"$pbs%\" width=\"$pbs%\">"; $img = "<img src=\"$FW_ME/$FW_icondir/$iPath\" height=\"$pbs%\" width=\"$pbs%\">";
@ -10732,12 +10733,12 @@ sub setVersionInfo {
if($modules{$type}{META}{x_prereqs_src} && !$hash->{HELPER}{MODMETAABSENT}) { if($modules{$type}{META}{x_prereqs_src} && !$hash->{HELPER}{MODMETAABSENT}) {
# META-Daten sind vorhanden # META-Daten sind vorhanden
$modules{$type}{META}{version} = "v".$v; # Version aus META.json überschreiben, Anzeige mit {Dumper $modules{SMAPortal}{META}} $modules{$type}{META}{version} = "v".$v; # Version aus META.json überschreiben, Anzeige mit {Dumper $modules{SMAPortal}{META}}
if($modules{$type}{META}{x_version}) { # {x_version} ( nur gesetzt wenn $Id: 49_SSCam.pm 22263 2020-06-25 16:48:36Z DS_Starter $ im Kopf komplett! vorhanden ) if($modules{$type}{META}{x_version}) { # {x_version} ( nur gesetzt wenn $Id: 49_SSCam.pm 22329 2020-07-02 17:16:52Z DS_Starter $ im Kopf komplett! vorhanden )
$modules{$type}{META}{x_version} =~ s/1.1.1/$v/g; $modules{$type}{META}{x_version} =~ s/1.1.1/$v/g;
} else { } else {
$modules{$type}{META}{x_version} = $v; $modules{$type}{META}{x_version} = $v;
} }
return $@ unless (FHEM::Meta::SetInternals($hash)); # FVERSION wird gesetzt ( nur gesetzt wenn $Id: 49_SSCam.pm 22263 2020-06-25 16:48:36Z DS_Starter $ im Kopf komplett! vorhanden ) return $@ unless (FHEM::Meta::SetInternals($hash)); # FVERSION wird gesetzt ( nur gesetzt wenn $Id: 49_SSCam.pm 22329 2020-07-02 17:16:52Z DS_Starter $ im Kopf komplett! vorhanden )
if(__PACKAGE__ eq "FHEM::$type" || __PACKAGE__ eq $type) { if(__PACKAGE__ eq "FHEM::$type" || __PACKAGE__ eq $type) {
# es wird mit Packages gearbeitet -> Perl übliche Modulversion setzen # es wird mit Packages gearbeitet -> Perl übliche Modulversion setzen
# mit {<Modul>->VERSION()} im FHEMWEB kann Modulversion abgefragt werden # mit {<Modul>->VERSION()} im FHEMWEB kann Modulversion abgefragt werden