lib/H1/EasyGateway.pm

   1 package H1::EasyGateway;
   2
   3 use Data::Dump qw(dump);
   4
   5 use SOAP::Lite;
   6
   7 sub info {
   8         my ( $self, $ip ) = @_;
   9
  10         my $ret;
  11
  12         my $soap = SOAP::Lite
  13                 ->service('http://10.99.0.74:9090/cpews/services/Cpe112DiagnosisSoapImpl?WSDL');
  14
  15         my $out = $soap->getWanDslStatus( "IP=$ip" );
  16
  17         $ret->{$_} = $out->{$_} foreach keys %$out;
  18
  19         my $out = $soap->getCpeBasicInfo( "IP=$ip" ); # mac, username, uptime
  20
  21         foreach ( keys %$out ) {
  22                 next unless defined $out->{$_}; # skip undef values
  23                 $ret->{$_} = $out->{$_};
  24         }
  25
  26         warn "# $ip = ",dump($ret);
  27
  28         return $ret;
  29 }
  30
  31 1;