diff options
Diffstat (limited to 'contrib')
| -rwxr-xr-x | contrib/whoisd/whoisd.pl | 4 | 
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; | 
