version 1.7, 2018/10/24 04:19:27
|
version 1.8, 2018/10/24 15:11:19
|
Line 73 if (@ARGV != 1) {
|
Line 73 if (@ARGV != 1) {
|
&Exit(2); |
&Exit(2); |
} |
} |
my $tmpfile = $ARGV[0]; |
my $tmpfile = $ARGV[0]; |
if (-e $tmpfile) { |
if ($tmpfile =~ m{^\Q/home/httpd/perl/tmp/lciptables_iphost_\E\d+$}) { |
if (open(my $fh,"<$tmpfile")) { |
if (-e $tmpfile) { |
while(<$fh>) { |
if (open(my $fh,"<$tmpfile")) { |
chomp(); |
while(<$fh>) { |
$iphost{$_} = 1; |
chomp(); |
|
if (/^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/) { |
|
if (($1<=255) && ($2<=255) && ($3<=255) && ($4<=255)) { |
|
$iphost{$_} = 1; |
|
} |
|
} |
|
} |
|
close($fh); |
|
} else { |
|
&Exit(3); |
} |
} |
close($fh); |
|
} else { |
} else { |
&Exit(3); |
print "Error. File containing IP addresses of hosts in cluster does not exist\n" unless $noprint; |
|
&Exit(3); |
} |
} |
} else { |
} else { |
print "Error. File containing IP addresses of hosts in cluster does not exist\n" unless $noprint; |
print "Error. Invalid filename for file containing IP addresses\n" unless $noprint; |
&Exit(3); |
&Exit(3); |
} |
} |
|
|