We add Hush contacts to Hushlists, not zaddrs directly (abstraction for the win)

lib/Hush/App.pm

@@ -67,9 +67,10 @@ sub run {
 }
 
 sub add {
-    my ($list_name,$zaddr) = @_;
+    my ($list_name,$contact) = @_;
 
-    $list->add_zaddr($list_name,$zaddr);
+    # we add contacts to a list, not a zaddr
+    $list->add_contact($list_name,$contact);
 }
 
 sub remove {

lib/Hush/List.pm

@@ -269,10 +269,15 @@ sub public {
     my ($self,$name) = @_;
 }
 
-sub add_zaddr {
-    my ($self,$name,$zaddr) = @_;
-    $zaddr||= '';
-    barf "Invalid zaddr=$zaddr" unless $zaddr =~ m/^z/;
+sub add_contact {
+    my ($self,$name,$contact) = @_;
+
+    #TODO validate
+    $name ||= '';
+    barf "Invalid Hushlist list name!" unless $name;
+
+    $contact||= '';
+    barf "Invalid Hushlist contact=$contact" unless is_valid_contact($contact);
 
     my $lists = $self->{lists};
     my $list  = $lists->{$name};