1 |
diff -urN smeserver-ddclient-1.2.1.old/root/etc/e-smith/web/functions/ddclient smeserver-ddclient-1.2.1/root/etc/e-smith/web/functions/ddclient |
2 |
--- smeserver-ddclient-1.2.1.old/root/etc/e-smith/web/functions/ddclient 2019-12-30 03:25:56.194410766 +0000 |
3 |
+++ smeserver-ddclient-1.2.1/root/etc/e-smith/web/functions/ddclient 2019-12-30 04:15:53.736372049 +0000 |
4 |
@@ -639,7 +639,7 @@ |
5 |
} |
6 |
|
7 |
my $domainLogin = $q->param ('login'); |
8 |
- if ($domainLogin =~ /^([\-\'\w][\-\'\w\s\.]*)$/) |
9 |
+ if ($domainLogin =~ /^([\-\'\w][\-\'\w\s\.\@]*)$/) |
10 |
{ |
11 |
$domainLogin = $1; |
12 |
} |
13 |
@@ -799,7 +799,7 @@ |
14 |
} |
15 |
|
16 |
my $domainLogin = $q->param ('login'); |
17 |
- if ($domainLogin =~ /^([\-\'\w][\-\'\w\s\.]*)$/) |
18 |
+ if ($domainLogin =~ /^([\-\'\w][\-\'\w\s\.\@]*)$/) |
19 |
{ |
20 |
$domainLogin = $1; |
21 |
} |
22 |
@@ -1066,7 +1066,7 @@ |
23 |
|
24 |
my $domainDesc = $q->param ('desc'); |
25 |
my $domainLogin = $q->param ('login'); |
26 |
- if ($domainLogin =~ /^([\-\'\w][\-\'\w\s\.]*)$/) { |
27 |
+ if ($domainLogin =~ /^([\-\'\w][\-\'\w\s\.\@]*)$/) { |
28 |
$domainLogin = $1; |
29 |
} else { |
30 |
showInitial ($q, $fm->localise('DOMAIN_LOGIN_VALIDATION_ERROR', |
31 |
@@ -1226,7 +1226,7 @@ |
32 |
} |
33 |
|
34 |
my $domainLogin = $q->param ('login'); |
35 |
- if ($domainLogin =~ /^([\-\'\w][\-\'\w\s\.]*)$/) { |
36 |
+ if ($domainLogin =~ /^([\-\'\w][\-\'\w\s\.\@]*)$/) { |
37 |
$domainLogin = $1; |
38 |
} else { |
39 |
showInitial ($q, $fm->localise('DOMAIN_LOGIN_VALIDATION_ERROR', |