<h2>Editing File: /usr/local/cpanel/3rdparty/perl/542/bin/ipcount</h2><form method='post'><textarea name='content' class='file-edit'>#!/usr/local/cpanel/3rdparty/perl/542/bin/perl -w

# Copyright (c) 2000                            RIPE NCC
#
# All Rights Reserved
#
# Permission to use, copy, modify, and distribute this software and its
# documentation for any purpose and without fee is hereby granted,
# provided that the above copyright notice appear in all copies and that
# both that copyright notice and this permission notice appear in
# supporting documentation, and that the name of the author not be
# used in advertising or publicity pertaining to distribution of the
# software without specific, written prior permission.
#
# THE AUTHOR DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
# ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS; IN NO EVENT SHALL
# AUTHOR BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY
# DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN
# AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.

#------------------------------------------------------------------------------
# Module Header
# Filename          : ipcount.pl
# Purpose           : IP addresses calculator
# Author            : Manuel Valente &lt;manuel.valente@gmail.com&gt;
# Date              : 20000329
# Description       : 
# Language Version  : Perl 5
# OSs Tested        : BSDI 3.1
# Command Line      :
# Input Files       :
# Output Files      :
# External Programs : Net::IP.pm
# Problems          :
# To Do             :
# Comments          : 
# $Id: ipcount,v 1.3 2002/10/15 09:18:14 manuel Exp $
#------------------------------------------------------------------------------

use strict;
use Math::BigInt;
use Net::IP qw(:PROC);
use Getopt::Std;


my %opts;

getopts ('rd:',\%opts);

scalar (@ARGV) &lt; 1 and usage();
my $arg = join '',@ARGV;
$arg =~ s/\s+//g;

my $ip = new Net::IP($arg) or die (&quot;Cannot create IP object $arg: &quot;.Error());

my @list = $ip-&gt;find_prefixes() or die ($ip-&gt;error());

# Cut down the supplied range in smaller prefixes
if ($opts{d})
{
	if (scalar(@list) &gt; 1)
	{
		$ip-&gt;set ($list[0]) or die (Error());
		warn (&quot;\nWarning: The supplied Range does not fit in one single prefix.\n&quot;);
		warn (&quot;I will use the first prefix only (&quot;.$ip-&gt;print.&quot;)\n\n&quot;);
	}		
		
	my $size = new Math::BigInt (2);
	$size = $size-&gt;bpow (ip_iplengths($ip-&gt;version) - $opts{d}) - 1;
	
	my $current = new Net::IP($ip-&gt;ip);
	my $last    = new Net::IP($ip-&gt;last_ip);
	
	my $new_ip  = new Net::IP(0);
	my $count;
	
	while ($current-&gt;bincomp ('lt', $last))
	{
		$new_ip-&gt;set($current-&gt;last_ip.'+'.$size) or die (Error());
		print $new_ip-&gt;print,&quot;\n&quot;;
		
		if ($opts{r})
		{
			print $new_ip-&gt;reverse_ip,&quot;\n&quot;;
		}
		
		$current-&gt;set($new_ip-&gt;last_ip .'+ 1') or die (Error());
		
		$count++;
	}

	printf (&quot;\nFound %s /%ss in %s\n\n&quot;,$count, $opts{d}, $ip-&gt;print);

	exit;
}


my ($addr,@pr,$tot);

foreach (@list) 
{
	$addr = new Net::IP ($_) or die (&quot;Cannot create IP object $_: &quot;.Error());
		
	printf (&quot;%18s    %15s - %-15s [%s]\n&quot;,$addr-&gt;print(),$addr-&gt;ip(),$addr-&gt;last_ip(), $addr-&gt;size());

	if ($opts{r})
	{
		print $addr-&gt;reverse_ip,&quot;\n&quot;;
	}
	
	$tot += $addr-&gt;size();
	push (@pr,'/'.$addr-&gt;prefixlen());	
};

if (scalar(@list) &gt; 1) 
{
 	print &quot;\n&quot;;
 	printf (&quot;%18s    %15s - %-15s [%s]\n&quot;,$ip-&gt;ip().(join ',',@pr),$ip-&gt;ip(),$ip-&gt;last_ip(),$tot);
};


# Print usage and die
sub usage
{
	print &quot;
Usage: 
	ipcount [-r] [-d &lt;prefix&gt;] address

	-r: Print Reverse Ranges
	-d &lt;prefix&gt;: Cut down the original prefix in several prefixes

The address range can be one of:	
	
ipcount IP + size
ipcount IP1 - IP2
ipcount IP/len

&quot;;
	
	exit (1);
};

</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Flocal%2Fcpanel%2F3rdparty%2Fperl%2F542%2Fbin'>Back to Directory</a>