lagertonne/nut
1
0
Fork 0
Code Issues Pull requests Projects Releases 2 Wiki Activity

new upstream 2.8.0

Browse source
This commit is contained in:
lagertonne 2022-06-29 12:37:36 +02:00
parent fc7f4b43c1
commit b2b0c9995a
836 changed files with 137090 additions and 30018 deletions
Download patch file Download diff file Expand all files Collapse all files

7
scripts/perl/Nut.pm
View file

@ -164,7 +164,7 @@ sub _initialize {
# Author: Kit Peters
my $self = shift;
my %arg = @_;
my $host = $arg{HOST} || 'localhost'; # Host running master upsd
my $host = $arg{HOST} || 'localhost'; # Host running upsd and probably drivers
my $port = $arg{PORT} || '3493'; # 3493 is IANA assigned port for NUT
my $proto = $arg{PROTO} || 'tcp'; # use tcp unless user tells us to
my $user = $arg{USERNAME} || undef; # username passed to upsd
@ -591,6 +591,8 @@ sub Master { # check for MASTER level access
# Author: Kit Peters
# ### changelog: uses the new _send command
#
# TODO: API change pending to replace MASTER with PRIMARY
# (and backwards-compatible alias handling)
my $self = shift;
my $req = "MASTER $self->{name}"; # build request
@ -841,6 +843,9 @@ It is automatically done if connection closed.
Use this to find out whether or not we have MASTER privileges for
this UPS. Returns 1 if we have MASTER privileges, returns 0 otherwise.
TODO: API change pending to replace MASTER with PRIMARY
(and backwards-compatible alias handling)
=item ListVar($variable, ...)
This is an implementation of "LIST VAR" command.