Proxmox/pve-common
5
0
Fork 0
mirror of git://git.proxmox.com/git/pve-common.git synced 2025-02-09 17:57:21 +03:00
Code Releases Activity

Modified IPv4 validation function, included Net::IP

Browse Source 
Signed-off-by: Damien PIQUET <piqudam@gmail.com>
This commit is contained in:
Damien PIQUET 2013-02-23 12:21:09 +01:00 committed by Dietmar Maurer
parent a13c6f08a3
commit 23b5624575
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
data/PVE/JSONSchema.pm
View File

@ -8,6 +8,7 @@ use Devel::Cycle -quiet; # todo: remove?
use PVE::Tools qw(split_list); use PVE::Tools qw(split_list);
use PVE::Exception qw(raise); use PVE::Exception qw(raise);
use HTTP::Status qw(:constants); use HTTP::Status qw(:constants);
use Net::IP qw(:PROC);
use base 'Exporter'; use base 'Exporter';
@ -140,10 +141,7 @@ register_format('ipv4', \&pve_verify_ipv4);
sub pve_verify_ipv4 { sub pve_verify_ipv4 {
my ($ipv4, $noerr) = @_; my ($ipv4, $noerr) = @_;
if ($ipv4 !~ m/^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/ || if (!Net::IP::ip_is_ipv4($ipv4)) {
!(($1 > 0) && ($1 < 255) &&
($2 <= 255) && ($3 <= 255) &&
($4 > 0) && ($4 < 255))) {
return undef if $noerr; return undef if $noerr;
die "value does not look like a valid IP address\n"; die "value does not look like a valid IP address\n";
} }