FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-08 07:24:21 +00:00
Code Issues Releases Wiki Activity

42_npmjs: make host optional

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@18498 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
jpawlowski 2019-02-05 14:14:55 +00:00
parent 4deaccf401
commit a3a1a661e3
1 changed files with 37 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
fhem/FHEM/42_npmjs.pm
View File

@ -8,8 +8,6 @@ package main;
use strict; use strict;
use warnings; use warnings;
my $version = "0.9.1";
sub npmjs_Initialize($) { sub npmjs_Initialize($) {
my ($hash) = @_; my ($hash) = @_;
@ -27,9 +25,9 @@ sub npmjs_Initialize($) {
. "npmglobal:1,0 " . "npmglobal:1,0 "
. $readingFnAttributes; . $readingFnAttributes;
foreach my $d ( sort keys %{ $modules{npmjs}{defptr} } ) { # update INTERNAL after module reload
my $hash = $modules{npmjs}{defptr}{$d}; foreach my $d ( devspec2array("TYPE=npmjs") ) {
$hash->{VERSION} = $version; $defs{$d}{VERSION} = $npmjs::VERSION;
} }
} }
@ -40,13 +38,16 @@ use strict;
use warnings; use warnings;
use POSIX; use POSIX;
# our @EXPORT = qw(get_time_suffix);
our $VERSION = "0.9.2";
# wird für den Import der FHEM Funktionen aus der fhem.pl benötigt # wird für den Import der FHEM Funktionen aus der fhem.pl benötigt
use GPUtils qw(GP_Import); use GPUtils qw(GP_Import);
use Data::Dumper; #only for Debugging use Data::Dumper; #only for Debugging
my $missingModul = ""; my $missingModule = "";
eval "use JSON;1" or $missingModul .= "JSON "; eval "use JSON;1" or $missingModule .= "JSON ";
## Import der FHEM Funktionen ## Import der FHEM Funktionen
BEGIN { BEGIN {
@ -82,28 +83,38 @@ sub Define($$) {
my ( $hash, $def ) = @_; my ( $hash, $def ) = @_;
my @a = split( "[ \t][ \t]*", $def ); my @a = split( "[ \t][ \t]*", $def );
return "too few parameters: define <name> npmjs <HOST>" return "too few parameters: define <name> npmjs [<HOST>]"
if ( @a != 3 ); if ( @a != 2 );
return "Cannot define npmjs device. Perl modul ${missingModul}is missing." return
if ($missingModul); "Cannot define npmjs device. Perl module ${missingModule} is missing."
if ($missingModule);
my $name = $a[0]; my $name = $a[0];
my $host = $a[2]; my $host = $a[2] ? $a[2] : 'localhost';
$hash->{VERSION} = $version; $hash->{VERSION} = $VERSION;
$hash->{HOST} = $host; $hash->{HOST} = $host;
$hash->{NOTIFYDEV} = "global,$name"; $hash->{NOTIFYDEV} = "global,$name";
return "Existing instance for host $hash->{HOST}: "
. $modules{ $hash->{TYPE} }{defptr}{ $hash->{HOST} }{NAME}
if ( defined( $modules{ $hash->{TYPE} }{defptr}{ $hash->{HOST} } ) );
$modules{ $hash->{TYPE} }{defptr}{ $hash->{HOST} } = $hash;
if ( $init_done && !defined( $hash->{OLDDEF} ) ) {
# presets for FHEMWEB
$attr{$name}{alias} = 'Node.js Update Status';
$attr{$name}{devStateIcon} =
'npm.updates.available:security@red npm.is.up.to.date:security@green .*in.progress:system_fhem_reboot@orange errors:message_attention@red';
$attr{$name}{group} = 'System';
$attr{$name}{icon} = 'it_server';
$attr{$name}{room} = 'System';
}
readingsSingleUpdate( $hash, "state", "initialized", 1 ) readingsSingleUpdate( $hash, "state", "initialized", 1 )
if ( ReadingsVal( $name, 'state', 'none' ) ne 'none' ); if ( ReadingsVal( $name, 'state', 'none' ) ne 'none' );
CommandAttr( undef,
$name
. ' devStateIcon npm.updates.available:security@red npm.is.up.to.date:security@green .*in.progress:system_fhem_reboot@orange errors:message_attention@red'
) if ( AttrVal( $name, 'devStateIcon', 'none' ) eq 'none' );
Log3 $name, 3, "npmjs ($name) - defined";
$modules{npmjs}{defptr}{ $hash->{HOST} } = $hash;
return undef; return undef;
} }
@ -249,12 +260,14 @@ sub Set($$@) {
my ( $cmd, @args ) = @aa; my ( $cmd, @args ) = @aa;
if ( $cmd eq 'outdated' ) { if ( $cmd eq 'outdated' ) {
# return "usage: $cmd" if ( @args != 0 ); # return "usage: $cmd" if ( @args != 0 );
$hash->{".fhem"}{npm}{cmd} = $cmd; $hash->{".fhem"}{npm}{cmd} = $cmd;
} }
elsif ( $cmd eq 'update' ) { elsif ( $cmd eq 'update' ) {
# return "usage: $cmd" if ( @args != 0 ); # return "usage: $cmd" if ( @args != 0 );
$hash->{".fhem"}{npm}{cmd} = $cmd; $hash->{".fhem"}{npm}{cmd} = $cmd;
@ -321,11 +334,8 @@ sub ProcessUpdateTimer($) {
my $name = $hash->{NAME}; my $name = $hash->{NAME};
RemoveInternalTimer($hash); RemoveInternalTimer($hash);
InternalTimer( InternalTimer( gettimeofday() + 14400,
gettimeofday() + 14400, "npmjs::ProcessUpdateTimer", $hash, 0 );
"npmjs::ProcessUpdateTimer",
$hash, 0
);
Log3 $name, 4, "npmjs ($name) - stateRequestTimer: Call Request Timer"; Log3 $name, 4, "npmjs ($name) - stateRequestTimer: Call Request Timer";
unless ( IsDisabled($name) ) { unless ( IsDisabled($name) ) {
@ -681,7 +691,7 @@ sub CreateUpgradeList($$) {
if ( ref($packages) eq "HASH" ) { if ( ref($packages) eq "HASH" ) {
my $linecount = 1; my $linecount = 1;
foreach my $package ( keys( %{$packages} ) ) { foreach my $package ( sort keys( %{$packages} ) ) {
if ( $linecount % 2 == 0 ) { if ( $linecount % 2 == 0 ) {
$ret .= '<tr class="even">'; $ret .= '<tr class="even">';
} }