diff options
author | Guilhem Moulin <guilhem.moulin@fripost.org> | 2012-09-04 22:17:32 +0200 |
---|---|---|
committer | Guilhem Moulin <guilhem.moulin@fripost.org> | 2012-09-04 22:17:40 +0200 |
commit | ff6e499692065df321dc670df37118ba7d701516 (patch) | |
tree | b9e2d0b041d0992dca6ad82e0d191498e0e4061d /lib/FPanel/Interface.pm | |
parent | e652956aa8dd6160b078f396e3f89157c15294af (diff) |
HTTP Error handling (for 403 and 404)
Diffstat (limited to 'lib/FPanel/Interface.pm')
-rw-r--r-- | lib/FPanel/Interface.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lib/FPanel/Interface.pm b/lib/FPanel/Interface.pm index aa5b554..8c9ca10 100644 --- a/lib/FPanel/Interface.pm +++ b/lib/FPanel/Interface.pm @@ -42,7 +42,7 @@ sub ListDomains : StartRunmode { fripostOwner fripostPostmaster/ ] ); - die '403' if $domains->code; + die "403\n" if $domains->code; $ldap->unbind; @@ -91,10 +91,10 @@ sub ListLocals : Runmode { fripostOwner fripostPostmaster/ ] ); - die '404' if $domains->code; + die "404\n" if $domains->code; # The following is not supposed to happen. die "Error: Multible matching entries found." if $domains->count > 1; - my $domain = $domains->pop_entry or die '404'; + my $domain = $domains->pop_entry or die "404\n"; # Query the mailboxes under the given domain @@ -269,10 +269,10 @@ sub EditDomain : Runmode { , filter => 'objectClass=FripostVirtualDomain' , deref => 'never' ); - die '404' if $domains->code; + die "404\n" if $domains->code; # The following is not supposed to happen. die "Error: Multible matching entries found." if $domains->count > 1; - my $domain = $domains->pop_entry or die '404'; + my $domain = $domains->pop_entry or die "404\n"; $ldap->unbind; @@ -411,10 +411,10 @@ sub EditLocal : Runmode { fva fripostMaildrop fvl fripostListManager/ ] ); - die '404' if $locals->code; + die "404\n" if $locals->code; # The following is not supposed to happen. die "Error: Multible matching entries found." if $locals->count > 1; - my $local = $locals->pop_entry or die '404'; + my $local = $locals->pop_entry or die "404\n"; my $template; if ($local->dn =~ /^fvu=/) { |