package IPnum;

use strict;
use warnings;
use Net::Ping;
use Carp;
use overload '++' => \&increase;

# IP, NUM hochzählen
sub increase{
	my $self = shift;
	my $num = unpack "N", pack("CCCC", split /\./, $self->{IP});
	$num++;
	# Oktetten neu berechnen
	my $ip = join(".", unpack("CCCC", pack("N", $num)));
	$self->{IP} = $ip;
	$self->{NUM} = $num;
}

# Einfaches IP-Objekt erstellen
sub new{
	my $class = shift;
	my $ip = shift;

	my @octs = split /\./, $ip;
	# each octet must be a number!!!
	foreach my $o(@octs){
		if($o !~ /^\d+$/){ croak "Unwise Octet" }
	}

	# IP numerisch
	my $num = unpack "N", pack("CCCC", @octs);

	# zum Prüfen einmal hin und zurück rechnen
	my $hip = join(".", unpack("CCCC", pack("N", $num)));
	croak "invalid IP-Address" if $ip ne $hip;


	my $self = {
		NUM => $num,
		PING => Net::Ping->new('icmp'),
		IP => $ip,
	};
	return bless $self, $class;
}

# Delegation Net::Ping::ping
sub ping{
	my $self = shift;
	return $self->{PING}->ping($self->{NUM}, 0.3);
}

# zum Testen
sub dump{
	my $self = shift;
	printf "IP: %s\nNUM: %s\n", $self->{IP}, $self->{NUM};
}

# IP Adresse rausgeben
sub getip{
	return shift->{IP};
}
1;#########################################################################

package main;

use File::Temp qw(tempfile);
$|=1;
binmode STDOUT;

my ($fh, $fname) = tempfile;
binmode $fh;

# Anzahl der Prozesse
my $nop = 14;
# Startadresse
my $ipo = IPnum->new('10.0.0.1');


# Ab geht die Post ;)
foreach my $n(1..$nop){
	my $pid = fork();
	if($pid){
		if($pid == waitpid($pid, 0)){
			print "#";	
		}
	}
	elsif($pid == 0){
		my $ip = $ipo->getip;
		my $status = $ipo->ping;
		print $fh pack("Z100", qq(ping $ip, Status: $status));
		exit 0;
	}
	else{
		die "Forken geht hier nicht";
	}
	# Incease IP-Address
	$ipo++;
}

print "\n\n  Done!!! \n\n";
seek $fh, 0, 0;
while(read $fh, my $buffer, 100){
	print unpack("Z100", $buffer), "\n";
}
close $fh;