From 0dfbfbc34a314b96243391689d63996b29691ee6 Mon Sep 17 00:00:00 2001 From: epoch Date: Tue, 14 Oct 2014 03:05:00 +0000 Subject: hey, pgp key! don't remember what I changed in whoisd.pl --- contrib/whoisd/whoisd.pl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'contrib/whoisd') diff --git a/contrib/whoisd/whoisd.pl b/contrib/whoisd/whoisd.pl index e1854a0..107f7ea 100755 --- a/contrib/whoisd/whoisd.pl +++ b/contrib/whoisd/whoisd.pl @@ -20,6 +20,7 @@ if($QUERY eq '') { my $out; my $title; my $value; +my @value; my @parts; my $i; @@ -69,7 +70,8 @@ if($QUERY =~ m/^(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0- foreach(split(/\n/,`grep '' -r .`)) { $out = $_; $out =~ s/^\.\///g; - ($title, $value) = split(/:/,$out); + ($title, @value) = split(/:/,$out); + $value=join(":",@value); printf "%-20s %s\n", $title . ":", $value unless $HACK; if($title eq "owner") { $QUERY = $value; -- cgit v1.2.3