summaryrefslogtreecommitdiff
path: root/contrib/whoisd/whoisd.pl
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/whoisd/whoisd.pl')
-rwxr-xr-xcontrib/whoisd/whoisd.pl4
1 files changed, 3 insertions, 1 deletions
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;