29 lines
833 B
Plaintext
29 lines
833 B
Plaintext
{
|
|
my $poll = $nut{pollInterval} || '2';
|
|
if ($poll ne '2') {
|
|
$OUT .= "pollinterval = $poll\n";
|
|
}
|
|
|
|
my @upses = grep(/^nut-driver\@[a-zA-Z0-9_-]+$/, $DB->keys);
|
|
foreach my $ups ( sort {$a cmp $b} @upses )
|
|
{
|
|
my $status = ${"$ups"}{status} || "disabled";
|
|
next if $status eq "disabled";
|
|
my ($name )= $ups =~ /^nut-driver\@(.*)$/ ;
|
|
my $model = ${"$ups"}{Model} || "usbhid-ups";
|
|
my $device = ${"$ups"}{Device} || "auto"; #"/var/lib/ups/hiddev0";
|
|
my $type = ${"$ups"}{Type};
|
|
my $mfr = ${"$ups"}{mfr};
|
|
my $mdl = ${"$ups"}{mdl};
|
|
$OUT .= "[$name]\n";
|
|
$OUT .= "\tdriver = $model\n";
|
|
if ($model eq 'genericups')
|
|
{
|
|
$OUT .= "\tupstype = $type\n" if defined $type;
|
|
$OUT .= "\tmfr = $mfr\n" if defined $mfr;
|
|
$OUT .= "\tmodel = $mdl\n" if defined $mdl;
|
|
}
|
|
$OUT .= "\tport = $device\n";
|
|
}
|
|
}
|