mirror of
https://git.proxmox.com/git/pve-common
synced 2025-07-17 16:19:10 +00:00
fix bug #135: allow single letter 'dns-name', allow to start name with numbers
This commit is contained in:
parent
74d1b045bd
commit
ce33e978f8
2
Makefile
2
Makefile
@ -1,7 +1,7 @@
|
|||||||
RELEASE=2.0
|
RELEASE=2.0
|
||||||
|
|
||||||
VERSION=1.0
|
VERSION=1.0
|
||||||
PKGREL=23
|
PKGREL=24
|
||||||
|
|
||||||
PACKAGE=libpve-common-perl
|
PACKAGE=libpve-common-perl
|
||||||
|
|
||||||
|
@ -178,7 +178,7 @@ register_format('dns-name', \&pve_verify_dns_name);
|
|||||||
sub pve_verify_dns_name {
|
sub pve_verify_dns_name {
|
||||||
my ($name, $noerr) = @_;
|
my ($name, $noerr) = @_;
|
||||||
|
|
||||||
my $namere = "([a-zA-Z]|[a-zA-Z][a-zA-Z0-9\-]*[a-zA-Z0-9])";
|
my $namere = "([a-zA-Z0-9]([a-zA-Z0-9\-]*[a-zA-Z0-9])?)";
|
||||||
|
|
||||||
if ($name !~ /^(${namere}\.)*${namere}$/) {
|
if ($name !~ /^(${namere}\.)*${namere}$/) {
|
||||||
return undef if $noerr;
|
return undef if $noerr;
|
||||||
|
7
debian/changelog
vendored
7
debian/changelog
vendored
@ -1,3 +1,10 @@
|
|||||||
|
libpve-common-perl (1.0-24) unstable; urgency=low
|
||||||
|
|
||||||
|
* fix bug #135: allow single letter 'dns-name', allow to start names
|
||||||
|
with numbers
|
||||||
|
|
||||||
|
-- Proxmox Support Team <support@proxmox.com> Mon, 02 Apr 2012 12:04:02 +0200
|
||||||
|
|
||||||
libpve-common-perl (1.0-23) unstable; urgency=low
|
libpve-common-perl (1.0-23) unstable; urgency=low
|
||||||
|
|
||||||
* moved dir_glob_regex() and dir_glob_foreach() from PVE::Storage
|
* moved dir_glob_regex() and dir_glob_foreach() from PVE::Storage
|
||||||
|
Loading…
Reference in New Issue
Block a user