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";
}
+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