parse show interface $port adsl-status

[APKPM.git] / lib / H1 / ZTE.pm

diff --git a/lib/H1/ZTE.pm b/lib/H1/ZTE.pm
index e0f3f6c..9b423b9 100644 (file)
--- a/lib/H1/ZTE.pm
+++ b/lib/H1/ZTE.pm
@@ -35,7 +35,7 @@ sub telnet {
        return $telnet->{$ip} = $t;
 }
 
-sub command {
+sub command_out {
        my ($self,$command) = @_;
 
        my $t = $self->telnet;
@@ -53,6 +53,12 @@ sub command {
 
        warn "## out = [$out]" if $ENV{DEBUG};
 
+       return $out;
+}
+
+sub command {
+       my ($self,$command) = @_;
+       my $out  = $self->command_out( $command );
        my $hash = $self->parse( $out );
 
        warn "## ", $self->ip, " $command ",dump $hash;
@@ -84,6 +90,11 @@ sub hash {
                copy ref $commands->{$command} eq 'ARRAY' ? @{$commands->{$command}} : undef;
        }
 
+       if ( $self->can('custom') ) {
+               $hash = $self->custom( $port );
+               copy keys %$hash;
+       }
+
        warn "# row = ",dump $row if $ENV{DEBUG};
 
        $row = $self->fixup_row( $row ) if $self->can('fixup_row');