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