fix bug #135: use DNS compatible naming for 'pve-node'

This commit is contained in:
Dietmar Maurer 2012-04-02 14:12:44 +02:00
parent ce33e978f8
commit e6db55c0db
3 changed files with 8 additions and 3 deletions

View File

@ -1,7 +1,7 @@
RELEASE=2.0
VERSION=1.0
PKGREL=24
PKGREL=25
PACKAGE=libpve-common-perl

View File

@ -129,8 +129,7 @@ register_format('pve-node', \&pve_verify_node_name);
sub pve_verify_node_name {
my ($node, $noerr) = @_;
# todo: use better regex ?
if ($node !~ m/^[A-Za-z][[:alnum:]\-]*[[:alnum:]]+$/) {
if ($node !~ m/^([a-zA-Z0-9]([a-zA-Z0-9\-]*[a-zA-Z0-9])?)$/) {
return undef if $noerr;
die "value does not look like a valid node name\n";
}

6
debian/changelog vendored
View File

@ -1,3 +1,9 @@
libpve-common-perl (1.0-25) unstable; urgency=low
* fix bug #135: use DNS compatible naming for 'pve-node'
-- Proxmox Support Team <support@proxmox.com> Mon, 02 Apr 2012 14:10:45 +0200
libpve-common-perl (1.0-24) unstable; urgency=low
* fix bug #135: allow single letter 'dns-name', allow to start names