|
@ -136,8 +136,8 @@ sub exit_unless_hushlist_exists { |
|
|
|
|
|
|
|
|
sub is_valid_zaddr { |
|
|
sub is_valid_zaddr { |
|
|
my ($zaddr) = @_; |
|
|
my ($zaddr) = @_; |
|
|
# TODO: only base58 is valid |
|
|
# TODO: only base58 is valid, and length |
|
|
return ($zaddr =~ m/^zc[a-z0-9]{94}/i) ? 1 : 0; |
|
|
return ($zaddr =~ m/^zc[A-z0-9]+$/) ? 1 : 0; |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
# show details about a particular (hushlist,zaddr) pair |
|
|
# show details about a particular (hushlist,zaddr) pair |
|
|