Forbid uppercase in list name as qmail doesn't support them

tags/smeserver-minilist-0.1.5-1
Daniel Berteaud 5 years ago
parent 93b715e9b2
commit db43b516b0
  1. 2
      root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/minilist.pm

@ -173,7 +173,7 @@ sub delete_list {
sub validate_list_name { sub validate_list_name {
my $fm = shift; my $fm = shift;
my $name = shift; my $name = shift;
unless ($name =~ /^([a-zA-Z0-9][\_\.\-a-zA-Z0-9]*)$/){ unless ($name =~ /^([a-z0-9][\_\.\-a-z0-9]*)$/){
return $fm->localise('INVALID_CHARS',{string => $name}); return $fm->localise('INVALID_CHARS',{string => $name});
} }
if ($a->get($name)){ if ($a->get($name)){

Loading…
Cancel
Save