diff options
Diffstat (limited to 'contrib/whoisd/whoisd.pl')
| -rwxr-xr-x | contrib/whoisd/whoisd.pl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/contrib/whoisd/whoisd.pl b/contrib/whoisd/whoisd.pl index 158c075..67636c9 100755 --- a/contrib/whoisd/whoisd.pl +++ b/contrib/whoisd/whoisd.pl @@ -6,11 +6,17 @@ use strict; +#maybe chroot this whoisd? my $RESDB = "/services/resdb/resdb"; my $HACK=0; my $QUERY=<stdin>; $QUERY =~ s/\r\n//g; +$QUERY =~ s/\///g; +if($QUERY eq '') { + printf "%% error. no query. wtf?"; + exit 0; +} my $out; my $title; my $value; @@ -97,7 +103,7 @@ if($QUERY =~ m/\./) { } # default to assuming it is a name. -printf "%% user section for %s\n", $QUERY unless $HACK; +printf "%% user section for '%s'\n", $QUERY unless $HACK; chdir("$RESDB/db/usr") || die "%% error"; if(chdir($QUERY)) { |