<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN">
<html><body style='font-family: Verdana,Geneva,sans-serif'>
<p>Hello,</p>
<p>I want use the package NUT in a script perl, i wonder how use the result of method such as BattPercent() for example.</p>
<p>here is my code :</p>
<p><em>#!/usr/bin/perl -w</em><br /><em># server</em><br /><br /><em>use strict;</em><br /><em>#use /etc/nut/dev/modules;</em><br /><em>#use IO::Socket::Multicast;</em><br /><em>use UPS::Nut;</em><br /><br /><em>my $message = localtime;</em><br /><em>$message .=" `who` . \n";</em><br /><em>print "-- test : $message \n";</em><br /><br /><em>my $ups = new UPS::Nut(</em><br /><em>    NAME => "UPS",</em><br /><em>    HOST => "localhost",</em><br /><em>    PORT => 3493,</em><br /><em>    USERNAME => "upsmon",</em><br /><em>    PASSWORD => "pass",</em><br /><em>    TIMEOUT => 30,</em><br /><em>    DEBUG => 1,</em><br /><em>    DEBUGOUT => "/etc/nut/dev/log/nut.log"</em><br /><em>);</em><br /><br /><em>if ($ups->Status() =~ /OL/) </em><br /><em>    {</em><br /><em>    print "UPS : Alimentation OK !\n";</em><br /><em>    }</em><br /><em>if ($ups->Status() =~ /OB/) </em><br /><em>    {</em><br /><em>    print "UPS : PB alimentation, Fonctionne sur batterie !\n";</em><br /><em>    }</em><br /><em>print " UPS ETAT            :  $ups->Status() \n";</em><br /><em>print " UPS charge batterie :  $ups->BattPercent() \n";</em><br /><em>print " UPS liste           :  $ups->ListVar() \n";</em><br /><em>exit(0);</em><br /><br /></p>
<p>Bu i got : something like : "UPS::Nut=HASH(0x8505ad0)->BattPercent()" instead of the value expected...<img title="Déçu" src="cid:smiley-frown.gif@etu.unicaen.fr" alt="Déçu" border="0" /></p>
<p>Could somebody help me ? Thanks for all.</p>
<div>-- <br />
<pre>Cordialement, 
Thill Llabrés -<strong><span style="color: #3366ff; font-family: helvetica;"> Thill.llabres@etu.unicaen.fr</span></strong>
M2 E-Secure</pre>
</div>
</body></html>