File Coverage

blib/lib/Metabrik/Network/Icmp.pm

Criterion	Covered	Total	%
statement	9	41	21.9
branch	0	8	0.0
condition	0	2	0.0
subroutine	3	8	37.5
pod	2	5	40.0
total	14	64	21.8

#
# $Id$
#
# network::icmp Brik
#
package Metabrik::Network::Icmp;
use strict;
use warnings;

use base qw(Metabrik::Network::Frame);

sub brik_properties {
   return {
      revision => '$Revision$',
      tags => [ qw(unstable ping redirect doubleredirect mitm) ],
      author => 'GomoR ',
      license => 'http://opensource.org/licenses/BSD-3-Clause',
      commands => {
         ping => [ qw(ipv4_address) ],
         half_poison => [ ],
         full_poison => [ ],
      },
      require_modules => {
         'Metabrik::Network::Write' => [ ],
      },
   };
}

sub brik_use_properties {
   my $self = shift;

   return {
      attributes_default => {
         device => defined($self->global) && $self->global->device || 'eth0',
      },
   };
}

sub ping {
   my $self = shift;
   my ($target) = @_;

   $self->brik_help_run_undef_arg('ping', $target) or return;

   my $ipv4 = $self->ipv4;
   $ipv4->dst($target);
   $ipv4->protocol(0x01);  # ICMPv4

   my $icmpv4 = $self->icmpv4;

   my $echo1 = $self->echo_icmpv4;
   $echo1->identifier(1);
   my $echo2 = $self->echo_icmpv4;
   $echo2->identifier(2);
   my $echo3 = $self->echo_icmpv4;
   $echo3->identifier(3);

   my $frame1 = $self->frame([ $ipv4, $icmpv4, $echo1 ]);
   my $frame2 = $self->frame([ $ipv4, $icmpv4, $echo2 ]);
   my $frame3 = $self->frame([ $ipv4, $icmpv4, $echo3 ]);

   my $nw = Metabrik::Network::Write->new_from_brik_init($self) or return;

   # We must use different Net::Frame::Simple objects so recv() method will work
   for my $f ($frame1, $frame2, $frame3) {
      my $r = $nw->fnsend_reply($f)
         or return $self->log->error("ping: network::write fnsend_reply failed");
      if (defined($r)) {
         print $r->print."\n";
      }
      sleep(1);
   }

   return 1;
}

sub half_poison {
   my $self = shift;

   $self->log->info("TODO");

   return 1;
}

sub full_poison {
   my $self = shift;

   $self->log->info("TODO");

   return 1;
}

1;

__END__