Linux sagir-us1.hostever.us 5.14.0-570.51.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Oct 8 09:41:34 EDT 2025 x86_64
LiteSpeed
Server IP : 104.247.108.91 & Your IP : 216.73.216.26
Domains : 74 Domain
User : georgeto
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
lib64 /
perl5 /
vendor_perl /
auto /
NetAddr /
IP /
Delete
Unzip
Name
Size
Permission
Date
Action
InetBase
[ DIR ]
drwxr-xr-x
2025-02-25 04:07
Util
[ DIR ]
drwxr-xr-x
2025-02-25 04:07
UtilPP
[ DIR ]
drwxr-xr-x
2025-02-25 04:07
_compV6.al
1
KB
-rw-r--r--
2022-02-11 16:57
_compact_v6.al
1.01
KB
-rw-r--r--
2022-02-11 16:57
_splitplan.al
2.91
KB
-rw-r--r--
2022-02-11 16:57
_splitref.al
936
B
-rw-r--r--
2022-02-11 16:57
autosplit.ix
388
B
-rw-r--r--
2022-02-11 16:57
canon.al
362
B
-rw-r--r--
2022-02-11 16:57
coalesce.al
1.35
KB
-rw-r--r--
2022-02-11 16:57
compactref.al
1.67
KB
-rw-r--r--
2022-02-11 16:57
do_prefix.al
891
B
-rw-r--r--
2022-02-11 16:57
hostenum.al
329
B
-rw-r--r--
2022-02-11 16:57
mod_version.al
427
B
-rw-r--r--
2022-02-11 16:57
nprefix.al
603
B
-rw-r--r--
2022-02-11 16:57
prefix.al
605
B
-rw-r--r--
2022-02-11 16:57
re.al
1.4
KB
-rw-r--r--
2022-02-11 16:57
re6.al
1.83
KB
-rw-r--r--
2022-02-11 16:57
short.al
500
B
-rw-r--r--
2022-02-11 16:57
wildcard.al
485
B
-rw-r--r--
2022-02-11 16:57
Save
Rename
# NOTE: Derived from blib/lib/NetAddr/IP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP; #line 1103 "blib/lib/NetAddr/IP.pm (autosplit into blib/lib/auto/NetAddr/IP/_splitref.al)" # input: $rev, # t/f # $naip, # @bits # list of masks for split # sub _splitref { my $rev = shift; my($plan,$masks) = &_splitplan; # bug report 82719 croak("netmask error: overrange or spurious bits") unless defined $plan; # return undef unless $plan; my $net = $_[0]->network(); return [$net] unless $masks; my $addr = $net->{addr}; my $isV6 = $net->{isv6}; my @plan = $rev ? reverse @$plan : @$plan; # print "plan @plan\n"; # create splits my @ret; while ($_ = shift @plan) { my $mask = $masks->{$_}; push @ret, $net->_new($addr,$mask,$isV6); last unless @plan; $addr = (sub128($addr,$mask))[1]; } return \@ret; } # end of NetAddr::IP::_splitref 1;