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

register CIDR format

Browse Source
This commit is contained in:
Dietmar Maurer 2013-12-21 09:01:14 +01:00
parent 098795e0f8
commit e272bcb73d
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
data/PVE/JSONSchema.pm
View File

@ -5,7 +5,7 @@ use warnings;
use Storable; # for dclone
use Getopt::Long;
use Devel::Cycle -quiet; # todo: remove?
use PVE::Tools qw(split_list);
use PVE::Tools qw(split_list $IPV6RE $IPV4RE);
use PVE::Exception qw(raise);
use HTTP::Status qw(:constants);
use Net::IP qw(:PROC);
@ -191,6 +191,20 @@ sub pve_verify_ipv4mask {
return $mask;
}
register_format('CIDR', \&pve_verify_cidr);
sub pve_verify_cidr {
my ($cidr, $noerr) = @_;
if ($cidr =~ m!^(?:$IPV4RE)(?:/(\d+))$! && ($1 > 7) && ($1 < 32)) {
return $cidr;
} elsif ($cidr =~ m!^(?:$IPV6RE)(?:/(\d+))$! && ($1 > 7) && ($1 <= 120)) {
return $cidr;
}
return undef if $noerr;
die "value does not look like a valid CIDR network\n";
}
register_format('email', \&pve_verify_email);
sub pve_verify_email {
my ($email, $noerr) = @_;