projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
clarify how and when PC92 A/D are rebroadcast
[spider.git]
/
perl
/
DXCIDR.pm
diff --git
a/perl/DXCIDR.pm
b/perl/DXCIDR.pm
index 5a6272aa4747e0c813b96431b5932b5df22f1516..821152209a73c6e7cd7353f3bf2b25e8de905d1c 100644
(file)
--- a/
perl/DXCIDR.pm
+++ b/
perl/DXCIDR.pm
@@
-44,6
+44,7
@@
sub _read
chomp;
next if /^\s*\#/;
next unless /[\.:]/;
chomp;
next if /^\s*\#/;
next unless /[\.:]/;
+ next unless $_;
push @out, $_;
}
$fh->close;
push @out, $_;
}
$fh->close;
@@
-82,6
+83,8
@@
sub _put
sub append
{
sub append
{
+ return 0 unless $active;
+
my $suffix = shift;
my @in = @_;
my @out;
my $suffix = shift;
my @in = @_;
my @out;
@@
-104,6
+107,7
@@
sub append
sub add
{
sub add
{
+ return 0 unless $active;
my $count = 0;
for my $ip (@_) {
my $count = 0;
for my $ip (@_) {
@@
-127,6
+131,8
@@
sub add
sub clean_prep
{
sub clean_prep
{
+ return unless $active;
+
if ($ipv4 && $count4) {
$ipv4->clean;
$ipv4->prep_find;
if ($ipv4 && $count4) {
$ipv4->clean;
$ipv4->prep_find;
@@
-150,6
+156,7
@@
sub _sort
sub list
{
sub list
{
+ return () unless $active;
my @out;
push @out, $ipv4->list if $count4;
push @out, $ipv6->list if $count6;
my @out;
push @out, $ipv4->list if $count4;
push @out, $ipv6->list if $count6;
@@
-199,6
+206,8
@@
sub _touch
sub reload
{
sub reload
{
+ return 0 unless $active;
+
new();
my $count = 0;
new();
my $count = 0;
@@
-224,6
+233,8
@@
sub reload
sub new
{
sub new
{
+ return 0 unless $active;
+
$ipv4 = Net::CIDR::Lite->new;
$ipv6 = Net::CIDR::Lite->new;
$count4 = $count6 = 0;
$ipv4 = Net::CIDR::Lite->new;
$ipv6 = Net::CIDR::Lite->new;
$count4 = $count6 = 0;