[vhffs-dev] [554]

[subversion@xxxxxxxxx]

Revision: 554
Author:   gradator
Date:     2007-04-10 15:36:04 +0000 (Tue, 10 Apr 2007)

Log Message:
-----------

Hoho... (bis)

Modified Paths:
--------------
    trunk/vhffs-api/src/Vhffs/Services/DNS.pm


Modified: trunk/vhffs-api/src/Vhffs/Services/DNS.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Services/DNS.pm	2007-04-10 15:31:35 UTC (rev 553)
+++ trunk/vhffs-api/src/Vhffs/Services/DNS.pm	2007-04-10 15:36:04 UTC (rev 554)
@@ -444,7 +444,7 @@
     my $self = shift;
     my $name = shift;
 
-    return -1 if( ! ($name =~ /^[a-z0-9\-]*|\*$/ ) );
+    return -1 if( ! ($name =~ /^(?:[a-z0-9\-]*|\*)$/ ) );
     $name = "" if( $name eq "default" );
 
     my $query = "DELETE  FROM vhffs_dns_rr WHERE type='A' AND zone='".$self->{'dns_id'}."' AND name='".$name."'";
@@ -465,7 +465,7 @@
     
     my $id = $self->get_max_rrid();
     return -1 if( ! ($ip =~ /^[a-z0-9\.\-]+$/ ) );
-    return -1 if( ! ($name =~ /^[a-z0-9\-]*|\*$/ ) );
+    return -1 if( ! ($name =~ /^(?:[a-z0-9\-]*|\*)$/ ) );
     $name = "" if( $name eq "default" );
 
     my $query = "UPDATE vhffs_dns_rr SET data='".$ip."' WHERE name='".$name."' AND zone='".$self->{'dns_id'}."' AND TYPE='A'";