From 5e8a2c2f93a8458133e64827fd8e9ff1de75b8ee Mon Sep 17 00:00:00 2001 From: "Jonathan \"Duke\" Leto" Date: Fri, 1 Dec 2017 01:27:14 -0800 Subject: [PATCH] Some validation for 'contact rm' --- lib/Hush/Contact.pm | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lib/Hush/Contact.pm b/lib/Hush/Contact.pm index ea0408c..16ebe0e 100644 --- a/lib/Hush/Contact.pm +++ b/lib/Hush/Contact.pm @@ -41,9 +41,14 @@ sub contact { }, "rm" => sub { my ($cmd,$name,$zaddr) = @ARGV; + + barf "Hushlist contact name cannot by empty!" unless $name; + barf "Invalid zaddr=$zaddr for Hushlist contact $name" unless is_valid_zaddr($zaddr); + barf Dumper [ $cmd, $name, $zaddr ]; }, }; + my $subcmd = $subcommands->{$cmd}; if ($subcmd) { $subcmd->();