From e5573fe9e65684a3fc7ca9efc8fd7674bdcf736c Mon Sep 17 00:00:00 2001
From: "Jonathan \"Duke\" Leto" <jonathan@leto.net>
Date: Sat, 10 Mar 2018 10:38:47 -0800
Subject: [PATCH] Add is_valid_taddr, which needs to be generalized for other
 chains

---
 lib/Hush/Util.pm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/lib/Hush/Util.pm b/lib/Hush/Util.pm
index 5c5289f..579edc0 100644
--- a/lib/Hush/Util.pm
+++ b/lib/Hush/Util.pm
@@ -6,6 +6,7 @@ use Carp qw/longmess/;
 our @EXPORT_OK = qw/
     barf timing now
     is_valid_zaddr
+    is_valid_taddr
     is_valid_privkey
 /;
 use Time::HiRes qw/gettimeofday tv_interval/;
@@ -30,6 +31,18 @@ sub is_valid_zaddr {
         return 0;
     }
 }
+
+# valid for HUSH+ZEC, we need tables for other prefixes
+sub is_valid_taddr {
+    my ($t) = @_;
+
+    # TODO: only base58 is valid
+    if ($t =~ m/^t1[a-z0-9]{35}$/i) {
+        return 1;
+    } else {
+        return 0;
+    }
+}
 # we never look at taddr privkeys
 # valid for HUSH+ZEC, we need tables for other prefixes
 sub is_valid_privkey {