diff options
| author | epoch <epoch@hacking.allowed.ano> | 2014-10-14 03:05:00 +0000 |
|---|---|---|
| committer | epoch <epoch@hacking.allowed.ano> | 2014-10-14 03:05:00 +0000 |
| commit | 0dfbfbc34a314b96243391689d63996b29691ee6 (patch) | |
| tree | 291fb64a31afc6599a5766450b4939acd978ace6 /contrib/whoisd | |
| parent | 968b779f48d178883175d36897415c588e063963 (diff) | |
| download | resdb-0dfbfbc34a314b96243391689d63996b29691ee6.tar.gz resdb-0dfbfbc34a314b96243391689d63996b29691ee6.zip | |
hey, pgp key! don't remember what I changed in whoisd.pl
Diffstat (limited to 'contrib/whoisd')
| -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; |