|
Hello,
I want use the package NUT in a script perl, i wonder how use the result of method such as BattPercent() for example.
here is my code :
#!/usr/bin/perl -w
# server
use strict;
#use /etc/nut/dev/modules;
#use IO::Socket::Multicast;
use UPS::Nut;
my $message = localtime;
$message .=" `who` . \n";
print "-- test : $message \n";
my $ups = new UPS::Nut(
NAME => "UPS",
HOST => "localhost",
PORT => 3493,
USERNAME => "upsmon",
PASSWORD => "pass",
TIMEOUT => 30,
DEBUG => 1,
DEBUGOUT => "/etc/nut/dev/log/nut.log"
);
if ($ups->Status() =~ /OL/)
{
print "UPS : Alimentation OK !\n";
}
if ($ups->Status() =~ /OB/)
{
print "UPS : PB alimentation, Fonctionne sur batterie !\n";
}
print " UPS ETAT : $ups->Status() \n";
print " UPS charge batterie : $ups->BattPercent() \n";
print " UPS liste : $ups->ListVar() \n";
exit(0);
Bu i got : something like : "UPS::Nut=HASH(0x8505ad0)->BattPercent()" instead of the value expected...
Could somebody help me ? Thanks for all.
--
Cordialement,
Thill Llabrés - thill.llab...@etu.unicaen.fr
M2 E-Secure
|
_______________________________________________
Nut-upsuser mailing list
Nut-upsuser@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/nut-upsuser
