Shopware-Proxy: Leeren Wert '' erlauben und danach regex prüfen

[mfinanz.git] / SL / DB / Shop.pm

diff --git a/SL/DB/Shop.pm b/SL/DB/Shop.pm
index 6b00350670cbba1433903a00548b59d0fcc2a249..55f81e55102ffad9043166faaeaad0d00d24e6a2 100644 (file)
--- a/SL/DB/Shop.pm
+++ b/SL/DB/Shop.pm
@@ -22,6 +22,7 @@ sub validate {
   push @errors, $::locale->text('The Host Name is missing')    unless $self->{server};
   push @errors, $::locale->text('The Host Name seems invalid') unless $self->{server} =~ m/[0-9A-Za-z].\.[0-9A-Za-z]/;
   push @errors, $::locale->text('The Proxy Name seems invalid') unless $self->{proxy} =~ m/[0-9A-Za-z].\.[0-9A-Za-z]/;
+  push @errors, $::locale->text('The Proxy Name seems invalid') . $self->{proxy} . ':' unless !$self->{proxy} ||  $self->{proxy} =~ m/[0-9A-Za-z].\.[0-9A-Za-z]/;
   push @errors, $::locale->text('Orders to fetch neeeds a positive Integer')
                                                                unless $self->{orders_to_fetch} > 0;