diff options
author | tzafrir <tzafrir@5390a7c7-147a-4af0-8ec9-7488f05a26cb> | 2008-03-21 00:36:13 +0000 |
---|---|---|
committer | tzafrir <tzafrir@5390a7c7-147a-4af0-8ec9-7488f05a26cb> | 2008-03-21 00:36:13 +0000 |
commit | b04ba7d0159f807f3b8a4dc88123e1163506729d (patch) | |
tree | 37625801be145946d9f276ecb05439d44a1ec1bb /xpp/utils/zconf/Zaptel/Xpp | |
parent | 0ade252776e951a78e836ad3f4b126934c637bc1 (diff) |
* Earleier initialization of PRI module's register.
* Fix zaptel-perl reporting of battery after procfs changes.
* Documentation updates.
git-svn-id: http://svn.digium.com/svn/zaptel/branches/1.2@4036 5390a7c7-147a-4af0-8ec9-7488f05a26cb
Diffstat (limited to 'xpp/utils/zconf/Zaptel/Xpp')
-rw-r--r-- | xpp/utils/zconf/Zaptel/Xpp/Line.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/xpp/utils/zconf/Zaptel/Xpp/Line.pm b/xpp/utils/zconf/Zaptel/Xpp/Line.pm index e3e04f0..0014aed 100644 --- a/xpp/utils/zconf/Zaptel/Xpp/Line.pm +++ b/xpp/utils/zconf/Zaptel/Xpp/Line.pm @@ -39,15 +39,19 @@ sub create_all($$) { die "Failed globbing '$procdir/*_info'" unless defined $infofile; my $type = $xpd->type; open(F, "$infofile") || die "Failed opening '$infofile': $!"; + my $battery_info = 0; while (<F>) { chomp; if($type eq 'FXO') { - if(s/^\s*battery\s*:\s*//) { + $battery_info = 1 if /^Battery:/; + if($battery_info && s/^\s*on\s*:\s*//) { my @batt = split; foreach my $l (@lines) { die unless @batt; - $l->{BATTERY} = shift @batt; + my $state = shift @batt; + $l->{BATTERY} = ($state eq '+') ? 1 : 0; } + $battery_info = 0; die if @batt; } } |