diff options
Diffstat (limited to 'lib/Fripost/Panel/Interface.pm')
| -rw-r--r-- | lib/Fripost/Panel/Interface.pm | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/lib/Fripost/Panel/Interface.pm b/lib/Fripost/Panel/Interface.pm index bb77ad6..79b77aa 100644 --- a/lib/Fripost/Panel/Interface.pm +++ b/lib/Fripost/Panel/Interface.pm @@ -71,7 +71,7 @@ sub AddDomain : Runmode { Encode::_utf8_on($domainname) if defined $domainname; my $session_param; - $session_param = 'AddDomain-owner-emails-' . domain_to_ascii($domainname) + $session_param = 'AddDomain-owner-emails-'.domain_to_ascii($domainname) if defined $domainname; my $error; # Tells whether the change submission has failed. @@ -81,7 +81,7 @@ sub AddDomain : Runmode { if (defined $q->param('owner') and defined $session_param) { # Ensure that the user didn't spoof the domain ownership. - my @owners = split /\0/, $self->session->param($session_param); + my @owners = split "\0", $self->session->param($session_param); $error = "‘".$q->param('owner')."’ was not listed among the domain owners." unless defined $self->session->param($session_param) and grep { $q->param('owner') eq $_ } @owners; @@ -117,7 +117,7 @@ sub AddDomain : Runmode { , loop_context_vars => 1 ); $template->param( $self->userInfo ); $template->param( error => encode_entities ($error) ) if $error; - $template->param( &parse_CGI_query ($q) ); + $template->param( &fill_HTML_template_from_query ($q) ); if (@owners) { # Store the list we font, to ensure the user doesn't send back a @@ -587,13 +587,10 @@ sub fill_HTML_template_from_query { my %rest = @_; my %vars; - my @ok = qw/name isActive description catchAlls - canAddAlias canAddList owner postmaster/; - $params{$_} = encode_entities ($rest{$_}) for keys %rest; foreach my $key (keys %params) { $vars{$key} = $params{$key} // undef - if grep { $key eq $_ } (@single_valued_keys, @multi_valued_keys); + if grep { $key eq $_ } ('name', @single_valued_keys, @multi_valued_keys); } $vars{isActive} //= 1; return %vars; @@ -614,7 +611,7 @@ sub parse_CGI_query { } elsif (grep {$key eq $_} @multi_valued_keys) { $entry->{$key} = $params{$key} ? - [ split /\x{0D}\x{0A}/, $params{$key} ] : + [ split "\x{0D}\x{0A}", $params{$key} ] : []; $entry->{$key} = [ grep {$_} @{$entry->{$key}} ]; } |