fixed some bugs

diff --git a/selfforum-cgi/shared/CheckRFC.pm b/selfforum-cgi/shared/CheckRFC.pm
index 1441038d5f2338740194355baf0f4363375a9b57..cb9a616e7d2fa2fe3afce9b5593a8b6867b9c92c 100644 (file)
--- a/selfforum-cgi/shared/CheckRFC.pm
+++ b/selfforum-cgi/shared/CheckRFC.pm
@@ -99,6 +99,8 @@ sub is_email ($;$) {
 
   # remove nested comments
   1 while ($string =~ s/\([^()]*\)//g);
 
   # remove nested comments
   1 while ($string =~ s/\([^()]*\)//g);

+  #$string =~ s/^\s+//;
+  #$string =~ s/\s+$//;

 
   return ($string =~ /^$email[0]$/) unless $strict;
 
 
   return ($string =~ /^$email[0]$/) unless $strict;
 

diff --git a/selfforum-cgi/user/config/fo_posting.xml b/selfforum-cgi/user/config/fo_posting.xml
index d478b98c10de21694f52afbcc8898f89b718b885..5dcf516c68d0781eceaddee0dc4239051d2e80fe 100644 (file)
--- a/selfforum-cgi/user/config/fo_posting.xml
+++ b/selfforum-cgi/user/config/fo_posting.xml
@@ -144,6 +144,7 @@
             <Variable name="name">name</Variable>
             <Variable name="maxlength">60</Variable>
             <Variable name="minlength">2</Variable>
             <Variable name="name">name</Variable>
             <Variable name="maxlength">60</Variable>
             <Variable name="minlength">2</Variable>

+            <Variable name="type">name</Variable>

             <Variable name="errorType">repeat</Variable>
           </Property>
 
             <Variable name="errorType">repeat</Variable>
           </Property>
 

diff --git a/selfforum-cgi/user/fo_posting.pl b/selfforum-cgi/user/fo_posting.pl
index a2d756edab911086609d418ad0bf95dca29a6b88..180233cf755a2ce3ce6c347d2b009d772e3544f3 100644 (file)
--- a/selfforum-cgi/user/fo_posting.pl
+++ b/selfforum-cgi/user/fo_posting.pl
@@ -817,6 +817,9 @@ sub check_cgi {
       #
       (my $val_ww = $val) =~ s/\s+//g;
 
       #
       (my $val_ww = $val) =~ s/\s+//g;
 

+      $val_ww =~ y/a-zA-Z//cd
+        if (exists ($formdata -> {$name {$_}} -> {type}) and $formdata -> {$name {$_}} -> {type} eq 'name');
+

       if (length $val_ww < $formdata -> {$name {$_}} -> {minlength}) {
         $self -> {error} = {
           spec => 'too_short',
       if (length $val_ww < $formdata -> {$name {$_}} -> {minlength}) {
         $self -> {error} = {
           spec => 'too_short',