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	--- 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	}