script: allow hyphens in deputy email domains

This commit is contained in:
Kanan committed 2026-09-11 17:26:17 +04:00
1 parent 620871a7a4
commit afc982a096
1 file changed
+1 -1
+1 -1
View File
@@ -205,7 +205,7 @@ while (++$bipnum <= $topbip) {
# Enforce date format 20XX-MM-DD, where XX is 00-99, MM is 01-12 and DD is 01-31
die "Invalid date format in $fn" unless $val =~ /^20\d{2}\-(?:0[1-9]|1[0-2])\-(?:0[1-9]|[12]\d|30|31)$/;
} elsif (exists $EmailField{$field}) {
$val =~ m/^(\S[^<@>]*\S) \<[^@>]*\@[\w.]+\.\w+\>$/ or die "Malformed $field line in $fn";
$val =~ m/^(\S[^<@>]*\S) \<[^@>]*\@[\w.-]+\.\w+\>$/ or die "Malformed $field line in $fn";
} elsif (exists $VersionField{$field}) {
$val =~ m/^(\d+\.\d+\.\d+)$/ or die "Malformed $field line in $fn";
$version = $val;