From 2bece6abde54881bb074dd44e7f87885eab4a777 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@fripost.org>
Date: Sat, 29 Sep 2012 02:03:21 +0200
Subject: Proper escaping of URIs.

---
 lib/Fripost/Schema/List.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'lib/Fripost/Schema/List.pm')

diff --git a/lib/Fripost/Schema/List.pm b/lib/Fripost/Schema/List.pm
index 87876f6..67da859 100644
--- a/lib/Fripost/Schema/List.pm
+++ b/lib/Fripost/Schema/List.pm
@@ -51,6 +51,7 @@ sub search {
                     deref => 'never',
                     filter => $filter,
                     attrs => [ qw/fvl description fripostIsStatusActive
+                                  fripostIsStatusPending
                                   fripostListManager/ ]
                   );
     if ($lists->code) {
@@ -61,6 +62,7 @@ sub search {
                  , isactive => $_->get_value('fripostIsStatusActive') eq 'TRUE'
                  , description => concat($concat, $_->get_value('description'))
                  , transport => $_->get_value('fripostListManager')
+                 , ispending => ($_->get_value('fripostIsStatusPending') // '') eq 'TRUE'
                  }
                }
                $lists->sorted('fvl')
@@ -113,8 +115,8 @@ sub add {
 
 
     eval {
+        die "Missing list name\n" unless $l->{list} =~ /^.+\@.+$/;
         my ($l2,$d) = split /\@/, email_to_ascii($l->{list}), 2;
-        die "Missing list name\n" if $l eq '';
         must_attrs( $l, 'transport' );
         &_is_valid($l);
         die "‘".$l->{list}."’ already exists\n"
-- 
cgit v1.2.3