[vhffs-dev] [644] Oops! fogot some "[A-Z]" deletions ;)

[subversion@xxxxxxxxx]

Revision: 644
Author:   crafty
Date:     2007-06-12 17:06:47 +0000 (Tue, 12 Jun 2007)

Log Message:
-----------
Oops! fogot some "[A-Z]" deletions ;)

Modified Paths:
--------------
    branches/vhffs-4.0/vhffs-api/src/Vhffs/Services/Mail.pm


Modified: branches/vhffs-4.0/vhffs-api/src/Vhffs/Services/Mail.pm
===================================================================
--- branches/vhffs-4.0/vhffs-api/src/Vhffs/Services/Mail.pm	2007-06-12 17:01:08 UTC (rev 643)
+++ branches/vhffs-4.0/vhffs-api/src/Vhffs/Services/Mail.pm	2007-06-12 17:06:47 UTC (rev 644)
@@ -421,7 +421,7 @@
 	my $name = shift;
 
 	return -1 if( ! defined $name );
-	return -1 if( ! ( $name =~ /^[a-zA-Z0-9\_\-\.]+$/ ) );
+	return -1 if( ! ( $name =~ /^[a-z0-9\_\-\.]+$/ ) );
 
 	undef $self->{boxes}{$name};
 
@@ -440,7 +440,7 @@
 	return -1 if( ! defined $name );
 
 	undef $self->{forward}{$name};
-	return -1 if( ! ( $name =~ /^[a-zA-Z0-9\_\-\.]+$/ ) );
+	return -1 if( ! ( $name =~ /^[a-z0-9\_\-\.]+$/ ) );
 
 	my $query = "DELETE FROM vhffs_forward WHERE local_part='".$name."' AND domain='".$self->{'domain'}."'";
 	my $request = $self->{'db'}->{'DB_WRITE'}->prepare( $query );
@@ -469,7 +469,7 @@
 {
 	my $self = shift;
 	my $name = shift;
-	return -1 if( ! ( $name =~ /^[a-zA-Z0-9\_\-\.]+$/ ) );
+	return -1 if( ! ( $name =~ /^[a-z0-9\_\-\.]+$/ ) );
     my $request = $self->{'db'}->{'DB_READ'}->prepare("SELECT * FROM vhffs_forward where domain='".$self->{'domain'}."' AND local_part='".$name."'") or return -1;
     return 1 if( $request->execute() > 0 );
 	return 0;
@@ -479,7 +479,7 @@
 {
 	my $self = shift;
 	my $name = shift;
-	return -1 if( ! ( $name =~ /^[a-zA-Z0-9\_\-\.]+$/ ) );
+	return -1 if( ! ( $name =~ /^[a-z0-9\_\-\.]+$/ ) );
     my $request = $self->{'db'}->{'DB_READ'}->prepare("SELECT * FROM vhffs_boxes where domain='".$self->{'domain'}."' AND local_part='".$name."'") or return -1;
     return 1 if( $request->execute() > 0 );
 	return 0;