2 # wtf.pl: interface to bsd wtf
3 # Author: Tim Riker <Tim@Rikers.org>
4 # Source: modified from jethro's patch
5 # Licensing: Artistic License (as perl itself)
8 # Copyright (c) 2005 Tim Riker
29 return("no binary found.");
31 if ($query =~ /^$|[^\w]/){
32 return("usage: wtf <foo>.");
34 if (!&::validExec($query)) {
35 return("argument appears to be fuzzy.");
39 foreach (`$binary '$query' 2>&1`){
48 &::performStrictReply(&wtf(@_));