File Coverage

blib/lib/Net/Write/Fast.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

#
# $Id: Fast.pm 34 2015-02-20 06:16:17Z gomor $
#
package Net::Write::Fast;
use strict;
use warnings;

use base qw(Exporter DynaLoader);

our $VERSION = '0.15';

__PACKAGE__->bootstrap($VERSION);

our %EXPORT_TAGS = (
   consts => [qw(
   )],
   subs => [qw(
      estimate_runtime
      runtime_as_string
   )],
   vars => [qw(
   )],
);

our @EXPORT_OK = (
   @{$EXPORT_TAGS{vars}},
   @{$EXPORT_TAGS{consts}},
   @{$EXPORT_TAGS{subs}},
);

use Time::Interval;

sub estimate_runtime {
   my ($info) = @_;

   if (! defined($info)) {
      print STDERR "[-] estimate_runtime: give HASHREF\n";
      return;
   }

   if (! exists($info->{ports})
   ||  ! exists($info->{targets})
   ||  ! exists($info->{try})
   ||  ! exists($info->{pps})) {
      print STDERR "[-] estimate_runtime: info HASHREF not complete\n";
      return;
   }

   my $nports = scalar(@{$info->{ports}});
   my $nhosts = scalar(@{$info->{targets}});
   my $try = $info->{try};
   my $pps = $info->{pps};

   my $estim = Time::Interval::parseInterval(
      seconds => $try * $nports * $nhosts / $pps,
   );

   return {
      days => $estim->{days},
      hours => $estim->{hours},
      minutes => $estim->{minutes},
      seconds => $estim->{seconds},
      nhosts => $nhosts,
   };
}

sub runtime_as_string {
   my ($info) = @_;

   if (! defined($info)) {
      print STDERR "[-] runtime_as_string: give HASHREF\n";
      return;
   }

   if (! exists($info->{days})
   ||  ! exists($info->{hours})
   ||  ! exists($info->{minutes})
   ||  ! exists($info->{seconds})
   ||  ! exists($info->{nhosts})) {
      print STDERR "[-] runtime_as_string: info HASHREF not complete\n";
      return;
   }

   my $string = sprintf(
      "Estimated runtime: %d day(s) %d hour(s) %d minute(s) %d second(s) for %d host(s)",
         $info->{days},
         $info->{hours},
         $info->{minutes},
         $info->{seconds},
         $info->{nhosts},
   );

   return $string;
}

1;

__END__