23 |
+ <base>HOSTNAME_COMMENT_ERROR</base> |
+ <base>HOSTNAME_COMMENT_ERROR</base> |
24 |
+ <trans> |
+ <trans> |
25 |
+ Error: unexpected characters in the comment of "{$hostname}.{$domain}". |
+ Error: unexpected characters in the comment of "{$hostname}.{$domain}". |
26 |
+ The comment must contain only letters, numbers, undescores, dots and hyphens, and must start with a letter or number. |
+ The comment must contain only letters, spaces, numbers, dots, commas, undescores, hyphens and must start with a letter or number. |
27 |
+ </trans> |
+ </trans> |
28 |
+ </entry> |
+ </entry> |
29 |
+ <entry> |
+ <entry> |
41 |
my $hostname = lc $q->param('name'); |
my $hostname = lc $q->param('name'); |
42 |
my $domain = lc $q->param('domain'); |
my $domain = lc $q->param('domain'); |
43 |
my $fqdn = "$hostname.$domain"; |
my $fqdn = "$hostname.$domain"; |
44 |
+ my $comment = lc $q->param('comment'); |
+ my $comment = $q->param('comment'); |
45 |
$self->cgi->param(-name=>'name', -value=>$hostname); |
$self->cgi->param(-name=>'name', -value=>$hostname); |
46 |
|
|
47 |
unless ( $hostname =~ /^[a-z0-9][a-z0-9-]*$/ ) |
unless ( $hostname =~ /^[a-z0-9][a-z0-9-]*$/ ) |
50 |
+ return $self->error('HOSTNAME_VALIDATOR_ERROR'); |
+ return $self->error('HOSTNAME_VALIDATOR_ERROR'); |
51 |
+ } |
+ } |
52 |
+ |
+ |
53 |
+ unless ( $comment =~ /^([a-z0-9][\_\.\-a-z0-9\s]*)$/ ) |
+ unless ( $comment =~ /^([a-zA-Z0-9][\_\.\-,A-Za-z0-9\s]*)$/ ) |
54 |
+ { |
+ { |
55 |
+ return $self->error('HOSTNAME_COMMENT_ERROR'); |
+ return $self->error('HOSTNAME_COMMENT_ERROR'); |
56 |
} |
} |