smeserver-subversion/contribs7/smeserver-subversion-1.4-ValidateDescription.patch

--- smeserver-subversion-1.4/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/subversion.pm.ValidateDescription     2008-08-10 17:34:40.000000000 +0200
+++ smeserver-subversion-1.4/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/subversion.pm 2008-08-10 17:43:49.000000000 +0200
@@ -975,13 +975,13 @@
 
 sub validate_description {
 
-#    my ($self, $description) = @_;
+    my ($self, $description) = @_;
 
-#    unless ($description =~ /^([a-z]\X+[\_\.\-a-z0-9]*)$/)
-#    {
-#        return $self->localise('DESCRIPTION_HAS_INVALID_CHARS',
-#                             {repoDescription => $description});
-#    }
+    unless ($description =~ /^([\w\s\_\.\-]*)$/)
+    {
+        return $self->localise('DESCRIPTION_HAS_INVALID_CHARS',
+                             {repoDescription => $description});
+    }
     return "OK";
 
 }
1	snetram	1.1	--- smeserver-subversion-1.4/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/subversion.pm.ValidateDescription 2008-08-10 17:34:40.000000000 +0200
2			+++ smeserver-subversion-1.4/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/subversion.pm 2008-08-10 17:43:49.000000000 +0200
3			@@ -975,13 +975,13 @@
4
5			sub validate_description {
6
7			-# my ($self, $description) = @_;
8			+ my ($self, $description) = @_;
9
10			-# unless ($description =~ /^([a-z]\X+[\_\.\-a-z0-9]*)$/)
11			-# {
12			-# return $self->localise('DESCRIPTION_HAS_INVALID_CHARS',
13			-# {repoDescription => $description});
14			-# }
15			+ unless ($description =~ /^([\w\s\_\.\-]*)$/)
16			+ {
17			+ return $self->localise('DESCRIPTION_HAS_INVALID_CHARS',
18			+ {repoDescription => $description});
19			+ }
20			return "OK";
21
22			}