File Coverage

blib/lib/Metabrik/Identify/Ssh.pm

Criterion	Covered	Total	%
statement	9	24	37.5
branch	0	4	0.0
condition	0	6	0.0
subroutine	3	5	60.0
pod	1	2	50.0
total	13	41	31.7

#
# $Id$
#
# identify::ssh Brik
#
package Metabrik::Identify::Ssh;
use strict;
use warnings;

use base qw(Metabrik);

sub brik_properties {
   return {
      revision =>  '$Revision$',
      tags => [ qw(unstable) ],
      author => 'GomoR ',
      license => 'http://opensource.org/licenses/BSD-3-Clause',
      attributes => {
         banner => [ qw(string) ],
      },
      commands => {
         parsebanner => [ qw(banner|OPTIONAL) ],
      },
   };
}

sub parsebanner {
   my $self = shift;
   my ($banner) = @_;

   $banner ||= $self->banner;
   $self->brik_help_run_undef_arg('parsebanner', $banner) or return;

   # From most specific to less specific
   my $data = [
      [
         '^SSH-(\d+\.\d+)-OpenSSH_(\d+\.\d+\.\d+)(p\d+) Ubuntu-(2ubuntu2)$' => {
            ssh_protocol_version => '$1',
            ssh_product_version => '$2',
            ssh_product_feature_portable => '$3',
            ssh_os_distribution_version => '$4',
            ssh_product => 'OpenSSH',
            ssh_os => 'Linux',
            ssh_os_distribution => 'Ubuntu',
         },
      ],
      [
         '^SSH-(\d+\.\d+)-OpenSSH_(\d+\.\d+)_(\S+) (\S+)$' => {
            ssh_protocol_version => '$1',
            ssh_product_version => '$2',
            ssh_product_feature_portable => '$3',
            ssh_product => 'OpenSSH',
            ssh_extra => '$4',
         },
      ],
      [
         '^SSH-(\d+\.\d+)(.*)$' => {
            ssh_protocol_version => '$1',
            ssh_product => 'undef',
            ssh_extra => '$2',
         },
      ],
   ];

   my $result = {};
   for my $elt (@$data) {
      my $re = $elt->[0];
      my $info = $elt->[1];
      if ($banner =~ /$re/) {
         for my $k (keys %$info) {
            $result->{$k} = eval($info->{$k}) || $info->{$k};
         }
         last;
      }
   }

   return $result;
}

1;

__END__