allow special characters in name
authorTroy Sankey <sankeytms@gmail.com>
Sun, 22 Dec 2013 05:22:33 +0000 (21:22 -0800)
committerTroy Sankey <sankeytms@gmail.com>
Sun, 22 Dec 2013 05:22:33 +0000 (21:22 -0800)
index.pl

index 5caf2c6..79aaf51 100755 (executable)
--- a/index.pl
+++ b/index.pl
@@ -331,7 +331,7 @@ sub handle_submit {
   print $q->header(-type=>"text/html", -charset=>"utf-8");
   print $q->start_html(-title=>$page_title, -encoding=>"UTF-8");
   print_head();
-  if ($form_full_name =~ /[^\P{C}\s]/) {
+  if ($form_full_name =~ /[^\p{L}\p{Mn}\p{Pd}\'\x{2019}\s]/) {
     print "<p style=\"color:red\">Your <ins>Name</ins> appears to have non-printable charaters: <tt>$form_full_name</tt><br>",
           "Go back and try again.</p>";
     print_tail();